contrib/perl5/eg/cgi/monty.cgi

   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 }