- 92 名前:連続投稿申し訳ない mailto:sage [2009/02/08(日) 15:18:39 ID:uQXTPOqx]
- すでにtv_grab_jpの設定が終わっている人なら、
以下のパッチで番組情報が取得できるようになりました。 ただし、うちのregionは3001と3003と0005です。 それ以外の人は動くか分かりません。 またperl初心者なので、アホなこと書いてる可能性があります。 --- Supplement.pm-bak 2009-02-08 14:38:46.000000000 +0900 +++ Supplement.pm 2009-02-08 15:08:50.000000000 +0900 @@ -96,7 +96,7 @@ my $ua; sub init_ua { - $ua = LWP::UserAgent->new( agent => "XMLTV::Supplement/" . $XMLTV::VERSION ); + $ua = LWP::UserAgent->new( "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)" ); $ua->env_proxy(); } --- Get_nice.pm-bak 2009-02-08 14:34:33.000000000 +0900 +++ Get_nice.pm 2009-02-08 14:35:46.000000000 +0900 @@ -34,7 +34,7 @@ our $ua = LWP::UserAgent->new; -$ua->agent("xmltv/$XMLTV::VERSION"); +$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"); $ua->env_proxy; #our $get = \&LWP::Simple::get; our %errors = ();
|

|