/[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.4 by root, Sun Mar 23 22:21:13 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      = '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',  #  From    => 'test',
25      From    => 'test@netfrag.org',
26    To      => "$to",    To      => "$to",
27    Subject => "$subject",    Subject => "$subject",
28    Data    => "$data\n",    Data    => "$data\n",
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed