我目前和cvs不一样的就mailgate.pl 忘了为啥改的了...
Index: mailgate.pl
===================================================================
RCS file: /home/cvs/smth_bbs/mail2bbs/mailgate.pl,v
retrieving revision 3.3
diff -u -r3.3 mailgate.pl
--- mailgate.pl 29 Nov 2003 15:24:19 -0000 3.3
+++ mailgate.pl 14 Jan 2005 17:59:16 -0000
@@ -57,11 +57,15 @@
$Header{'Received'} = $tmp;
}
}
+# elsif ( $1 eq "Content-Type" ) {
+# if ( $MAIL[$index+1] =~ /^\s*boundary="(.+)"$/ ) {
+# $Header{"boundary"} = $1;
+# }
+# }
else {
- print "$1 $2 $3 $4 $5 $6 ";
- if ($1) $Header{$1} = $2;
- if ($3) $Header{$3} = $4;
- if ($5) $Header{$5} = $6;
+ $Header{$1} = $2;
+ $Header{$3} = $4;
+ $Header{$5} = $6;
}
}
}
【 在 atppp (Big Mouse) 的大作中提到: 】
: 那个bbsqmail的脚本你改过没？还是cvs上的就好用...
--
FROM 166.111.158.88