------------------
Listing One
------------------
#!/usr/bin/perl
# request_form.pl by johnk@dop.water.ca.gov created 1-23-95
# displays HTML based request form
#
############################################### Begin main code.
$ident=$ENV{REMOTE_IDENT};      # Try to get the users' uname.
if (@pwent=getpwnam($ident))
{                               # We have the uname.
  $have_uname=1;                # Set this so we won't look for info later.
  ($rname)=split(/\,/, $pwent[6]);
}
&print_form;                    # Output the HTML form.
exit;

############################################### End main code.
# subroutines in alpha order.
sub print_form
{
  print "Content-type:  text/html\n\n\n";
  print "<Head><TITLE>Computer Support</TITLE></Head><Body>\n";
  if (! $have_uname)
  {
    print "<center><H1>The DOP RequestPage</H1></center>\n";
    print "<H3>Please enter the appropiate information in the following fields:</H3>\n";
    print "Username:     <input name=\"uname\" size=20 maxlength=30> <br>\n";
    print "Real Name:    <input name=\"rname\" size=30 maxlength=30> <br>\n";
    print "Phone number: <input name=\"phone\" size=10 maxlength=10> <br>\n";
    print "Location:     <input name=\"room\" size=10 maxlength=10> <br>\n";
  } else
  {
    print "<center><H1>$rname...Welcome to The DOP RequestPage!</H1></center>\n";
    print "<H3>Please enter the appropiate information in the following fields:</H3>\n";
  }
  print "<form action=\"/cgi-bin/request_submit.pl\" method=\"POST\">\n";
  print "Please enter a one line description of your problem:<br>
<input name=\"shortdesc\" size=40 maxlength=100><br>
Priority level:<br>
<select name=\"level\" >
<option value=\"EMERGENCY\">EMERGENCY
<option value=\"high\">High
<option value=\"medium\" selected>Medium
<option value=\"low\">Low
</select>
<br>Now leave a more detailed description:
<textarea name=\"longdesc\" cols=60 rows=10>
</textarea>
<center>
<input type=submit value=\"Submit Request\">
<input type=reset value=\"Start Over\">
</center>
</pre>
</form>
<HR>
<img src = \"/images/bottom.gif\">
</Body>\n";
}


