Sign in
apache
/
tomcat55
/
05343ceab6eb08c21ddb284af44b2329d8ab1905
/
.
/
container
/
tester
/
web
/
WEB-INF
/
cgi
/
else.pl
blob: f299760b8c171fa0933a2ffe8462eed56765fa04 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
require
"subparseform.lib"
;
&
Parse_Form
;
$food
=
$formdata
{
'food'
};
print
"Content-type: text/html\n\n"
;
if
(
$food eq
"spinach"
)
{
print
"You ate spinach, so you get dessert!"
;
}
else
{
print
"No spinach, no dessert!"
;
}