send identification string to avoid error in server log

diff --git a/src/lib/Spong/Network/plugins/check_ssh b/src/lib/Spong/Network/plugins/check_ssh
index 19b23a1d9bc8bd351b6022595aed5d0b176df991..9b3aacc1e6999f2152933d9844493f9873ea3b79 100755 (executable)
--- a/src/lib/Spong/Network/plugins/check_ssh
+++ b/src/lib/Spong/Network/plugins/check_ssh
@@ -1,10 +1,16 @@
+# Spong module to check SSH availability without producing
+# an error in the server log
+# Author: Jan Willamowius, jan@willamowius.de, http://www.willamowius.de
+
 # Register function with the plugin registry
 $PLUGINS{'ssh'} = \&check_ssh;
 
 # Check the ssh service with the built-in check_simple routine
 sub check_ssh {
     my ($host) = @_;
-    return &check_simple( $host, 22, "", "^SSH", "ssh" );
+    my ( $color, $summary, $message ) = &check_simple( $host, 22, "SSH-1.99-spong_check_ssh_1.0\r\n", "^SSH", "ssh" );
+       $message =~ s/\n.*$//m;
+       return ( $color, $summary, $message );
 }
 
 1;