Message received at |. + $output .= qq|
Message received at |. htmlsanit("$received\@$hostname") . q| (full text'.q|, mbox)'.":
\n"; $output .= handle_email_message($record->{text}, ref => $bug_number, @@ -468,6 +451,7 @@ if (looks_like_number($msg) and ($msg-1) <= $#records) { } my @log; if ( $mbox ) { + my $date = strftime "%a %b %d %T %Y", localtime; if (@records > 1) { print qq(Content-Disposition: attachment; filename="bug_${ref}.mbox"\n); print "Content-Type: text/plain\n\n"; @@ -477,9 +461,49 @@ if ( $mbox ) { print qq(Content-Disposition: attachment; filename="bug_${ref}_message_${msg_num}.mbox"\n); print "Content-Type: message/rfc822\n\n"; } + if ($mbox_status_message and @records > 1) { + my $status_message=''; + my @status_fields = (retitle => 'subject', + package => 'package', + submitter => 'originator', + severity => 'severity', + tag => 'tags', + owner => 'owner', + blocks => 'blocks', + forward => 'forward', + ); + my ($key,$value); + while (($key,$value) = splice(@status_fields,0,2)) { + if (defined $status{$value} and length $status{$value}) { + $status_message .= qq($key $ref $status{$value}\n); + } + } + print STDOUT qq(From unknown $date\n), + create_mime_message([From => "$debbugs::gBug#$ref <$ref\@$debbugs::gEmailDomain>", + To => "$debbugs::gBug#$ref <$ref\@$debbugs::gEmailDomain>", + Subject => "Status: $status{subject}", + "Reply-To" => "$debbugs::gBug#$ref <$ref\@$debbugs::gEmailDomain>", + ], + <View this report as an mbox folder.
Reply ), + qq(or subscribe ), + qq(to this bug.
\n); +print qq(); +printf qq(View this report as an mbox folder, ). + qq(status mbox, maintainer mbox
Send a report that this bug log contains spam.
\n