root/trunk/install/perl/changestbch.pl

#!/usr/bin/perl
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
#changestbch.pl
#
# リモコンユニットを操作して外部チューナの信号を切り替える。
#対応ユニット
# Tira-2.1: Remote Control Receiver/Transmitter
#http://www.home-electro.com/tira2.php
#
#usage :changestbch.pl  [PID]
#引数
#[PID]番組プログラムID
#
# チャンネル切り替えの流れ
# changestbch.pl :局から送出信号を調べて transfer.pl にチャンネル変更引き数を渡す。
# ↓
# transfer.pl 指定ファイルを送出 <http://www.geocities.jp/coffee_style/Tira-2-0.html>
#
#
# DCC-JPL Japan/foltia project
#

use DBI;
use DBD::Pg;

$path = $0;
$path =~ s/changestbch.pl$//i;
if ($pwd  ne "./"){
push( @INC, "$path");
}
require 'foltialib.pl';


#       &writelog("changestbch DEBUG START");


#引き数がアルか?
$pid = $ARGV[0] ;
if ($pid eq "" ){
        #引き数なし出実行されたら、終了
        print "usage :changestbch.pl  [PID]\n";
        &writelog("changestbch ERR PID null");
        exit;
}

# $haveirdaunit = 1;リモコンつないでるかどうか
if ($haveirdaunit == 1){
#デバイス見えるかどうか
if (-e "/dev/ttyUSB0"){

# pidから局(送出コマンド)調べる
#DB初期化
        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;;

$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];
        $tunercmd =  $chstatus[1];
        $recch =  $chstatus[2];
        $stationid =  $chstatus[3];     
$cmdjoined = "$tunertype"."$tunercmd";

&writelog("changestbch DEBUG  $cmdjoined :$recch:$stationid");

$length = length($cmdjoined);
$sendcmdfile = "";
for ($i=0 ; $i < $length ; $i++ ){
        $cmdtxt = substr($cmdjoined,$i,1);
#       print "$cmdtxt\n";
        $sendcmdfile .= " $toolpath/perl/irda/$cmdtxt".".dat ";
}#for

#if (-e "$toolpath/perl/irda/$sendcmdfile"){
        system("$toolpath/perl/irda/transfer.pl $sendcmdfile");
&writelog("changestbch DEBUG  $toolpath/perl/irda/transfer.pl $toolpath/perl/irda/$sendcmdfile");
#}else{
#       &writelog("changestbch ERR cmd file not found:$toolpath/perl/irda/$sendcmdfile");
#}#if -e



#BS-hi b x103 || b 3
#キッズステーション c x264 || c 2 

#コマンドから実行するコマンド組み立て
}else{
#デバイス見えない
                &writelog("changestbch ERR Tira2 Not found.");
}#end if (-e "/dev/ttyUSB0")

}#endif if ($haveirdaunit == 1