うーん
2の人の回答は見てみましたが、全然関係ないみたいですね(^_^;
ちなみに、GET /(domain)/listen.pls だと、サーバー落ちてても繋がっちゃうんじゃないでしょうか?
ポート直接叩いてコネクションがOKなら1が返るので、タイムアウトならエラーか空白で返ってくるのでこんな感じでいいんじゃないかと思います
自サーバー直接でShotcastサーバー立ててる所見つけられなかったのでテストできませんでしたが、LocalだとこれでOKでした。以下ソース
#!/usr/local/bin/perl
$host=’サーバー名’;
$addr = (gethostbyname($host))[4];
$file = ’/’;
$name = pack(”S n a4 x8”, 2, ポート番号, $addr);
socket(S, 2, 1, 0);
$afx=”0”;
$afx=connect(S, $name);
close(S);
print qq(Content-type: text/html¥n¥n);
print ”<html><body>¥n”;
if($afx == 1){
print ”OK”;
}
else{
print ”error”;
}
print ”</body><html>¥n”;
exit;
多分、こんな感じでいけると思うんですがいかがでしょうか?
Socket()関数を使って、サーバのリクエストを返すPortにアクセスしてやって返り文字列があるか見てやればOKです
これらのページのどこかわかりませんが。。
ありがとうございます。SHOUTcastの立ち上がりを見るには、GET /(domain)/listen.plsが適切なのでしょうか?