#!/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("

You Cannot Access This Script Directly

"); print("

Click Here to goto Tiora Networks Main Page

"); } else { open(DATE,"date|"); while($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); }