1 | #!/usr/local/bin/perl
|
---|
2 |
|
---|
3 | use CGI;
|
---|
4 | use CGI::Carp qw/fatalsToBrowser/;
|
---|
5 |
|
---|
6 | $query = new CGI;
|
---|
7 |
|
---|
8 | print $query->header;
|
---|
9 | print $query->start_html("Example CGI.pm Form");
|
---|
10 | print "<H1> Example CGI.pm Form</H1>\n";
|
---|
11 | &print_prompt($query);
|
---|
12 | &do_work($query);
|
---|
13 | &print_tail;
|
---|
14 | print $query->end_html;
|
---|
15 |
|
---|
16 | sub print_prompt {
|
---|
17 | my($query) = @_;
|
---|
18 |
|
---|
19 | print $query->start_form;
|
---|
20 | print "<EM>What's your name?</EM><BR>";
|
---|
21 | print $query->textfield('name');
|
---|
22 | print $query->checkbox('Not my real name');
|
---|
23 |
|
---|
24 | print "<P><EM>Where can you find English Sparrows?</EM><BR>";
|
---|
25 | print $query->checkbox_group(
|
---|
26 | -name=>'Sparrow locations',
|
---|
27 | -Values=>[England,France,Spain,Asia,Hoboken],
|
---|
28 | -linebreak=>'yes',
|
---|
29 | -defaults=>[England,Asia]);
|
---|
30 |
|
---|
31 | print "<P><EM>How far can they fly?</EM><BR>",
|
---|
32 | $query->radio_group(
|
---|
33 | -name=>'how far',
|
---|
34 | -Values=>['10 ft','1 mile','10 miles','real far'],
|
---|
35 | -default=>'1 mile');
|
---|
36 |
|
---|
37 | print "<P><EM>What's your favorite color?</EM> ";
|
---|
38 | print $query->popup_menu(-name=>'Color',
|
---|
39 | -Values=>['black','brown','red','yellow'],
|
---|
40 | -default=>'red');
|
---|
41 |
|
---|
42 | print $query->hidden('Reference','Monty Python and the Holy Grail');
|
---|
43 |
|
---|
44 | print "<P><EM>What have you got there?</EM><BR>";
|
---|
45 | print $query->scrolling_list(
|
---|
46 | -name=>'possessions',
|
---|
47 | -Values=>['A Coconut','A Grail','An Icon',
|
---|
48 | 'A Sword','A Ticket'],
|
---|
49 | -size=>5,
|
---|
50 | -multiple=>'true');
|
---|
51 |
|
---|
52 | print "<P><EM>Any parting comments?</EM><BR>";
|
---|
53 | print $query->textarea(-name=>'Comments',
|
---|
54 | -rows=>10,
|
---|
55 | -columns=>50);
|
---|
56 |
|
---|
57 | print "<P>",$query->reset;
|
---|
58 | print $query->submit('Action','Shout');
|
---|
59 | print $query->submit('Action','Scream');
|
---|
60 | print $query->endform;
|
---|
61 | print "<HR>\n";
|
---|
62 | }
|
---|
63 |
|
---|
64 | sub do_work {
|
---|
65 | my($query) = @_;
|
---|
66 | my(@values,$key);
|
---|
67 |
|
---|
68 | print "<H2>Here are the current settings in this form</H2>";
|
---|
69 |
|
---|
70 | foreach $key ($query->param) {
|
---|
71 | print "<STRONG>$key</STRONG> -> ";
|
---|
72 | @values = $query->param($key);
|
---|
73 | print join(", ",@values),"<BR>\n";
|
---|
74 | }
|
---|
75 | }
|
---|
76 |
|
---|
77 | sub print_tail {
|
---|
78 | print <<END;
|
---|
79 | <HR>
|
---|
80 | <ADDRESS>Lincoln D. Stein</ADDRESS><BR>
|
---|
81 | <A HREF="/">Home Page</A>
|
---|
82 | END
|
---|
83 | ;
|
---|
84 | }
|
---|