|
<html>
<body>
<FORM METHOD="POST" ACTION="index.cgi">
<INPUT NAME="web" TYPE="checkbox" VALUE="yes">web<br>
<INPUT NAME="gui" TYPE="checkbox" VALUE="yes">Option 1
<INPUT NAME="oop" TYPE="checkbox" VALUE="yes">oop<br>
<INPUT NAME="mod" TYPE="checkbox" VALUE="yes">mod<p>
Project name: <INPUT NAME="projectname">
<p>
<INPUT TYPE="submit" VALUE="Request Software">
</FORM>
</body>
</html>
#!/usr/bin/perl -w
use CGI;
$form = CGI->new();
$web = $form->param('web');
$gui = $form->param('gui');
$oop = $form->param('oop');
$mod = $form->param('mod');
$proj = $form->param('projectname');
# Print form header.
print $form->header();
print $form->start_html(title=>'This is the title', -BGCOLOR=>'white');
print "<UL>\n";
if ($web eq "yes") {
print "<LI>web.<p>\n";
}
if ($gui eq "yes") {
print "<LI>GUI<p>\n";
}
if ($oop eq "yes") {
print "<LI>oop<p>\n";
}
if ($mod eq "yes") {
print "<LI>mod<p>\n";
}
print "</UL>\n";
print "Estimated completion time for $proj: 5 March, 2025.";
print "<p>\n"; # Paragraph
# End HTML form.
print $form->end_html();
|