Ok I have tried all of your suggestions and I'm closer to making it work
however there a couple things it's doing that I have been told should be
working right and it isn't.
>From this code on a web page that is calling up this script the person
should be able to pick either a select color or enter a hex color code:
<blockquote><b>Text Color:<SELECT name="textcolor">
<OPTION selected value="custom">Custom
<OPTION value="Aqua">Aqua
<OPTION value="Black">Black
<OPTION value="Blue">Blue
<OPTION value="Fuchsia">Fuchsia
<OPTION value="Gray">Gray
<OPTION value="Green">Green
<OPTION value="Lime">Lime
<OPTION value="Maroon">Maroon
<OPTION value="Navy">Navy
<OPTION value="Olive">Olive
<OPTION value="Purple">Purple
<OPTION value="Red">Red
<OPTION value="Silver">Silver
<OPTION value="Teal">Teal
<OPTION value="White">White
<OPTION value="Yellow">Yellow
</SELECT>
Or put in the code of a custom color here:
<input name="txtcustom" type="text">
To my belief the script is looking at what the input was and should be
putting the text color as a preset color or a custom color. It's not,
instead the script is getting stuck in a loop and giving me a random color.
I cannot find out the random color because with the script stuck in the
loop I cannot view the html code it is returning.
#!/usr/bin/perl
use CGI qw/:standard/;
$title = param('title');
$bgcolor = param('bgcolor');
$textcolor = param('textcolor');
$alinkcolor = param('alinkcolor');
$linkcolor = param('linkcolor');
$vlinkcolor = param('vlinkcolor');
$bgcustom = param('bgcustom');
$txtcustom = param('txtcustom');
$alcustom = param('alcustom');
$lcustom = param('lcustom');
$vlcustom = param('vlcustom');
$fpad = param('fpad');
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>$title</title>\n";
print "</head>\n";
print "<body bgcolor=\"$bgcolor\"";
if($textcolor eq "custom")
{
print " text=\"/#$textcolor\"";
}
else{
print " link=\"$linkcolor\"";
}
print " alink=\"$alinkcolor\"";
print " vlink=\"$vlinkcolor\">\n";
print "<center><h1>";
print "\"$title\"";
print "</h1></center>\n";
print "<br>\n<br>\n<br>\n";
print "<center>\n";
print "<table width=\"500\" align=\"top\">\n";
print "<tr><td align=\"top\" width=\"100%\">\n";
print "<p>$fpad</p>\n";
print "</td></tr></table>\n";
print "</center>\n";
print "<br>\n";
print "<center><b>Site Created by <a ";
print "href='http://www.mydomain.com'>mydomain.com</a>";
print "</b></center>\n";
print "<br>\n";
print "</body>\n</html>\n";
Earlier today I thought this was going to be easier than what it turned out
to be. I do thank all the suggestions I have recieved so far. and I hope
I'm not asking to much to find out why this is sticking in a loop and not
returning what I thought it would.
Mark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
