#!/usr/bin/perl5
use CGI;
CGI::ReadParse(*vars);
$|=1;
# $|=1 makes output unbuffered... just a matter of personal preference
print "Content-type: text/html\n\n";
# decide which page to display or action to perform based on the value of
# the "page" CGI variable
page1() if !$vars{'page'};
page2() if $vars{'page'} eq '2';
page3() if $vars{'page'} == 3;
page4() if $vars{'page'} == 4;
sub page1 {
print <<"TheEnd";
The Bridge of Death
TheEnd
;
}
sub page2 {
print <<"TheEnd";
The Bridge of Death
TheEnd
;
}
sub page3 {
print <<"TheEnd";
The Bridge of Death
TheEnd
;
}
sub page4 {
print <<"TheEnd";
The Bridge of Death
TheEnd
;
if ($vars{'name'} eq 'Launcelot') {
print "Right. Off you go.";
} elsif ($vars{'name'} eq 'Robin' || $vars{'name'} eq 'Galahad') {
print "Auuuugh!";
} elsif ($vars{'name'} eq 'Arthur') {
print "Huh? I-- I don't know that. Auuuuuugh!";
}
print <<"TheEnd";
TheEnd
;
}