From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 19 Dec 2000 05:27:35 +0000 (+0000)
Subject: fixed some syntab bugs from last set of changes
X-Git-Tag: spong-2_7_2~35
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=53b966f119b624fdcc5a572de40eeb169c2ca84b;p=spong.git

fixed some syntab bugs from last set of changes
---

diff --git a/src/spong-network.pl b/src/spong-network.pl
index 8b71b6f..f9e9e58 100755
--- a/src/spong-network.pl
+++ b/src/spong-network.pl
@@ -17,7 +17,7 @@
 # (2) Converted checks to new plugin mechanism (Stephen Johnson May 28, 1999)
 #     Added user-configurable escalation mechanism
 #
-# $Id: spong-network.pl,v 1.25 2000/11/28 20:26:13 sljohnson Exp $
+# $Id: spong-network.pl,v 1.26 2000/12/19 05:27:35 sljohnson Exp $
 
 use Carp;
 use lib "@@LIBDIR@@";
@@ -259,7 +259,7 @@ sub check_tcp {
       $ip = "$a.$b.$c.$d";
    }
 
-   $timeout = 5 if ( ! defined $timeout || $timeout <= 0)
+   $timeout = 5 if ( ! defined $timeout || $timeout <= 0);
 
    $err = 0;
    $line = "";
diff --git a/src/spong-server.pl b/src/spong-server.pl
index fb01648..07ab10a 100755
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -6,7 +6,7 @@
 # There are one or more update processes that listen for status updates 
 # from client programs.
 
-# $Id: spong-server.pl,v 1.33 2000/12/15 21:39:57 sljohnson Exp $
+# $Id: spong-server.pl,v 1.34 2000/12/19 05:27:35 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -36,7 +36,7 @@ $MAX_CHILDREN = 10;
 $debug = $restart = $kill = 0;
 
 if (! GetOptions("debug:i" => \$debuglevel, "restart" => \$restart, 
-         "kill" => \$kill "test" => \$test) ) {
+         "kill" => \$kill, "test" => \$test) ) {
    &usage();
    exit 1;
 }
@@ -1126,7 +1126,7 @@ sub send_message {
    my ( $host, $service, $color, $time, $sum, $duration ) = @_; 
 
    if ( -f $smessage ) {
-      my args;
+      my @args;
       push @args,$smessage;
       if( $debug >= 3 ) { push @args,'--debug'; }
       if( $test )       { push @args,'--test';  }