Importing email correspondence into ticket <%$id%> as if it had been CCed to Request Tracker.
% if (not $ImapOK) { % if (defined $Password) {Password incorrect.
% } % } elsif ((not defined $Folder) && (defined $FolderList)) { <& /Elements/IMAP/FolderList, Page => 'AddCorrespondence.html', FolderList => $FolderList, id => $id &> % } elsif ((defined $Folder) && (defined $MessageList) && (defined $BulkImport) && (not defined $Confirm)) {<-- Back to the "<%$Folder%>" folder
Import the messages below, in the order shown, into the history of this ticket (without an autoresponse to the sender) - are you sure? Click here to confirm.
<& /Elements/IMAP/MessageSummary, MessageList => $MessageList, SortBy => $SortBy, ShowList => $BulkImport &> % } elsif ((defined $Folder) && (defined $MessageList) && (not defined $MessageId)) { <& /Elements/IMAP/MessageList, Page => 'AddCorrespondence.html', Folder => $Folder, Offset => $Offset, PerPage => $PerPage, SortBy => $SortBy, AllowMultiple => 1, MessageList => $MessageList, id => $id &> % } elsif ((defined $Folder) && (defined $MessageId) && (defined $MessageString) && (not defined $Confirm)) {<-- Back to the "<%$Folder%>" folder
Import the message below into the history of this ticket (without an autoresponse to the sender) - are you sure? Click here to confirm.
<& /Elements/IMAP/FormatMessage, Page => 'AddCorrespondence.html', MessageString => $MessageString &> % } <%INIT> my ($ImapOK, $FolderList, $MessageList, $MessageString) = (0, undef, undef, undef); $Username = $session{'emailuser'} if (not defined $Username); $Username = $session{'CurrentUser'}->Name if (not defined $Username); $m->comp ('/Elements/IMAP/Loader', Folder => $Folder, MessageId => $MessageId, Username => $Username, Password => $Password, ImapOKRef => \$ImapOK, FolderListRef => \$FolderList, MessageListRef => \$MessageList, MessageStringRef => \$MessageString); $BulkImport = join (',', @$BulkImport) if ((defined $BulkImport) && (ref $BulkImport eq 'ARRAY')); my $title; my $TicketObj = LoadTicket($id); $title = loc("Import correspondence into ticket #[_1] ([_2])", $TicketObj->id, $TicketObj->Subject); if ((defined $Folder) && (defined $MessageId) && (defined $MessageString) && (defined $Confirm)) { my $parser = RT::EmailParser->new(); $parser->SmartParseMIMEEntityFromScalar (Message => $MessageString); my $M = $parser->Entity(); $TicketObj->Comment (MIMEObj => $M); $m->comp('History.html', TicketObj => $TicketObj, %ARGS); return; } elsif ((defined $Folder) && (defined $MessageList) && (defined $BulkImport) && (defined $Confirm)) { my @list = (); if ($SortBy == 0) { @list = sort { $MessageList->{$b}->{'TIME'} <=> $MessageList->{$a}->{'TIME'} } keys %$MessageList; } elsif ($SortBy == 1) { @list = sort { $MessageList->{$a}->{'TIME'} <=> $MessageList->{$b}->{'TIME'} } keys %$MessageList; } else { @list = sort { $a <=> $b } keys %$MessageList; } my %showmap = (); foreach (split /,/, $BulkImport) { $showmap{$_} = 1; } for (my $pos = 0; $pos <= $#list; $pos++) { #> next if (not exists $showmap{$list[$pos]}); $m->comp ('/Elements/IMAP/Loader', Folder => $Folder, MessageId => $list[$pos], Username => $Username, Password => $Password, ImapOKRef => \$ImapOK, FolderListRef => \$FolderList, MessageListRef => \$MessageList, MessageStringRef => \$MessageString); my $parser = RT::EmailParser->new(); $parser->SmartParseMIMEEntityFromScalar (Message => $MessageString); my $M = $parser->Entity(); $TicketObj->Comment (MIMEObj => $M); } $m->comp('History.html', TicketObj => $TicketObj, %ARGS); return; } <%ARGS> $Folder => undef $MessageId => undef $Offset => 0 $PerPage => 20 $SortBy => 0 $Username => undef $Password => undef $Confirm => undef $BulkImport => undef $id => undef