--- ctcs.orig	Sun Jan 15 19:01:01 2006
+++ ctcs	Fri Jan 27 22:11:46 2006
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -Tw
 ###############################################################################
 #
-# CTorrent Control Server (CTCS) version 1.0
+# CTorrent Control Server (CTCS) version 1.0a
 # Copyright 2006 Dennis Holmes  (dholmes@ct.boxmail.com)
 #
 # This is a program for monitoring and managing Enhanced CTorrent clients.
@@ -107,7 +107,7 @@
 &logmsg("CTCS server started on port $port");
 my $host = hostname() || 'localhost';
 my $addr = inet_ntoa(scalar gethostbyname($host || 'localhost'));
-print "\nCTorrent Control Server v1.0\n";
+print "\nCTorrent Control Server v1.0a\n";
 print "http://www.rahul.net/dholmes/ctorrent/ctcs.html\n";
 print "\nUse the '-S $host:$port' option to Enhanced CTorrent\n";
 print "to have this CTCS instance manage the client.\n";
@@ -281,7 +281,7 @@
 
 					} elsif (m!^CTINFO (.*)!) {
 						$ctinfo{$client} = localtime() . " $1\n" .
-							defined($ctinfo{$client}) ? $ctinfo{$client} : "";
+							(defined($ctinfo{$client}) ? $ctinfo{$client} : "");
 					}
 				} while(defined($_ = &getline($client)));
 			} else {
@@ -373,7 +373,7 @@
 sub send_page {
 	my($client,$page,$method) = @_;
 
-	print "Sending $page\n";
+#	print "Sending $page\n";
 
 	$ctsentone{$client} = 0;