#!/usr/bin/perl
use strict;
use lib '../lib';
use Continuity;
my @messages; # Shared by all sessions
my $server = Continuity->new(
port => 16000,
path_session => 1,
);
$server->loop;
sub main {
my ($req) = @_;
my $username;
while(1) {
my $messages_html = join '', map { $_ . '
' } @messages;
$req->print(qq{
Chat!
$messages_html
});
$req->next; # Get their response to that
$username = $req->param('username');
my $msg = $req->param('message');
if($msg) {
unshift @messages, "$username: $msg";
pop @messages if $#messages > 30;
}
}
}