osdir.com
mailing list archive

Subject: [SACVS] CVS: spamassassin/spamproxy spamproxyd.raw,1.5,1.6 - msg#00122

List: mail.spam.spamassassin.cvs

Date: Prev Next Index Thread: Prev Next Index
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?
Yes No
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;
Sign up for updates to this mailing list. email:
Loading Comments...
Home | News | Patents | Sitemap | FAQ | advertise

Advertising by