$0 - working okay - no logging command received - use ?debugme query string for more info.
"; } # decide whether or not to log this visit: my $err = ''; Err: { last Err if ($mode eq 'debug'); last Err if (&query_env('HTTP_COOKIE') =~ m!axs_no_log=1!); last Err if (($NoLogHead) and (&query_env('REQUEST_METHOD') eq 'HEAD')); my ($vhost, $vaddr) = &resolve_host($resolve_dns_names); my $ighost = ''; foreach $ighost (@IgnoreHosts) { $ighost = quotemeta($ighost); next unless ($ighost); last Err if ($vhost =~ m!$ighost!); last Err if ($vaddr =~ m!$ighost!); } # Note: you can filter on other things as well. If you want to ignore people # arriving from a certain site, like Yahoo, you can write the following (note # that HTTP_REFERER is used instead of REMOTE_HOST): # # @ignore = ('yahoo.com', 'av.yahoo.com'); # foreach (@ignore) { # exit if ($ENV{'HTTP_REFERER'} =~ m!$_!); # } if (($0 =~ m!^(.*)(\\|/)!) and ($0 !~ m!safeperl\d*!i)) { last Err unless (chdir($1)); } # don't fill up the file system: my $LogSize = -s $LogFile || 0; last Err if (($MaxLogSize) and ($MaxLogSize < $LogSize)); # cleanse the data: my ($clean_url, $host, $port, $path, $is_valid) = &parse_url($ref); if ($is_valid) { $ref = $clean_url; } ($clean_url, $host, $port, $path, $is_valid) = &parse_url($to); if ($is_valid) { $to = $clean_url; } # Apply the mappings: foreach (keys %Maps) { $to =~ s!$_!$Maps{$_}!ig; $ref =~ s!$_!$Maps{$_}!ig; } &log_visit($vhost,$vaddr,$ref,$to); last Err; } sub Print_Image { print "HTTP/1.0 200 OK\015\012" if ($IIS); print "Pragma: no-cache\015\012"; print "Expires: Saturday, February 15, 1997 10:10:10 GMT\015\012"; if ($TransURL) { print "Location: $TransURL\015\012\015\012"; } else { print "Content-Type: image/gif\015\012\015\012"; binmode(STDOUT); foreach (71,73,70,56,57,97,1,0,1,0,128,255,0,192,192,192,0,0,0,33,249,4,1,0,0,0,0,44,0,0,0,0,1,0,1,0,0,1,1,50,0,59) { print pack('C',$_); } } } # ___________________________________________________________________________ # This runs a filesystem test against $LogFile and dumps a ton of (hopefully) # useful information to the screen: sub SpawnDebugger { print "HTTP/1.0 200 OK\015\012" if ($IIS); print "Content-Type: text/html\015\012\015\012"; unless ($AllowDebug) { print 'No debug output available because $AllowDebug = 0'; return 0; } print <<"EOM";Read the trouble-shooting guide if you need more help.
These instructions apply only if your file system test passes (see below).
Add the "AXS tracking code" to any HTML pages that you want to have tracked.
\t<SCRIPT LANGUAGE="JavaScript">
\t<!--
\t\tdocument.write("<IMG SRC=\\"$ENV{'SCRIPT_NAME'}?trans.gif&ref=");
\t\tdocument.write(document.referrer);
\t\tdocument.write("\\" HEIGHT=1 WIDTH=1>");
\t// -->
\t</SCRIPT><NOSCRIPT>
\t\t<IMG SRC="$ENV{'SCRIPT_NAME'}?trans.gif" HEIGHT="1" WIDTH="1">
\t</NOSCRIPT>
If your web server supports server-side includes (SSI), then you can try this alternate syntax. You might have to name the pages with a .shtml or .stm extension in order for this to work. If this syntax doesn't work, just use the Javascript code above:
\t<!--#exec cgi="$ENV{'SCRIPT_NAME'}" -->
Code your off-site links like this (links to pages/files that don't already contain the AXS tracking code):
\t<A HREF="$ENV{'SCRIPT_NAME'}?http://yahoo.com/">http://yahoo.com/</A>
Here is an example link.
This is AXS Logging Module version $VERSION in debug mode.
The file name of this script is $0.
This script is executing under Perl version $].
The critical file system variable is \$LogFile = "$LogFile";.
EOM
if ($MaxLogSize) {
print "MaxLogSize has been initialized to $MaxLogSize bytes.";
}
else {
print 'MaxLogSize is not set.';
}
print <<"EOM";
The log file, $LogFile, exists with size $LogSize bytes. It was last modified at $LastModT. "; if (open(FILE,">>$LogFile")) { binmode(FILE); close(FILE); print "The log file is writable. The filesystem test passed!
"; } else { print <<"EOM"; However, the log file is not writable. The filesystem returned "$!" when this script tried to write to it. You need to change the file permissions to make it script writable. The filesystem test failed. EOM last TEST; } } elsif (open(FILE,">>$LogFile")) { binmode(FILE); close(FILE); print <<"EOM";The log file, $LogFile, did not exist when this script started. However, this script attempted to create it for you, and the server responded that this was successful. So everything should be fine now. Reload this web page, and hopefully you'll see a message that the file system test has passed. If it doesn't pass, and instead you get an error or you get this message again, then you'll have to manually create the log file and set it's permissions. The filesystem test needs to be run again.
EOM last TEST; } else { print <<"EOM";The log file, $LogFile, doesn't exist. You need to create one and give it writable permissions. Alternately, the log file may exist but the \$LogFile variable might not point to the correct location, in which case you will need to change your variable. The filesystem test failed.
EOM last TEST; } print <<"EOM";';
foreach (sort keys %ENV) {
print "$_: $ENV{$_}\n";
}
print <<"FOOT";