#!/usr/bin/perl -w

$visitorfile = "/path/to/visitors.txt";

use CGI;

$query = new CGI;

# If the visitor parameter exists then we assume its a visit from the home node:
if (my $visitor = $query->param('visitor')) {
	
	# Don't log ourselves:
	unless ($visitor =~ /your_username/i ) {
		open (VISITORS,">>$visitorfile") || die("Perlmonk Visitors couldn't open $visitorfile: $!");
		print VISITORS scalar(localtime) . "\t" . $visitor . "\t" . $ENV{HTTP_REFERER} . "\n";
		close VISITORS;
	}
	
	print "Content-Type: text/javascript\n\n";
	# Output our javascript:
	print qq|document.write("Welcome and ")|;
} else {
	open (VISITORS,"$visitorfile") || die("Perlmonk Visitors couldn't open $visitorfile: $!");
	@data = <VISITORS>;
	close VISITORS;
	print "Content-Type: text/html\n\n";
	print "<h1>Visitors to my Homenode</h1>\n";
	print "<table border=1 cellspacing=0><tr><th>Time/Date</th><th>Username</th></tr>\n";
	foreach $line(@data) {
		my ($date, $user) = split(/\t/,$line);
		print "<tr><td>$date</td><td>$user</td></tr>\n";
	}
	print "</table>";
}