in reply to Re^3: Blackjack.pl/cgi
in thread Blackjack.pl/cgi

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....