[project @ peter@palfrader.org-20080519140552-qfl2tmxabnvphxu5]

weak-ssh-keys-check: Handle servers not doing DSA in from_ssh_host().

diff --git a/dsa-nagios-nrpe-config/debian/changelog b/dsa-nagios-nrpe-config/debian/changelog
index 37924b7..4268a77 100644 (file)
--- a/dsa-nagios-nrpe-config/debian/changelog
+++ b/dsa-nagios-nrpe-config/debian/changelog
@@ -1,9 +1,10 @@
 dsa-nagios-nrpe-config (42) unstable; urgency=low
 
   * weak-ssh-keys-check: Ignore empty lines in authorized-keys files.
+  * weak-ssh-keys-check: Handle servers not doing DSA in from_ssh_host().
   * Run weak-ssh-keys-check on install.
 
- -- Peter Palfrader <weasel@debian.org>  Mon, 19 May 2008 14:01:02 +0000
+ -- Peter Palfrader <weasel@debian.org>  Mon, 19 May 2008 14:05:10 +0000
 
 dsa-nagios-nrpe-config (41) unstable; urgency=low
 

diff --git a/dsa-nagios-nrpe-config/weak-ssh-keys-check b/dsa-nagios-nrpe-config/weak-ssh-keys-check
index a1a5294..b257857 100755 (executable)
--- a/dsa-nagios-nrpe-config/weak-ssh-keys-check
+++ b/dsa-nagios-nrpe-config/weak-ssh-keys-check
@@ -253,6 +253,7 @@ sub from_ssh_host (@) {
     my $tmp = new File::Temp;
     for my $line (@lines) {
        next if $line =~ /^#/;
+       next if $line =~ /^no hostkey alg/;
        my ($host, $data) = $line =~ /^(\S+) (.*)$/;
        clear_tmp $tmp;
        print $tmp "$data\n" or die "print: $!";