lib/perl5/5.8.8/CGI/eg/frameset.cgi

   1 #!/usr/local/bin/perl
   2
   3 use CGI;
   4 $query = new CGI;
   5 print $query->header;
   6 $TITLE="Frameset Example";
   7
   8 # We use the path information to distinguish between calls
   9 # to the script to:
  10 # (1) create the frameset
  11 # (2) create the query form
  12 # (3) create the query response
  13
  14 $path_info = $query->path_info;
  15
  16 # If no path information is provided, then we create
  17 # a side-by-side frame set
  18 if (!$path_info) {
  19     &print_frameset;
  20     exit 0;
  21 }
  22
  23 # If we get here, then we either create the query form
  24 # or we create the response.
  25 &print_html_header;
  26 &print_query if $path_info=~/query/;
  27 &print_response if $path_info=~/response/;
  28 &print_end;
  29
  30
  31 # Create the frameset
  32 sub print_frameset {
  33     $script_name = $query->script_name;
  34     print <<EOF;
  35 <html><head><title>$TITLE</title></head>
  36 <frameset cols="50,50">
  37 <frame src="$script_name/query" name="query">
  38 <frame src="$script_name/response" name="response">
  39 </frameset>
  40 EOF
  41     ;
  42     exit 0;
  43 }
  44
  45 sub print_html_header {
  46     print $query->start_html($TITLE);
  47 }
  48
  49 sub print_end {
  50     print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>};
  51     print $query->end_html;
  52 }
  53
  54 sub print_query {
  55     $script_name = $query->script_name;
  56     print "<H1>Frameset Query</H1>\n";
  57     print $query->startform(-action=>"$script_name/response",-TARGET=>"response");
  58     print "What's your name? ",$query->textfield('name');
  59     print "<P>What's the combination?<P>",
  60     $query->checkbox_group(-name=>'words',
  61                                -values=>['eenie','meenie','minie','moe']);
  62
  63     print "<P>What's your favorite color? ",
  64     $query->popup_menu(-name=>'color',
  65                        -values=>['red','green','blue','chartreuse']),
  66     "<P>";
  67     print $query->submit;
  68     print $query->endform;
  69 }
  70
  71 sub print_response {
  72     print "<H1>Frameset Result</H1>\n";
  73     unless ($query->param) {
  74         print "<b>No query submitted yet.</b>";
  75         return;
  76     }
  77     print "Your name is <EM>",$query->param(name),"</EM>\n";
  78     print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n";
  79     print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n";
  80 }
  81