# -*- perl -*- # # 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 = "<font color=$bracketColor><</font>" ; my $rightbr = "<font color=$bracketColor>></font>" ; $FILE =~ s/<(\/{0,1}\w+)(.*?)>/$leftbr<font color=$firstWordColor>$1<\/font><font color=$restWordsColor>$2<\/font>$rightbr/g ; $FILE =~ s/<(!.*?)>/$leftbr<font color=$bracketColor><b>$1<\/b><\/font>$rightbr/ ; # # End #
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 1933 | Fredric Fredricson |
P4DB: Created 2.1 "release branch". (The quotation marks are there because this is not really a release. Yet. Perhaps.) |
||
//guest/fredric_fredricson/P4DB/main/colorHtml.pl | |||||
#1 | 1638 | Fredric Fredricson | P4DB: Added all (I think) files for P4DB |