RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение

Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас

Тема:

> > статистика хождения через сквид "конкретного" IP ? Как Вы это делаете ? Не просто обьем, а куда ходили с данного IP ? Спасибо.
> Ну тебе тут много уже наотвечали.
> можно делать не просто статистику, а нечто более наглядное. и даже почти в риалтайме. Например:
> шаг 1.
> Идем в cachemgr ->
> 
> шаг 2
> пущаем скритп:
> /* делаем сортированный html файл с урлами */
> /* из сохраненного html cachemgr.html      */
> 
> Parse Arg Fname FnameTo
> TmpName = 'tmp.tmp'
> TmpName2='tmp.tmp2'
> 
> if FnameTo = "" THEN FnameTo='tst.tst'
> 
> SAY 'Fname=' Fname 'FnameTo=' FnameTo
> 
> /* Squid proxy CacheMgr alysis      */
> /* In-Memory and In-Transit Objects */
> Numlines=0
> 
> DO FOREVER
> 
>    rc = LINES(Fname)
>    if rc = 0 THEN LEAVE
>    str=linein(Fname)
>    Numlines = Numlines + 1
>  if(Numlines//20 = 0) then  rc = CHAROUT(,D2C(13) 'Numlines='  Numlines)
>    urc = POS('http:',str)
>    if urc > 0 THEN
>    DO
>     s1 = SUBSTR(str,urc)  
>     rc=lineout(TmpName,s1);
>    END
> END 
>   rc=lineout(TmpName);
> 'del' FnameTo
> 
> rc = lineout( FnameTo, '<HTML><HEAD><TITLE>CacheMgr: vm_objects</TITLE></HEAD><BODY><P>')
> 
> 'bigsort.exe /U <' TmpName '>' TmpName2
> 
> DO FOREVER
>    rc = LINES(TmpName2)
>    if rc = 0 THEN LEAVE
>    s1=linein(TmpName2)
>     s2 = '<A HREF="' || s1 || '">' s1 '</A>' 
>     rc =lineout(FnameTo, s2)
>     rc =lineout(FnameTo, '<BR>')
>    Numlines = Numlines - 1
>  if(Numlines//20 = 0) then  rc = CHAROUT(,D2C(13) 'Numlines='  Numlines)
> END 
> 
> SAY 'Ok'
> rc = lineout(FnameTo, '</BODY></HTML>')
> rc = lineout(FnameTo)
> rc = lineout(TmpName2)
> 
> 'del ' TmpName
> 'del ' TmpName2
> 
> шаг 3.
> Читаем получившееся файло бровзером.
> 
> Необходимые замечания.
> Данный скрипт выдает отстортированый в алфавитном порядке список урлов, на которые в последнее время ходили пользователи.
> разбивка  по отдельным пользователям - тривиальна.
> файло bigsort.exe берется с хоббесов ибо стандарный  sort еесть суксь и мастдай

__, _,_ _, __, ___, \|_) \| \| \| \|_ ` / \| \ \| \| \| , \| / ~ ~ `~' ~~~ ~~~ ~~~