--- nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/22 05:07:56	1.1
+++ nfo/perl/scripts/dispatchmail/bin/buildmail	2003/03/23 22:21:13	1.4
@@ -3,14 +3,26 @@
 use strict;
 use warnings;
 
+
 use MIME::Lite;
 
-my $to      = 'joko@netfrag.org';
-my $subject = "Testmail - generated on ...";
+use lib qw( /data/libs/nfo/perl/libs );
+use org::netfrag::shortcuts qw( now );
+
+my $now = now();
+
+#my $to      = 'joko@netfrag.org';
+my $to      = 'hello@netfrag.org';
+
+my $subject = 
+  "This is just a test mail. Please ignore it." . "\n" .
+  "-- generated $now" . "\n";
 my $data    = "$subject";
 
 my $msg = MIME::Lite->new(
-  From    => 'test@localhost',
+#  From    => 'test@localhost',
+#  From    => 'test',
+  From    => 'test@netfrag.org',
   To      => "$to",
   Subject => "$subject",
   Data    => "$data\n",
@@ -18,3 +30,6 @@
 my $str = $msg->as_string;
 
 print $str;
+
+1;
+