#!/usr/bin/perl
use lib '../lib';
use strict;
use warnings;

use Continuity;
use Continuity::Adapt::FCGI;
my $server = new Continuity(
  adapter => 'FCGI',
);

$server->loop;

my $c = 0;

sub main {
  my $request = shift;
STDERR->print(__FILE__, ' ', __LINE__, "\n");
  # must do a substr to chop the leading '/'
  my $name = substr($request->{request}->url->path, 1) || 'World';
  $c++;
  $request->print("Hello, $name ($c)!");
STDERR->print(__FILE__, ' ', __LINE__, "\n");
  $request->next;
STDERR->print(__FILE__, ' ', __LINE__, "\n");
  $name = substr($request->{request}->url->path, 1) || 'World';
  $request->print("Hello to you too, $name!");
STDERR->print(__FILE__, ' ', __LINE__, "\n");
}