Return to smtp.pm CVS log

Up to [local] / wpscripts / wpfreespace

Annotation of wpscripts/wpfreespace/smtp.pm, Revision 1.1.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;