
mobilMon
Source (link to git-repo or to original if based on someone elses unmodified work): Add the source-code for this project on opencode.net
picture
15 years ago
Report
gbhil
15 years ago
#mail
text x=70 y=345 value="eMail" fontsize=10
clickarea x=1 y=340 w=34 h=34 onclick="kmail"
text x=70 y=355 value="mail.adelphia.net" align=left fontsize=10
text x=220 y=355 sensor=program program="/path/to/mobilMon/mails_pop3.pl your.mail.server login password" line=1 align=right fontsize=10 interval=30000
The items in bold above need to be edited to match your system
Report
picture
15 years ago
Report
picture
15 years ago
use Net::POP3;
my $ServerName = $ARGV[0];
# If your username contains a @ character you
# must replace it with \@
my $UserName = $ARGV[1];
my $Password = $ARGV[2];
my $pop3 = Net::POP3->new($ServerName);
if (!$pop3) {
print "server unreachable";
}
my $Num_Messages = $pop3->login($UserName, $Password) + 0;
if ( $Num_Messages == 1 ){
print $Num_Messages ." new\n";
}
elsif ( $Num_Messages > 1 ){
print $Num_Messages ." new\n";
}
else{
print "0 new\n";
}
$pop3->quit();
I tried to fil my server and so on.. but.. i don't know how to do that without errors. anyone could tel me there i must fill mu pop server like mail.splius.lt ?
Report
gbhil
15 years ago
Report