[BACK]Return to smtp.pm CVS log [TXT][DIR] Up to [local] / wpscripts / wpfreespace

File: [local] / wpscripts / wpfreespace / smtp.pm (download)

Revision 1.1, Fri Jun 3 09:28:47 2011 UTC (12 years, 9 months ago) by yason
Branch: MAIN

Initial revision

package smtp;

use Net::SMTP;

our $SERVER	= "192.168.21.221";
our $HELLO	= "192.168.21.221";
our $SENDER 	= 'www@vpn-master.mirrekl';
our $FROM 	= "limitadmin";


sub email($$$)
{
    my $to = shift;
    my $volume = shift;
    my $used = shift;
    my $sv = new Net::SMTP( "$SERVER", Hello => "$HELLO", Debug => 0) or warn("Can't create SMTP object");
    
    $sv->mail($SENDER);
    $sv->to($to);
    
    $sv->data();
    $sv->datasend("From: $FROM\n");
    $sv->datasend("To: $to\n");
    $sv->datasend("Subject: *WARNING* Low free space on $volume ($used% used)!\n\n");
    $sv->dataend();
    
    $sv->quit();
    
}

return 1;