|
|
Subject: [SACVS] CVS: spamassassin/spamproxy spamproxyd.raw,1.5,1.6 - msg#00122
List: mail.spam.spamassassin.cvs
Update of /cvsroot/spamassassin/spamassassin/spamproxy
In directory usw-pr-cvs1:/tmp/cvs-serv28286
Modified Files:
spamproxyd.raw
Log Message:
Bugzilla #261: my bug and added Syslogging
Index: spamproxyd.raw
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/spamproxy/spamproxyd.raw,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** spamproxyd.raw 6 Apr 2002 18:47:42 -0000 1.5
--- spamproxyd.raw 29 Apr 2002 14:54:28 -0000 1.6
***************
*** 29,32 ****
--- 29,34 ----
# --Ian R. Justman <ianj@xxxxxxxxx>, 11/21/2001
+ use Sys::Syslog qw(:DEFAULT setlogsock);
+
use Carp;
use Net::SMTP::Server;
***************
*** 65,72 ****
my ($srcaddr, $srcport) = split /:/, $ARGV[0];
my ($dstaddr, $dstport) = split /:/, $ARGV[1];
if(@ARGV == 3) {
! my $spamaddr = $ARGV[2];
} else {
! my $spamaddr = "recipient";
}
--- 67,75 ----
my ($srcaddr, $srcport) = split /:/, $ARGV[0];
my ($dstaddr, $dstport) = split /:/, $ARGV[1];
+ my $spamaddr;
if(@ARGV == 3) {
! $spamaddr = $ARGV[2];
} else {
! $spamaddr = "recipient";
}
***************
*** 167,170 ****
--- 170,174 ----
my $status = $spamtest->check($mail);
if ($status->is_spam ()) {
+ $msg = sprintf(" SPAM[%6.1f]: %s", $status->get_hits(),
$status->get_names_of_tests_hit());
$status->rewrite_mail ();
$message = join ("",$mail->header(),@{$mail->body()});
***************
*** 176,181 ****
--- 180,191 ----
}
} else {
+ $msg = sprintf("NOT_SPAM[%6.1f]: %s", $status->get_hits(),
$status->get_names_of_tests_hit());
$recips = $client->{TO};
}
+
+ setlogsock 'unix';
+ openlog('spamassassin', 'nowait', 'local3');
+ syslog('notice', $msg);
+ closelog();
$status->finish();
Was this page helpful?
Thread at a glance:
Previous Message by Date:
click to view message preview
Re: [SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Conf.pm,1.58,1.59 Dns.pm,1.31,1.32 EvalTests.pm,1.126,1.127 PerMsgStatus.pm,1.98,1.99
Ok, done.
C
Matt Sergeant wrote:
MS> -----BEGIN PGP SIGNED MESSAGE-----
MS> Hash: SHA1
MS>
MS> On Monday 29 Apr 2002 5:56 am, Craig Hughes wrote:
MS> > Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
MS> > In directory usw-pr-cvs1:/tmp/cvs-serv21914/lib/Mail/SpamAssassin
MS> >
MS> > Modified Files:
MS> > Conf.pm Dns.pm EvalTests.pm PerMsgStatus.pm
MS> > Log Message:
MS> > More performance testing instrumentation. Before only did body test, now
MS> > got body, head, uri and rawbody.
MS> >
MS> > +
MS> > + eval {
MS> > + use IPC::Open2;
MS>
MS> Please change this to require, otherwise you're always loading IPC::Open2
MS> (yes, even inside an eval block).
MS>
MS> - --
MS> Matt.
MS> <:->get a SMart net</:->
MS> -----BEGIN PGP SIGNATURE-----
MS> Version: GnuPG v1.0.6 (GNU/Linux)
MS> Comment: For info see http://www.gnupg.org
MS>
MS> iD8DBQE8zSQO5tFry5Ir+lARAoLHAJ945WSkTYdsg/6Ie4Vyl9Rt4CcVvgCeOy7O
MS> UU9wKQqPFy/FdXCfVXBT1k8=
MS> =QVyd
MS> -----END PGP SIGNATURE-----
MS>
MS>
MS>
Next Message by Date:
click to view message preview
[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Dns.pm,1.33,1.34
Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory usw-pr-cvs1:/tmp/cvs-serv14663/lib/Mail/SpamAssassin
Modified Files:
Dns.pm
Log Message:
Probable fix for perl 5.0x DCC problem
Index: Dns.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/Dns.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Dns.pm 29 Apr 2002 14:41:14 -0000 1.33
--- Dns.pm 29 Apr 2002 22:56:22 -0000 1.34
***************
*** 227,231 ****
sub is_dcc_available {
my ($self) = @_;
- my ($dcchdl);
if ($self->{main}->{local_tests_only}) {
--- 227,230 ----
***************
*** 234,244 ****
}
! if (!open($dcchdl, "dccproc -V 2>&1 |")) {
! close $dcchdl;
dbg ("DCC is not available");
return 0;
}
else {
! close $dcchdl;
dbg ("DCC is available");
return 1;
--- 233,243 ----
}
! if (!open(DCCHDL, "dccproc -V 2>&1 |")) {
! close DCCHDL;
dbg ("DCC is not available");
return 0;
}
else {
! close DCCHDL;
dbg ("DCC is available");
return 1;
Previous Message by Thread:
click to view message preview
[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Dns.pm,1.32,1.33
Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory usw-pr-cvs1:/tmp/cvs-serv24266/lib/Mail/SpamAssassin
Modified Files:
Dns.pm
Log Message:
Change a use to a require inside eval
Index: Dns.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/Dns.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Dns.pm 29 Apr 2002 04:56:15 -0000 1.32
--- Dns.pm 29 Apr 2002 14:41:14 -0000 1.33
***************
*** 261,265 ****
eval {
! use IPC::Open2;
my ($dccin, $dccout, $pid);
--- 261,265 ----
eval {
! require IPC::Open2;
my ($dccin, $dccout, $pid);
Next Message by Thread:
click to view message preview
[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Dns.pm,1.33,1.34
Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory usw-pr-cvs1:/tmp/cvs-serv14663/lib/Mail/SpamAssassin
Modified Files:
Dns.pm
Log Message:
Probable fix for perl 5.0x DCC problem
Index: Dns.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/Dns.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Dns.pm 29 Apr 2002 14:41:14 -0000 1.33
--- Dns.pm 29 Apr 2002 22:56:22 -0000 1.34
***************
*** 227,231 ****
sub is_dcc_available {
my ($self) = @_;
- my ($dcchdl);
if ($self->{main}->{local_tests_only}) {
--- 227,230 ----
***************
*** 234,244 ****
}
! if (!open($dcchdl, "dccproc -V 2>&1 |")) {
! close $dcchdl;
dbg ("DCC is not available");
return 0;
}
else {
! close $dcchdl;
dbg ("DCC is available");
return 1;
--- 233,243 ----
}
! if (!open(DCCHDL, "dccproc -V 2>&1 |")) {
! close DCCHDL;
dbg ("DCC is not available");
return 0;
}
else {
! close DCCHDL;
dbg ("DCC is available");
return 1;
|
|