チェンジセット 122: trunk/install/perl/xmltv2foltia.pl

コミット日時:

2010/10/07 10:43:38 (14 年前)

コミッタ:

sorshi

ログメッセージ:

EPGのDB格納形式を全角英数から半角英数に変更。
EPGタイトルが消えてしまう不具合修正。
DBへ重複登録されてしまう不具合を修正。

ファイル:

• trunk/install/perl/xmltv2foltia.pl (更新) (5 diffs)

trunk/install/perl/xmltv2foltia.pl

@@ -127 +127 @@
-        chomp();
-        $item{title}  = &removetag($_);
-
-
+?
+?
-        #print Dumper($_) ;
-        #print "$result  \n";
@@ -232 +232 @@
-        #&writelog("xmltv2foltia DEBUG push(\@deleteepgid,$data[0]);");
-}#end while 
+
+#上書きを消す
+$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.2'});
+$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel);
+while (@data = $sth->fetchrow_array()) {
+        push(@deleteepgid,$data[0]);
+        #&writelog("xmltv2foltia DEBUG push(\@deleteepgid,$data[0]);");
+}#end while 
+
-}#endsub replaceepg
-
@@ -241 +250 @@
-my $desc = $_[4];
-my $category = $_[5];
+
+#Encode::JP::H2Z::z2h(\$string);
+$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
+$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
-
-#&writelog("xmltv2foltia DEBUG $foltiastarttime:$foltiaendtime");
@@ -288 +301 @@
-        $sth = $dbh->prepare($stmt{'xmltv2foltia.commitdb.1'});
-        $sth->execute( $delid ) || warn "$delid\n";
-#      &writelog("xmltv2foltia DEBUG : DELETE FROM foltia_epg WHERE epgid = 
+       #&writelog("xmltv2foltia DEBUG $stmt{'xmltv2foltia.commitdb.1'}/
-}
-#追加
@@ -294 +307 @@
-        $sth = $dbh->prepare($stmt{'xmltv2foltia.commitdb.2'});
-        $sth->execute( $foltiastarttime[$i],$foltiaendtime[$i], $lengthmin[$i], $channel[$i], $title[$i], $desc[$i], $category[$i]) || warn "error: $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category\n";
-#&writelog("xmltv2foltia DEBUG : INSERT INTO foltia_epg VALUES ( NULL , $foltiastarttime[$i],$foltiaendtime[$i], $lengthmin[$i], $channel[$i], $title[$i], $desc[$i], $category[$i])
+       #&writelog("xmltv2foltia DEBUG $stmt{'xmltv2foltia.commitdb.2'}/$foltiastarttime[$i],$foltiaendtime[$i], $lengthmin[$i], $channel[$i], $title[$i], $desc[$i], $category[$i]
-}# end for
-$dbh->commit;