Add Gackelchen to dns

[dns.git] / bin / mksshfp

diff --git a/bin/mksshfp b/bin/mksshfp
index 314eb43c9904caac1348f88583dab08fb9f28746..ef8dda051137d24f081c0ad3fdf7f1fe7c1542ad 100755 (executable)
--- a/bin/mksshfp
+++ b/bin/mksshfp
@@ -4,11 +4,11 @@ my %hosts;
 
 if (-f "/etc/ssh/ssh_known_hosts")
 {
-    open(SSHFP, "-|","sshfp", "-k", "/etc/ssh/ssh_known_hosts") || die $!;
+    open(SSHFP, "-|","sshfp -k /etc/ssh/ssh_known_hosts 2>&1") || die $!;
 
     while (my $line = <SSHFP>)
     {
-        if ($line =~ /^(\S+) IN SSHFP (\d+) (\d+) ([0-9A-F]+)$/)
+        if ($line =~ /^(\S+)\.openstreetmap\.org IN SSHFP (\d+) (\d+) ([0-9A-F]+)$/)
         {
             my $host = $1;
             my $algorithm = $2;
@@ -45,7 +45,7 @@ if (-f "/etc/ssh/ssh_known_hosts")
                 }
             }
         }
-        else
+        elsif ($line !~ /^WARNING: Assuming /)
         {
             warn $line;
         }