#!/usr/bin/perl -Tw
##
# Modified from
# Figure 27.33 from _Internet & World Wide Web: How To Program_
# by H.M. Deitel, P.J. Deitel, and T.R. Nieto
# Published by Prentice Hall, (c) 2000 by Prentice-Hall, Inc.
##
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use diagnostics;
use strict;
$| = 1;
# read values from the form
my $name = param('Name') || "";
my $height = param('Height') || "";
my $color = param('Colour') || "";
# parameters for the cookie
my $expires = "Fri, 31-Dec-2010 16:00:00 GMT";
my $path = "/";
my $server_domain = "cs.dal.ca"; # numeric address don't seem to work
# the cookie headers
# these three methods produce the same output
# you should choose one method (that is clear to you) and use it
print "Set-Cookie: " .
"Name=$name; " .
"expires=$expires; " .
"path=$path; " .
"domain=$server_domain\n";
print "Set-Cookie: Height=$height; path=$path; expires=$expires; ";
print "domain=$server_domain\n"; # the line above does not end with \n
print "Set-Cookie: ";
print "Color=",$color, "; path=", $path, "; expires=",$expires,
"; domain=", $server_domain, "\n";
print header(-expires=>"now"); # stop browsers from trying to cache output
print "\n";
print " Dietel et al. Fig. 27.33\n";
print " \n";
print "\n";
print "\n";
print " \n";
print " The following data has been read from the form ";
print " and sent the browser in three cookies:\n";
print "
", "
\n";
print " Name: $name", "
\n";
print " Height: $height", "
\n";
print " Favourite Colour:";
print " $color";
print "
";
print '[return to the form |',"\n";
print 'read cookies]',"\n";
print '
';