--- mailgate.pl.031122 Sun Nov 23 22:25:56 2003
+++ mailgate.pl Sun Nov 23 22:27:17 2003
@@ -46,7 +46,7 @@
$_ = $MAIL[$index];
last if ( $_ eq "\n" );
chop;
- if (/^(\S+): (.*)$/) {
+ if (/^(?:(\S+): ([^;]*))?;?\s*(?:(\S+)="(.*)")?(?:(\S+)=(.*))?$/) {
$hhh = $Header{$1};
if ( $1 eq "Received" && $hhh ) {
$tmp = "$2";
@@ -57,8 +57,10 @@
$Header{'Received'} = $tmp;
}
}
- else {
+ else {
$Header{$1} = $2;
+ $Header{$3} = $4;
+ $Header{$5} = $6;
}
}
}
【 在 FreeWizard@smth.org (求放心 | Pray4u ) 的大作中提到: 】
: diff -uN bbsqmail.old bbsqmail
: {
: - open(BBSGATE,"| $mail2bbs \'$Header{'From'}\' \'$normaluser\'");
: + open(BBSGATE,"| $mail2bbs \'$Header{'From'}\' \'$normaluser\'
: \'$Header{'boundary'}\'");
: }
--
FROM yesterday