root/trunk/install/perl/deletemovie.pl

リビジョン 1, 1.1 kB (コミッタ: jplcom, コミット時期: 18 年 前)

initial import

  • svn:executable 属性の設定値:
Line 
1 #!/usr/bin/perl
2 #
3 # Anime recording system foltia
4 # http://www.dcc-jpl.com/soft/foltia/
5 #
6 #
7 #deletemovie.pl
8 #
9 #ファイル名を受け取り、削除処理をする
10 #とりあえずは./mita/へ移動
11 #
12 #
13 # DCC-JPL Japan/foltia project
14 #
15 #
16
17 $path = $0;
18 $path =~ s/deletemovie.pl$//i;
19 if ($pwd  ne "./"){
20 push( @INC, "$path");
21 }
22
23 require "foltialib.pl";
24
25 #引き数がアルか?
26 $fname = $ARGV[0] ;
27 if ($fname eq "" ){
28         #引き数なし出実行されたら、終了
29         print "usage;deletemovie.pl <FILENAME>\n";
30         exit;
31 }
32
33 #ファイル名正当性チェック
34 if ($fname =~ /.m2p\z/){
35
36 }else{
37 #       print "deletemovie invalid filetype.\n";
38         &writelog("deletemovie invalid filetype:$fname.");
39         exit (1);
40 }
41
42 #ファイル存在チェック
43
44 if (-e "$recfolderpath/$fname"){
45
46 }else{
47 #       print "deletemovie file not found.$recfolderpath/$fname\n";
48         &writelog("deletemovie file not found:$fname.");
49         exit (1);
50 }
51
52 #既読削除処理
53 if ($rapidfiledelete  > 0){ #./mita/へ移動
54         system ("mv $recfolderpath/$fname $recfolderpath/mita/");
55         &writelog("deletemovie mv $recfolderpath/$fname $recfolderpath/mita/.");
56 }else{ #即時削除
57         system ("rm $recfolderpath/$fname ");
58         &writelog("deletemovie rm $recfolderpath/$fname ");
59
60
61 }
62
63
64
Note: リポジトリブラウザについてのヘルプは TracBrowser を参照してください。
track feed