From owner-FreeBSD-users-jp@jp.freebsd.org  Tue Jul  3 23:11:43 2001
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id XAA74248;
	Tue, 3 Jul 2001 23:11:43 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from sa.sakura.ne.jp (sa.sakura.ne.jp [210.188.226.2])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id XAA74243
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 3 Jul 2001 23:11:42 +0900 (JST)
	(envelope-from satoshi@sa.sakura.ne.jp)
Received: from vip (nttsitm011064.flets.ppp.infoweb.ne.jp [61.124.47.64])
	by sa.sakura.ne.jp (8.9.3/[SW/SAKURA-2000/12/26]) with SMTP id XAA98373
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 3 Jul 2001 23:11:34 +0900 (JST)
	(envelope-from satoshi@sa.sakura.ne.jp)
Message-Id: <200107031411.XAA98373@sa.sakura.ne.jp>
Date: Tue, 03 Jul 2001 23:11:36 +0900
From: =?ISO-2022-JP?B?GyRCOmRLXCEhQW87SxsoQg==?= <satoshi@sa.sakura.ne.jp>
To: FreeBSD-users-jp@jp.freebsd.org
Organization: NEC Soft,Ltd.
In-Reply-To: <000801c10390$760de2c0$dd48a8c0@bless>
References: <000201c10370$cb9848e0$dd48a8c0@bless>
	<3b414514.7651%mya@guru.gr.jp>
	<000801c10390$760de2c0$dd48a8c0@bless>
X-Mailer: Datula version 1.51.08.01 for Windows
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+010328
X-Sequence: FreeBSD-users-jp 62730
Subject: [FreeBSD-users-jp 62730] Re: dyndns
 =?ISO-2022-JP?B?GyRCISEbKEI=?= MN128
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: satoshi@sa.sakura.ne.jp

$B:dK\(B $BAo;K$G$9!#(B
MN128-SOHO Slotin$B$r;H$C$F$$$^$9!#(B

takesima_OS$B%i%$%@!<$5$s$O(B
$B!V(B[FreeBSD-users-jp 62720] Re: dyndns $B!!(B MN128$B!W(B
<000801c10390$760de2c0$dd48a8c0@bless>
$B$G=q$-$^$7$?!#(B
>$B$$$m$$$mFM$C9~$s$G$/$@$5$$!"(BUNIX$BJ82=$N$?$a$K!#(B

$B;d$N(BWAN$BB&(BIP$B%"%I%l%9$r<hF@$9$k(Bperl$B%9%/%j%W%H$G$9$,(B...
show ip status$B$r;H$C$F$$$^$9!#(B
# $B$3$NJ}$,8!:wJ8;zNs$KF|K\8l$,L5$/$FNI$$$+$b$7$l$^$;$s!#(B


#!/usr/bin/perl

################################
my $router = '192.168.0.1';
my $username = 'admin';
my $passwd = 'foobar';
my $cmd = 'show ip status';
################################


use Net::Telnet;
my $t = new Net::Telnet( host => $router,
         Timeout => 10,
         Prompt => '/[\w\-]+% $/' ) or die "Cannot connect.";
$t->login( $username, $passwd );
my @lines = $t->cmd( $cmd );
$t->close;


foreach ( @lines ) {
    my $ip = "";

    if (($_ =~ /ISDN/) && ($_ =~ /OPENED/)) {
        # Get IP Address
        ($ip) = split(/\//,substr($_, 26));
        print $ip;
    }
}
exit 0;
