<?php
/************ HTMLヘッダ出力 **************/
echo <<<EOH
<html>
<head>
<meta http-equiv="Content-Type" content="text/php; charset=euc-jp">
<link rel="stylesheet" href="/main.css" type="text/css">
<title>
RBIO Direct Control
</title>
</head>
<body bgcolor="#CCCCCC">
<b>RBIO Direct Control</b><br>
EOH;
/************ HTMLヘッダここまで **************/
$sock fsockopen("rbio.hibi",????,$errorno,$errormsg,2) or die("error{$errorno}:{$errormsg}"); //接続→2秒でタイムアウト
if($_POST["sw"] == "on"){    //POSTデータが送られてきたらスイッチをいじくる
    
for($i=0;$i<10;$i++){    //0から10まで順番にいじくる
        
if($_POST["r{$i}"]==1){
            
fputs($sock,"PCR{$i}1\n");    //PCRn1は、n番リレーをON
            
fgets($sock,16);    //1行捨てる
            
$res[$i] = fgets($sock,16);    //OKと返ってきてるはず(チェックしてないけど。)
        
}else{
            
fputs($sock,"PCR{$i}0\n");    //PCRn0は、n番リレーをOFF
            
fgets($sock,16);
            
$res[$i] = fgets($sock,16);
        }
    }
}

for(
$i=0;$i<10;$i++){    //スイッチの状態を取得する
    
fputs($sock,"PCA{$i}\n");    //PCAnは、n番リレーの状態を取得
    
fgets($sock,16);        //1行捨てて
    
$res[$i] = fgets($sock,16);    //結果を取得(0か1が返ってくる)
    
fgets($sock,16);
}
fclose($sock);    //用済みなのでコネクションクローズ

for($i=0;$i<10;$i++){
    
$dat1 .= "<td>{$i}</td>\n";
    if(
$res[$i] == "1\r\n"){    //1てゆーか「1\r\n」が返ってきたらONなので、チェック済みで赤丸表示。
        
$dat2 .= "<td><input type=\"checkbox\" name=\"r{$i}\" value=\"1\" checked></td>\n";
        
$dat3 .= "<td><font color=\"red\">●</font></td>\n";
    }else{                
//それ以外はチェックしてなくて黒丸表示。
        
$dat2 .= "<td><input type=\"checkbox\" name=\"r{$i}\" value=\"1\"></td>\n";
        
$dat3 .="<td>●</td>\n";
    }
}
//テーブル出力
echo "<table border=\"0\"><form action=\"{$_SERVER['PHP_SELF']}\" method=\"post\">\n";
echo 
"<tr align=\"center\">{$dat1}</tr>\n";
echo 
"<tr align=\"center\">{$dat2}</tr>\n";
echo 
"<tr align=\"center\">{$dat3}</tr>\n";
echo 
"</table>\n";
echo 
"<input type=\"hidden\" name=\"sw\" value=\"on\">\n";
echo 
"<input type=\"submit\" value=\"send\">\n";
echo 
"</form>\n";

/************ HTMLフッタ出力 **************/
echo "<hr />\n<a href=\"./\">back</a>\n",
     
"</body>\n</html>\n";
?>