ポッドキャスト受信アリゲーター for perl

---------------------------------
コマンドライン用
ポッドキャスト受信アリゲーター
----------------------------------
作成環境:Knoppix 4.0.2
必要なもの:wget(受信するために必要;-<)

使いかたは rssdownload_ver0.02.pl を実行するだけで
ポッドキャストを自動で持ってきてくれます。
番組ごとに専用フォルダが作られます:-)
受信するポッドキャストは以下のファイルに記述
しておきます..

feeddata.txt (音声用)
feeddata_v.txt (ビデオ用)

#番組名
URL アドレス

#番組名
URLアドレス
~

Blog の仕様上拡張子は最後に txtとなっていますのでリネーム
してください。。 自己責任においてお使いくだいませ;-)


リネーム前 : podcast.tar.bz2.txt
リネーム後 : podcast.tar.bz2

ファイルを保存

追記:ポッドキャストジャーナル様にトラックバックいただいちゃいましたねぇ。こんな糞みたいなソース乗っけちゃいましたなぁ。それと受信した日のログファイルをHTMLとして出力されます。そこをクリックすると対応プレーヤーでお聴きになれます..Logfilename:logs.html ブラウザのお気に入りにでも登録しておくとよろしいかと。ごちゃごちゃしてきたら logs.htmlを削除してもOKです。

標準ではビデオファイルのダウンロード数は最新の物ののみに限定してあります。MP3ファイルはすべてありったけダウンロードされますが、もし全てのビデオファイルをダウンロードしたいと思ったら以下の行を修正または削除してください。

169行〜176行目まで
----------------------------------------------------------------
if ($cnts == 2) {
print "$xname 終了しました\n";
chdir $Bin; #directory スクリプトパスに設定
close(BU);
printf "\n\n更新が終了しました......\n";
$cnts=0;
last; # loop exit
}
-----------------------------------------------------------------