Listing 5. travel.html
<HTML>
<Head>
<META HTTP-EQUIV="Set-Cookie"
CONTENT="RecentVisitor=1;
expires={scalar localtime(time + 604800};
path=/">
<Title>Welcome to My Site</Title>
</Head>
<Body>
<H1>Welcome to My Site</H1>
<P>Read <a href="resume.html">my resume.</a></P>
<P>Read <a href="deathvalley.html">
{
$outputstring = "";
use CGI;
my $query = new CGI;
my $visited_recently = $query->cookie('RecentVisitor');
$outputstring .=
"<font color=\"red\">(New!)</font>\n"
unless $visited_recently;
$outputstring;
}
about my recent trip to Death Valley!</a></P>
</Body>
</HTML>
Copyright © 1994 - 2018 Linux Journal. All rights reserved.
