#!/usr/local/bin/perl

$| = 1;

$debug = 0;

use CGI qw(:standard);

require "lib-webadmin.pl";

$query = new CGI;
$baseurl = setBaseUrl();

$cookie_name = "WebAdminAuthTest";
$cookie_expiretime = "+30s";
$got_cookie = 0;
$sessionID = time() . "p" . $$;

if($ARGV[0] eq "eatcookie")
{
  eatCookie();
  print "Hoob goob hoog gimmie cookie!";
  print "<a href=\"/webadmin/cookietest.cgi\">Test me</a>";
  exit;
}

$authinfo{sessionID} = $sessionID;

tossCookie();

undef %authinfo;

%authinfo = cookie($cookie_name);

if( ! defined %authinfo)
{
  print "No cookie for you.\n<br>";
  print "<a href=\"/webadmin/cookietest.cgi?eatcookie\">Eat me</a>";
  exit;
}

  print "Yummy cookie!\n<br>";
  print "<a href=\"/webadmin/cookietest.cgi?eatcookie\">Eat me</a>";

sub eatCookie
{
  $cookie = $query->cookie(-name => $cookie_name,
                             -value => 'null'
                             -expires => '-1d');

    print $query->header(-cookie => $cookie);
}

sub tossCookie
{
  $cookie = cookie(-name=>$cookie_name,
                   -value=>\%authinfo,
                   -expires=>$cookie_expiretime);

  print header(-cookie => $cookie);
}