Annotation of /nfo/perl/scripts/dispatchmail/buildMail

#!/usr/bin/perl

use strict;
use warnings;

use MIME::Lite;

my $to      = 'joko@netfrag.org';
my $subject = "Testmail - generated on ...";
my $data    = "$subject";

my $msg = MIME::Lite->new(
  From    => 'test@localhost',
  To      => "$to",
  Subject => "$subject",
  Data    => "$data\n",
);
my $str = $msg->as_string;

print $str;
1	joko	1.1	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use MIME::Lite;
7
8			my $to = 'joko@netfrag.org';
9			my $subject = "Testmail - generated on ...";
10			my $data = "$subject";
11
12			my $msg = MIME::Lite->new(
13			From => 'test@localhost',
14			To => "$to",
15			Subject => "$subject",
16			Data => "$data\n",
17			);
18			my $str = $msg->as_string;
19
20			print $str;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26