mixiのあしあとを表示する
コバヤシマサヨシ2006.09.20.
Powered by
WWW::Mixi(Ver.0.47).
- 基本的にこれを使う利点はない。うわあ、言っちゃった。
- あのオレンジのページを見ずにあしあとをチェックしたいときとか？
- ちょっと個人的に、メインにログインせずにあしあとだけチェックしたいっていう状況があったもんで。改変/再配布自由。
あしあとを見る
以下にあしあとを見たいmixiアカウントのログイン情報を入力してください
コード
#!/usr/bin/perl
use CGI;
use Jcode;
use WWW::Mixi;
my $query = CGI->new;
#ログイン用の情報をフォームから受け取る
my $mixi_email = $query->param('mail');
my $mixi_password = $query->param('pass');
# ログイン
my $mixi = WWW::Mixi->new($mixi_email, $mixi_password);
my $response = $mixi->login;
#あしあとを取得
my $url = "http://mixi.jp/show_log.pl";
my @items = $mixi->get_show_log($url);
#結果表示用HTMLのヘッダ
print "Content-type: text/html;charset=euc-jp\n\n";
print "<html><head>";
print '<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">';
print '<link rel="STYLESHEET" href="style.css" type="text/css">';
print '</head><body class="bgcolor01"><div align="center"><div class="work_main"><h1>あしあと</h1><br /><br /><div style="margin-left:50px; margin-right:50px;"><dl>';
#結果表示ルーチン
foreach my $item (@items){
my ($link, $time, $name) = ($item->{'link'}, $item->{'time'}, $item->{'name'});
print "<dt>$time <a href='$link'>$name</a><br /></dt>";
print "<br />";
}
#結果表示用HTMLのフッタ
print "</dl><br /></div></div></div></body></html>\n";
exit(0);