#!/usr/local/bin/perl

#
# Web Log v1.0d - Web Logger Script 
# Copyright 1999 (R) Tiora Networks
# Written by Jay Johnson
# Developed by Jay Johnson
# [ weblog.pl ]

# Configuration Section
$logfile = "data/access_log";
$redirecturl = "http://www.tiora.net";

# End Configuration

if(($ENV{'HTTP_REFERER'} eq "") && ($in{'d'} eq ""))
{
     print("Content-Type: text/html\n\n");
     print("<p>You Cannot Access This Script Directly</p>");
     print("<p><a href=\"http://www.tiora.net\">Click Here to goto Tiora Networks Main Page</a></p>");
}
else
{
    open(DATE,"date|");
    while($date = <DATE>)
    {
        open(LOG,">>$logfile"); 
        print LOG ("[$ENV{'REMOTE_ADDR'}] was refered by $ENV{'HTTP_REFERER'} at $date");
        close(LOG);
        print "Location: $redirecturl\n\n";
    }
    close(DATE);
}