#!/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;