URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 16945
[ Назад ]

Исходное сообщение
"squid"

Отправлено george , 13-Май-02 16:03 
Есть ли анализатор логов squid в реальном времени?

Содержание

Сообщения в этом обсуждении
"RE: squid"
Отправлено Garry , 13-Май-02 18:15 
>Есть ли анализатор логов squid в
>реальном времени?

А тут совсем недавно тред был по этому поводу. Вроде кто то прогу написал такую.



"RE: squid"
Отправлено george , 13-Май-02 18:43 
>А тут совсем недавно тред был
>по этому поводу. Вроде кто
>то прогу написал такую.

А ссылочку можно?


"RE: squid"
Отправлено EXandr , 13-Май-02 21:18 
>>А тут совсем недавно тред был
>>по этому поводу. Вроде кто
>>то прогу написал такую.
>
>А ссылочку можно?

http://www.ssft.net/squidstat


"RE: squid"
Отправлено ilya , 14-Май-02 09:19 
>>А тут совсем недавно тред был
>>по этому поводу. Вроде кто
>>то прогу написал такую.
>
>А ссылочку можно?

Рабочий скрипт:

tail -f /var/log/squid/access.log | \
-f ./q | \
              perl -e 'use Socket;while (<>) {chomp;my @val=split /\s+/,$_;
              @addr=gethostbyaddr(Socket::inet_aton($val[2]),Socket::AF_INET);
              my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime("$val[0]");
              $sec=0 x (2-length($sec)).$sec;
              $min=0 x (2-length($min)).$min;
              $hour=0 x (2-length($hour)).$hour;
              $val = join(" ", @val);
              print ($addr[0]?$addr[0]:$val[2],"\t","$mday/",$mon+1," $hour:$min:$sec","\t",$val[6],"\n");}' ;


"RE: squid"
Отправлено george , 14-Май-02 12:37 
>Рабочий скрипт:
>
>tail -f /var/log/squid/access.log | \
>-f ./q | \
>              perl -e 'use Socket;while (<>) {chomp;my @val=split /\s+/,$_;
>      
>    
>   @addr=gethostbyaddr(Socket::inet_aton($val[2]),Socket::AF_INET);
>      
>    
>   my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime("$val[0]");
>      
>    
>   $sec=0 x
>(2-length($sec)).$sec;
>      
>    
>   $min=0 x
>(2-length($min)).$min;
>      
>    
>   $hour=0 x
>(2-length($hour)).$hour;
>      
>    
>   $val =
>join(" ", @val);
>      
>    
>   print ($addr[0]?$addr[0]:$val[2],"\t","$mday/",$mon+1,"
>$hour:$min:$sec","\t",$val[6],"\n");}' ;


Спасиюо всем, заработало


"RE: squid"
Отправлено User , 28-Дек-02 15:06 
Я Такой софт для себя написал, могу письмом выслать (300 кб)
Просьба обращаться по мылу amuch@liana.com.ua