Blogの時代も終わった気がするけれどーガラポンTV

自分で文字を書くという行為への価値感の変化かもしれない。
そもそも自分で世界に情報を発信している気になるため、Blogを始めるわけですが
実際の所誰が見ているかなんてわからないし誰も見ていないかもしれない。
そう思うとやる意味すら失せてきたと思い出し更新をなげだしてしまいました。

でも、最近思ったんです。
 宝くじが買わないと当たらないのと同じように、
そもそもいくらいろいろなものを内に秘めていても、
発信したことをどこかでアピールしないと意味が無いって。




 最近、ガラポンTVがあついです。 最近全チャンネル録画のハードは数アレど３ヶ月とれるのはコイツだけ。 それもケータイなどから３G回線でいつでもプレイバック。ニコニコ実況と組み合わせて録画した映像を楽しむことも出来る。 はっきりいってネット見てるより楽しい。タイムシフトできることで料理、旅行系番組のおもしろさを再認識しました。

  で、TS抜けないか試した結果、表示してるFLVなら保存できました。 rtmpdumpとactiveperl を入れて以下を実行してください。 最初の部分のIPとIDの設定は忘れずに。

perl gara.pl 1SJP7E53322110000みたいなID（ブラウザで見るとわかる）

--gara.pl
use Socket;
#初期値
$fname=shift; if ($fname=~/^[0-9A-Z]{4}{0-9A-F]{14}$/){print "ファイルが不正です\n";exit;} $localhost="ガラポンのローカルIP";$myhost="自分のローカルIP:80";
$id="ガラポンID";$pw="パスワード";
#ソケット接続
socket(HSOCK, PF_INET, SOCK_STREAM,getprotobyname('tcp'));
$address = sockaddr_in(80, inet_aton($localhost));
connect(HSOCK, $address);
$length=29+length($id.$pw);
send(HSOCK,"POST /gapi/v3/auth?dev_id=garagara HTTP/1.1\nHost: ".$myhost."\nContent-Length: ".$length."\nUser-Agent: Mozilla/5.0\nContent-Type: application/x-www-form-urlencoded\nAccept-Encoding: gzip,deflate,sdch\n\ntype=login&loginid=".$id."&password=".$pw."\n",0);
while ($data=){
    print $data;
    if ($data=~/\"gtvsession\"\:\"([0-9a-f]+)\"\}/){
        $session=$1;
        print "session is:".$session."\n";
        last;
    }
}
close(HSOCK);
print "Download ".$fname."\n";
system("rtmpdump --host ".$localhost." --port 1935 --playpath ".$fname."-".$session." --protocol 0 --app ./mediaplayer-5.10a/player.swf -o ".$fname.".flv");
exit;