##################################
#set cookie
##################################
#!/usr/bin/perl -w
use CGI ;
my $q = new CGI;
my $co_userid = $q->cookie(-name=>'user',
-value=>'dummy',
-domain=> '.jplan.com',
-path=> '/cgi-bin/') ;
my $co_password = $q->cookie(-name=>'password',
-value=>'hispassword',
-domain=> '.jplan.com',
-path=> '/cgi-bin/');
print $q->header(-cookie=>[$co_userid,$co_password]);
print "\n";
print "","\n";
print "CTB Discussion Index\n";
print "\n";
print "\n";
print "\n";
print "Cookie is set
";
print "";
#######################################
#get cookie
#######################################
#!/usr/bin/perl -w
use CGI;
$query = new CGI;
my $ci_password = $query->cookie('user');
my $ci_userid = $query->cookie('password');
print "Content-type: text/html\n\n";
print "\n";
print "","\n";
print "Messages Posted Last 10 Days -- Compact Tractor Board","\n";
print "\n";
print "\n";
print "";
print " userid= $ci_userid
";
print " pw = $ci_password
";
print "";