#!/usr/local/bin/perl
sub BEGIN {
unshift( @INC, "c:/perl/5.005/lib" );
}
$DOCUMENT_TITLE = "FMO Trouble Report Form";
$TROUBLE_IMAGE = "../images/undercon.gif";
use CGI;
$thisPage = new CGI;
print $thisPage->header;
print $thisPage->start_html;
foreach $param ($thisPage->param) {
$in{$param} = $thisPage->param( $param );
}
&PrintBody;
print $thisPage->end_html;
sub PrintBody {
print <<EOF;
<BODY>
<TABLE CELLSPACING=0 CELLPADDING=0 >
<TR>
<TD><IMG SRC="$TROUBLE_IMAGE" ALT="!@#" HEIGHT=86 WIDTH=121>
</TD>
<TD><CENTER><B><FONT SIZE=+4>FMO Computer Services</FONT></B></CENTER>
<CENTER><B><FONT SIZE=+4>Trouble Report Form</FONT></B></CENTER>
</TD>
</TR>
</TABLE>
<H1> FMO Computer Services Trouble Report Form </H1>
<FORM ACTION="/cgi-bin/trouble_form_processor.pl" METHOD=POST>
Your Name:
<INPUT TYPE=TEXT NAME="NAME" VALUE="$in{'NAME'}" SIZE=45> <BR>
<BR>
Your Phone Number:
<INPUT TYPE=TEXT NAME="PHONE" VALUE="$in{'PHONE'}" SIZE=8>ext
<INPUT TYPE=TEXT NAME="EXT" VALUE="$in{'EXT'}" SIZE=4> <BR>
<BR>
Your E-mail Address:
<INPUT TYPE=TEXT NAME="EMAIL" VALUE="$in{'EMAIL'}" SIZE=40> <BR>
<BR>
Your Building:
<INPUT TYPE=TEXT NAME="BUILDING" VALUE="$in{'BUILDING'}">
and Room:
<INPUT TYPE=TEXT NAME="ROOM" value="$in{'ROOM'}"> <BR>
<BR>
Description of Your Problem:
<TEXTAREA NAME="DESCRIPTION" ROWS=4 COLS=60>$in{'DESCRIPTION'}</TEXTAREA> <BR>
<BR>
<INPUT TYPE=SUBMIT VALUE="SUBMIT">
<INPUT TYPE=RESET VALUE="CLEAR CHOICES">
</FORM>
</BODY>
EOF
}