#!/usr/bin/perl

### PBR005 動作状況取得スクリプト＠急ごしらえ版
#
#by Makosuke. <makosuke@kerokero.net> / 2002.2.17
#
#使用・改変はご自由に:-)。なお、スクリプトはEUCで保存する事。
#要 LWP, Jcode.pm。
#
#使い方
#  他のスクリプトから
#		require './pbr005con.pl';
#		($status, $ipaddr) = &pbr005con'getstatus;
#  とする。
#
#  戻り値: $status ... Trueなら回線接続中, Falseならばそれ以外（切断か処理中）
#          $ipaddr ... 現在のIPアドレス。$statusがTrueの場合以外は不定値（じゃないかなぁ）
#
# 下の「各種設定」部分を適当に変更してお使い下さい。

package pbr005con;

### 各種設定
$routerip = '192.168.0.1';					# PBR005のIPアドレス

sub getstatus {
	use Jcode;
	use LWP::Simple;
	my $httpurl = 'http://' . $routerip . '/status.htm';

	my $document = get ($httpurl);
	my $document = jcode($document)->euc;
	($ipaddress) = $document =~ m|<TR><TD>IPアドレス</TD><TD ALIGN=CENTER>(\d+\.\d+\.\d+\.\d+)</TD>|;
	

	if ($ipaddress eq '0.0.0.0' || $ipaddress eq ''){
		$linestatus = 0;
	} else {
		$linestatus = 1;
	}
	
	return ($linestatus, $ipaddress);
}