Use one ssh-keyscan invocation to gather host keysv0.9.2
authorFlorian Weimer <fw@deneb.enyo.de>
Tue, 20 May 2008 19:42:50 +0000 (20 21:42 +0200)
committerFlorian Weimer <fw@deneb.enyo.de>
Tue, 20 May 2008 19:42:50 +0000 (20 21:42 +0200)
dowkd.in

index 605080f..e4ba30a 100644 (file)
--- a/dowkd.in
+++ b/dowkd.in
@@ -406,9 +406,8 @@ sub from_ssh_host ($@) {
        @addrs > 0;
     } @names;
 
-    my @lines;
-    push @lines, safe_backtick qw/ssh-keyscan -t rsa -p/, $port, @names;
-    push @lines, safe_backtick qw/ssh-keyscan -t dsa -p/, $port, @names;
+    my @lines= safe_backtick qw/ssh-keyscan -t/, 'rsa1,rsa,dsa', '-p',
+        $port, @names;
 
     my $tmp = new File::Temp;
     for my $line (@lines) {