package smtp;

use Net::SMTP;

our $SERVER	= "127.0.0.1";
our $HELLO	= "localhost";
our $SENDER 	= 'df@fullprint.ru';
our $FROM 	= "/bin/df";


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;