Parent Directory
| 
Revision Log
| 
Patch
| revision 1.4 by root, Sun Mar 23 22:21:13 2003 UTC | revision 1.5 by bd, Sun Nov 7 03:12:31 2004 UTC | |
|---|---|---|
| # | Line 7 use warnings; | Line 7 use warnings; |
| 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 = 'hello@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" . |
|
||||||||
| MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
| Powered by ViewVC 1.1.26 |  |