/ 2007-06-0501 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
http://d.hatena.ne.jp/s_nobu/20070424/1177377526
のを使わせてもらってたんだけど、チェック段階で全部既読になっちゃうのがなぁ…と思ってた。
けど、ちょっと改良したらウマー、になったので公開。
でも修正はたったこれだけ。
#my $email = Email::MIME->new(join(, @{$imap->get($i)}));
my $email = Email::MIME->new(join(, @{$imap->top($i)}));
get()じゃなくてtop()にしただけ
http://search.cpan.org/~cfaber/Net-IMAP-Simple-1.17/lib/Net/IMAP/Simple.pm を参考に。
うん、じゃ、これをメインに行こう。
このperlと設定ファイルを
~/imap2growl.pl
~/.imap2growl.yaml
に保存。
chmod755 ~/imap2growl.pl
しとく。
で、cronに設定。
crontab -e
*/5 * * * * ~/imap2growl.pl
これで5分毎にチェック。これでどうだ!
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2011-04-19 13:05