3473l1 100664 1007 330 1447 6704440034 10473 0 ustar darcy ljedit @lay:3473l1
Listing 1: print-label.pl
#!/usr/bin/perl -w
# print-label.pl
# Prints a "new" label in red for any file that is more
# than one week old
use strict;
use diagnostics;
use CGI;
# Make output hot
$| = 1;
# Create an instance of CGI
my $query = new CGI;
# Print an appropriate MIME header
print $query->header("text/html");
# Under what directory is our Web tree?
my $docroot = '/usr/local/apache/share/htdocs/';
# Get the filename
my $filename = $docroot . $query->param("keywords");
exit unless $filename;
# Make sure the file exists
exit unless -e $filename;
# Get the creation and modification dates
my $ctime = -M $filename;
# If it was created recently, print such a label
if ($ctime < 7)
{
# Indicate that it is a new file
print "(New!)\n";
}
3473l2 100664 1007 330 2024 6704440407 10470 0 ustar darcy ljedit @lay:3473l2
Listing 2: print-label.pl
#!/usr/bin/perl -w
# print-label.pl
# Prints a "new" label in red on any file that is more
# than one week old
use strict;
use diagnostics;
use CGI;
# Make output hot
$| = 1;
# Create an instance of CGI
my $query = new CGI;
# Print a basic MIME header
print $query->header;
# Under what directory is our Web tree?
my $docroot = '/usr/local/apache/share/htdocs/';
# Get the filename
my $filename = $docroot . $query->param("keywords");
exit unless $filename;
# Make sure the file exists
exit unless -e $filename;
# If the cookie exists, then the user visited within the last
# week, so we should not print any "new" label. If the cookie
# does not exist, then print the label.
my $visited_recently = $query->cookie('RecentVisitor');
# These are useful when debugging
# print "visited_recently = \"$visited_recently\"
\n";
# print "raw = ", $query->raw_cookie, "
\n";
if (!$visited_recently)
{
# Indicate that the file is new
print "(New!)\n";
}
3473l3 100664 1007 330 1303 6704440504 10466 0 ustar darcy ljedit @lay:3473l3
# Listing 3: send-cookie.pl
#!/usr/bin/perl -w
# send-cookie.pl. This program outputs an HTML "meta" tag that
# contains a cookie which expires one week from the program's
# invocation.
use strict;
use diagnostics;
use CGI;
# Make output hot
$| = 1;
# Create an instance of CGI
my $query = new CGI;
# Send a MIME header
print $query->header("text/html");
# Get the current date and time, and add one week to it
my $future_time = time + 604800;
# Turn the time into a valid timestamp
my $in_one_week = scalar localtime($future_time);
# Output a META tag that creates a cookie
print "";
3473l4 100664 1007 330 1417 6704440603 10475 0 ustar darcy ljedit @lay:3473l4
# Listing 4: template.pl
#!/usr/bin/perl -w
# template.pl, a CGI program that expects to receive the name
# of the template file in the query string (aka "keywords")
use strict;
use diagnostics;
use CGI;
use Text::Template;
# Create an instance of CGI
my $query = new CGI;
# Send an appropriate MIME header
print $query->header("text/html");
# Get the keywords
my $filename = $query->param("keywords");
# Remove any attempts to move up a directory
$filename =~ s|../||g;
# Get the name of the template
my $file = "/usr/local/apache/share/templates/$filename";
# Create an instance of template
my $template = new Text::Template(-type => "FILE", -source => $file);
# Perform the evaluation, and send the results
# to the user's browser
print $template->fill_in;
3473l5 100664 1007 330 1176 6704440664 10507 0 ustar darcy ljedit @lay:3473l5
Listing 5: travel
Welcome to My Site
Welcome to My Site
Read my resume.
Read
{
$outputstring = "";
use CGI;
my $query = new CGI;
my $visited_recently = $query->cookie('RecentVisitor');
$outputstring .= "(New!)\n"
unless $visited_recently;
$outputstring;
}
about my recent trip to Death Valley!.