folprep.pl

コミット日時:

2010/08/17 01:12:56 (15 年前)

コミッタ:

sorshi

ログメッセージ:

・放送波からのEPG番組表取得に対応。
・foltia_epgテーブル構成変更
・folcast.phpがSQLiteでまったく動作していなかったのを修正

ファイル:

trunk/install/perl/folprep.pl

r94	r111
29	29	require "foltialib.pl";
30	30
31		#XMLゲット & DB更新
32		system("$toolpath/perl/getxml2db.pl");
	31
	32	#PID探し
	33	my $pid = $ARGV[0];
33	34
34	35	#引き数がアルか?
35		~~$pid = $ARGV[0] ;~~
36	36	if ($pid eq "" ){
37	37	#引き数なし出実行されたら、終了
…	…
40	40	}
41	41
42		#PID探し
43		$pid = $ARGV[0];
	42	my $stationid = "";
	43	if ($pid <= 0){
	44	#EPG更新 & DB更新
	45	$dbh = DBI->connect($DSN,$DBUser,$DBPass) \|\|die $DBI::error;;
	46	$stationid = &pid2sid($pid);
	47	system("$toolpath/perl/epgimport.pl $stationid");
	48	}else{
	49	#XMLゲット & DB更新
	50	system("$toolpath/perl/getxml2db.pl");
	51	}
44	52
45	53	#キュー再投入
46		&writelog("folprep $toolpath/perl/addpidatq.pl $pid");
	54	&writelog("folprep $toolpath/perl/addpidatq.pl $pid");
47	55	system("$toolpath/perl/addpidatq.pl $pid");
48	56