r45630 - in /trunk/libmime-lite-perl: META.yml changes.pod debian/changelog debian/control lib/MIME/Lite.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Mon Oct 12 14:54:16 2009
New Revision: 45630

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45630
Log:
* New upstream release
  + Lots of removed dependencies

Modified:
    trunk/libmime-lite-perl/META.yml
    trunk/libmime-lite-perl/changes.pod
    trunk/libmime-lite-perl/debian/changelog
    trunk/libmime-lite-perl/debian/control
    trunk/libmime-lite-perl/lib/MIME/Lite.pm

Modified: trunk/libmime-lite-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-lite-perl/META.yml?rev=45630&op=diff
==============================================================================
--- trunk/libmime-lite-perl/META.yml (original)
+++ trunk/libmime-lite-perl/META.yml Mon Oct 12 14:54:16 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               MIME-Lite
-version:            3.026
+version:            3.027
 abstract:           ~
 author:  []
 license:            perl
@@ -11,12 +11,7 @@
     ExtUtils::MakeMaker:  0
 requires:
     Email::Date::Format:  1.000
-    File::Basename:       ~
     File::Spec:           0
-    Mail::Address:        1.62
-    MIME::Base64:         ~
-    MIME::QuotedPrint:    ~
-    MIME::Types:          1.28
 resources:
     Repository:  http://github.com/rjbs/mime-lite
 no_index:

Modified: trunk/libmime-lite-perl/changes.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-lite-perl/changes.pod?rev=45630&op=diff
==============================================================================
--- trunk/libmime-lite-perl/changes.pod (original)
+++ trunk/libmime-lite-perl/changes.pod Mon Oct 12 14:54:16 2009
@@ -2,7 +2,11 @@
 
 =over 4
 
-=item Version 3.025
+=item Version 3.027
+
+Add send_to_testfile method (Thanks, AlexanderBecker)
+
+=item Version 3.026
 
 Fix tests to pass with MIME::Types 1.28
 

Modified: trunk/libmime-lite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-lite-perl/debian/changelog?rev=45630&op=diff
==============================================================================
--- trunk/libmime-lite-perl/debian/changelog (original)
+++ trunk/libmime-lite-perl/debian/changelog Mon Oct 12 14:54:16 2009
@@ -1,3 +1,10 @@
+libmime-lite-perl (3.027-1) UNRELEASED; urgency=low
+
+  * New upstream release
+    + Lots of removed dependencies
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Mon, 12 Oct 2009 07:09:33 -0400
+
 libmime-lite-perl (3.026-1) unstable; urgency=low
 
   [ Ryan Niebur ]

Modified: trunk/libmime-lite-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-lite-perl/debian/control?rev=45630&op=diff
==============================================================================
--- trunk/libmime-lite-perl/debian/control (original)
+++ trunk/libmime-lite-perl/debian/control Mon Oct 12 14:54:16 2009
@@ -2,9 +2,8 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl, libmime-types-perl, libtest-pod-coverage-perl,
- libmailtools-perl, libmime-types-perl (>= 1.28), libemail-date-format-perl,
- libtest-pod-perl
+Build-Depends-Indep: perl, libtest-pod-coverage-perl, libtest-pod-perl,
+ libemail-date-format-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Gunnar Wolf <gwolf at debian.org>, Damyan Ivanov <dmn at debian.org>,
  Dominic Hargreaves <dom at earth.li>, gregor herrmann <gregoa at debian.org>,

Modified: trunk/libmime-lite-perl/lib/MIME/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-lite-perl/lib/MIME/Lite.pm?rev=45630&op=diff
==============================================================================
--- trunk/libmime-lite-perl/lib/MIME/Lite.pm (original)
+++ trunk/libmime-lite-perl/lib/MIME/Lite.pm Mon Oct 12 14:54:16 2009
@@ -344,7 +344,7 @@
 
 
 # GLOBALS, EXTERNAL/CONFIGURATION...
-$VERSION = '3.026';
+$VERSION = '3.027';
 
 ### Automatically interpret CC/BCC for SMTP:
 $AUTO_CC = 1;
@@ -2909,6 +2909,37 @@
     return $self->{last_send_successful} = 1;
 }
 
+=item send_by_testfile FILENAME
+
+I<Instance method.>
+Print message to a file (namely FILENAME), which will default to
+mailer.testfile
+If file exists, message will be appended.
+
+=cut
+
+sub send_by_testfile {
+  my $self = shift;
+
+  ### Use the default filename...
+  my $filename = 'mailer.testfile';
+
+  if ( @_ == 1 and !ref $_[0] ) {
+    ### Use the given filename if given...
+    $filename = shift @_;
+    Carp::croak "no filename given to send_by_testfile" unless $filename;
+  }
+
+  ### Do it:
+  local *FILE;
+  open FILE, ">> $filename" or Carp::croak "open $filename: $!\n";
+  $self->print( \*FILE );
+  close FILE;
+  my $return = ( ( $? >> 8 ) ? undef: 1 );
+
+  return $self->{last_send_successful} = $return;
+}
+
 =item last_send_successful
 
 This method will return TRUE if the last send() or send_by_XXX() method call was
@@ -3609,7 +3640,7 @@
 
 =head1 VERSION
 
-Version: 3.026
+Version: 3.027
 
 =head1 CHANGE LOG