/usr/share/perl5/CGI/examples

Name	Size	Mode	Actions
WORLD_WRITABLE/	-	0755	rm
caution.xbm	741	0644	edit dl rm
clickable_image.cgi	808	0644	edit dl rm
cookie.cgi	2263	0644	edit dl rm
crash.cgi	131	0644	edit dl rm
customize.cgi	2454	0644	edit dl rm
diff_upload.cgi	1595	0644	edit dl rm
file_upload.cgi	1998	0644	edit dl rm
frameset.cgi	2076	0644	edit dl rm
index.html	3487	0644	edit dl rm
internal_links.cgi	1019	0644	edit dl rm
javascript.cgi	3049	0644	edit dl rm
make_links.pl	196	0644	edit dl rm
monty.cgi	2086	0644	edit dl rm
multiple_forms.cgi	1599	0644	edit dl rm
nph-clock.cgi	359	0644	edit dl rm
nph-multipart.cgi	263	0644	edit dl rm
popup.cgi	1024	0644	edit dl rm
save_state.cgi	2311	0644	edit dl rm
tryit.cgi	780	0644	edit dl rm

Edit: /usr/share/perl5/CGI/examples/multiple_forms.cgi (1599B)

#!/usr/local/bin/perl

use CGI;

$query = new CGI;
print $query->header;
print $query->start_html('Multiple Forms');
print "<H1>Multiple Forms</H1>\n";

# Print the first form
print $query->start_form;
$name = $query->remote_user || 'anonymous@' . $query->remote_host;

print "What's your name? ",$query->textfield('name',$name,50);
print "<P>What's the combination?<P>",
        $query->checkbox_group('words',['eenie','meenie','minie','moe']);
print "<P>What's your favorite color? ",
        $query->popup_menu('color',['red','green','blue','chartreuse']),
	"<P>";
print $query->submit('form_1','Send Form 1');
print $query->endform;

# Print the second form
print "<HR>\n";
print $query->start_form;
print "Some radio buttons: ",$query->radio_group('radio buttons',
						 [qw{one two three four five}],'three'),"\n";
print "<P>What's the password? ",$query->password_field('pass','secret');
print $query->defaults,$query->submit('form_2','Send Form 2'),"\n";
print $query->endform;

print "<HR>\n";

$query->import_names('Q');
if ($Q::form_1) {
    print "<H2>Form 1 Submitted</H2>\n";
    print "Your name is <EM>$Q::name</EM>\n";
    print "<P>The combination is: <EM>{",join(",",@Q::words),"}</EM>\n";
    print "<P>Your favorite color is <EM>$Q::color</EM>\n";
} elsif ($Q::form_2) {
    print <<EOF;
<H2>Form 2 Submitted</H2>
<P>The value of the radio buttons is <EM>$Q::radio_buttons</EM>
<P>The secret password is <EM>$Q::pass</EM>
EOF
    ;
}
print qq{<P><A HREF="./">Other examples</A>};
print qq{<P><A HREF="../cgi_docs.html">Go to the documentation</A>};

print $query->end_html;

#!/usr/local/bin/perl use CGI; $query = new CGI; print $query->header; print $query->start_html('Multiple Forms'); print "

Multiple Forms

\n"; # Print the first form print $query->start_form; $name = $query->remote_user || 'anonymous@' . $query->remote_host; print "What's your name? ",$query->textfield('name',$name,50); print "

What's the combination?

", $query->checkbox_group('words',['eenie','meenie','minie','moe']); print "

What's your favorite color? ", $query->popup_menu('color',['red','green','blue','chartreuse']), "

"; print $query->submit('form_1','Send Form 1'); print $query->endform; # Print the second form print "

\n"; print $query->start_form; print "Some radio buttons: ",$query->radio_group('radio buttons', [qw{one two three four five}],'three'),"\n"; print "

What's the password? ",$query->password_field('pass','secret'); print $query->defaults,$query->submit('form_2','Send Form 2'),"\n"; print $query->endform; print "

\n"; $query->import_names('Q'); if ($Q::form_1) { print "

Form 1 Submitted

\n"; print "Your name is $Q::name\n"; print "

The combination is: {",join(",",@Q::words),"}\n"; print "

Your favorite color is $Q::color\n"; } elsif ($Q::form_2) { print <Form 2 Submitted

The value of the radio buttons is $Q::radio_buttons

The secret password is $Q::pass EOF ; } print qq{

Other examples}; print qq{

Go to the documentation}; print $query->end_html;