1N/A#!/usr/local/bin/perl
1N/A
1N/Ause CGI;
1N/Ause CGI::Carp qw/fatalsToBrowser/;
1N/A
1N/A$query = new CGI;
1N/A
1N/Aprint $query->header;
1N/Aprint $query->start_html("Example CGI.pm Form");
1N/Aprint "<H1> Example CGI.pm Form</H1>\n";
1N/A&print_prompt($query);
1N/A&do_work($query);
1N/A&print_tail;
1N/Aprint $query->end_html;
1N/A
1N/Asub print_prompt {
1N/A my($query) = @_;
1N/A
1N/A print $query->start_form;
1N/A print "<EM>What's your name?</EM><BR>";
1N/A print $query->textfield('name');
1N/A print $query->checkbox('Not my real name');
1N/A
1N/A print "<P><EM>Where can you find English Sparrows?</EM><BR>";
1N/A print $query->checkbox_group(
1N/A -name=>'Sparrow locations',
1N/A -Values=>[England,France,Spain,Asia,Hoboken],
1N/A -linebreak=>'yes',
1N/A -defaults=>[England,Asia]);
1N/A
1N/A print "<P><EM>How far can they fly?</EM><BR>",
1N/A $query->radio_group(
1N/A -name=>'how far',
1N/A -Values=>['10 ft','1 mile','10 miles','real far'],
1N/A -default=>'1 mile');
1N/A
1N/A print "<P><EM>What's your favorite color?</EM> ";
1N/A print $query->popup_menu(-name=>'Color',
1N/A -Values=>['black','brown','red','yellow'],
1N/A -default=>'red');
1N/A
1N/A print $query->hidden('Reference','Monty Python and the Holy Grail');
1N/A
1N/A print "<P><EM>What have you got there?</EM><BR>";
1N/A print $query->scrolling_list(
1N/A -name=>'possessions',
1N/A -Values=>['A Coconut','A Grail','An Icon',
1N/A 'A Sword','A Ticket'],
1N/A -size=>5,
1N/A -multiple=>'true');
1N/A
1N/A print "<P><EM>Any parting comments?</EM><BR>";
1N/A print $query->textarea(-name=>'Comments',
1N/A -rows=>10,
1N/A -columns=>50);
1N/A
1N/A print "<P>",$query->reset;
1N/A print $query->submit('Action','Shout');
1N/A print $query->submit('Action','Scream');
1N/A print $query->endform;
1N/A print "<HR>\n";
1N/A }
1N/A
1N/Asub do_work {
1N/A my($query) = @_;
1N/A my(@values,$key);
1N/A
1N/A print "<H2>Here are the current settings in this form</H2>";
1N/A
1N/A foreach $key ($query->param) {
1N/A print "<STRONG>$key</STRONG> -> ";
1N/A @values = $query->param($key);
1N/A print join(", ",@values),"<BR>\n";
1N/A }
1N/A}
1N/A
1N/Asub print_tail {
1N/A print <<END;
1N/A<HR>
1N/A<ADDRESS>Lincoln D. Stein</ADDRESS><BR>
1N/A<A HREF="/">Home Page</A>
1N/AEND
1N/A ;
1N/A}