deletemovie.pl

リビジョン 1, 1.1 kB (コミッタ: jplcom, コミット時期: 19 年前)
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 を参照してください。