#!usr/bin/perl

####################################
#   MailCounter                    #
#   Статистика посещений           #
#   mail:algol@hotmail.ru          #
# http://trampico.virtualave.net   #
####################################

# Настройкa:
$stat = 0; #Если вести статистику ставьте 1, статистика обнуляется при смене даты на сервере.
$mail_stat = 0; #Если присылать статистику на ваш Email-1
$emale="you\@domian.com";#Ваш адрес, перед @ поставьте \
$sub="ConterDayReport"; #Сообщение в поле "Тема";
$mailprog = '/usr/sbin/sendmail'; #Путь к почтовой программе
$date_command = "/bin/date"; #путь к команде даты
####################################
$date = `$date_command +"%B %d, %Y"`; chop($date);
print "Content-type: text/html\n\n";
open (CNT, "counter.txt")|| die "Can't open file!\n";
$a = <CNT>;
close (CNT);
$a++;

open (CNT,">counter.txt")|| die "Can't open file!\n";
print CNT $a;
close (CNT);
print "$a\n";

	
if($stat == 1){
              open (FILE,"stat.txt")|| die "Can't open file!";
              @dat=<FILE>; close (FILE); $old_date=$dat[0];
              chomp($old_date);
              if($old_date ne $date){
                                    if($mail_stat == 1){&male;}
                                    $dat[0]=$date; &save;
                                    }

	      open (FILE,">>stat.txt")|| die "Can't open file!";
	      print FILE "$ENV{'REMOTE_ADDR'}: $ENV{'HTTP_REFERER'}\n";
	      close (FILE);
              } 

sub save{
open (FILE,">stat.txt")|| die "Can't open file!";
print FILE "$date\n";
close (FILE);
}
sub male{
$sub=$sub."from ".$old_date;
open(MAIL,"|$mailprog -t");
print MAIL "To: $emale\n";
print MAIL "From: $emale\n";
print MAIL "Subject: $sub\n";
foreach $line(@dat){
                   print MAIL "$line";
                   }
close(MAIL);

}




