added 'event' message type functionality

diff --git a/src/spong-status.pl b/src/spong-status.pl
index e9ad3b3c893c2aae2c842312a0d875fe6e79cf21..6a4b2af1bdb281385dc7fca911bb760505ed4e15 100755 (executable)
--- a/src/spong-status.pl
+++ b/src/spong-status.pl
@@ -42,7 +42,7 @@ if( ! GetOptions( \%opt, @options ) ) { warn "Incorrect usage:\n\n"; &help(); }
 my($cmd, $host, $service, $color, $summary, $ttl) = @ARGV;
 
 if (! $cmd && defined $opt{'cmd'}) { $cmd = $opt{'cmd'}; }
-if ( $cmd !~ m/status/ ) { warn "Invalid cmd\n\n"; &help(); }
+if ( $cmd !~ m/status|event/ ) { warn "Invalid cmd\n\n"; &help(); }
 if ( ! $host && defined $opt{'host'} ) { $host = $opt{'host'}; }
 if ( ! $host ) { warn "Host is required\n\n"; &help(); }
 if ( ! $service && defined $opt{'service'} ) { $service = $opt{'service'}; }
@@ -74,8 +74,14 @@ else {
    undef $fh;
 }
 
-Spong::Status::status( $SPONGSERVER, $host, $service, $color, $summary,
-                       $message, $ttl );
+if ( $cmd eq 'status' ) {
+   Spong::Status::status( $SPONGSERVER, $host, $service, $color, $summary,
+                          $message, $ttl );
+} elsif ( $cmd eq 'event') {
+   Spong::Status::event( $SPONGSERVER, $host, $service, $color, $summary,
+                          $message, $ttl );
+}
+
 
 exit 0;