#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Cookie;
use PHP::Session;

%cookies = fetch CGI::Cookie;

print (header());
print (start_html({title => "Admin Cookie CGI"}));

print "Actual Cookies present:\n";
foreach $key (sort keys %cookies) {
        print "Cookie: $key Value: $cookies{$key}\n";
}

print "Getting PHP Session variables...";
my $session = PHP::Session->new($cookies{PHPSESSID}->value);

$id = $session->id;

if ($session->is_registered('Is_An_Admin')) {
  $userid = $session->get('UserID');
} else {
  $userid = "Not a valid admin";
}


print <<ENDH;

<br><br>
Admin UserID: $userid
<h1>End Cookie test</h1>
ENDH
print (end_html());