#!/usr/bin/perl

# stat.pl v1.0 

# 2006.07.12
# Copyright - MarketCom Tanacsado es Kereskedelmi Kft.
# email@marketcom.hu

require "lib.pl";
&GetTheDate;

my $time = time;
my $oldal = $ENV{'HTTP_REFERER'};
my $ipcim = $ENV{'REMOTE_ADDR'};
my $host = $ENV{'REMOTE_HOST'};
my $proxycim = $ENV{'HTTP_VIA'};
my $opsys = $ENV{'HTTP_USER_AGENT'};

# látogatás naplófájl készítése

open('NAPLO', ">>/exports/www/hermeszsoft/cms/userlog/log-$Year-$Month_Number-$Day.txt");
print NAPLO qq~$time|x|$Year.$Month_Number.$Day.|x|$Hour:$Minute:$Second|x|$oldal|x|$ipcim|x|$proxycim|x|$opsys|x|$host\n~;
close(NAPLO);

# statisztikai fájl készítése

eval {do "/exports/www/hermeszsoft/cms/userlog/stat-$Year-$Month_Number-$Day.txt"};
$latogato{$oldal}++;

open ("STAT",">/exports/www/hermeszsoft/cms/userlog/stat-$Year-$Month_Number-$Day.txt");
foreach $i (keys %latogato) {
    print STAT qq~\$latogato\{\'$i\'\} \= \"$latogato{$i}\"\;\n~;
}
close(STAT);


#open ("STAT",">/usr/lib/cgi-bin/hermeszsoft/config/tesztstat.txt");
#foreach $i (keys %ENV) {
#    print STAT "$i - $ENV{$i}\n";
#}
#close STAT;

print "Content-type: text/html\n\n";
print "OK";




1;