r45628 - in /branches/upstream/libmime-lite-perl/current: META.yml changes.pod lib/MIME/Lite.pm

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

Author: jawnsy-guest
Date: Mon Oct 12 14:50:47 2009
New Revision: 45628

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45628
Log:
[svn-upgrade] Integrating new upstream version, libmime-lite-perl (3.027)

Modified:
    branches/upstream/libmime-lite-perl/current/META.yml
    branches/upstream/libmime-lite-perl/current/changes.pod
    branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm

Modified: branches/upstream/libmime-lite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-lite-perl/current/META.yml?rev=45628&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/META.yml (original)
+++ branches/upstream/libmime-lite-perl/current/META.yml Mon Oct 12 14:50:47 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: branches/upstream/libmime-lite-perl/current/changes.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-lite-perl/current/changes.pod?rev=45628&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/changes.pod (original)
+++ branches/upstream/libmime-lite-perl/current/changes.pod Mon Oct 12 14:50:47 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: branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm?rev=45628&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm (original)
+++ branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm Mon Oct 12 14:50:47 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