--- nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/22 17:50:17	1.2
+++ nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/27 08:53:08	1.3
@@ -9,13 +9,19 @@
 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 $now = now();
+
+#my $to      = 'joko@netfrag.org';
+my $to      = 'links-computing@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',
+#  From    => 'test',
+  From    => 'test@netfrag.org',
   To      => "$to",
   Subject => "$subject",
   Data    => "$data\n",