Реклама на сайте Advertise with us
Тема: Подскажите пожалста счетчик на exit-трафф Расширенный поиск по форуму  
Автор Сообщение
Jaffar


Зарегистрирован:

Ссылка на сообщениеДобавлено: 13/12/00 в 23:05

Подскажите пожалста счетчик на exit-трафф

K началу

 
Lust


Зарегистрирован:

Ссылка на сообщениеДобавлено: 13/12/00 в 23:59

re: Подскажите пожалста счетчик на exit-трафф
www.sexlist.com

K началу

 
Shtirlitz


Зарегистрирован:

Ссылка на сообщениеДобавлено: 14/12/00 в 00:23

re: Подскажите пожалста счетчик на exit-трафф
#!/usr/bin/perl
use IO::File;
use strict;
my $redirecttxt;
my $ParamList;
my $ParamName;
my $ID;
my $RedirectNUM;
my $RedirectURL;
my $PathToLogFile;
my $LogFilePrefix;
my ($mday, $mon, $year, $sec, $min, $hour);
my $LogFileName;
my $LogFileHandler;
my $Comment;
$redirecttxt = new IO::File "< redirect.txt";
$PathToLogFile = "/usr/home/dabest/redirect.logs/";
$LogFilePrefix = "redirect";
($sec, $min, $hour, $mday, $mon, $year) = (localtime())[0,1,2,3,4,5];
$year += 1900;
$mon += 1;
$LogFileName = $PathToLogFile . $year . "-" . $mon . "-" . $mday . "-" . $LogFilePrefix . ".log";
#print "$LogFileName
";
$LogFileHandler = new IO::File ">> $LogFileName";
$ParamList = $ENV{'QUERY_STRING'};
($ParamName, $ID) = split (/=/, $ParamList);
if ($ParamName eq "id") {
while(<$redirecttxt>) {
chomp;
($RedirectNUM, $RedirectURL, $Comment) = split (/,/, $_);
if ($RedirectNUM == $ID) {
print ("location:$RedirectURL
");
print $LogFileHandler "$mon-$mday-$year,$hour:$min:$sec,$ID,$RedirectURL,$Comment
";
last;
}
}
}

K началу

 
Jaffar


Зарегистрирован:

Ссылка на сообщениеДобавлено: 14/12/00 в 00:46

Спасибо...

K началу

 
Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте!
Форум закрыт Форум закрыт  Тема закрыта Тема закрыта

Спонсор сайта

Реклама на сайте Advertise with us

Опросы

Рецепт новогоднего блюда 2022



Обсудите на форуме обсудить (11)
все опросы »