#!/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");

