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;