Group :: Development/Perl
RPM: perl-MIME-Lite
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: libmime-lite-perl_3.01-7.diff
Download
Download
--- 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 <gregor+debian@comodo.priv.at> 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 <gwolf@debian.org> Tue, 20 Dec 2005 21:57:14 -0600
+
+libmime-lite-perl (3.01-5) unstable; urgency=low
+
+ * Added debian/watch
+
+ -- Gunnar Wolf <gwolf@debian.org> 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 <gwolf@debian.org> 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 <gwolf@debian.org> 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 <gwolf@debian.org> 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 <pkg-perl-
+ maintainers@lists.alioth.debian.org> via Gunnar
+ Wolf<gwolf@debian.org> (Closes: #279809)
+
+ -- Gunnar Wolf <gwolf@debian.org> 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 <gibreel@debian.org> 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 <gibreel@debian.org> Mon, 24 Feb 2003 23:47:00 -0800
+
+mime-lite (2.117-3) unstable; urgency=low
+
+ * New maintainer.
+
+ -- Stephen Zander <gibreel@debian.org> 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 <edd@debian.org> Tue, 20 Aug 2002 20:20:25 -0500
+
+mime-lite (2.117-1) unstable; urgency=low
+
+ * Upgraded to upstream release 2.117
+
+ -- Dirk Eddelbuettel <edd@debian.org> 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 <edd@debian.org> Mon, 20 Aug 2001 07:43:49 -0500
+
+mime-lite (2.116-1) unstable; urgency=low
+
+ * Upgraded to upstream release 2.116
+
+ -- Dirk Eddelbuettel <edd@debian.org> Sat, 18 Aug 2001 08:40:39 -0500
+
+mime-lite (2.115-1) unstable; urgency=low
+
+ * Upgraded to upstream release 2.115
+
+ -- Dirk Eddelbuettel <edd@debian.org> Fri, 17 Aug 2001 18:24:30 -0500
+
+mime-lite (2.111-1) unstable; urgency=low
+
+ * Upgraded to upstream release 2.111
+
+ -- Dirk Eddelbuettel <edd@debian.org> Tue, 7 Aug 2001 19:41:17 -0500
+
+mime-lite (2.106-1) unstable; urgency=low
+
+ * Initial Release
+
+ -- Dirk Eddelbuettel <edd@debian.org> 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 <pkg-perl-maintainers@lists.alioth.debian.org>
+Uploaders: Gunnar Wolf <gwolf@debian.org>, gregor herrmann <gregor+debian@comodo.priv.at>, Carlo Segre <segre@debian.org>
+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 <gibreel@debian.org>
+
--- 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