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'.