#!/usr/local/bin/perl
require "cgi-lib.pl";
&ReadParse(*values);
print "Content-type: text/html\n\n";
print "\n";
print "cgic test\n";
print "cgic test
\n";
&Name;
&Address;
&Hungry;
&Temperature;
&Frogs;
&Color;
&Flavors;
&NonExButtons;
&RadioButtons;
print "\n";
exit 0;
sub Name {
print "Name: ", $values{'name'}, "
\n";
}
sub Address {
print "Address: \n", $values{'address'}, "\n";
}
sub Hungry {
if (defined($values{'hungry'})) {
print "I'm Hungry!
\n";
} else {
print "I'm Not Hungry!
\n";
}
}
sub Temperature {
print "My temperature is ", $values{'temperature'}, ".
\n";
}
sub Frogs {
print "I have eaten ", $values{'frogs'}, " frogs.
\n";
}
sub Color {
print "I am: ", $values{'colors'}, "
\n";
}
sub Flavors {
print "My favorite ice cream flavors are:\n";
print "\n";
@flavors = split(/\0/, $values{'flavors'});
foreach $f (@flavors) {
print "- ", $f, "\n";
}
print "
\n";
}
sub RadioButtons {
print "Age of Truck: ", $values{'age'}, "
\n";
}
sub NonExButtons {
@votes = split(/\0/, $values{'vote'});
print "My preferred candidates are:\n";
print "\n";
foreach $v (@votes) {
print "- ", $v, "\n";
}
print "
\n";
}