Index: /trunk/doc/CHANGES.txt
===================================================================
--- /trunk/doc/CHANGES.txt (リビジョン 57)
+++ /trunk/doc/CHANGES.txt (リビジョン 58)
@@ -3,4 +3,5 @@
 07.6.6
 updatem2pfiletable.pl:
+getxml2db.pl:
 　AutoCommitを使用せずに高速化をした。
 
Index: /trunk/install/perl/getxml2db.pl
===================================================================
--- /trunk/install/perl/getxml2db.pl (リビジョン 21)
+++ /trunk/install/perl/getxml2db.pl (リビジョン 58)
@@ -52,4 +52,6 @@
 
 	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
+
+$dbh->{AutoCommit} = 0;
 
 my ($content) = get("$uri");
@@ -127,6 +129,7 @@
 $nomalstarttime = substr($sttime,8,4);
 $DBQuery =  "insert into  foltia_program values ($item{TID},$programtitle,'','$nomalstarttime','$length','','','3','1','')";
- $sth = $dbh->prepare($DBQuery);
-$sth->execute();
+# $sth = $dbh->prepare($DBQuery);
+# $sth->execute();
+$oserr = $dbh->do($DBQuery);
 &writelog("getxml2db  ADD TV Progtam:$item{TID}:$programtitle");
 
@@ -143,6 +146,7 @@
  if ($titlearray[0] ne "$programtitlename" ){
  	$DBQuery =  "UPDATE  foltia_program  SET 	title = $programtitle where  tid = '$item{TID}' ";
-	  $sth = $dbh->prepare($DBQuery);
-	$sth->execute();
+#	  $sth = $dbh->prepare($DBQuery);
+#	$sth->execute();
+	$oserr = $dbh->do($DBQuery);
 	&writelog("getxml2db  UPDATE TV Progtam:$item{TID}:$programtitle");
  }#end if update
@@ -184,7 +188,8 @@
 	WHERE tid = '$item{TID}' AND pid =  '$item{PID}' ";
 }
-		 $sth = $dbh->prepare($DBQuery);
-		$sth->execute();
-	#	@subtitledata= $sth->fetchrow_array;
+#		 $sth = $dbh->prepare($DBQuery);
+#		$sth->execute();
+	$oserr = $dbh->do($DBQuery);
+
  }else{
 	#なければ追加
@@ -197,7 +202,8 @@
 	$DBQuery = "insert into foltia_subtitle values ( '$item{PID}','$item{TID}','$stationid','$item{Count}',$programSubTitle,'$recstartdate','$recenddate','$offsetmin' ,'$length')";
 	}
-		 $sth = $dbh->prepare($DBQuery);
-		$sth->execute();
-	# @subtitledata= $sth->fetchrow_array;
+#		 $sth = $dbh->prepare($DBQuery);
+#		$sth->execute();
+	$oserr = $dbh->do($DBQuery);
+
 }
 
@@ -211,4 +217,5 @@
 }#foreach
 
+$oserr = $dbh->commit;
 
 ##	$dbh->disconnect();