|
<HTML>
<HEAD>
<TITLE>Writing a cookie to the client computer</TITLE>
</HEAD>
<BODY>
Click Write Cookie to save your cookie data.
<FORM METHOD = "POST" ACTION = "index.pl">
<STRONG>Name:</STRONG><BR>
<INPUT TYPE = "TEXT" NAME = "NAME"><BR>
<STRONG>Height:</STRONG><BR>
<INPUT TYPE = "TEXT" NAME = "HEIGHT"><BR>
<STRONG>Favorite Color</STRONG><BR>
<INPUT TYPE = "TEXT" NAME = "COLOR"><BR>
<INPUT TYPE = "SUBMIT" VALUE = "Write Cookie">
</FORM>
</BODY>
</HTML>
#!perl
use CGI qw( :standard );
$name = param( NAME );
$height = param( HEIGHT );
$color = param( COLOR );
$expires = "Monday, 11-JUN-10 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;
The cookie has been set with the folowing data:<BR><BR>
<FONT>Name:</FONT> $name <BR>
<FONT>Height:</FONT> $height<BR>
<FONT>Favorite Color:</FONT>
<FONT COLOR = $color> $color<BR></FONT>
<BR>Click <A HREF = "read_cookies.pl">here</A>
to read saved cookie.
End_Data
print end_html;
|