OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: r...@openpkg.org
Module: openpkg-src Date: 05-Jul-2009 20:20:34
Branch: HEAD Handle: 2009070519203400
Modified files:
openpkg-src/milter-header
milter-header.pl
Log:
log warnings from MILTER API
Summary:
Revision Changes Path
1.2 +7 -0 openpkg-src/milter-header/milter-header.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-src/milter-header/milter-header.pl
============================================================================
$ cvs diff -u -r1.1 -r1.2 milter-header.pl
--- openpkg-src/milter-header/milter-header.pl 5 Jul 2009 16:56:31
-0000 1.1
+++ openpkg-src/milter-header/milter-header.pl 5 Jul 2009 18:20:34
-0000 1.2
@@ -57,6 +57,13 @@
}
}
+# catch run-time warnings from Sendmail::PMilter
+$SIG{__WARN__} = sub {
+ my ($err) = @_;
+ $err =~ s/\r?\n$//s;
+ logbook("MILTER Warning: %s", $err);
+};
+
# create milter
umask(002);
unlink($socket);
@@ .
______________________________________________________________________
OpenPKG http://openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
