#!/usr/local/bin/perl5

$logFile = "referer.log";

print "Content-type: text/html\n\n";

if (open LOG, ">> $logFile")
{
    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
            = localtime (time);
    $year += 1900;
    $referer = $ENV{HTTP_REFERER};
    $referee = $ENV{DOCUMENT_URI};
    $referee =~ s/index.html$//;

    if (not $referer) { $referer = "UNKNOWN"; }

    print  LOG $referer, "	";
    print  LOG $referee, "	";
    printf LOG "%4d-%02d-%02d %02d:%02d:%02d",
                       $year, $mon+1, $mday, $hour, $min, $sec;
    print  LOG "\n";
    close LOG;
}