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