Index: trunk/install/perl/folprep.pl
===================================================================
--- trunk/install/perl/folprep.pl (リビジョン 112)
+++ trunk/install/perl/folprep.pl (リビジョン 1)
@@ -23,5 +23,5 @@
 $path = $0;
 $path =~ s/folprep.pl$//i;
-if ($path ne "./"){
+if ($pwd  ne "./"){
 push( @INC, "$path");
 }
@@ -29,9 +29,9 @@
 require "foltialib.pl";
 
-
-#PID探し
-my $pid = $ARGV[0];
+#XMLゲット & DB更新
+system("$toolpath/perl/getxml2db.pl");
 
 #引き数がアルか?
+$pid = $ARGV[0] ;
 if ($pid eq "" ){
 	#引き数なし出実行されたら、終了
@@ -40,19 +40,9 @@
 }
 
-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");
-}
+#PID探し
+$pid = $ARGV[0];
 
 #キュー再投入
-&writelog("folprep  $toolpath/perl/addpidatq.pl $pid");
+	&writelog("folprep  $toolpath/perl/addpidatq.pl $pid");
 system("$toolpath/perl/addpidatq.pl $pid");