Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
Message-ID: <006101c2336f$6a69cbe0$1f00a8c0@npf>
From: "Norbert Pfeiffer" <norbert AT itbw DOT de>
To: <cygwin AT cygwin DOT com>
Subject: as one gets roots - rights ...
Date: Thu, 25 Jul 2002 02:08:20 +0200
MIME-Version: 1.0
Content-Type: text/plain;
	charset="Windows-1252"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700

Hi,

so far I did not have problems with CygWin.
My new Script places me before a problem.

Output:
Norbert AT NORBERT ~/perl
$ ./subnet.pl 192.168.0. 50
icmp ping requires root privilege at ./subnet.pl line 9

Norbert AT NORBERT ~/perl
$

Source code:
#!/usr/bin/perl -w
use strict;
use Net::Ping;
my $i = 0;
my $png = 0;
my $prot = "icmp"; <========================= the cause
my $tout = 1 / $ARGV[1];
my $subn = $ARGV[0].".";
my $obj = Net::Ping->new($prot, $tout); <==== error line
for ($i=0; $i<256; $i++)
    {if (0 < $obj->ping($subn.$i))
        {print $subn.$i."\n";
         }
     }
$obj->close();
print "Time: ".(time() - $^T)." s.\n";


Which one can do there...


m. b. G. Norbert
_____________________
normal:  02292-681769
Notruf:  0177-2363368
---------------------
e.o.m.


m. b. G. Norbert
_____________________
normal:  02292-681769
Notruf:  0177-2363368
---------------------
e.o.m.


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/