debian/0000755000000000000000000000000011635374014007172 5ustar debian/watch0000644000000000000000000000026211635372676010237 0ustar # format version number, currently 3; this line is compulsory!
version=3
http://search.cpan.org/dist/Mail-SendEasy/ .*/Mail-SendEasy-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)
debian/rules0000755000000000000000000000015711635373246010263 0ustar #!/usr/bin/make -f
%:
dh $@
override_dh_auto_test:
# `make test` needs interaction
#dh_auto_test disabled
debian/changelog0000644000000000000000000000232211635374014011043 0ustar libmail-sendeasy-perl (1.2-2) unstable; urgency=low
[ gregor herrmann ]
* Change patch system from dpatch to quilt.
* Refresh debian/rules, no functional changes.
* Add debian/README.source to document quilt usage, as required by
Debian Policy since 3.8.0.
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
[ gregor herrmann ]
* Remove Michael Mende from Uploaders on request of the MIA team
(closes: #578181).
[ Ansgar Burchardt ]
* debian/control: Convert Vcs-* fields to Git.
* Use source format 3.0 (quilt).
* Make build-dep on perl unversioned.
* Use tiny debian/rules with debhelper 8.
* Convert debian/copyright to proposed machine-readable format.
* debian/control: Mention module name in description.
* Add myself to Uploaders.
* Bumped Standards-Version to 3.9.2.
-- Ansgar Burchardt Sun, 18 Sep 2011 15:54:14 +0200
libmail-sendeasy-perl (1.2-1) unstable; urgency=low
* Initial Release (Closes: #464046).
-- Michael Mende Tue, 05 Feb 2008 09:43:49 +0000
debian/control0000644000000000000000000000150611635374005010577 0ustar Source: libmail-sendeasy-perl
Section: perl
Priority: optional
Build-Depends: debhelper (>= 8)
Build-Depends-Indep: perl
Maintainer: Debian Perl Group
Uploaders: Ansgar Burchardt
Standards-Version: 3.9.2
Homepage: http://search.cpan.org/dist/Mail-SendEasy/
Vcs-Git: git://git.debian.org/pkg-perl/packages/libmail-sendeasy-perl.git
Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libmail-sendeasy-perl.git
Package: libmail-sendeasy-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libmail-rfc822-address-perl
Description: Perl module to send plain/html e-mails through SMTP servers
Mail::SendEasy will send in a easy way e-mails, and doesn't have
dependencies on libnet packages.
.
It supports SMTP authentication and attachments.
debian/compat0000644000000000000000000000000211635373266010400 0ustar 8
debian/source/0000755000000000000000000000000011635373127010476 5ustar debian/source/format0000644000000000000000000000001411635373127011704 0ustar 3.0 (quilt)
debian/patches/0000755000000000000000000000000011635372676010635 5ustar debian/patches/series0000644000000000000000000000007311635372676012052 0ustar 001_plus-in-emailaddress.patch
002_pure-html-message.patch
debian/patches/001_plus-in-emailaddress.patch0000644000000000000000000000147111635372676016263 0ustar Author: Michael Mende
Description: The e-mail syntax checker does not handle plus signs in usernames.
Let Mail::RFC822::Address do the address syntax check.
--- a/lib/Mail/SendEasy.pm
+++ b/lib/Mail/SendEasy.pm
@@ -17,6 +17,7 @@ use strict qw(vars);
no warnings ;
use vars qw($VERSION @ISA) ;
+use Mail::RFC822::Address qw(valid);
$VERSION = '1.2' ;
@@ -444,15 +445,7 @@ sub _format {
my ( $mail ) = @_ ;
- my $stat = 1 ;
-
- if ($mail !~ /^[\w\.-]+\@localhost$/gsi) {
- if ($mail !~ /^[\w\.-]+\@(?:[\w-]+\.)*?(?:\w+(?:-\w+)*)(?:\.\w+)+$/ ) { $stat = undef ;}
- }
- elsif ($mail !~ /^[\w\.-]+\@[\w-]+$/ ) { $stat = undef ;}
-
- return 1 if $stat ;
- return undef ;
+ return Mail::RFC822::Address::valid($mail) ? 1 : undef;
}
################
debian/patches/002_pure-html-message.patch0000644000000000000000000000067511635372676015606 0ustar Author: Michael Mende
Description: Fix handling of pure html mails.
--- a/lib/Mail/SendEasy.pm
+++ b/lib/Mail/SendEasy.pm
@@ -225,7 +225,8 @@ sub send {
}
if ( defined $mail{html} ) {
- $mail{msg} =~ s/\r\n?/\n/gs ;
+ $mail{html} =~ s/\r\n?/\n/gs ;
+ if ( $mail{html} !~ /\n\n$/s) { $mail{html} =~ s/\n?$/\n\n/s ;}
my %part = (
'Content-Type' => 'text/html; charset=ISO-8859-1' ,
debian/copyright0000644000000000000000000000224111635373623011131 0ustar Format-Specification: http://anonscm.debian.org/viewvc/dep/web/deps/dep5.mdwn?view=markup&pathrev=59
Maintainer: Graciliano Monteiro Passos
Source: http://search.cpan.org/dist/Mail-SendEasy/
Name: Mail-SendEasy
Files: *
Copyright: 2003-2004, Graciliano M. P.
License: Artistic or GPL-1+
Files: debian/*
Copyright:
2008, Michael Mende
2008, gregor herrmann
2011, Ansgar Burchardt
License: Artistic or GPL-1+
License: Artistic
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
On Debian systems, the complete text of the Artistic License can be
found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
On Debian systems, the complete text of version 1 of the GNU General
Public License can be found in `/usr/share/common-licenses/GPL-1'.