#!/usr/bin/perl
# Michael Tartaglia
# 10 April 2002
# Checking for a cookie

use CGI ':standard';
require template;

my $base = "http://storm.cis.fordham.edu/~tartagli/";

welcomeMESG() if ($ENV{'HTTP_COOKIE'} =~ /$base/);

sub welcomeMESG
{
 print <<END;
Content-type:text/html

    <!-- FROM CGI FILE -->
    <b><FONT COLOR="#008000">Welcome back!</FONT></b><BR>
    <a href="cgi-bin/cookieRead.cgi">Click here</a> to
    read the last cookie saved<br>from this site to your
    machine.<br><br>
    <!-- END FROM CGI FILE -->

END
}