# There are one or more update processes that listen for status updates
# from client programs.
-# $Id: spong-server.pl,v 1.56 2003/01/29 22:56:25 sljohnson Exp $
+# $Id: spong-server.pl,v 1.57 2003/05/14 03:47:13 sljohnson Exp $
use lib "@@LIBDIR@@";
$file = "$SPONGDB/$host/acks/" . int(rand($$)) . "-$now-$time";
&save_data( ">>", $file, $data );
- if ( STATUS_HISTORY ) {
+ if ( $STATUS_HISTORY ) {
# Save the status update information
$untiltime = POSIX::strftime( "%H:%M, %D", localtime($time) );
$data = "timestamp $now $time\ncolor blue\n$now $user ack $service Until $untiltime \nack: $service by $user \n$message\n";