[SimBot-commits] CVS: simbot/plugins sqlite-logger.pl,1.55,1.56

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

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

Modified Files:
	sqlite-logger.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: sqlite-logger.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/sqlite-logger.pl,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -p -r1.55 -r1.56
--- sqlite-logger.pl	11 Aug 2005 15:35:13 -0000	1.55
+++ sqlite-logger.pl	11 Aug 2005 15:39:29 -0000	1.56
@@ -949,8 +949,8 @@ sub linkify {
     my $bold = 0;
     my $reverse = 0;
     my $underline = 0;
-    my $color = 16;
-    my $bgcolor = 16;
+    my $color = -1;
+    my $bgcolor = -1;
     my $tag = '';
     
     while(my @codes = $line =~ m/(?:&#(2|3|15|22|31);)+/) {
@@ -972,15 +972,15 @@ sub linkify {
                     $color = $1;
                     $line =~ s/$1//;
                 } else {
-                    $color = 16;
-                    $bgcolor = 16;
+                    $color = -1;
+                    $bgcolor = -1;
                 }
             } else {
                 $bold = 0;
                 $underline = 0;
                 $reverse = 0;
-                $color = 16;
-                $bgcolor = 16;
+                $color = -1;
+                $bgcolor = -1;
             }
         } #end foreach code
         
@@ -994,8 +994,8 @@ sub linkify {
             ($bold          ? 'bold '   : '')
             . ($underline   ? 'uline '  : '')
             . ($reverse     ? 'reverse '
-                : ($color != 16     ? "color$color " : '')
-                . ($bgcolor != 16   ? "bgcolor$color "  : '')
+                : ($color != -1     ? "color$color " : '')
+                . ($bgcolor != -1   ? "bgcolor$color "  : '')
             );
         
         $tag .= "<span class=\"$class\">" if ($class ne "");