${color red}Slashdot:
${color black}${execi 3600 ~/torsmo/rssdisplay.py ~/torsmo/feeds/sd.conf}
${color red}GWN:
${color black}${execi 1800 ~/torsmo/rssdisplay.py ~/torsmo/feeds/gwn.conf}

Slashdot,http://slashdot.org/slashdot.rdf,6

GWN,http://www.gentoo.org/rdf/en/gentoo-news.rdf,6

$ killall torsmo && nohup torsmo

#!/usr/bin/perl
# gmail.pl

use Mail::Webmail::Gmail;

my $username = "user"; # your Gmail username
my $password = "xxx"; # your Gmail password
my $gmailfile = "/root/.torsmo/gmail.txt";
my $newmessages = 0;
my @subjects = ();


my $gmail = Mail::Webmail::Gmail->new(
username => $username, password => $password, encrypt_session => 1
);
my ($usage, $capacity, $usagep) = $gmail->size_usage();

my $messages = $gmail->get_messages(
label => $Mail::Webmail::Gmail::FOLDERS{ 'INBOX' }
);

foreach ( @{ $messages } ) {
if ( $_->{ 'new' } ) {
$newmessages += 1;
my $subject = $_->{ 'subject' };
$subject =~ s/<(.*?)>//gi; # remove <b> tags
push(@subjects, $subject);
}
}

open(FD, "> " . $gmailfile) or die("Could not open file.\n");
print FD "totalmessages=" . $totalmessages . "\n";
print FD "newmessages=" . $newmessages . "\n";
print FD "status=Using " . $usage . " (" . $usagep . ") of " . $capacity . "\n";
for($i=0; $i<=$#subjects; $i++) {
print FD $subjects[$i] . "\n";
}
close(FD);

totalmessages=0
newmessages=2
status=Using 7 MB (1%) of 1000 MB
1. da probamo taj torsmo
Fwd: thank you

#!/usr/bin/perl
# gmail_extract.pl

my $numArgs = $#ARGV+1;

if($numArgs != 1) {
die ("Usage error: gmail_extract.pl [info]\n");
exit;
}

else {
my $file = "/root/.torsmo/gmail.txt";
my $arg = $ARGV[0];
open (HANDLE, $file) or die ("Could not open file.");
@LINES = <HANDLE>;

if ($arg eq "newsubjects") {
$line = $LINES[1];
my ($foo, $newmessages) = split(/=/, $line);
if($newmessages > 0) {
for($i=3; $i<=$#LINES; $i++) {
my $num = $i-2;
my $sub = $LINES[$i];

# truncate long subjects so it will not
# autoexpand the tormso window
if(length($sub) >= 40) {
my $temp = substr($sub, 0, 40);
$sub = $temp . "...\n";
}
print " " . $num . ". " . $sub;
}
}
}

# how many new messages do I have?
if($arg eq "newmessages") {
$line = $LINES[1];
my ($foo, $new) = split(/=/, $line);
$new =~ s/[\r\n]//g; # remove \n
if($new == 0) { print "There are no new messages\n"; }
elsif($new == 1) { print "There is one new message\n"; }
else { print "There are " . $new . " new messages\n"; }
}

# usage status
if($arg eq "status") {
$line = $LINES[2];
my ($foo, $retval) = split(/=/, $line);
print $retval;
}

close (HANDLE);
}

${color grey}Status : $color${execi 300 perl ~/.torsmo/gmail_extract.pl status}
${color grey}New : $color${execi 300 perl ~/.torsmo/gmail_extract.pl newmessages}

double_buffer yes

${exec cal -m}

$ emerge genlop

$hr
Poslednji emerge:
${execi 180 sudo genlop -ln|tail -n 3}
Poslednji Unmerge:
${execi 180 sudo genlop -un \.\*|grep \<\<\<|tail -n 3}
Poslednji Sync:
${execi 180 cat /var/cache/edb/dep/timestamp.chk}
$hr