diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-09-22 08:27:05 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-09-22 08:27:05 +0000 |
commit | 5a66140a8116c0d7a651641bc622d6a8c0e80887 (patch) | |
tree | dd4e1a23ad271a8ad0ab6f2ed6c543af0c076681 /park-rpmdrake | |
parent | 901c1d7f457d7f36a7825feebb4181505294c1e0 (diff) | |
download | rpmdrake-5a66140a8116c0d7a651641bc622d6a8c0e80887.tar rpmdrake-5a66140a8116c0d7a651641bc622d6a8c0e80887.tar.gz rpmdrake-5a66140a8116c0d7a651641bc622d6a8c0e80887.tar.bz2 rpmdrake-5a66140a8116c0d7a651641bc622d6a8c0e80887.tar.xz rpmdrake-5a66140a8116c0d7a651641bc622d6a8c0e80887.zip |
- adapt to new scanssh
- remove debug code
Diffstat (limited to 'park-rpmdrake')
-rwxr-xr-x | park-rpmdrake | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/park-rpmdrake b/park-rpmdrake index abbf2fbb..45fd7acf 100755 --- a/park-rpmdrake +++ b/park-rpmdrake @@ -3,7 +3,6 @@ use Socket; use lib qw(/usr/lib/libDrakX); -use lib qw(/home/pixel/gi/perl-install); use interactive::gtk; use run_program; use standalone; @@ -64,7 +63,7 @@ sub host_to_string { sub scanssh_output_to_hosts { [ map { chomp; - if (my ($ip, $_version) = /(\S+) ([^<].*)/) { + if (my ($ip, $_version) = /([.\d]+)/) { raw_host_to_host($ip); } else { (); |