ik heb in awstats.pl als eerste
#!c:/perl/bin/perl.exe
#------------------------------------------------------------------------------
# Free realtime web server logfile analyzer to show advanced web statistics.
# Works from command line or as a CGI. You must use this script as often as
# necessary from your scheduler to update your statistics and from command
# line or a browser to read report results.
# See AWStats documentation (in docs/ directory) for all setup instructions.
#------------------------------------------------------------------------------
# $Revision: 1.814 $ - $Author: eldy $ - $Date: 2005/02/24 21:02:23 $
require 5.005;
#$|=1;
#use warnings; # Must be used in test mode only. This reduce a little process speed
#use diagnostics; # Must be used in test mode only. This reduce a lot of process speed
use strict;no strict "refs";
use Time::Local; # use Time::Local 'timelocal_nocheck' is faster but not supported by all Time::Local modules
use Socket;
en in awredir.pl
#!c:/perl/bin/perl.exe
#-------------------------------------------------------
# Save the click done on managed hits into a trace file
# and return to browser a redirector to tell browser to visit this URL.
# Ex: <a href="http://athena/cgi-bin/awredir/awredir.pl?tag=TAGFORLOG&url=http://212.43.217.240/%7Eforumgp/forum/list.php3?f=11">XXX</a>
#-------------------------------------------------------
#use DBD::mysql;
#-------------------------------------------------------
# Defines
#-------------------------------------------------------
use vars qw/ $REVISION $VERSION /;
$REVISION='$Revision: 1.5 $'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
$VERSION="1.1 (build $REVISION)";
use vars qw / $DIR $PROG $Extension $DEBUG $DEBUGFILE $REPLOG $DEBUGRESET $SITE $REPCONF /;
($DIR=$0) =~ s/([^\/\\]*)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
$DEBUG=0; # Debug level
$DEBUGFILE="$PROG.log"; # Debug output (A log file name or "screen" to have debug on screen)
$REPLOG="$DIR"; # Debug directory
$TRACEBASE=0; # Set to 1 to track click on links that point to extern site into a database
$TRACEFILE=0; # Set to 1 to track click on links that point to extern site into a file
$TXTDIR="$DIR/../../../logs"; # Directory where to write tracking file (if TRACEFILE=1)
$TXTFILE="awredir.trc"; # Tracking file (if TRACEFILE=1)
$EXCLUDEIP="127.0.0.1";
Ik kan je niet verder helpen vrees ik, perl heb al lang geleden verwijderd maar de awstats dir staat nog op een test pc hier