contrib/perl5/eg/cgi/internal_links.cgi

   1 #!/usr/local/bin/perl
   2
   3 use CGI;
   4 $query = new CGI;
   5
   6 # We generate a regular HTML file containing a very long list
   7 # and a popup menu that does nothing except to show that we
   8 # don't lose the state information.
   9 print $query->header;
  10 print $query->start_html("Internal Links Example");
  11 print "<H1>Internal Links Example</H1>\n";
  12 print "Click <cite>Submit Query</cite> to create a state.  Then scroll down and",
  13     " click on any of the <cite>Jump to top</cite> links.  This is not very exciting.";
  14
  15 print "<A NAME=\"start\"></A>\n"; # an anchor point at the top
  16
  17 # pick a default starting value;
  18 $query->param('amenu','FOO1') unless $query->param('amenu');
  19
  20 print $query->startform;
  21 print $query->popup_menu('amenu',[('FOO1'..'FOO9')]);
  22 print $query->submit,$query->endform;
  23
  24 # We create a long boring list for the purposes of illustration.
  25 $myself = $query->self_url;
  26 print "<OL>\n";
  27 for (1..100) {
  28     print qq{<LI>List item #$_ <A HREF="$myself#start">Jump to top</A>\n};
  29 }
  30 print "</OL>\n";
  31
  32 print $query->end_html;
  33