I have a partial perl script for a mock-up web page, that will collect information from users as part of a registration form. In trying to see what it looks like so far on the web, I'm getting an internal server error. I thought that the script, though partial, was at least closed out correctly, but I'm missing something. If anyone has time to take a look, it would be much appreciated.
Robbie
#!/fs/local/bin/perl
use CGI qw(:standard); use Mail::Sendmail;
## initialize global variables and fill in ## values from the query parameters ## (submitted via form)
$fname = param('FName');
$lname = param('LName');
$email = param('Email');
$org = param('Org');
$sci_int = param('Sci_Int');
$radio = param('Radio');
$check = param('Check');$query = new CGI($query);
$state = param('state');print $query->header;
################################################# #### stage 1 user info form #################################################
if (!$state) {
print $query->start_html('ESMF Registration Form');
print "<body bgcolor="#ffffff" text="#000000" link="#993300" alink="#666 600" vlink="#666600">";
print "<center>";
print "<h2><font face='arial, helvetica, sans serif'><font color="#06699 ">ESMF Registration Form</font></font></h2>";
print "<p>"; print "<font face='arial, helvetica, sans serif'><b>Please read the lice nsing agreement, fill out the form below, click the accept button, and h it Next.</b></font>";
print "<font face='arial, helvetica, sans serif'>Copyright 2002-2003, blah, blah, blah</font>";
print "<p>";
print "<font face='arial, helvetica, sans serif'>text<br>text<br>text<br >text<br>text</font>";
print "<p>";
print "<font face='arial, helvetica, sans serif'>The National Center for Atmospheric Research is sponsored by the National Science Foundation. Any opinions, findings and conclusions or recommendations expressed in t his publication are those of the author(s) and do not necessarily reflec t the views of the National Science Foundation.</font>";
print "<p>&bnbsp;<p>";
print "<h3><font face='arial, helvetica, sans serif'><b>User Information </b></font>";
print end_html;
}
-- -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* Robbie Staufer NCAR/SCD 1850 Table Mesa Dr. Rm. 42 Boulder, CO. 80305 (303) 497-1836
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
