/[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.2 by root, Wed Jan 22 17:50:17 2003 UTC revision 1.3 by root, Mon Jan 27 08:53:08 2003 UTC
# Line 9  use MIME::Lite; Line 9  use MIME::Lite;
9  use lib qw( /data/libs/nfo/perl/libs );  use lib qw( /data/libs/nfo/perl/libs );
10  use org::netfrag::shortcuts qw( now );  use org::netfrag::shortcuts qw( now );
11    
12  my $to      = 'joko@netfrag.org';  my $now = now();
13  my $subject = "Testmail - generated on " . now();  
14    #my $to      = 'joko@netfrag.org';
15    my $to      = 'links-computing@netfrag.org';
16    my $subject =
17      "This is just a test mail. Please ignore it." . "\n" .
18      "-- generated $now" . "\n";
19  my $data    = "$subject";  my $data    = "$subject";
20    
21  my $msg = MIME::Lite->new(  my $msg = MIME::Lite->new(
22  #  From    => 'test@localhost',  #  From    => 'test@localhost',
23    From    => 'test',  #  From    => 'test',
24      From    => 'test@netfrag.org',
25    To      => "$to",    To      => "$to",
26    Subject => "$subject",    Subject => "$subject",
27    Data    => "$data\n",    Data    => "$data\n",
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed