From: Stephen L Johnson Date: Sat, 22 Feb 2003 20:55:45 +0000 (+0000) Subject: Changed getlines() to getline() for one line logins and increased timeout. Thanks... X-Git-Tag: spong-2_8_0-beta1~45 X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85dba20e8ecac63cd217d082cee3e3d460878b2c;p=spong.git Changed getlines() to getline() for one line logins and increased timeout. Thanks to Mical Dorocinski. --- diff --git a/src/lib/Spong/Network/plugins/check_telnet b/src/lib/Spong/Network/plugins/check_telnet index f5bc52f..bc523ff 100644 --- a/src/lib/Spong/Network/plugins/check_telnet +++ b/src/lib/Spong/Network/plugins/check_telnet @@ -1,5 +1,5 @@ # check_telnet - v 1.0 May 18, 2000 - scarpe01@tufts.edu -# $Id: check_telnet,v 1.3 2000/11/29 17:14:30 sljohnson Exp $ +# $Id: check_telnet,v 1.4 2003/02/22 20:55:45 sljohnson Exp $ # Register the routine with the plugins registry $PLUGINS{'telnet'} = \&check_telnet; @@ -31,7 +31,7 @@ sub check_telnet { } $con->print("\n\n"); - my @data = $con->getlines((Timeout => 6)); + my @data = $con->getline((Timeout => 15)); if (@data) { $message .= "$host:$port -\n@data\n"; } else {