From f9cfb0998e8ec969fbfdea913e0457dddcb8e2dd Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 22 Jan 2005 09:00:14 +0000
Subject: [PATCH] warnings, and don't show msgs that start with a space

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1112 c11ca15a-4712-0410-83d8-924469b57eb5
---
 scripts/irclog2html.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/scripts/irclog2html.pl b/scripts/irclog2html.pl
index 2c53090..20593b8 100755
--- a/scripts/irclog2html.pl
+++ b/scripts/irclog2html.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 # irclog2html.pl Version 1.5 - 11th May 2000
 # Copyright (C) 2000, Jeffrey W. Waugh
@@ -188,9 +188,9 @@ sub html_rgb
 	my $rgbmin = 240;
 
 	my $a = 0.95;			# tune these for the starting and ending concentrations of R,G,B
-	my $b = 0.5;
+	my $c = 0.5;
 
-	my $rgb = [ [$a,$b,$b], [$b,$a,$b], [$b,$b,$a], [$a,$a,$b], [$a,$b,$a], [$b,$a,$a] ];
+	my $rgb = [ [$a,$c,$c], [$c,$a,$c], [$c,$c,$a], [$a,$a,$c], [$a,$c,$a], [$c,$a,$a] ];
 	my $n = $i % @$rgb;
 	my $m = $rgbmin + ($rgbmax - $rgbmin) * ($ncolours - $i) / $ncolours;
 
@@ -226,8 +226,9 @@ sub main {
 
 		if (!$line eq "") {
 
+
 			# parse out the time
-			if ($line =~ s/^([0-9:\.]*) (.*)$/\2/) {
+			if ($line =~ s/^([0-9:\.]*) (.*)$/$2/) {
 				$time = $1;
 			} else {
 				$time = "";
@@ -256,6 +257,7 @@ sub main {
 
 				$text = $line;
 				$text =~ s/^&lt\;.*?&gt\; (.*)$/$1/;
+				$text =~ s/^ .*/&lt\;PROTECTED&gt\;/g;
 				$text =~ s/  /&nbsp\;&nbsp\;/g;
 
 				$htmlcolour = $colour_nick{$nick};
-- 
2.39.5