Annotation of wpscripts/wpfreespace/smtp.pm, Revision 1.2
1.1 yason 1: package smtp;
2:
3: use Net::SMTP;
4:
1.2 ! yason 5: our $SERVER = "127.0.0.1";
! 6: our $HELLO = "localhost";
! 7: our $SENDER = 'df@fullprint.ru';
! 8: our $FROM = "/bin/df";
1.1 yason 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;
CVSweb