[Spamscan-cvs] spamscan/bin spamscan,1.2,1.3 wordmunger.pl,1.1.1.1,1.2
Brought to you by:
destari
|
From: <de...@us...> - 2003-07-22 01:58:00
|
Update of /cvsroot/spamscan/spamscan/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv22492/spamscan/bin
Modified Files:
spamscan wordmunger.pl
Log Message:
added prelim code for authentication and commands
Index: spamscan
===================================================================
RCS file: /cvsroot/spamscan/spamscan/bin/spamscan,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** spamscan 18 Jul 2003 20:12:44 -0000 1.2
--- spamscan 22 Jul 2003 01:57:57 -0000 1.3
***************
*** 36,39 ****
--- 36,40 ----
if ($User_Preferences{'remotemx'}) { $remotemx = $User_Preferences{'remotemx'}; }
if ($User_Preferences{'striphtml'}) { $striphtml = $User_Preferences{'striphtml'}; }
+ if ($User_Preferences{'passcode'}) { $passcode = $User_Preferences{'passcode'}; }
***************
*** 41,45 ****
##########################################################
! $version = "1.60";
$url = "http:\/\/spamscan.sourceforge.net";
--- 42,46 ----
##########################################################
! $version = "1.70b";
$url = "http:\/\/spamscan.sourceforge.net";
***************
*** 75,78 ****
--- 76,84 ----
next;
} else {
+ if ($_ =~ /^\s*spamscan\s+(.+)\s+(.+)/cgi) {
+ #
+ $spampassword = $1;
+ $spamcommand = $2;
+ }
$body = $body . $_;
}
***************
*** 150,153 ****
--- 156,160 ----
$xheaderdone = 1;
print RMAIL "X-Spam-Scanned: $progname $version - $url\n";
+ print RMAIL "X-Spam-Scanned: $spamcommand $spampassword\n";
print RMAIL "$spamreason_msg";
print RMAIL $line;
Index: wordmunger.pl
===================================================================
RCS file: /cvsroot/spamscan/spamscan/bin/wordmunger.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** wordmunger.pl 17 Jul 2003 19:52:02 -0000 1.1.1.1
--- wordmunger.pl 22 Jul 2003 01:57:57 -0000 1.2
***************
*** 11,15 ****
@words = split/\s+/,$text;
! $maxdepth = 3;
####################################
--- 11,15 ----
@words = split/\s+/,$text;
! $maxdepth = 4;
####################################
|