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