#!/usr/bin/perl
#
# assign filename - read as input later
#
read(STDIN,$test,$ENV{'CONTENT_LENGTH'}); #put filename into string
($formfield,$formvalue) = split (/=/,$test);
#
$filename = $formvalue; # this could all be compacted, but why, really?
#
$input = "invalid"; # if no sort order, alphabetical, or bad input
#
if ($filename eq "140_rgb.txt") {$text = "rgb"; $input = "ok";}
if ($filename eq "140_rbg.txt") {$text = "rbg"; $input = "ok";}
if ($filename eq "140_grb.txt") {$text = "grb"; $input = "ok";}
if ($filename eq "140_gbr.txt") {$text = "gbr"; $input = "ok";}
if ($filename eq "140_brg.txt") {$text = "brg"; $input = "ok";}
if ($filename eq "140_bgr.txt") {$text = "bgr"; $input = "ok";}
if ($input eq "invalid") {
$text = "alphabetical";
$filename = "140_alphabetical.txt";
}
#
# start printing HTML back to user
#
print "Content-type: text/html\n\n";
print "HTML - 140 Standard Colors";
print "HTML - 140 Standard Colors
";
print "This table is currently sorted in $text order
\n";
#
# setup form for re-sort request
#
print " \n";
#
print "\n";
#
# setup color table and header row - 1 blank column betw dec and hex
#
print "
\n";
print "| \# | name | r | g | b | | r | g | b | | and it looks like this |
|---|
\n";
#
# lines of file are made up of nine items:
# number(1-140) name r-dec g-dec b-dec r-hex g-hex b-hex rgb-hex
# eg: 1 aliceblue 240 248 255 F0 F8 FF F0F8FF
#
open (INFO,$filename);
while () {
chop ($_);
@temp = split(/\s/,$_) ;
print "";
for ( $i = 0; $i <= 7; $i++ ) {
print "| $temp[$i] | ";
if ( $i == 4 ) {
print " | "; # blank column
}
}
print " | "; # blank column 2 - testing?
print " |
\n";
}
#
# close file and table and page
#
close (INFO);
print "
\n";
print "";
print "Questions and Comments to \<webster\@pvs.k12.nm.us\>\n";
print "
";
print "
\n\n";
# end of script.