#!/usr/bin/perl # Counter directory $cntdir="../counters/"; @fnames=('ozon','bolero','24x7','colibri','biblion','boomerang','arcadia','total'); %snames=('ozon','Озон','bolero','Болеро','24x7','24x7','colibri','Колибри','biblion','Библион','boomerang','Бумеранг','arcadia','Аркадия','total','Всего запросов'); $msg1= <<"(HEAD_BLOCK)"; Поиск книг| Статистика
(HEAD_BLOCK) print("Pragma: no-cache\r\n"); print("Cache: no-cache\r\n"); print("Content-type: text/html; charset=windows-1251\n\n"); print "$msg1"; $totalj=0; foreach $fn (@fnames) { $ffile=$cntdir.$fn; open (lfile1,$ffile); $curr=; close (lfile1); $totalj=$totalj+$curr; print <<"(ROW_BLOCK)"; (ROW_BLOCK) }; $totalj=$totalj-$curr; $msg2= <<"(FOOT_BLOCK)";
Статистика запросов
и переходов
$snames{$fn} $curr
Всего переходов $totalj

 

(FOOT_BLOCK) print "$msg2\n";