Commit | Line | Data |
---|---|---|
86530b38 AT |
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 | } |