root/trunk/install/perl/folprep.pl

リビジョン 112, 1.1 kB (コミッタ: sorshi, コミット時期: 14 年 前)

・ラジオ局録音の場合はepgimport実行しないように修正

  • 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 ($path ne "./"){
26 push( @INC, "$path");
27 }
28
29 require "foltialib.pl";
30
31
32 #PID探し
33 my $pid = $ARGV[0];
34
35 #引き数がアルか?
36 if ($pid eq "" ){
37         #引き数なし出実行されたら、終了
38         print "usage;folprep.pl <PID>\n";
39         exit;
40 }
41
42 my $stationid = "";
43 if ($pid <= 0){#EPG録画/キーワード録画
44         #EPG更新 & DB更新
45         $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
46         $stationid = &pid2sid($pid);
47         &writelog("folprep DEBUG epgimport.pl $stationid");
48         system("$toolpath/perl/epgimport.pl $stationid");
49 }else{#しょぼかる録画
50         #XMLゲット & DB更新
51         &writelog("folprep DEBUG getxml2db.pl");
52         system("$toolpath/perl/getxml2db.pl");
53 }
54
55 #キュー再投入
56 &writelog("folprep  $toolpath/perl/addpidatq.pl $pid");
57 system("$toolpath/perl/addpidatq.pl $pid");
58
Note: リポジトリブラウザについてのヘルプは TracBrowser を参照してください。
track feed