チェンジセット 60: trunk/install

差分発生行の前後
無視リスト:
コミット日時:
2007/07/29 07:48:39 (17 年前)
コミッタ:
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 
  • trunk/install/perl/recwrap.pl

    r44 r60  
    265265#2006/12/03_10:30:24 recwrap TRCNSTART vfr4psp.sh /home/foltia/php/tv/591-87-20061203-1000.m2p -591-87-20061203-1000 /home/foltia/php/tv/591.localized/mp4/ 3 
    266266 
     267 
     268# トラコンキューイング #2007/7/10  
     269my $trcnprocesses = ""; 
     270my $cpucores = `ls /proc/acpi/processor | wc -l`; 
     271$cpucores =~ s/[^0-9]//gi; 
     272unless ($cpucores >= 1 ){ 
     273        $cpucores = 1; 
     274} 
     275do { 
     276        $trcnprocesses = `ps ax | grep ffmpeg | grep -v grep |  wc -l `; 
     277        $trcnprocesses =~ s/[^0-9]//gi; 
     278        # 既にトラコンプロセスが走っているなら適当に待機 
     279        if ($trcnprocesses  >= $cpucores){ 
     280                        &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename "); 
     281                sleep 53; 
     282                sleep $recch; 
     283        } 
     284} until ($trcnprocesses  < $cpucores); 
     285 
     286 
    267287if (($trconqty eq "")||($trconqty == 0 )){ 
    268288        &writelog("recwrap TRCNSTART vfr4psp.sh $recfolderpath/$outputfilename $pspfilname $pspdirname $psptrcn[1]"); 
track feed