#!/usr/bin/perl
use strict;
use lib '../lib';
use Continuity;
Continuity->new(
query_session => 'sid',
cookie_session => 0
)->loop;
sub main {
my ($request) = @_;
my $session_id = $request->session_id;
$request->print(qq{
<h2>Query Session Example</h2>
Your session ID is: $session_id<br>
<a href="?sid=$session_id">Click here to continue</a>
});
$request->next;
$request->print(qq{
<h2>Query Session Example</h2>
Your session ID is: $session_id<br>
As you can see, we are tracking the session using a query variable. It can also be passed through a form POST.
<form method=post action="/">
<input type=hidden name=sid value="$session_id">
<input type=submit value="Click here to continue">
</form>
});
$request->next;
$request->print(qq{
<h2>Query Session Example</h2>
Your session ID is: $session_id<br>
Magical, eh? Your session is over now. <a href="/">Click here to get a new one</a>.
});
}