--- libmime-lite-perl-3.01.orig/debian/changelog +++ libmime-lite-perl-3.01/debian/changelog @@ -0,0 +1,128 @@ +libmime-lite-perl (3.01-7) unstable; urgency=low + + * Moved debhelper to Build-Depends. + * Set Standards-Version to 3.7.2 (no changes). + * Set Debhelper Compatibility Level to 5. + * Added libmime-types-perl to Build-Depends-Indep. + * Removed empty /usr/lib/perl5 from package. + + -- gregor herrmann Fri, 16 Jun 2006 16:12:03 +0200 + +libmime-lite-perl (3.01-6) unstable; urgency=low + + * MIME::Lite outputs non-RFC-compliant dates - Added a patch to + address this. This problem is addressed in the CPAN request tracker + (bug 274), but this module upstream development seems halted. Thanks + to Nicolas Pomarede for pointing this out and providing a simple + patch. + * Does not ignore the output of make distclean anymore + * Bumped up standards-version to 3.6.2 (no changes needed) + + -- Gunnar Wolf Tue, 20 Dec 2005 21:57:14 -0600 + +libmime-lite-perl (3.01-5) unstable; urgency=low + + * Added debian/watch + + -- Gunnar Wolf Wed, 25 May 2005 11:03:09 -0500 + +libmime-lite-perl (3.01-4) unstable; urgency=low + + * Changes in %ENV are now kept local to the module (Closes: #289983) + + -- Gunnar Wolf Fri, 4 Mar 2005 17:25:35 -0600 + +libmime-lite-perl (3.01-3) unstable; urgency=low + + * Set the path to a sane default (/bin:/usr/bin) so that MIME::Lite + will agree to send messages while running in Tainted mode (Closes: + #268458) + + -- Gunnar Wolf Thu, 2 Dec 2004 13:42:08 -0600 + +libmime-lite-perl (3.01-2) unstable; urgency=low + + * changes.pod had the whole information in the =NAME section - Even if + we do not treat it as a POD file anymore, I fixed it in the source. + Notifying upstream as well. + * changes.pod should not be a manual page, as it is a changelog - + Moved it. (Closes: #283656) + + -- Gunnar Wolf Thu, 2 Dec 2004 12:57:36 -0600 + +libmime-lite-perl (3.01-1) unstable; urgency=low + + * New upstream release + * Changed source package name from mime-lite to libmime-lite-perl in + order to be more consistent with other Perl packages + * New maintainer - Debian Perl Group via Gunnar + Wolf (Closes: #279809) + + -- Gunnar Wolf Wed, 10 Nov 2004 10:40:11 -0600 + +mime-lite (2.117-5) unstable; urgency=low + + * Patch Lite.pm so that it returns usable addresses if Mail::Address is + installed, + Closes: #173627 + + -- Stephen Zander Tue, 3 Feb 2004 01:07:08 -0800 + +mime-lite (2.117-4) unstable; urgency=low + + * Fix missing ')' in Build-Depends:, + Closes: #173115 + + -- Stephen Zander Mon, 24 Feb 2003 23:47:00 -0800 + +mime-lite (2.117-3) unstable; urgency=low + + * New maintainer. + + -- Stephen Zander Mon, 30 Sep 2002 10:52:12 -0700 + +mime-lite (2.117-2) unstable; urgency=low + + * debian/control: Changed Build-Depends to Build-Depends-Indep (lintian) + * debian/rules: Build from binary-indep (Closes: #157511) + + -- Dirk Eddelbuettel Tue, 20 Aug 2002 20:20:25 -0500 + +mime-lite (2.117-1) unstable; urgency=low + + * Upgraded to upstream release 2.117 + + -- Dirk Eddelbuettel Wed, 22 Aug 2001 20:28:14 -0500 + +mime-lite (2.116-2) unstable; urgency=low + + * debian/rules: Change $(PERL) to perl (Closes: #109311) + + -- Dirk Eddelbuettel Mon, 20 Aug 2001 07:43:49 -0500 + +mime-lite (2.116-1) unstable; urgency=low + + * Upgraded to upstream release 2.116 + + -- Dirk Eddelbuettel Sat, 18 Aug 2001 08:40:39 -0500 + +mime-lite (2.115-1) unstable; urgency=low + + * Upgraded to upstream release 2.115 + + -- Dirk Eddelbuettel Fri, 17 Aug 2001 18:24:30 -0500 + +mime-lite (2.111-1) unstable; urgency=low + + * Upgraded to upstream release 2.111 + + -- Dirk Eddelbuettel Tue, 7 Aug 2001 19:41:17 -0500 + +mime-lite (2.106-1) unstable; urgency=low + + * Initial Release + + -- Dirk Eddelbuettel Sun, 11 Mar 2001 09:17:30 -0600 + + --- libmime-lite-perl-3.01.orig/debian/control +++ libmime-lite-perl-3.01/debian/control @@ -0,0 +1,18 @@ +Source: libmime-lite-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Gunnar Wolf , gregor herrmann , Carlo Segre +Standards-Version: 3.7.2 +Build-Depends: debhelper (>= 5.0.0) +Build-Depends-Indep: perl (>> 5.8.1), libmime-types-perl + +Package: libmime-lite-perl +Architecture: all +Depends: ${perl:Depends} +Description: Perl5 module for convenient generation of MIME messages + MIME::Lite is intended as a simple, standalone module for generating + (not parsing!) MIME messages... specifically, it allows you to + output a simple, decent single- or multi-part message with text or binary + attachments. It does not require that you have the Mail:: or MIME:: + modules installed. --- libmime-lite-perl-3.01.orig/debian/compat +++ libmime-lite-perl-3.01/debian/compat @@ -0,0 +1 @@ +5 --- libmime-lite-perl-3.01.orig/debian/watch +++ libmime-lite-perl-3.01/debian/watch @@ -0,0 +1,6 @@ +# Example watch control file for uscan +# Rename this file to "watch" and then you can run the "uscan" command +# to check for upstream updates and more. +# Site Directory Pattern Version Script +version=2 +http://www.cpan.org/modules/by-module/MIME/MIME-Lite-(\d.*)\.tar\.gz debian uupdate --- libmime-lite-perl-3.01.orig/debian/copyright +++ libmime-lite-perl-3.01/debian/copyright @@ -0,0 +1,26 @@ +This is the Debian GNU/Linux version of the MIME::Lite Perl module. + +From the README: + +TERMS AND CONDITIONS + Copyright (c) 1997 by Eryq. + Copyright (c) 1998 by ZeeGee Software Inc. + Copyright (c) 2003 Yves Orton. demerphq (at) hotmail.com. + + All rights reserved. This program is free software; you can redistribute + it and/or modify it under the same terms as Perl itself. + +Perl is distributed under either the Artistic licence or the GPL. + +The full text of the GPL is available on Debian systems in +/usr/share/common-licenses/GPL + +The full text of the Artistic Licence is available on Debian systems in +/usr/share/common-licenses/Artistic. + +This package has been through multiple maintainers (for a list see +/usr/share/doc/libmime-lite-perl/changelog.Debian.gz). + +Current Debian specific changes are copyright (c) 2002-2003, +Stephen Zander + --- libmime-lite-perl-3.01.orig/debian/rules +++ libmime-lite-perl-3.01/debian/rules @@ -0,0 +1,63 @@ +#! /usr/bin/make -f +# -*-makefile-*- +# debian/rules file for libmime-lite-perl + +PERL ?= /usr/bin/perl + +package := $(firstword $(shell dh_listpackages)) +prefix := $(PWD)/debian/$(package)/usr + +version := $(shell dpkg-parsechangelog | \ + sed -ne 's/^Version: *\([0-9]\+:\)*//p') + +build: build-stamp +build-stamp: + dh_testdir + $(PERL) Makefile.PL INSTALLDIRS=vendor PERL=$(PERL) + $(MAKE) + $(MAKE) test + touch $@ + +clean: checkroot + rm -f build-stamp + dh_clean debian/changes + [ ! -e Makefile ] || $(MAKE) distclean + +binary-indep: checkroot build + dh_clean + dh_installdirs + + $(MAKE) install PREFIX=$(prefix) + + # As this is a architecture independent package, we are not + # supposed to install stuff to /usr/lib. MakeMaker creates + # the dirs, we delete them from the deb: + rmdir --ignore-fail-on-non-empty --parents $(prefix)/lib/perl5 + + # changes.pod is a changelog, not a man page - Run it through pod2text + # to install it as a changelog and remove it from where it got + # installed. + rm -f $(prefix)/share/perl5/MIME/changes.pod $(prefix)/share/man/man3/MIME::changes.3pm + pod2text changes.pod > debian/changes + + dh_installdocs README + dh_installexamples examples/* contrib + dh_installchangelogs debian/changes + + dh_compress + dh_fixperms + dh_perl + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary-arch: checkroot build + +binary: binary-indep binary-arch + +checkroot: + dh_testdir + dh_testroot + +.PHONY: binary binary-arch binary-indep clean checkroot build --- libmime-lite-perl-3.01.orig/lib/MIME/Lite.pm +++ libmime-lite-perl-3.01/lib/MIME/Lite.pm @@ -321,6 +321,7 @@ use Carp (); use FileHandle; +use POSIX qw(strftime); use strict; use vars qw( @@ -334,7 +335,10 @@ $VERSION ); +# Don't affect the environment for any invoking script +local %ENV = %ENV; +$ENV{PATH} = '/bin:/usr/bin'; #============================== #============================== @@ -507,7 +511,7 @@ push @Uses, "A$Mail::Address::VERSION"; eval q{ sub extract_addrs { - return map { $_->format } Mail::Address->parse($_[0]); + return map { $_->address } Mail::Address->parse($_[0]); } }; ### q } @@ -1049,9 +1053,17 @@ my $ds_wanted = $params{Datestamp}; my $ds_defaulted = ($is_top and !exists($params{Datestamp})); if (($ds_wanted or $ds_defaulted) and !exists($params{Date})) { - my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) = - split /\s+/, gmtime().""; ### should be non-locale-dependent - my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT"; +###### Debian-specific patch: MIME::Lite outputs a non-RFC-compliant date. +###### Refer to the CPAN RT bug 274 for more information. +###### Thanks to Nicolas Pomarede for this patch. +### my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) = +### split /\s+/, gmtime().""; ### should be non-locale-dependent +### my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT"; + my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) = + split /\s+/, localtime() . ""; + my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time " . strftime "%z" , + localtime; + $self->add("date", $date); } --- libmime-lite-perl-3.01.orig/testout/addrs.tlog +++ libmime-lite-perl-3.01/testout/addrs.tlog @@ -0,0 +1,6 @@ +1..1 + +1: we have and trust Mail::Address +1: ok 1 + +# END --- libmime-lite-perl-3.01.orig/testout/head.tlog +++ libmime-lite-perl-3.01/testout/head.tlog @@ -0,0 +1,71 @@ +1..14 + +1: get: simple get of 'From' +1: A: "me@myhost.com" +1: B: "me@myhost.com" +1: ok 1 + +2: get: indexed get(0) of 'From' gets first +2: A: "me@myhost.com" +2: B: "me@myhost.com" +2: ok 2 + +3: get: indexed get(-1) of 'From' gets first +3: A: "me@myhost.com" +3: B: "me@myhost.com" +3: ok 3 + +4: get: indexed get(0) of 'FROM' gets From +4: A: "me@myhost.com" +4: B: "me@myhost.com" +4: ok 4 + +5: add: scalar context get of 'Received' +5: A: "sined" +5: B: "sined" +5: ok 5 + +6: add: scalar context get(0) of 'Received' +6: A: "sined" +6: B: "sined" +6: ok 6 + +7: add: scalar context get(1) of 'Received' +7: A: "seeled" +7: B: "seeled" +7: ok 7 + +8: add: scalar context get(2) of 'Received' +8: A: "delivered" +8: B: "delivered" +8: ok 8 + +9: add: scalar context get(-1) of 'Received' +9: A: "delivered" +9: B: "delivered" +9: ok 9 + +10: add: array context get of 'Received', indexed to 1'th elem +10: A: "seeled" +10: B: "seeled" +10: ok 10 + +11: delete: deletion of RECEIVED worked +11: ok 11 + +12: replace: replace of SUBJECT worked +12: A: "Hellooooo, nurse!" +12: B: "Hellooooo, nurse!" +12: ok 12 + +13: attr: replace of charset worked +13: A: "US-ASCII" +13: B: "US-ASCII" +13: ok 13 + +14: attr: replace of charset worked on whole line +14: A: "text/plain; charset=\22US-ASCII\22" +14: B: "text/plain; charset=\22US-ASCII\22" +14: ok 14 + +# END --- libmime-lite-perl-3.01.orig/testout/types.tlog +++ libmime-lite-perl-3.01/testout/types.tlog @@ -0,0 +1,64 @@ +1..1 + +warning: # +#Testing MIME::Types interaction +** !!!MESSAGE +** Content-Transfer-Encoding: 7bit +** Content-Type: multipart/mixed; boundary="_----------=_0" +** MIME-Version: 1.0 +** From: me@myhost.com +** To: you@yourhost.com +** Cc: some@other.com, some@more.com +** Subject: Helloooooo, nurse! +** +** This is a multi-part message in MIME format. +** +** --_----------=_0 +** Content-Disposition: inline +** Content-Length: 19 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** How's it goin', eh? +** --_----------=_0 +** Content-Disposition: inline; filename="test.html" +** Content-Transfer-Encoding: 8bit +** Content-Type: text/html; name="test.html" +** +** This isn't really html. We are only checking the filename silly. +** --_----------=_0-- +** +** !!!/MESSAGE +** !!!EXPECT +** Content-Transfer-Encoding: 7bit +** Content-Type: multipart/mixed; boundary="_----------=_0" +** MIME-Version: 1.0 +** From: me@myhost.com +** To: you@yourhost.com +** Cc: some@other.com, some@more.com +** Subject: Helloooooo, nurse! +** +** This is a multi-part message in MIME format. +** +** --_----------=_0 +** Content-Disposition: inline +** Content-Length: 19 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** How's it goin', eh? +** --_----------=_0 +** Content-Disposition: inline; filename="test.html" +** Content-Transfer-Encoding: 8bit +** Content-Type: text/html; name="test.html" +** +** This isn't really html. We are only checking the filename silly. +** --_----------=_0-- +** +** !!!/EXPECT +1: (Is 'A' string-equal to 'B'?) +1: A: "Content-Transfer-Encoding: 7bit\nContent-Type: multipart/mixed; boundary=\22_----------=_0\22\nMIME-Version: 1.0\nFrom: me@myhost.com\nTo: you@yourhost.com\nCc: some@other.com, some@more.com\nSubject: Helloooooo, nurse!\n\nThis is a multi-part message in MIME format.\n\n--_----------=_0\nContent-Disposition: inline\nContent-Length: 19\nContent-Transfer-Encoding: binary\nContent-Type: text/plain\n\nHow's it goin', eh?\n--_----------=_0\nContent-Disposition: inline; filename=\22test.html\22\nContent-Transfer-Encoding: 8bit\nContent-Type: text/html; name=\22test.html\22\n\nThis isn't really html. We are only checking the filename silly.\n--_----------=_0--\n\n" +1: B: "Content-Transfer-Encoding: 7bit\nContent-Type: multipart/mixed; boundary=\22_----------=_0\22\nMIME-Version: 1.0\nFrom: me@myhost.com\nTo: you@yourhost.com\nCc: some@other.com, some@more.com\nSubject: Helloooooo, nurse!\n\nThis is a multi-part message in MIME format.\n\n--_----------=_0\nContent-Disposition: inline\nContent-Length: 19\nContent-Transfer-Encoding: binary\nContent-Type: text/plain\n\nHow's it goin', eh?\n--_----------=_0\nContent-Disposition: inline; filename=\22test.html\22\nContent-Transfer-Encoding: 8bit\nContent-Type: text/html; name=\22test.html\22\n\nThis isn't really html. We are only checking the filename silly.\n--_----------=_0--\n\n" +1: ok 1 + +# END --- libmime-lite-perl-3.01.orig/testout/verify.tlog +++ libmime-lite-perl-3.01/testout/verify.tlog @@ -0,0 +1,11 @@ +1..2 + +1: Did we detect a missing file? +1: Error: "path.to.missing.file: not readable\n" +1: ok 1 + +2: Did we detect NO missing file? +2: Error: "" +2: ok 2 + +# END --- libmime-lite-perl-3.01.orig/testout/data.tlog +++ libmime-lite-perl-3.01/testout/data.tlog @@ -0,0 +1,15 @@ +1..4 + +1: Data string: undef +1: ok 1 + +2: Data array 1: undef +2: ok 2 + +3: Data array 2: undef +3: ok 3 + +4: Data file: undef +4: ok 4 + +# END --- libmime-lite-perl-3.01.orig/testout/parts.tlog +++ libmime-lite-perl-3.01/testout/parts.tlog @@ -0,0 +1,77 @@ +1..2 + +** The message: +** Content-Transfer-Encoding: 7bit +** Content-Type: multipart/mixed; boundary="_----------=_0" +** MIME-Version: 1.0 +** Date: Fri, 4 Mar 2005 23:35:13 UT +** From: me +** To: you +** +** This is a multi-part message in MIME format. +** +** --_----------=_0 +** Content-Disposition: inline +** Content-Length: 13 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** original text +** --_----------=_0 +** Content-Disposition: inline +** Content-Length: 12 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** attachment 1 +** --_----------=_0 +** Content-Disposition: inline +** Content-Length: 12 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** attachment 2 +** --_----------=_0 +** Content-Transfer-Encoding: 7bit +** Content-Type: multipart/mixed; boundary="_----------=_1" +** MIME-Version: 1.0 +** +** This is a multi-part message in MIME format. +** +** --_----------=_1 +** Content-Disposition: inline +** Content-Length: 12 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** attachment 3 +** --_----------=_1 +** Content-Disposition: inline +** Content-Length: 12 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** attachment 4 +** --_----------=_1 +** Content-Disposition: inline +** Content-Length: 12 +** Content-Transfer-Encoding: binary +** Content-Type: text/plain +** +** attachment 5 +** --_----------=_1-- +** +** +** --_----------=_0-- + +1: Does parts() work? +1: A: "4" +1: B: "4" +1: ok 1 + +2: Does parts_DFS() work? +2: A: "7" +2: B: "7" +2: ok 2 + +# END