fixed some syntab bugs from last set of changes

diff --git a/src/spong-network.pl b/src/spong-network.pl
index 8b71b6f66a98d3e7e90ecf5d2b04d697e5c6466f..f9e9e586f3622fe0ba1648a622ba983b1dc38a59 100755 (executable)
--- 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 fb01648267488a0eff462a8b65ae366f03504652..07ab10a689e35ef24ed899e959b65523a6601c55 100755 (executable)
--- 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';  }