On Tue, Apr 1, 2014 at 3:25 PM, sven falempin <sven.falem...@gmail.com> wrote:
> Hello,
>
> A few days ago i was asking about pids and learn something.
>
> I am monitoring closely some interfaces and expect to move this into
> ifstated as a configuration.
> I am trying to keep it simple and i do a proto in perl.
>
> There is multiple default routes, and i want to test if the underlying
> network is ok or not.
>
> The following small function is checking the netwokr by icmping a peer
> (the peer depends of the underlying network i want to test). The ping
> refuse to bind $_[0]->{ 'fixed-address' } only in script perl when no
> -d !
>
> 35 sub lsystem {
> 36 say (Dumper(@_));
> 37 return system(@_);
> 38 }
>
>
> 102 sub is_ifup {
> 103 my @cmd = ('/sbin/ping', '-q', '-c', '2', '-w', '1');
> 104 push @cmd, '-I', $_[0]->{ 'fixed-address' }, $_[0]->{ peer_test };
> 105 return not lsystem( @cmd );
> 106 }
>
> perl exectution :
>
> $VAR1 = '/usr/bin/pkill';
> $VAR2 = '-HUP';
> $VAR3 = '-f';
> $VAR4 = '^dhclient: trunk0';
>
> $VAR1 = '/sbin/ping';
> $VAR2 = '-q';
> $VAR3 = '-c';
> $VAR4 = '2';
> $VAR5 = '-w';
> $VAR6 = '1';
> $VAR7 = '-I';
> $VAR8 = '10.0.0.126';
> $VAR9 = '10.0.0.171';
>
> ping: bind: Can't assign requested address
>
> #but just after same command is ok ...
>
> [0] ulis-v12-GW 34# /sbin/ping -q -c 2 -w 1 -I 10.0.0.126 10.0.0.171
> PING 10.0.0.171 (10.0.0.171): 56 data bytes
> --- 10.0.0.171 ping statistics ---
> 2 packets transmitted, 2 packets received, 0.0% packet loss
> round-trip min/avg/max/std-dev = 29.048/30.200/31.352/1.152 ms
> [0] ulis-v12-GW 35#
>
> and if i relaunch perl it is nok.
>
> Something i found strange, once i launch the script with -d , it does
> the job (and add a route for this network)
> and then no more problem.....
>
> I do not know where to look , perl doc or ping ?
>
pff my eyes are not in the right place, obviously dhclient is doing
something to the iface , i have to wait a bit before using ping. (OR
wait for ??? )
Sorry for the noise.
--
---------------------------------------------------------------------------------------------------------------------
() ascii ribbon campaign - against html e-mail
/\
