#!/usr/pkg/bin/perl
# $Id: set-cookie.cgi,v 1.9 2000/12/07 23:39:38 tom Exp $
################################################################

use strict;
use lib qw(lib);

use CGI::Tools;
use CGI::CookieTool;

use TDS;
use TDS::ID;
use TDS::Cookie;

################################################################
PrintHTTPHeader();

my $expires = $TDS::Cookie::Expires;

my $id = $TDS::Status->id || new TDS::ID;
print AsCookieHeader("id", $id->GetID, $expires, 1);
print AsCookieHeader("times", $id->GetTimes, $expires, 1);

exit (0);
