#!/usr/bin/perl use lib '../lib'; use strict; use warnings; use Continuity; use Continuity::Adapt::FCGI; my $server = new Continuity( adapter => 'FCGI', ); $server->loop; sub getNum { my $request = shift; $request->print( qq{ Enter Guess: <input name="num" id=num> <script>document.getElementById('num').focus()</script> </form> </body> </html> }); $request = $request->next; my $num = $request->param('num'); return $num; } sub main { my $request = shift; my $guess; my $number = int(rand(100)) + 1; my $tries = 0; my $out = qq{ <html> <head><title>The Guessing Game</title></head> <body> <form method=POST> Hi! I'm thinking of a number from 1 to 100... can you guess it?<br> }; do { $tries++; $request->print($out); $guess = getNum($request); $out .= "It is smaller than $guess.<br>\n" if $guess > $number; $out .= "It is bigger than $guess.<br>\n" if $guess < $number; } until ($guess == $number); $request->print("You got it! My number was in fact $number.<br>\n"); $request->print("It took you $tries tries.<br>\n"); } 1;