Index: trunk/install/perl/xmltv2foltia.pl =================================================================== --- trunk/install/perl/xmltv2foltia.pl (リビジョン 122) +++ trunk/install/perl/xmltv2foltia.pl (リビジョン 123) @@ -259,5 +259,5 @@ $foltiaendtime = substr($foltiaendtime,0,12); -if($foltiaendtime > $todaytime){ +#if($foltiaendtime > $todaytime){#電波に乗ってきた情報は無条件更新 # epgidはAUTOINCREMENTに変更した #2010/8/10 # $sth = $dbh->prepare($stmt{'xmltv2foltia.registdb.1'}); @@ -285,7 +285,7 @@ # $sth->execute($newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category) || warn "error: $newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category\n"; # &writelog("xmltv2foltia DEBUG $DBQuery"); -}else{ +#}else{ #&writelog("xmltv2foltia DEBUG SKIP $foltiastarttime:$foltiaendtime"); -}#未来じゃなければ挿入しない +#}#未来じゃなければ挿入しない }#end sub registdb