ontv japan問題

前にも書いたが、もう少し詳細に。
could not fetch http://www.ontvjapan.com/areachange/areaselect.php3?tv=1&force=1, error: 403 Forbidden, aborting
というエラーに対して、
/usr/local/share/perl/5.10.0/XMLTV/Get_nice.pm
の
$ua->agent("xmltv/$XMLTV::VERSION");
を
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)");
に。

/usr/local/share/perl/5.10.0/XMLTV/Supplement.pm
の
$ua = LWP::UserAgent->new( agent => "XMLTV::Supplement/" . $XMLTV::VERSION );
を
$ua = LWP::UserAgent->new( "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)" );
にそれぞれ修正。