Description: SuperKaramba theme designed for laptops. Wireless data is gathered using the /proc filesystem. Acpi info is gathered from /proc/acpi// This should work with 2.4 kernels using the proc fs, and 2.6 kernels.
you also must set the full path to the mails perl script in the theme file.
#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
#!/usr/bin/perl
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 ?
Ratings & Comments
5 Comments
hmz... i made like u said but nothing happens. i think my perl configuration is something wrong or something else... i dont't know. ;[
you also must set the full path to the mails perl script in the theme file. #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
m... understood thanks a lot for your help ;* ;]]]
#!/usr/bin/perl 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 ?
in the theme file itself. Replace "your.mail.server username password" with the correct values. Do not edit anything in the perl script