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

#!/usr/bin/perl

use strict;
use warnings;


use MIME::Lite;

use lib qw( /data/libs/nfo/perl/libs );
use org::netfrag::shortcuts qw( now );

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

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

print $str;

1;

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