Pardus that is weird because I run it and get a servcer error. I thought I didnt have cgi enabled also or maybe a module wasnt installed but i wrote a real simple one to tes this and it ran fine. This program was:
#!/usr/bin/perl -wT
use strict;
use CGI qw(:all);
my $p = new CGI();
## Let's just start with the start of our HTML-dokument.
print header, start_html("A test-script"), h1("A test script");
## Let's check what state our script is in. Either the question has
## been answered, or it hasn't.
if (param('feeling')) {
answer();
} else {
ask();
}
sub ask {
print start_form(), hr,
p('How are you feeling?', popup_menu('feeling', ['good', 'bad'])),
+ # param 'feeling' get's defined as either good or bad
p(submit('Choose')),
end_form, hr,
end_html;
}
sub answer {
my $feeling = param('feeling');
if ($feeling =~ /good/i) {
print p("That's nice to hear!");
} else {
print p("That's to bad");
}
end_html();
}
Not sure why this one would work and my blackjack game wouldn't. And now you tell me it works on your server?? Weird....
|