チェンジセット 60: trunk/install/perl/getxml2db.pl

差分発生行の前後
無視リスト:
コミット日時:
2007/07/29 07:48:39 (18 年前)
コミッタ:
sorshi
ログメッセージ:

recwrap.pl:
　多重トラコン抑制。
　激しいCPU負荷のかかるH.264トランスコード処理はCPUコア数を上限としたプロセス数までしか同時起動しないように。わりと大ざっぱな実装。

getxml2db.pl:
　アニメ番組名とサブタイトル&の実態参照を解くように変更。
　データ追加で不具合がでてたのでAutoCommit?使うように戻した。

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/getxml2db.pl

    r58 r60  
    5353         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;; 
    5454 
    55 $dbh->{AutoCommit} = 0; 
     55#$dbh->{AutoCommit} = 0; 
    5656 
    5757my ($content) = get("$uri"); 
    …… 
    8989eval("$_"); 
    9090Jcode::convert(\$item{Title},'euc'); 
     91 
    9192$programtitlename = $item{Title}; 
    92 $programtitle = $dbh->quote($item{Title}); 
    93 #print "$item{Title}\n"; 
    94 #print "$item{TID}\n"; 
     93$programtitlename =~ s/\&lt\;/</gi; 
     94$programtitlename =~ s/\&gt\;/>/gi; 
     95$programtitlename =~ s/\&amp\;/\&/gi; 
     96$programtitle = $dbh->quote($programtitlename); 
     97 
    9598Jcode::convert(\$item{ChName},'euc'); 
    96 #print "$item{ChName}\n"; 
    9799Jcode::convert(\$item{SubTitle},'euc'); 
    98 $programSubTitle = $dbh->quote($item{SubTitle}); 
     100 
     101#$programSubTitle = $dbh->quote($item{SubTitle}); 
     102$programSubTitle = $item{SubTitle}; 
    99103$programSubTitle =~ s/\&lt\;/</gi; 
    100104$programSubTitle =~ s/\&gt\;/>/gi; 
    101  
    102 #print "$item{SubTitle}\n"; 
    103 #print "$item{Count}\n"; 
     105$programSubTitle =~ s/\&amp\;/\&/gi; 
     106$programSubTitle = $dbh->quote($programSubTitle); 
     107 
    104108$offsetmin = $item{StOffset}/60; 
    105 #print "Offset:$offsetmin  (min)\n"; 
    106 #print "$item{EdTime}/$item{StTime}\n"; 
    107109$edtime = &syobocaldate2foltiadate($item{EdTime}); 
    108110$sttime = &syobocaldate2foltiadate($item{StTime}); 
    109 #print "$sttime-$edtime\n"; 
    110111$length = &calclength($sttime,$edtime); 
    111112$recstartdate = &calcoffsetdate($sttime ,$offsetmin ); 
    112113$recenddate = &calcoffsetdate($edtime ,$offsetmin ); 
    113 #print "$recstartdate-$recenddate\n"; 
    114 #print "Length:$length(min)\n"; 
    115114 
    116115$stationid = &getstationid($item{ChName}); 
    117 #print "StationID:$stationid \n"; 
    118116#サブタイトル追加------------------------------------------------- 
    119117#番組があるか確認 
    …… 
    217215}#foreach 
    218216 
    219 $oserr = $dbh->commit; 
    220  
     217#$oserr = $dbh->commit; 
    221218##      $dbh->disconnect(); 
    222219 
track feed