diff --git a/www/rem2html b/www/rem2html index 5c565d47..9c68a8d6 100755 --- a/www/rem2html +++ b/www/rem2html @@ -2,7 +2,7 @@ # rem2html # -# $Id: rem2html,v 1.11 2000-06-26 14:44:17 dfs Exp $ +# $Id: rem2html,v 1.12 2004-08-11 01:55:39 dfs Exp $ # # A script to convert from the output of "remind -p" to Hyper-Text Markup # Language (HTML), the text format used in WWW documents. By default, it @@ -201,6 +201,21 @@ sub parse_input { next if ($red > 255 || $green > 255 || $blue > 255); $shades[$day] = sprintf(" BGCOLOR=\"#%02X%02X%02X\"", $red, $green, $blue); + } elsif ($type eq "COLOR") { + my($red, $green, $blue, $stuff); + if ($msg =~ /^\s*(\d+)\s+(\d+)\s+(\d+)\s*(.*)$/) { + $red = $1; + $green = $2; + $blue = $3; + $stuff = $4; + next if ($red > 255 || $green > 255 || $blue > 255); + $days[$day] .= + sprintf("

", + $red, $green, $blue) . + escape_html($stuff) . "

"; + } else { + next; + } } elsif ($type eq "*") { $msg = &escape_html($msg); $days[$day] .= "

$msg

";