#!/usr/bin/perl #コマンド文字列の定義 #XX:XX:XX:XX:XX:XXは、LinuxPC3のMACアドレスになります。 $CMDWOL = 'wakeonlan -i 192.168.1.255 XX:XX:XX:XX:XX:XX'; $CMDSSH = 'ssh kapler@192.168.1.11 ./setch.pl '; use CGI; $query = CGI->new; #パラメータの取得 $cmdON = $query->param('ON'); $cmdCH = $query->param('CH'); if ( length($cmdON) > 0 ){ #電源ONのコマンドを発行する system($CMDWOL); } if ( length($cmdCH) > 0 ){ #チャンネル変更のコマンドを発行する $strCmd = $CMDSSH.$cmdCH; system($strCmd); } print "Content-type: text/html; charset=euc-jp\n\n"; print < 家庭内TV鑑賞システム「キャプラー」 最初に、ONボタン以外の任意の数字ボタンを押してください。
しばらく待った後、何も映っていない場合はONボタンを押してください。TVサーバーの電源がONになります。
しばらく待った後、ONボタン以外の任意の数字ボタンを押してください。
画像が表示されたら成功です。チャンネル争いにならないようトラブル防止にご協力願います。
10分間隔で利用者が存在しているかチェックします。利用者がいない場合はTVサーバーの電源をOFFします。
WindowsMediaPlayerで直接見たい方はこちらをクリックしてください。

TVサーバーのステータスを見たい方はこちらをクリックしてください。 HTML exit(0);