チェンジセット 60

コミット日時:

2007/07/29 07:48:39 (17 年前)

コミッタ:

sorshi

ログメッセージ:

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

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

ファイル:

• trunk/doc/CHANGES.txt (更新) (1 diff)
• trunk/install/perl/getxml2db.pl (更新) (3 diffs)
• trunk/install/perl/recwrap.pl (更新) (1 diff)

trunk/doc/CHANGES.txt

@@ -1 +1 @@
-foltia 更新履歴 http://www.dcc-jpl.com/soft/foltia/
+
+07.7.29
+recwrap.pl:
+　多重トラコン抑制。
+　激しいCPU負荷のかかるH.264トランスコード処理はCPUコア数を上限としたプロセス数までしか同時起動しないように。わりと大ざっぱな実装。
+
+getxml2db.pl:
+　アニメ番組名とサブタイトル&の実態参照を解くように変更。
+　データ追加で不具合がでてたのでAutoCommit使うように戻した。
-
-07.7.10

trunk/install/perl/getxml2db.pl

@@ -53 +53 @@
-         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
-
-
+#
-
-my ($content) = get("$uri");
@@ -89 +89 @@
-eval("$_");
-Jcode::convert(\$item{Title},'euc');
+
-$programtitlename = $item{Title};
-
-
-
+
+
+
+
+
-Jcode::convert(\$item{ChName},'euc');
-#print "$item{ChName}\n";
-Jcode::convert(\$item{SubTitle},'euc');
-
+
+
+
-$programSubTitle =~ s/\&lt\;/</gi;
-$programSubTitle =~ s/\&gt\;/>/gi;
-
-#print "$item{SubTitle}\n"
-
+
+$programSubTitle = $dbh->quote($programSubTitle)
+
-$offsetmin = $item{StOffset}/60;
-#print "Offset:$offsetmin  (min)\n";
-#print "$item{EdTime}/$item{StTime}\n";
-$edtime = &syobocaldate2foltiadate($item{EdTime});
-$sttime = &syobocaldate2foltiadate($item{StTime});
-#print "$sttime-$edtime\n";
-$length = &calclength($sttime,$edtime);
-$recstartdate = &calcoffsetdate($sttime ,$offsetmin );
-$recenddate = &calcoffsetdate($edtime ,$offsetmin );
-#print "$recstartdate-$recenddate\n";
-#print "Length:$length(min)\n";
-
-$stationid = &getstationid($item{ChName});
-#print "StationID:$stationid \n";
-#サブタイトル追加-------------------------------------------------
-#番組があるか確認
@@ -217 +215 @@
-}#foreach
-
-
-
+
-##      $dbh->disconnect();
-

trunk/install/perl/recwrap.pl

@@ -265 +265 @@
-#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
-
+
+# トラコンキューイング #2007/7/10 
+my $trcnprocesses = "";
+my $cpucores = `ls /proc/acpi/processor | wc -l`;
+$cpucores =~ s/[^0-9]//gi;
+unless ($cpucores >= 1 ){
+        $cpucores = 1;
+}
+do {
+        $trcnprocesses = `ps ax | grep ffmpeg | grep -v grep |  wc -l `;
+        $trcnprocesses =~ s/[^0-9]//gi;
+        # 既にトラコンプロセスが走っているなら適当に待機
+        if ($trcnprocesses  >= $cpucores){
+                        &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename ");
+                sleep 53;
+                sleep $recch;
+        }
+} until ($trcnprocesses  < $cpucores);
+
+
-if (($trconqty eq "")||($trconqty == 0 )){
-        &writelog("recwrap TRCNSTART vfr4psp.sh $recfolderpath/$outputfilename $pspfilname $pspdirname $psptrcn[1]");