Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Tue Apr 17 13:05:11 2007 UTC | revision 35 by dpavlin, Thu Dec 13 23:50:47 2007 UTC | |
---|---|---|
# | Line 43 if ($arg =~ m/$RE{net}{IPv4}/) { | Line 43 if ($arg =~ m/$RE{net}{IPv4}/) { |
43 | $hostname = $arg; | $hostname = $arg; |
44 | $ip = host($arg); | $ip = host($arg); |
45 | chomp($ip); | chomp($ip); |
46 | $ip =~ s/^.*\s(\S+)$/$1/; | $ip =~ s/^.*?$RE{net}{IPv4}{-keep}.*$/$1/s; |
47 | } | } |
48 | ||
49 | $ip ||= prompt('Enter IP: ', -require => { | $ip ||= prompt('Enter IP: ', -require => { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |