Index: /trunk/doc/CHANGES.txt
===================================================================
--- /trunk/doc/CHANGES.txt (リビジョン 59)
+++ /trunk/doc/CHANGES.txt (リビジョン 60)
@@ -1,3 +1,12 @@
 foltia 更新履歴 http://www.dcc-jpl.com/soft/foltia/
+
+07.7.29
+recwrap.pl:
+　多重トラコン抑制。
+　激しいCPU負荷のかかるH.264トランスコード処理はCPUコア数を上限としたプロセス数までしか同時起動しないように。わりと大ざっぱな実装。
+
+getxml2db.pl:
+　アニメ番組名とサブタイトル&の実態参照を解くように変更。
+　データ追加で不具合がでてたのでAutoCommit使うように戻した。
 
 07.7.10
Index: /trunk/install/perl/getxml2db.pl
===================================================================
--- /trunk/install/perl/getxml2db.pl (リビジョン 58)
+++ /trunk/install/perl/getxml2db.pl (リビジョン 60)
@@ -53,5 +53,5 @@
 	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
 
-$dbh->{AutoCommit} = 0;
+#$dbh->{AutoCommit} = 0;
 
 my ($content) = get("$uri");
@@ -89,31 +89,29 @@
 eval("$_");
 Jcode::convert(\$item{Title},'euc');
+
 $programtitlename = $item{Title};
-$programtitle = $dbh->quote($item{Title});
-#print "$item{Title}\n";
-#print "$item{TID}\n";
+$programtitlename =~ s/\&lt\;/</gi;
+$programtitlename =~ s/\&gt\;/>/gi;
+$programtitlename =~ s/\&amp\;/\&/gi;
+$programtitle = $dbh->quote($programtitlename);
+
 Jcode::convert(\$item{ChName},'euc');
-#print "$item{ChName}\n";
 Jcode::convert(\$item{SubTitle},'euc');
-$programSubTitle = $dbh->quote($item{SubTitle});
+
+#$programSubTitle = $dbh->quote($item{SubTitle});
+$programSubTitle = $item{SubTitle};
 $programSubTitle =~ s/\&lt\;/</gi;
 $programSubTitle =~ s/\&gt\;/>/gi;
-
-#print "$item{SubTitle}\n";
-#print "$item{Count}\n";
+$programSubTitle =~ s/\&amp\;/\&/gi;
+$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,6 +215,5 @@
 }#foreach
 
-$oserr = $dbh->commit;
-
+#$oserr = $dbh->commit;
 ##	$dbh->disconnect();
 
Index: /trunk/install/perl/recwrap.pl
===================================================================
--- /trunk/install/perl/recwrap.pl (リビジョン 44)
+++ /trunk/install/perl/recwrap.pl (リビジョン 60)
@@ -265,4 +265,24 @@
 #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]");