#!C:\perl\bin\perl.exe $string = $ENV{QUERY_STRING}; $substring = substr($string, 0, 4); $pagename = ""; print "Content-type: text/html\n\n"; if($substring eq "PAGE") { $len = length($string); $len--; $pagename = substr($string, 5, $len); } else { $len = length($string); $len--; $imagename = substr($string, 6, $len); $pagename = $imagename; print ""; print "\n"; print "\n"; print "\t\n"; print " \n \n"; print "\n"; print ""; } open(COUNT, "D:\\inetpub\\mikedoyle\\data\\count.txt"); @data=; close(COUNT); $count = $data[0]; $time = localtime(); $name = $ENV{REMOTE_HOST}; $referrer = $ENV{HTTP_REFERER}; open(PAGELOG, ">>D:\\inetpub\\mikedoyle\\data\\pagelog.txt"); print PAGELOG "Page: $count#\tName: $pagename#\tIP: $name#\tTime: $time\n"; close(PAGELOG); $pos = index($referrer, "mikedoyle.ca"); $len = length($referrer); if($pos == -1 && $len > 3) { open(REFERRER, ">>D:\\inetpub\\mikedoyle\\data\\referrer.txt"); print REFERRER "Page: $count#\tTime: $time#\tIP: $name#\tName: $pagename#\tReferrer: $referrer\n"; close(REFERRER); }
[Top] [Contents] [Index] [ ? ]

About this document

This document was generated on May, 16 2003 using texi2html

The buttons in the navigation panels have the following meaning:

Button Name Go to From 1.2.3 go to
[ < ] Back previous section in reading order 1.2.2
[ > ] Forward next section in reading order 1.2.4
[ << ] FastBack previous or up-and-previous section 1.1
[ Up ] Up up section 1.2
[ >> ] FastForward next or up-and-next section 1.3
[Top] Top cover (top) of document  
[Contents] Contents table of contents  
[Index] Index concept index  
[ ? ] About this page  

where the Example assumes that the current position is at Subsubsection One-Two-Three of a document of the following structure:

This document was generated on May, 16 2003 using texi2html