チェンジセット 124: trunk/install/perl

差分発生行の前後
無視リスト:
コミット日時:
2010/10/13 21:01:58 (14 年前)
コミッタ:
sorshi
ログメッセージ:

MP4録画ライブラリでの削除機能追加

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/db/Pg.pl

    r122 r124  
    2828'foltialib.getfilestatus.1' => "SELECT filestatus FROM foltia_subtitle WHERE pid = ?", 
    2929'foltialib.pid2sid.1' => "SELECT stationid FROM foltia_subtitle WHERE pid = ?", 
     30'foltialib.mp4filename2tid.1' => "SELECT tid FROM foltia_subtitle WHERE PSPfilename = ?", 
    3031 
    3132'getxml2db.1' => "SELECT count(*) FROM foltia_program WHERE tid = ?", 

  • trunk/install/perl/deletemovie.pl

    r97 r124  
    1414# 
    1515# 
     16use DBI; 
     17use DBD::Pg; 
     18use DBD::SQLite; 
    1619 
    1720$path = $0; 
    …… 
    3235 
    3336#ファイル名正当性チェック 
    34 if ($fname =~ /.m2p$|.m2t$|.aac$/){ 
     37if ($fname =~ /.m2p$|.m2t$|.MP4$|.aac$/){ 
    3538 
    3639}else{ 
    …… 
    4043} 
    4144 
     45#DB初期化 
     46$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;; 
     47 
    4248#ファイル存在チェック 
    43  
     49my $tid = &mp4filename2tid($fname); 
     50my $mp4dirname = &makemp4dir($tid); 
    4451if (-e "$recfolderpath/$fname"){ 
    45  
     52        $filemovepath = $recfolderpath; 
     53}elsif(-e "$mp4dirname/$fname"){ 
     54        $filemovepath = $mp4dirname; 
    4655}else{ 
    4756#       print "deletemovie file not found.$recfolderpath/$fname\n"; 
    …… 
    5261#既読削除処理  
    5362if ($rapidfiledelete  > 0){ #./mita/へ移動 
    54         system ("mv $recfolderpath/$fname $recfolderpath/mita/"); 
    55         &writelog("deletemovie mv $recfolderpath/$fname $recfolderpath/mita/."); 
     63        system ("mv $filemovepath/$fname $recfolderpath/mita/"); 
     64        &writelog("deletemovie mv filemovepath/$fname $recfolderpath/mita/."); 
    5665}else{ #即時削除 
    57         system ("rm $recfolderpath/$fname "); 
    58         &writelog("deletemovie rm $recfolderpath/$fname "); 
     66        system ("rm $filemovepath/$fname "); 
     67        &writelog("deletemovie rm $filemovepath/$fname "); 
    5968 
    6069 

  • trunk/install/perl/foltialib.pl

    r111 r124  
    399399 
    400400 
    401  
     401sub mp4filename2tid{ 
     402#MPEG4ファイル名からTIDを得る 
     403my $mp4filename =  $_[0]; 
     404 
     405my $sth; 
     406    $sth = $dbh->prepare($stmt{'foltialib.mp4filename2tid.1'}); 
     407    $sth->execute($mp4filename); 
     408my @statusinfo = $sth->fetchrow_array; 
     409my $tid  = $statusinfo[0]; 
     410 
     411if ($tid eq ""){ 
     412        return  0 ; 
     413}else{ 
     414        return $tid; 
     415} 
     416}#end sub mp4filename2tid 
    402417 
    403418 
track feed