#!/usr/bin/perl -w
# testausta
# Modified by Tommi Lahtonen 3.2.2000

require "ctime.pl";
use CGI;

$query = new CGI;
$visited = localtime (time);

open (LOG,  ">>/opt/www-linux/itu/kauris/tjlahton/www/cgi-bin/perl/log.txt");
flock (LOG, 2);

print LOG "$visited\t";
print LOG $query->referer(),"\t";
print LOG $query->remote_host(),"\t";
print LOG $query->script_name(),"\t";
print LOG $query->remote_user(), "\t";
print LOG $query->user_name(), "\n";

flock (LOG, 8);
close (LOG);