crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pour la nv version de host

Browse source 
darcs-hash:20020630232718-a279a-1f46b2fda2a3891f2539f71b5014b3cbd3687b70.gz
This commit is contained in:
stransky 2002-07-01 01:27:18 +02:00
parent 5aef9aab49
commit b341e48e0c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
analyse.pl
View file

@ -352,7 +352,7 @@ sub name_to_ip
my $line = ""; my $line = "";
if ($host =~ /$pattern_ip/) if ($host =~ /$pattern_ip/)
{ return ($host); } { return ($host); }
open (COM, "host $host | awk '{print \$3}' |"); open (COM, "host $host | awk '{print \$4}' |");
$line = <COM>; $line = <COM>;
close (COM); close (COM);
if (! ($line =~ /$pattern_ip/)) if (! ($line =~ /$pattern_ip/))