Commit | Line | Data |
54310121 |
1 | #!/usr/local/bin/perl |
2 | |
3 | use CGI; |
424ec8fa |
4 | use CGI::Carp qw/fatalsToBrowser/; |
54310121 |
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 | |
424ec8fa |
19 | print $query->start_form; |
54310121 |
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', |
424ec8fa |
27 | -Values=>[England,France,Spain,Asia,Hoboken], |
54310121 |
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', |
424ec8fa |
34 | -Values=>['10 ft','1 mile','10 miles','real far'], |
54310121 |
35 | -default=>'1 mile'); |
36 | |
37 | print "<P><EM>What's your favorite color?</EM> "; |
38 | print $query->popup_menu(-name=>'Color', |
424ec8fa |
39 | -Values=>['black','brown','red','yellow'], |
54310121 |
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', |
424ec8fa |
47 | -Values=>['A Coconut','A Grail','An Icon', |
54310121 |
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 | } |