From owner-FreeBSD-users-jp@jp.freebsd.org  Tue May 16 16:53:33 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id QAA31443;
	Tue, 16 May 2000 16:53:33 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from ns4.sony.co.jp (ns4.Sony.CO.JP [202.238.80.4])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id QAA31437
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 16 May 2000 16:53:33 +0900 (JST)
	(envelope-from keisuke@csl.sony.co.jp)
Received: from mail1.sony.co.jp (gatekeeper7.Sony.CO.JP [202.238.80.21])
	by ns4.sony.co.jp (R8) with ESMTP id QAA46745
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 16 May 2000 16:53:31 +0900 (JST)
Received: from pochi.csl.sony.co.jp ([43.15.182.132])
	by mail1.sony.co.jp (R8) with SMTP id QAA19346
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 16 May 2000 16:53:32 +0900 (JST)
Received: (qmail 16995 invoked from network); 16 May 2000 16:54:35 +0900
Received: from localhost.tama.sldc.sony.co.jp (HELO localhost) (127.0.0.1)
  by localhost.tama.sldc.sony.co.jp with SMTP; 16 May 2000 16:54:35 +0900
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: <20000516145841A.noborus@mb.kcom.ne.jp>
References: <20000516132019Q.noborus@mb.kcom.ne.jp>
	<3920D21D.B091982A@mwa.biglobe.ne.jp>
	<20000516145841A.noborus@mb.kcom.ne.jp>
X-Mailer: Mew version 1.94.1 on Emacs 20.6 / Mule 4.0
 =?iso-2022-jp?B?KBskQjJWMWMbKEIp?=
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <20000516165435I.keisuke@csl.sony.co.jp>
Date: Tue, 16 May 2000 16:54:35 +0900
From: Keisuke Inoue <keisuke@csl.sony.co.jp>
X-Dispatcher: imput version 990905(IM130)
Lines: 37
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+000315
X-Sequence: FreeBSD-users-jp 51850
Subject: [FreeBSD-users-jp 51850] Re: MN128-SOHO
 =?ISO-2022-JP?B?GyRCJE4yc0B+QFxCMyEmQFpDRyVmITwlRiUjJWobKEI=?=
 =?ISO-2022-JP?B?GyRCJUYlIxsoQg==?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: keisuke@csl.sony.co.jp

  Noboru Saitou <noborus@mb.kcom.ne.jp>
$B!?!1!1!1!1!1!1!1(B
>  $B$"$H!"F1$8$/(Btelnet $B@)8f$9$k$b$N$G!"<j85$K$O(B 30$B9T$/$i$$$N(B perl
> $B$N%9%/%j%W%H$r$,$"$j$^$9$,(B...$B$3$l$@$7$F$$$$!)!dK?;a(B

$B;d$O$3$s$J$N$r(BMN128 SOHO SL10$B$G;H$C$F$^$9!%(B
perl5$B$N(BTelnet$B%b%8%e!<%k$r%$%s%9%H!<%k$7$F;H$C$F$/$@$5$$!%(B
% soho 'con 1'
% soho 'dis b1'
% soho 'show stat'
$B$H$$$C$?46$8$G;H$$$^$9!%(B
# Perl/Tk$B$d(BPerl/Gtk$B$r;H$($P$*9%$-$J(BGUI$B$K$J$j$^$9(B :-)

-------- $B$3$3$+$i(B --------
#!/usr/bin/perl

use Net::Telnet;

$host   = "192.168.0.1";		# $B%[%9%H(B
$passwd = "password here";		# $B%Q%9%o!<%I(B

$host = new Net::Telnet (host    => $host,
			 Timeout => 10,
			 Prompt  => '/[a-zA-Z0-9\-]+% $/')
  || die "Fatal Error -> $!\n\n";
$host->login('admin', $passwd);
foreach (@ARGV) {
  print "% $_\n";
  print $host->cmd($_);
  print "\n";
};
$host->close;
-------- $B$3$3$^$G(B --------

--
$B0f>e(B $B7I2p(B
E-Mail: keisuke@keisuke.org
