Return to smtp.pm CVS log

Up to [local] / wpscripts / wpfreespace

Annotation of wpscripts/wpfreespace/smtp.pm, Revision 1.2

1.1       yason       1: package smtp;
                      2:
                      3: use Net::SMTP;
                      4:
1.2     ! yason       5: our $SERVER    = "127.0.0.1";
        !             6: our $HELLO     = "localhost";
        !             7: our $SENDER    = 'df@fullprint.ru';
        !             8: our $FROM      = "/bin/df";
1.1       yason       9:
                     10:
                     11: sub email($$$)
                     12: {
                     13:     my $to = shift;
                     14:     my $volume = shift;
                     15:     my $used = shift;
                     16:     my $sv = new Net::SMTP( "$SERVER", Hello => "$HELLO", Debug => 0) or warn("Can't create SMTP object");
                     17:
                     18:     $sv->mail($SENDER);
                     19:     $sv->to($to);
                     20:
                     21:     $sv->data();
                     22:     $sv->datasend("From: $FROM\n");
                     23:     $sv->datasend("To: $to\n");
                     24:     $sv->datasend("Subject: *WARNING* Low free space on $volume ($used% used)!\n\n");
                     25:     $sv->dataend();
                     26:
                     27:     $sv->quit();
                     28:
                     29: }
                     30:
                     31: return 1;