Index: trunk/install/perl/deletemovie.pl
===================================================================
--- trunk/install/perl/deletemovie.pl (リビジョン 97)
+++ trunk/install/perl/deletemovie.pl (リビジョン 124)
@@ -14,4 +14,7 @@
 #
 #
+use DBI;
+use DBD::Pg;
+use DBD::SQLite;
 
 $path = $0;
@@ -32,5 +35,5 @@
 
 #ファイル名正当性チェック
-if ($fname =~ /.m2p$|.m2t$|.aac$/){
+if ($fname =~ /.m2p$|.m2t$|.MP4$|.aac$/){
 
 }else{
@@ -40,8 +43,14 @@
 }
 
+#DB初期化
+$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
+
 #ファイル存在チェック
-
+my $tid = &mp4filename2tid($fname);
+my $mp4dirname = &makemp4dir($tid);
 if (-e "$recfolderpath/$fname"){
-
+	$filemovepath = $recfolderpath;
+}elsif(-e "$mp4dirname/$fname"){
+	$filemovepath = $mp4dirname;
 }else{
 #	print "deletemovie file not found.$recfolderpath/$fname\n";
@@ -52,9 +61,9 @@
 #既読削除処理 
 if ($rapidfiledelete  > 0){ #./mita/へ移動
-	system ("mv $recfolderpath/$fname $recfolderpath/mita/");
-	&writelog("deletemovie mv $recfolderpath/$fname $recfolderpath/mita/.");
+	system ("mv $filemovepath/$fname $recfolderpath/mita/");
+	&writelog("deletemovie mv filemovepath/$fname $recfolderpath/mita/.");
 }else{ #即時削除
-	system ("rm $recfolderpath/$fname ");
-	&writelog("deletemovie rm $recfolderpath/$fname ");
+	system ("rm $filemovepath/$fname ");
+	&writelog("deletemovie rm $filemovepath/$fname ");