next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: JavaScript Sup: CGI Ant: Upload Err: Si hallas una errata ...

Frames

#!/usr/bin/perl

#file: frames.pl

use CGI qw/:standard/;
print header,
start_html('Popup Window');

if (!param) {
    print h1("Ask your Question"),
    start_form(-target=>'answer'),
    "What's your name? ",textfield('name'),
    p(),
    "What's the combination?",
    checkbox_group(-name=>'words',
       -values=>['eenie','meenie','minie','moe'],
       -defaults=>['eenie','moe']),
    p(),
    "What's your favorite color? ",
    popup_menu(-name=>'color',
         -values=>['red','green','blue','chartreuse']),
    p(),
    submit,
    end_form;
} else {
    print h1("And the Answer is..."),
    "Your name is ",em(param(name)),
    p(),
    "The keywords are: ",
    em(join(", ",param('words'))),
    p(),
    "Your favorite color is ",em(param('color'));
}

print end_html;


next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: JavaScript Sup: CGI Ant: Upload Err: Si hallas una errata ...
Casiano Rodríguez León
2006-02-21