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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Papa Karlo
To : Roman Popov
Subj : Неужели никого не интересовала
> статистика хождения через сквид "конкретного" 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 еесть суксь и мастдай

Thu 11 Jul 2002 14:21 Mozilla/5.0 (OS/2; U; Warp 4.5; ru-RU; rv:1.0.0) Gecko/20020



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.