[SimBot-commits] CVS: simbot simbot.pl,1.137,1.138

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23090

Modified Files:
	simbot.pl 
Log Message:
There's no compelling reason these were "16" other than that the array used to
have 'inherit' at index 16.  -1 is a logically better number to represent that
the color is unset.

Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.137
retrieving revision 1.138
diff -u -d -p -r1.137 -r1.138
--- simbot.pl	9 Aug 2005 01:52:57 -0000	1.137
+++ simbot.pl	11 Aug 2005 15:39:28 -0000	1.138
@@ -505,8 +505,8 @@ sub htmlize {
 		my $bold = 0;
 		my $reverse = 0;
 		my $underline = 0;
-		my $color = 16;
-		my $bgcolor = 16;
+		my $color = -1;
+		my $bgcolor = -1;
 		my $tag = "";
 		$line =~ s/&/&/;
 		$line =~ s/>/>/;
@@ -536,16 +536,16 @@ sub htmlize {
 						$color = $1;
 						$line =~ s/\003$1/\003/;
 					} else {
-						$color = 16;
-						$bgcolor = 16;
+						$color = -1;
+						$bgcolor = -1;
 					}
 					debug (DEBUG_SPAM, "htmlize: c: $color; bgc: $bgcolor\n");
 				} else {
 					$bold = 0;
 					$underline = 0;
 					$reverse = 0;
-					$color = 16;
-					$bgcolor = 16;
+					$color = -1;
+					$bgcolor = -1;
 					debug (DEBUG_SPAM, "htmlize: b: $bold; u: $underline; r $reverse; c: $color; bgc: $bgcolor\n");
 				}
 			} #end foreach code
@@ -558,8 +558,8 @@ sub htmlize {
 			my $css = ($bold      ? "font-weight: bold; " : "")
 				. ($underline     ? "text-decoration: underline; " : "")
 				. ($reverse       ? "color: white; background: black; "
-				   : ($color != 16   ? "color: $named_colors[$color]; " : "")
-				   . ($bgcolor != 16 ? "background: $named_colors[$bgcolor]; " : "")
+				   : ($color != -1   ? "color: $named_colors[$color]; " : "")
+				   . ($bgcolor != -1 ? "background: $named_colors[$bgcolor]; " : "")
 				   );
 			debug (DEBUG_SPAM, "htmlize: css: $css\n");
 			$tag .= "<span style=\"$css\">" if ($css ne "");