#!/usr/bin/perl -Tw
#
#  PROGRAM:    scrolling_list.cgi
#
#  PURPOSE:    Demonstrate (1) how to create a scrolling_list form and
#        (2) how to determine the value(s) selected by the user.
#
#  Created by alvin alexander, devdaily.com.
#

#-----------------------------------#
#  1. Create a new Perl CGI object  #
#-----------------------------------#

use CGI;
$query = new CGI;


#----------------------------------#
#  2. Print the doctype statement  #
#----------------------------------#

print $query->header;


#----------------------------------------------------#
#  3. Start the HTML doc, and give the page a title  #
#----------------------------------------------------#

print $query->start_html('My scrolling_list.cgi program');


#------------------------------------------------------------#
#  4a.  If the program is called without any params, print   #
#       the scrolling_list form.                             #
#------------------------------------------------------------#

if (!$query->param) {

    print $query->startform;
    print $query->h3('Select your favorite programming language(s):');
    print $query->scrolling_list(-name=>'languages',
                 -values=>[
                       'Basic',
                       'C',
                       'C++',
                       'Cobol',
                       'DHTML',
                       'Fortran',
                       'HTML',
                       'Korn Shell (Unix)',
                       'Perl',
                       'Java',
                       'JavaScript',
                       'Python',
                       'Ruby',
                       'Tcl/Tk'],
                 -size=>8,
                 -multiple=>'true',
                 -default=>'Perl');

    # Notes:
    # ------
    #    "-multiple=>'true'" lets the user make multiple selections
    #        from the scrolling_list
    #    "-default" is optional
    #    "-size" lets you specify the number of visible rows in the list
    #    can also use an optional "-labels" parameter to let the user
    #        see labels you want them to see, while you use
    #        different names for each parameter in your program
    
    print $query->br;
    print $query->submit(-value=>'Submit your favorite language(s)');
    print $query->endform;

} else {

    #----------------------------------------------------------#
    #  4b.  If the program is called with parameters, retrieve #
    #  the 'languages' parameter, assign it to an array        #
    #  named $languages, then print the array with each        #
    #  name separated by a <BR> tag.                           #
    #----------------------------------------------------------#

    print $query->h3('Your favorite languages are:');
    @languages = $query->param('languages');
    print "<BLOCKQUOTE>\n";
    foreach $language (@languages) {
        print "$language<BR>";
    }
    print "</BLOCKQUOTE>\n";

}

#--------------------------------------------------#
#  5. After either case above, end the HTML page.  #
#--------------------------------------------------#
print $query->end_html;  

 #!/usr/bin/perl  
 use strict;
 use warnings;
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 
 sub output_top($);
 sub output_end($);
 sub display_results($);
 sub output_form($);
 
 my $q = new CGI;
 
 print $q->header();
 
 # Output stylesheet, heading etc
 output_top($q);
 
 if ($q->param()) {
     # Parameters are defined, therefore the form has been submitted
     display_results($q);
 } else {
     # We're here for the first time, display the form
     output_form($q);
 }
 
 # Output footer and end html
 output_end($q);
 
 exit 0;
 
 # Outputs the start html tag, stylesheet and heading
 sub output_top($) {
     my ($q) = @_;
     print $q->start_html(
         -title => 'A Questionaire',
         -bgcolor => 'white',
 }
 
 # Outputs a footer line and end html tags
 sub output_end($) {
     my ($q) = @_;
     print $q->div("My Web Form");
     print $q->end_html;
 }
 
 # Displays the results of the form
 sub display_results($) {
     my ($q) = @_;
 
     my $username = $q->param('user_name');
     print $username;
     print $q->br;
 
 # Outputs a web form
 sub output_form($) {
     my ($q) = @_;
     print $q->start_form(
         -name => 'main',
         -method => 'POST',
     );
 
     print $q->start_table;
     print $q->Tr(
       $q->td('Name:'),
       $q->td(
         $q->textfield(-name => "user_name", -size => 50)
       )
     );
 
     print $q->Tr(
       $q->td($q->submit(-value => 'Submit')),
       $q->td('&nbsp;')
     );
     print $q->end_table;
     print $q->end_form;
 }