#!/usr/local/bin/perl ################################################ # # Form2.cgi # # Use an optional method and action to send # data to a receiver file. # # use CGI qw(:standard); ############################################### # # Set the receiver file $method = "post"; $action = "CatchForm2.cgi"; print header, start_html("Form2.cgi"), h2("Radio Group and Scrolling List"), start_form($method, $action), ############################################## # # Radio Button Group radio_group(-name=>'engine', -values=> [ qw(alta excite hotbot infoseek lycos light) ], -default=>'alta', -linebreak=>'true', -labels=> { alta => " Alta Vista ", excite => " Excite ", hotbot => " Hotbot ", infoseek => " Infoseek ", lycos => " Lycos ", light => " Northern Light ", }, ), # End radio group ##################################################### # # Scrolling list hr, scrolling_list(-name=> "database", -values=> [ qw (reporter abi agricola art biography biosis library pais sport dissertation periodical ei) ], -labels=> { reporter => " World Reporter ", abi => " ABI/INFORM ", agricola => " AGRICOLA ", art => " Art Abstracts ", biography => " Biography Index ", biosis => " BIOSIS ", library => " Library Literature ", pais => " PAIS ", sport => " SPORTDiscus ", dissertation => " Dissertation Abstracts ", periodical => " Periodical Abstracts ", ei => " Ei Compendex ", }, -size=> 4, -multiple=> 1, ), # End scrolling list hr, submit("Submit"), reset("Clear Form"), end_form, end_html;