david
39292d680f
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_Web/trunk@8 5f5cdc87-09bc-1947-a3a7-c45bb6b47c2a
38 lines
817 B
Perl
38 lines
817 B
Perl
#!/usr/local/bin/perl
|
|
|
|
use CGI ':standard';
|
|
|
|
print header;
|
|
print start_html('A Simple Example'),
|
|
h1('A Simple Example'),
|
|
start_form,
|
|
"What's your name? ",textfield('name'),
|
|
p,
|
|
"What's the combination?",
|
|
p,
|
|
checkbox_group(-name=>'words',
|
|
-values=>['eenie','meenie','minie','moe'],
|
|
-defaults=>['eenie','minie']),
|
|
p,
|
|
"What's your favorite color? ",
|
|
popup_menu(-name=>'color',
|
|
-values=>['red','green','blue','chartreuse']),
|
|
p,
|
|
submit,
|
|
end_form,
|
|
hr;
|
|
|
|
if (param()) {
|
|
print
|
|
"Your name is: ",em(param('name')),
|
|
p,
|
|
"The keywords are: ",em(join(", ",param('words'))),
|
|
p,
|
|
"Your favorite color is: ",em(param('color')),
|
|
hr;
|
|
}
|
|
print a({href=>'../cgi_docs.html'},'Go to the documentation');
|
|
print end_html;
|
|
|
|
|