root/trunk/install/perl/folprep.pl

#!/usr/bin/perl
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
#folprep.pl
#
#atから呼ばれて、目的番組がずれていないか確認します
#新しい放映時刻が15分以上先なら再度folprepのキューを入れます
#放映時刻が15分以内なら放映時刻に録画キューを入れます
#
#引数:PID
#
# DCC-JPL Japan/foltia project
#
#
use DBI;
use DBD::Pg;
use Schedule::At;
use Time::Local;


$path = $0;
$path =~ s/folprep.pl$//i;
if ($path ne "./"){
push( @INC, "$path");
}

require "foltialib.pl";


#PID探し
my $pid = $ARGV[0];

#引き数がアルか?
if ($pid eq "" ){
        #引き数なし出実行されたら、終了
        print "usage;folprep.pl <PID>\n";
        exit;
}

my $stationid = "";
if ($pid <= 0){#EPG録画/キーワード録画
        #EPG更新 & DB更新
        $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
        $stationid = &pid2sid($pid);
        &writelog("folprep DEBUG epgimport.pl $stationid");
        system("$toolpath/perl/epgimport.pl $stationid");
}else{#しょぼかる録画
        #XMLゲット & DB更新
        &writelog("folprep DEBUG getxml2db.pl");
        system("$toolpath/perl/getxml2db.pl");
}

#キュー再投入
&writelog("folprep  $toolpath/perl/addpidatq.pl $pid");
system("$toolpath/perl/addpidatq.pl $pid");