Index: trunk/install/perl/folprep.pl
===================================================================
--- trunk/install/perl/folprep.pl (リビジョン 111)
+++ trunk/install/perl/folprep.pl (リビジョン 112)
@@ -41,11 +41,13 @@
 
 my $stationid = "";
-if ($pid <= 0){
+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{
+}else{#しょぼかる録画
 	#XMLゲット & DB更新
+	&writelog("folprep DEBUG getxml2db.pl");
 	system("$toolpath/perl/getxml2db.pl");
 }