Index: trunk/install/perl/updatem2pfiletable.pl
===================================================================
--- trunk/install/perl/updatem2pfiletable.pl (リビジョン 54)
+++ trunk/install/perl/updatem2pfiletable.pl (リビジョン 57)
@@ -28,4 +28,5 @@
$dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
+$dbh->{AutoCommit} = 0;
# ひとまず消す
$query = "DELETE FROM foltia_m2pfiles ";
@@ -36,11 +37,10 @@
$file =~ s/$recfolderpath\///;
$query = "insert into foltia_m2pfiles values ('$file')";
- $sth = $dbh->prepare($query);
- $sth->execute();
+$oserr = $dbh->do($query);
# print "$file\n";
}#while
+$oserr = $dbh->commit;
# foltia_mp4files
-
# ひとまず消す
$query = "DELETE FROM foltia_mp4files ";
@@ -49,14 +49,8 @@
@mp4filelist = `find ${recfolderpath}/ | grep MP4`;#by foltia dev ticket #5 http://www.dcc-jpl.com/foltia/ticket/5
-# find /home/foltia/php/tv/ | grep MP4
-
-#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
-#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
foreach (@mp4filelist) {
chomp();
s/$recfolderpath\///;
-# 1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
-# 1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
@fileline = split (/\//);
$filetid = $fileline[0];
@@ -64,9 +58,9 @@
$query = "insert into foltia_mp4files values ('$filetid','$fileline[2]')";
- $sth = $dbh->prepare($query);
- $sth->execute();
-
+$oserr = $dbh->do($query);
#print "$filetid;$fileline[2];$query\n"
# http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html
}
+$oserr = $dbh->commit;
+
Index: trunk/install/php/StarlightBreaker /sb-edit.php
===================================================================
--- trunk/install/php/StarlightBreaker /sb-edit.php (リビジョン 56)
+++ trunk/install/php/StarlightBreaker /sb-edit.php (リビジョン 57)
@@ -120,6 +120,5 @@
$subject = getform(subject);
$maintext = getform(textarea);
-//$replaced = preg_replace ('/\n/', '$1
',$maintext ) ;
-$maintext = mbereg_replace("\n","
\n", $maintext);
+//$maintext = mbereg_replace("\n","
\n", $maintext);
$rate = getform(rank4);
@@ -151,5 +150,5 @@
$subject = $ratechara . $subject;
-print "". htmlspecialchars(stripslashes( $subject)) ."
\n";
+print "". htmlspecialchars(stripslashes( $subject)) ."\n";
print "". stripslashes( $maintext) ."
\n";
print "
\n";