#!/usr/bin/perl
# Fig. 16.5: fig16_05.pl
# Program to write a cookie to a client抯 machine.

use strict;
use warnings;
use CGI qw( :standard );

my $name = param( "name" );
my $height = param( "height" );
my $color = param( "color" );

my $expires = "Monday, 11-JUN-01 16:00:00 GMT";

print( "Set-Cookie: Name=$name; expires=$expires; path=\n" );
print( "Set-Cookie: Height=$height; expires=$expires; path=\n" );
print( "Set-Cookie: Color=$color; expires=$expires; path=\n" );

print( header(), start_html( "Cookie Saved" ) );

print <<End_Data;
<font face = "arial,sans-serif" size = 3>
The cookie has been set with the following data:<br><br>

<font color = blue>Name:</font> $name<br>
<font color = blue>Height:</font> $height<br>
<font color = blue>Favorite Color:</font> 
   <font color = $color> $color<br></font><br>

Click <a href = "fig16_06.pl">here</a>
   to read saved cookie.
End_Data

print( end_html() );

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################