From owner-FreeBSD-users-jp@jp.FreeBSD.org Thu Mar 25 11:40:47 2004
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id i2P2elD20125;
	Thu, 25 Mar 2004 11:40:47 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from banff2.d-cruise.co.jp (banff2.d-cruise.co.jp [202.214.170.129])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id i2P2ekd20119
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Thu, 25 Mar 2004 11:40:46 +0900 (JST)
	(envelope-from hamanaka015@d-cruise.co.jp)
Received: from king.d-cruise.co.jp (king [172.20.51.18])
	by banff2.d-cruise.co.jp (8.9.3/3.7W) with ESMTP id LAA22968
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Thu, 25 Mar 2004 11:40:36 +0900 (JST)
Received: from hamanakakeisuke (dummy-63.so-div.d-cruise.co.jp [172.20.50.63]) by king.d-cruise.co.jp (8.8.5+2.7Wbeta5/3.5Wpl5) with SMTP id LAA06934 for <FreeBSD-users-jp@jp.FreeBSD.org>; Thu, 25 Mar 2004 11:40:35 +0900 (JST)
Message-ID: <003c01c41212$8d0828d0$3f3214ac@ad.dcruise.co.jp>
From: "Keisuke Hamanaka" <hamanaka015@d-cruise.co.jp>
To: <FreeBSD-users-jp@jp.FreeBSD.org>
References: <002b01c41208$84fbcf70$3f3214ac@ad.dcruise.co.jp> <20040325.111709.74168794.asou@soum.co.jp>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Thu, 25 Mar 2004 11:40:35 +0900
X-Sequence: FreeBSD-users-jp 78725
Subject: [FreeBSD-users-jp 78725] Re: PING =?ISO-2022-JP?B?GyRCNEYbKEI=?=
 =?ISO-2022-JP?B?GyRCO2slRCE8JWsbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: hamanaka015@d-cruise.co.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+040307

$B%"%=%&MM!"$42sEz$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$=$N8e!"$$$m$$$mD4$Y$^$7$F!"(BFreebsd$B$N%Q%C%1!<%8$K(Bfping
URL:http://www.fping.com/
$B$H$$$&%D!<%k$,(B
$B$"$k$N$rH/8+$7$^$7$?!#(B

$B$?$@!"(BFping$B$N%5%$%H$K;HMQNc$H$7$F(BPerl$B$N%9%/%j%W%H(B($B2<5-;2>H(B)$B$,=q$$$F$"$k$N$G(B
$B$9$,!"(B
$B%9%-%k$,$J$$$?$aFI$a$^$;$s!#(BOpen2$B$C$F(BPerl$B$N%b%8%e!<%k(B
IPC::Open2$B$N$3$H$G$7$g$&$+(B($B5c(B)$B!)(B

$B:#$O(Bfping$B$r$D$+$C$?%9%/%j%W%H$,$[$+$K$J$$$+D4::Cf$G$9!#(B
$B$I$J$?$+(BFping$B$r$D$+$C$?%9%/%j%W%H$r:n@.$5$l$?$3$H$,$"$kJ}!"$$$i$C$7$c$$$^$7(B
$B$?$i(B
$B$4>R2p$$$?$@$1$k$H9,$$$G$9!#(B

$B0J>e!"$h$m$7$/$*4j$$CW$7$^$9!#(B


#!/usr/local/bin/perl
     require 'open2.pl';

     $MAILTO = "root";

     $pid = &open2("OUTPUT","INPUT","/usr/local/bin/fping -u");

     @check=("slapshot","foo","foobar");

     foreach(@check) {	print INPUT "$_\n"; }
     close(INPUT);
     @output=;

     if	($#output != -1) {
      chop($date=`date`);
      open(MAIL,"|mail -s 'unreachable systems'	$MAILTO");
      print MAIL "\nThe	following systems are unreachable as of:
$date\n\n";
      print MAIL @output;
      close MAIL;
     }



