#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
getparams(0,size);
$date=cookiedate(time-10);
if($param{size} eq "smaller"){print "Set-cookie: TRConn Font Size=smaller; path=/todd\n";}
if($param{size} eq "small"){print "Set-cookie: TRConn Font Size=small; path=/todd\n";}
if($param{size} eq "normal"){print "Set-cookie: TRConn Font Size=normal; path=/todd\n";}
if($param{size} eq "big"){print "Set-cookie: TRConn Font Size=big; path=/todd\n";}
if($param{size} eq "bigger"){print "Set-cookie: TRConn Font Size=bigger; path=/todd\n";}
$redirect=$ENV{HTTP_REFERER}?$ENV{HTTP_REFERER}:$ENV{HTTP_REFERRER}?$ENV{HTTP_REFERRER}:"http://TRConnection.com/";
&htmlopen($redirect);