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