added --test param which is passed to spong-message for test mode of msg'ing.

diff --git a/pod/spong-server.pod b/pod/spong-server.pod
index 2930257892405644ccaef98f82484a159482c9ab..0d7a5702860b490c5f665a47a54f0e4b8eca859a 100644 (file)
--- a/pod/spong-server.pod
+++ b/pod/spong-server.pod
@@ -4,7 +4,8 @@ B<spong-server> - save status information reported by spong programs
 
 =head1 SYNOPSIS
 
-B<spong-server> [B<--debug> I<n>] [B<--kill|--restart>] [F<config_file>]
+B<spong-server> [B<--debug> I<n>] [B<--kill|--restart>] [-B<--test>]
+                [F<config_file>]
 
 =head1 DESCRIPTION
 
@@ -32,6 +33,11 @@ B<spong-server> process that is currently running. It will release reload it's
 configuration and restart. If the B<--kill> flag if provided, a signal will
 be sent to the running B<spong-server> process causing it to exit.
 
+The B<--test> parameter has no effect in the B<spong-server> program itself.
+If specified on the comment line, the B<--test> parameter will be passed
+to the B<spong-message> program when it is called. The <--test> paramter
+will cause B<spong-message> to skip the actual send of notifications.
+
 An alternate configuration file can be specified on the command line. This
 file will be read instead of the default F<spong.conf> configuration file.
 

diff --git a/src/spong-server.pl b/src/spong-server.pl
index c513e68f79da702a96c00a05c0b17d2ad607f474..fb01648267488a0eff462a8b65ae366f03504652 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.32 2000/12/15 21:13:14 sljohnson Exp $
+# $Id: spong-server.pl,v 1.33 2000/12/15 21:39:57 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 ) ) {
+         "kill" => \$kill "test" => \$test) ) {
    &usage();
    exit 1;
 }
@@ -1126,12 +1126,12 @@ sub send_message {
    my ( $host, $service, $color, $time, $sum, $duration ) = @_; 
 
    if ( -f $smessage ) {
-      if ( $debug < 3 ) { 
-         system $smessage, $color, $host, $service, $time, $sum, $duration;
-      } else {
-         system $smessage, '--debug', $color, $host, $service, $time, $sum,
-                $duration;
-      }
+      my args;
+      push @args,$smessage;
+      if( $debug >= 3 ) { push @args,'--debug'; }
+      if( $test )       { push @args,'--test';  }
+      push @args, $color, $host, $service, $time, $sum, $duration;
+      system(@args);
    } else {
       &error( "could not send message, $smessage not found" );
    }