#!/usr/bin/perl # # Background Colors # # written by W. L. Jackson # wlj@ornl.gov # Computational Physics and Engineering Division # #------------------------------------------------------------------------------ require "cgi-lib.pl"; MAIN: { &ReadParse; $host_name = "www.ornl.gov"; $path = "color/"; $file = "color.pl"; if ($in{'reset'} eq "Reset Colors") { $in{'bgcolor'} = ""; $in{'text'} = ""; $in{'link'} = ""; $in{'vlink'} = ""; $in{'alink'} = ""; } if ($in{'bgcolor'}) {$bgcolor = $in{'bgcolor'};} else {$bgcolor = "";} if ($in{'text'} ) {$text = $in{'text'};} else {$text = "";} if ($in{'link'} ) {$link = $in{'link'};} else {$link = "";} if ($in{'vlink'} ) {$vlink = $in{'vlink'};} else {$vlink = "";} if ($in{'alink'} ) {$alink = $in{'alink'};} else {$alink = "";} #------------------------------------------------------------------------------ # # HTML for testing colors. print "Content-type: text/html\n\n"; print "\n"; print "\n"; print " Background Colors \n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "

Background Colors

"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print ""; print "\n"; print ""; print ""; print "\n"; print ""; print ""; print "\n"; print ""; print ""; print "\n"; print ""; print ""; print "\n"; print "
HTML Body
Parameters
Current
Color
Enter
Color
Description
bgcolor", $bgcolor,"
Background color
text ", $text,"
Text color
link ", $link,"
"; if ($in{'link'}) {print " ";} print "Unvisited Link color"; if ($in{'link'}) {print " ";} print "
vlink ", $vlink,"
"; if ($in{'vlink'}) {print " ";} print "Visited link color"; if ($in{'vlink'}) {print " ";} print "
alink ", $alink,"
"; if ($in{'alink'}) {print " ";} print "Active (being pushed) link color"; if ($in{'alink'}) {print " ";} print "
\n"; #print "

\n"; print "Enter color combinations in 6-digit hexidecimal format: "; print "RR"; print "GG"; print "BB"; print "

\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "", "Source code for this screen"; print "
\n"; print "Unvisited Link"; print "

\n"; print "HTML command to produce the colors on this page:"; print "

\n"; print "<body"; if ($in{'bgcolor'}) {print " bgcolor=\"#", $bgcolor, "\"";} if ($in{'text'} ) {print " text =\"#", $text, "\"";} if ($in{'link'} ) {print " link =\"#", $link, "\"";} if ($in{'vlink'} ) {print " vlink =\"#", $vlink, "\"";} if ($in{'alink'} ) {print " alink =\"#", $alink, "\"";} print ">\n"; print "

\n"; print "
\n"; print "
Related WEB Pages

\n"; print "

\n"; print "
Following is a path to some textured backgrounds on the LMES internal server:
\n"; print "
Open the Lockheed Martin Internal Home Page:
\n"; print "
\n"; print "http://www-internal.ornl.gov/
\n"; print "
Click on:\n"; print "
More about the Web and Internet
\n"; print "
HTML Development Tools
\n"; print "
HTML Customization and Conversion to C Code
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; }