Index: trunk/install/perl/updatem2pfiletable.pl
===================================================================
--- trunk/install/perl/updatem2pfiletable.pl (リビジョン 83)
+++ trunk/install/perl/updatem2pfiletable.pl (リビジョン 94)
@@ -16,26 +16,24 @@
 use DBI;
 use DBD::Pg;
+use DBD::SQLite;
 
 $path = $0;
 $path =~ s/updatem2pfiletable.pl$//i;
-if ($pwd  ne "./"){
+if ($path ne "./"){
 push( @INC, "$path");
 }
 
 require "foltialib.pl";
-	my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
-		$DBDriv,$DBName,$DBHost,$DBPort);
-	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
+$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
 
 $dbh->{AutoCommit} = 0;
 #　ひとまず消す
-$query =  "DELETE  FROM  foltia_m2pfiles  ";
-	 $sth = $dbh->prepare($query);
+$sth = $dbh->prepare($stmt{'updatem2pfiletable.1'});
 	$sth->execute();
 
 while ($file = glob("$recfolderpath/*.m2?")) {
 $file =~ s/$recfolderpath\///;
-$query =  "insert into  foltia_m2pfiles values ('$file')";
-$oserr = $dbh->do($query);
+    $sth = $dbh->prepare($stmt{'updatem2pfiletable.2'});
+    $sth->execute($file);
 # print "$file\n";
 }#while
@@ -46,6 +44,5 @@
 
 #　ひとまず消す
-$query =  "DELETE  FROM  foltia_mp4files  ";
-	 $sth = $dbh->prepare($query);
+$sth = $dbh->prepare($stmt{'updatem2pfiletable.3'});
 	$sth->execute();
 
@@ -58,6 +55,6 @@
 $filetid =~ s/[^0-9]//g;
 if (($filetid ne "" )&& ($fileline[2] ne "" )){
-	$query =  "insert into  foltia_mp4files values ('$filetid','$fileline[2]')";
-	$oserr = $dbh->do($query);
+	$sth = $dbh->prepare($stmt{'updatem2pfiletable.4'});
+	$oserr = $sth->execute($filetid, $fileline[2]);
 #print "$filetid;$fileline[2];$query\n"
 # http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html