root/trunk/install/perl/folprep.pl

リビジョン 1, 0.8 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 #folprep.pl
7 #
8 #atから呼ばれて、目的番組がずれていないか確認します
9 #新しい放映時刻が15分以上先なら再度folprepのキューを入れます
10 #放映時刻が15分以内なら放映時刻に録画キューを入れます
11 #
12 #引数:PID
13 #
14 # DCC-JPL Japan/foltia project
15 #
16 #
17 use DBI;
18 use DBD::Pg;
19 use Schedule::At;
20 use Time::Local;
21
22
23 $path = $0;
24 $path =~ s/folprep.pl$//i;
25 if ($pwd  ne "./"){
26 push( @INC, "$path");
27 }
28
29 require "foltialib.pl";
30
31 #XMLゲット & DB更新
32 system("$toolpath/perl/getxml2db.pl");
33
34 #引き数がアルか?
35 $pid = $ARGV[0] ;
36 if ($pid eq "" ){
37         #引き数なし出実行されたら、終了
38         print "usage;folprep.pl <PID>\n";
39         exit;
40 }
41
42 #PID探し
43 $pid = $ARGV[0];
44
45 #キュー再投入
46         &writelog("folprep  $toolpath/perl/addpidatq.pl $pid");
47 system("$toolpath/perl/addpidatq.pl $pid");
48
Note: リポジトリブラウザについてのヘルプは TracBrowser を参照してください。
track feed