#!/usr/bin/perl -wT # Example 5-5 use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); my ($Page_Cookie1, $Page_Cookie2); my $Flag = 0; my %Values = cookie('page_values'); my $Title = cookie('page_title'); foreach(param()){ next unless param($_); $Values{$_} = param($_); $Flag = 1; } $Values{Textcolor} = "#000000" unless($Values{Textcolor}); $Values{Bgcolor} = "#FFFFFF" unless($Values{Bgcolor}); $Values{Name} = "NoName" unless($Values{Name}); $Title = "Cookie Example" if($Title eq ""); if(param('Title')){ $Title = param('Title'); $Flag = 1; } if($Flag){ $Page_Cookie1 = cookie(-name => 'page_values', -expires => '2m', -value => \%Values ); $Page_Cookie2 = cookie(-name => 'page_title', -expires => '2m', -value => $Title ); print header(-cookie => [$Page_Cookie1, $Page_Cookie2]); } else{ print header(); } print <$Title

Welcome $Values{Name}!!!

Name:
Title:
Background Color:
Text Color:

HTML