Redirect stderr when calling ssh-keyscan
authorFlorian Weimer <fw@deneb.enyo.de>
Thu, 22 May 2008 13:38:31 +0000 (22 15:38 +0200)
committerFlorian Weimer <fw@deneb.enyo.de>
Thu, 22 May 2008 13:38:31 +0000 (22 15:38 +0200)
This suppresses a few annoying error messages.

dowkd.in

index c0bd7bd..59c8f50 100644 (file)
--- a/dowkd.in
+++ b/dowkd.in
@@ -429,15 +429,15 @@ sub from_ssh_host ($@) {
        @addrs > 0;
     } @names;
 
-    my @lines= safe_backtick qw/ssh-keyscan -t/, 'rsa1,rsa,dsa', '-p',
-        $port, @names;
+    my @lines= safe_backtick_stderr qw/ssh-keyscan -t/, 'rsa1,rsa,dsa', 
+        '-p', $port, @names;
 
     my $tmp = new File::Temp;
     for my $line (@lines) {
-       next if $line =~ /^#/;
+       next if $line =~ /^(?:#|no hostkey alg)/;
        my ($host, $data) = $line =~ /^(\S+) (.*)$/;
-       from_ssh_auth_line $tmp, $host, $data
-           or die "$host: warning: unparsable line\n";
+       $host && from_ssh_auth_line $tmp, $host, $data
+           or die "$host: warning: unparsable line: $line";
     }
 }