どんぞこ日誌

* [Perl] mixiとpop3

　POPアカウント＆パスワードの代わりにMixiアカウント＆パスワードで。「誰かやりません？」をみて、アンタヤランカという声が聞こえてきた（幻聴）ので、お昼休みにちょっと試してみました。→mixi_pop3.pl
　　が、結構手間どるもので、結局あるだけのメッセージを取り出すところで時間切れ。既読メールの削除機能とかつけるところまでいきませんでした。まあ、簡単にできることはわかったので、あとは誰かが、もっとちゃんとしたものをこさえてくれると思うのです。

　Net::Server（とNet::Server::POP3）を継承したforkサーバです。rootになって起動してください。やっつけコードなのでオプションは渡せません。ファイルの中身を書き換えてください。WWW::Mixiの動作をよくわかっていないので、多人数で使うとどうなるのかとか、わかりません。とりあえず自分で試す分には動いていました。時間が有ればいろいろ対応したりSMTPの方もつくったりとか……　誰かつくってください。

　とえあえずメール内に返信用urlを挿入したりとか、細かい部分をちょっとだけ修正（DELEの実装もだいたい終わってるんですが、削除実験用のメッセージがないので、実験できてません）。