--- libsendmail-pmilter-perl-0.96.orig/Makefile.PL +++ libsendmail-pmilter-perl-0.96/Makefile.PL @@ -1,4 +1,4 @@ -# $Id: Makefile.PL,v 1.11 2004/08/10 21:10:36 tvierling Exp $ +# $Id: Makefile.PL,v 1.3 2004-08-14 18:09:38 bengen Exp $ use 5.006; use ExtUtils::MakeMaker; --- libsendmail-pmilter-perl-0.96.orig/debian/compat +++ libsendmail-pmilter-perl-0.96/debian/compat @@ -0,0 +1 @@ +4 --- libsendmail-pmilter-perl-0.96.orig/debian/copyright +++ libsendmail-pmilter-perl-0.96/debian/copyright @@ -0,0 +1,10 @@ +This is the debian package for the PMilter module. +It was created by Hilko Bengen using +dh-make-perl. + +Upstream author: Todd Vierling + +License: BSD + +On Debian systems, the complete text of the BSD license can be found +in /usr/share/common-licenses/BSD --- libsendmail-pmilter-perl-0.96.orig/debian/watch +++ libsendmail-pmilter-perl-0.96/debian/watch @@ -0,0 +1,4 @@ +version=3 + +http://www.cpan.org/modules/by-module/Sendmail/Sendmail-PMilter-(.*)\.tar\.gz + --- libsendmail-pmilter-perl-0.96.orig/debian/README.Debian +++ libsendmail-pmilter-perl-0.96/debian/README.Debian @@ -0,0 +1,16 @@ +libsendmail-pmilter-perl for Debian +----------------------------------- + +The file doc/milter-protocol.txt which described the "wire" protocol +as understood by Todd Vierling, the upstream author, could not be +included into the package because it has a non-free license: + + Permission is granted to copy or reproduce this document in its + entirety in any medium without charge, provided that the copy or + reproduction is without modification and includes the above + copyright notice(s). + +However, this document can be downloaded from + + + -- Hilko Bengen , Mon, 26 May 2003 14:57:44 +0200 --- libsendmail-pmilter-perl-0.96.orig/debian/examples +++ libsendmail-pmilter-perl-0.96/debian/examples @@ -0,0 +1,2 @@ +examples/crm114-milter.pl +examples/protocol-dump.pl --- libsendmail-pmilter-perl-0.96.orig/debian/rules +++ libsendmail-pmilter-perl-0.96/debian/rules @@ -0,0 +1,82 @@ +#!/usr/bin/make -f +#-*- makefile -*- +# Made with the aid of dh_make, by Craig Small +# Sample debian/rules that uses debhelper. GNU copyright 1997 by Joey Hess. +# Some lines taken from debmake, by Christoph Lameter. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +PACKAGE=$(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +ifndef DESTDIR +DESTDIR=.. +endif +TMP =`pwd`/debian/$(PACKAGE) + +build: build-stamp +build-stamp: + dh_testdir + + $(PERL) Makefile.PL INSTALLDIRS=vendor < /dev/null + $(MAKE) OPTIMIZE="-O2 -g -Wall" + + touch build-stamp + +clean: + dh_testdir + dh_testroot + rm -f build-stamp + + [ ! -f Makefile ] || $(MAKE) realclean + + dh_clean + +install: + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + + $(MAKE) install PREFIX=$(TMP)/usr + + +# Build architecture-dependent files here. +binary-arch: build install +# We have nothing to do by default. + +# Build architecture-independent files here. +binary-indep: build install +# dh_testversion + dh_testdir + dh_testroot + dh_installdocs README + dh_installexamples + dh_installmenu +# dh_installemacsen +# dh_installinit +# dh_installcron + dh_installman +# dh_undocumented + dh_installchangelogs + dh_link +# dh_strip + dh_compress + dh_fixperms +# dh_makeshlibs + dh_installdeb + dh_perl + dh_shlibdeps + dh_gencontrol + dh_md5sums + dh_builddeb --destdir=$(DESTDIR) + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary --- libsendmail-pmilter-perl-0.96.orig/debian/changelog +++ libsendmail-pmilter-perl-0.96/debian/changelog @@ -0,0 +1,40 @@ +libsendmail-pmilter-perl (0.96-2) unstable; urgency=low + + * Added fix for filter dying with 'unknown milter protocol version 6' + (Closes: #516570) Thanks to Cord Beermann for the hint. + * Fixed a few POD formatting errors + * Bumped Standards-Version. + + -- Hilko Bengen Sun, 01 Mar 2009 17:29:51 +0100 + +libsendmail-pmilter-perl (0.96-1) unstable; urgency=low + + * New upstream version (Closes: #444200) + * Added debian/watch file + * Fixed POD in order to shut up lintian + + -- Hilko Bengen Sat, 29 Sep 2007 13:35:43 +0200 + +libsendmail-pmilter-perl (0.95-1) unstable; urgency=low + + * New upstream version + - fixes installation problems already fixed in the 0.94-1 package + + -- Hilko Bengen Sat, 14 Aug 2004 20:08:40 +0200 + +libsendmail-pmilter-perl (0.94-1) unstable; urgency=low + + * New upstream version (Closes: #264369) + * Changed maintainer address (Wow, it has been some time since the last + version...) + + -- Hilko Bengen Tue, 10 Aug 2004 09:08:32 +0200 + +libsendmail-pmilter-perl (0.4.0-1) unstable; urgency=low + + * Initial Release. + * Could not use pristine sources because doc/milter-protocol.txt is + non-free. Documented this in README.Debian. + + -- Hilko Bengen Mon, 26 May 2003 15:30:05 +0200 + --- libsendmail-pmilter-perl-0.96.orig/debian/control +++ libsendmail-pmilter-perl-0.96/debian/control @@ -0,0 +1,24 @@ +Source: libsendmail-pmilter-perl +Section: perl +Priority: optional +Build-Depends-Indep: perl (>= 5.8.0-7) +Build-Depends: debhelper (>= 4) +Maintainer: Hilko Bengen +Standards-Version: 3.8.0 + +Package: libsendmail-pmilter-perl +Architecture: all +Depends: ${perl:Depends} +Conflicts: libsendmail-milter-perl +Replaces: libsendmail-milter-perl +Recommends: libmail-milter-perl +Description: A Perl implementation of the Sendmail Milter protocol + PMilter is an attempt to reimplement Sendmail's milter (mail filter) + protocol in pure Perl. There are many reasons for this, including + independence from Sendmail's libmilter, as well as freedom from POSIX + threads (helps stability for Perl filters), etc. + . + Most of PMilter's Sendmail::Milter interface is a clone of the + frontend functions in PMilter::Server. However, this compatibility + package also includes some methods specific to the Sendmail MTA, + which are deliberately not included in PMilter::Server. --- libsendmail-pmilter-perl-0.96.orig/lib/Sendmail/PMilter.pm +++ libsendmail-pmilter-perl-0.96/lib/Sendmail/PMilter.pm @@ -80,8 +80,6 @@ =head1 METHODS -=over 4 - =cut ##### Symbols exported to the caller @@ -124,6 +122,8 @@ =pod +=over 4 + =item get_max_interpreters() Returns the maximum number of interpreters passed to C. This is @@ -470,10 +470,6 @@ =over 4 -=cut - -=pod - =item auto_getconn(NAME[, CONFIG]) Returns the connection descriptor for milter NAME in Sendmail configuration @@ -928,6 +924,8 @@ wise to increase this backlog by calling C before entering C if using this dispatcher. +=back + =cut sub sequential_dispatcher () { @@ -1020,8 +1018,6 @@ =back -=back - =head1 SECURITY CONSIDERATIONS =over 4 --- libsendmail-pmilter-perl-0.96.orig/lib/Sendmail/Milter.pm +++ libsendmail-pmilter-perl-0.96/lib/Sendmail/Milter.pm @@ -145,6 +145,10 @@ =pod +=head1 NAME + +Sendmail::Milter - compatibility interface for Sendmail::PMilter + =head1 SYNOPSIS use Sendmail::Milter; --- libsendmail-pmilter-perl-0.96.orig/lib/Sendmail/PMilter/Context.pm +++ libsendmail-pmilter-perl-0.96/lib/Sendmail/PMilter/Context.pm @@ -48,7 +48,7 @@ =pod -=head1 SYNOPSIS +=head1 NAME Sendmail::PMilter::Context - per-connection milter context @@ -60,8 +60,6 @@ =head1 METHODS -=over 4 - =cut ##### Symbols exported to the caller @@ -272,7 +270,7 @@ die "SMFIC_OPTNEG: packet has wrong size\n" unless (length($buf) == 12); my ($ver, $actions, $protocol) = unpack('NNN', $buf); - die "SMFIC_OPTNEG: unknown milter protocol version $ver\n" unless ($ver == 2); + die "SMFIC_OPTNEG: unknown milter protocol version $ver\n" unless ($ver >= 2 && $ver <= 6); $this->write_packet(SMFIC_OPTNEG, pack('NNN', 2, $this->{callback_flags} & $actions, @@ -387,6 +385,8 @@ =pod +=over 4 + =item $ctx->getpriv Returns the private data object for this milter instance, set by