r5753 - in trunk/server: . rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2009-02-05 05:14:04 -0500 (Thu, 05 Feb 2009)
New Revision: 5753

Modified:
   trunk/server/rcon.pl
   trunk/server/rcon2irc/rcon2irc.pl
Log:
remove debug prints from rcon2irc


Modified: trunk/server/rcon.pl
===================================================================
--- trunk/server/rcon.pl	2009-02-05 08:41:16 UTC (rev 5752)
+++ trunk/server/rcon.pl	2009-02-05 10:14:04 UTC (rev 5753)
@@ -117,7 +117,6 @@
 	return color_dp_transform
 	{
 		my ($type, $data, $next) = @_;
-		print "$type $data\n";
 		$type eq 'char'
 			? $text_qfont_table[ord $data]
 			: "";
@@ -174,7 +173,6 @@
 	return color_dp_transform
 	{
 		my ($type, $data, $next) = @_;
-		print "$type $data\n";
 		$type eq 'char'  ? ($data eq '^' ? '^^' : $data) :
 		$type eq 'color' ? "^$data" :
 		$type eq 'rgb'   ? "^" . color_rgb2basic $data :

Modified: trunk/server/rcon2irc/rcon2irc.pl
===================================================================
--- trunk/server/rcon2irc/rcon2irc.pl	2009-02-05 08:41:16 UTC (rev 5752)
+++ trunk/server/rcon2irc/rcon2irc.pl	2009-02-05 10:14:04 UTC (rev 5753)
@@ -118,7 +118,6 @@
 	return color_dp_transform
 	{
 		my ($type, $data, $next) = @_;
-		print "$type $data\n";
 		$type eq 'char'
 			? $text_qfont_table[ord $data]
 			: "";
@@ -175,7 +174,6 @@
 	return color_dp_transform
 	{
 		my ($type, $data, $next) = @_;
-		print "$type $data\n";
 		$type eq 'char'  ? ($data eq '^' ? '^^' : $data) :
 		$type eq 'color' ? "^$data" :
 		$type eq 'rgb'   ? "^" . color_rgb2basic $data :