screenのstatuslineにいろいろ表示させてみる

screen


Gmailの未読数とか、livedoor Readerの未読数とかを表示させてみた。



.screenrcはこんな感じ

hardstatus alwayslastline "[%02c] %`%-w%{=b bw}%n %t%{-}%+w %=[GMAIL:%2`][LDR:%1`]"
backtick 1 0 60 cat $HOME/tmp/ldrunread.txt
backtick 2 0 60 cat $HOME/tmp/gmailunread.txt

backtickにコマンドを直接書いてもいいけど、コマンドが実行されてる間重くなるので、cronで動かしてテキストファイルをcatする形にしている。


未読を取ってくるやつは適当に

ldrunread

#!/usr/local/bin/perl
use strict;
use warnings;

use LWP::Simple;

my $url = 'http://rpc.reader.livedoor.com/notify?user=username';
my $content = get($url);
my ($count) = $content =~ /\|(\d+)\|\|/;
print $count, "\n";

gmailunread

#!/usr/local/bin/perl
use strict;
use warnings;

use LWP::Simple;

my $url = 'https://username:password@mail.google.com/mail/feed/atom';
my $content = get($url);
my ($count) = $content =~ m!<fullcount>(.*?)</fullcount>!;
print $count, "\n";

で、crontabに

*/10 * * * * $HOME/bin/ldrunread > $HOME/tmp/ldrunread.txt 2>&1
*/10 * * * * $HOME/bin/gmailunread > $HOME/tmp/gmailunread.txt 2>&1

こんな感じで登録してる。


あんまり見ないので、すぐ消すかも・・・