/[cvs]/nfo/perl/scripts/dispatchmail/bin/buildmail
ViewVC logotype

Diff of /nfo/perl/scripts/dispatchmail/bin/buildmail

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by collector, Wed Jan 22 05:07:56 2003 UTC revision 1.4 by root, Sun Mar 23 22:21:13 2003 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6    
7  use MIME::Lite;  use MIME::Lite;
8    
9  my $to      = 'joko@netfrag.org';  use lib qw( /data/libs/nfo/perl/libs );
10  my $subject = "Testmail - generated on ...";  use org::netfrag::shortcuts qw( now );
11    
12    my $now = now();
13    
14    #my $to      = 'joko@netfrag.org';
15    my $to      = 'hello@netfrag.org';
16    
17    my $subject =
18      "This is just a test mail. Please ignore it." . "\n" .
19      "-- generated $now" . "\n";
20  my $data    = "$subject";  my $data    = "$subject";
21    
22  my $msg = MIME::Lite->new(  my $msg = MIME::Lite->new(
23    From    => 'test@localhost',  #  From    => 'test@localhost',
24    #  From    => 'test',
25      From    => 'test@netfrag.org',
26    To      => "$to",    To      => "$to",
27    Subject => "$subject",    Subject => "$subject",
28    Data    => "$data\n",    Data    => "$data\n",
# Line 18  my $msg = MIME::Lite->new( Line 30  my $msg = MIME::Lite->new(
30  my $str = $msg->as_string;  my $str = $msg->as_string;
31    
32  print $str;  print $str;
33    
34    1;
35    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed