#!/usr/bin/perl
#
# the100sexiestwomen.com - cookies.cgi 
#
# Cookie test. 
#
# ----------------------------------------------
#
# History:
# - Started 8th June 2000.
#

use sharedcode; 

($id = scalar localtime) =~ s/(:| )//sg;

if (defined($ENV{'HTTP_COOKIE'})) { 
  print sharedcode::generate_page("Cookie test.",
   "Cookie value: $ENV{'HTTP_COOKIE'}<p>Hope it worked.\n");
  exit;
}

print "Set-Cookie: 100sexy=$id; expires=Mon, 01-Jan-2001 00:00:00 GMT\n";
print "Location: http://www.the100sexiestwomen.com/100/cookies.cgi\n\n";