Return to smtp.pm CVS log

Up to [local] / wpscripts / wpfreespace

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

1.1     ! yason       1: package smtp;
        !             2:
        !             3: use Net::SMTP;
        !             4:
        !             5: our $SERVER    = "192.168.21.221";
        !             6: our $HELLO     = "192.168.21.221";
        !             7: our $SENDER    = 'www@vpn-master.mirrekl';
        !             8: our $FROM      = "limitadmin";
        !             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;