#!/usr/bin/perl

@vars = split(/&/, $ENV{QUERY_STRING});
foreach $var (@vars) {
   ($v,$i) = split(/=/, $var);
   $v =~ tr/+/ /;
   $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $i =~ tr/+/ /;
   $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $i =~ s/<!--(.|\n)*-->//g;
   $INFO{$v} = $i;
}

$sid = $INFO{'sid'};

use CGI::Session qw/-ip-match/;

print "Content-Type: text/html\n\n";

if ($sid eq "") {
   $session = new CGI::Session(undef, undef, {Directory=>'/home/www/cgi-bin/tmp'});
   $sid = $session->id();
   $number=0;
   $session->param("count", $number);
   print "<li>Counter initialized, please reload this page to see it increment";
   print "<li><a href=\"omega2.pl?sid=$sid\">Refresh</a>\n";
}
else {
   $session = new CGI::Session(undef, $sid, {Directory=>'/home/www/cgi-bin/tmp'});
   print "<li>Waking up session $sid ($session)";
   $number = $session->param("count");
   $number++;
   $session->param("count", $number);
   print "<li><a href=\"omega2.pl?sid=$sid\">Refresh</a>\n";
}

$num = $session->param("count");

print "<li>The counter is now $num";