| 7 |
use MIME::Lite; |
use MIME::Lite; |
| 8 |
|
|
| 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 shortcuts qw( now ); |
| 11 |
|
|
| 12 |
my $now = now(); |
my $now = now(); |
| 13 |
|
|
| 14 |
#my $to = 'joko@netfrag.org'; |
#my $to = 'joko@netfrag.org'; |
| 15 |
my $to = 'links-computing@netfrag.org'; |
my $to = 'test@netfrag.org'; |
| 16 |
|
|
| 17 |
my $subject = |
my $subject = |
| 18 |
"This is just a test mail. Please ignore it." . "\n" . |
"This is just a test mail. Please ignore it." . "\n" . |
| 19 |
"-- generated $now" . "\n"; |
"-- generated $now" . "\n"; |
Parent Directory
| 
Revision Log
| 
Patch
