Index: trunk/install/perl/changestbch.pl
===================================================================
--- trunk/install/perl/changestbch.pl (リビジョン 94)
+++ trunk/install/perl/changestbch.pl (リビジョン 1)
@@ -26,9 +26,8 @@
 use DBI;
 use DBD::Pg;
-use DBD::SQLite;
 
 $path = $0;
 $path =~ s/changestbch.pl$//i;
-if ($path ne "./"){
+if ($pwd  ne "./"){
 push( @INC, "$path");
 }
@@ -55,8 +54,11 @@
 # pidから局(送出コマンド)調べる
 #DB初期化
-	$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
+	my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
+		$DBDriv,$DBName,$DBHost,$DBPort);
+	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
 
-	$sth = $dbh->prepare($stmt{'changestbch.1'});
-	$sth->execute($pid);
+$DBQuery =  "SELECT foltia_station.tunertype,foltia_station.tunerch ,foltia_station.stationrecch ,foltia_station.stationid FROM foltia_subtitle,foltia_station WHERE foltia_subtitle.stationid = foltia_station.stationid AND foltia_subtitle.pid =  '$pid' ";
+	 $sth = $dbh->prepare($DBQuery);
+	$sth->execute();
  @chstatus = $sth->fetchrow_array;
  	$tunertype = $chstatus[0];