парсерное

небольшая технологическая демка, основанная на уникальной методике по отлову дятлов малыми силами.


в test.html:

# интервал, за который будем мерять (в секундах)
$fInterval(300)

# текущая дата
$tCurrent[^date::now[]]
$tCurrent(^tCurrent.unix-timestamp[])

# вынимаем из куги дату последнего посещения
$tLast(^cookie:tlast.int($tCurrent))
# вынимаем счетчик
$aLast(^cookie:alast.double(0))
 
# коррекция показаний счетчика по хитрой формуле
$aCurrent(^math:pow($aLast;^math:exp(-($tCurrent - $tLast)/$fInterval)))

<table border="0"><tr>
	^for[i](1;$aLast){<td bgcolor=^if($i < 60){"#808080"}{"#ff0033"}>&nbsp^;</td>}
	^for[i](1;60 - $aLast){<td bgcolor="#EFEFEF">&nbsp^;</td>}
</tr></table>

# инкремент счетчика
$aLast($aCurrent + 1)

# пишем всё обратно
$cookie:tlast[ $.value[$tCurrent] $.expires[session] ]
$cookie:alast[ $.value[$aLast]    $.expires[session] ]

# страница перезагружается примерно раз в секунду
$response:refresh[ $.value(1) $.url[$request:uri] ]

P.S. Не уверен что правильно интерпретировал формулу подсчета, возможно придется подкрутить.