53 lines
1.2 KiB
Perl
53 lines
1.2 KiB
Perl
<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(); |