#!/usr/bin/perl -w
#
# This script is eval'ed by the fileViewer.cgi script.
#
# Input is a scalar, $FILE, that contains the file text
#
#
#################################################################
#
# Add colour to html
#
#################################################################
my $bracketColor="blue" ;
my $firstWordColor="blue" ;
my $restWordsColor="green" ;
my $leftbr = "<" ;
my $rightbr = ">" ;
$FILE =~ s/<(\/{0,1}\w+)(.*?)>/$leftbr$1<\/font>$2<\/font>$rightbr/g ;
$FILE =~ s/<(!.*?)>/$leftbr$1<\/b><\/font>$rightbr/ ;
#
# End
#