Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

	Введите FGHI ссылку: Присутствуют сообщения из эхоконференции RU.HUSKY с датами от 16 Jul 13 10:00:06 до 31 Mar 24 23:49:12, всего сообщений: 5321 Ответить на сообщение К списку сообщений Предыдущее сообщение Следующее сообщение = Сообщение: 4425 из 5321 ========================================= RU.HUSKY = От   : Nil Alexandrov                   2:5015/46          09 May 21 04:45:58 Кому : All                                                 09 May 21 04:45:58 Тема : Fixing statistics scripts hptlogstat.pl & st_htick.pl FGHI : area://RU.HUSKY?msgid=2:5015/46+609740b3 = Кодировка сообщения определена как: CP866 ================================== Ответ: area://RU.HUSKY?msgid=2:5020/1042+609982ec Ответ: area://RU.HUSKY?msgid=2:5010/352@fidonet+6099ebf2 Ответ: area://RU.HUSKY?msgid=2:5020/1042+609f89c2 ============================================================================== Hello, All! Обновился до последнeй версии hpt/htick и сломалась статистика. Как говориться, найди два отличия. > ----------  Thu 06 May 21, hpt/lnx 1.9.0-cur 17-02-17 > ----------  Thu 06 May 2021, hpt/lnx 1.9.0-cur 2021-05-03 В связи с этим привожу мои патчи. Там ещё немного строчка с бандлами по-другому, как минимум у меня, выглядит. diff --git a/misc/hptlogstat.pl b/misc/hptlogstat.pl index 7bb3e087..88a814d2 100755 -+- a/misc/hptlogstat.pl +++ b/misc/hptlogstat.pl @@ -71,7 +71,7 @@ while (<LOG>) {              $count{"\L$1"}++;              $posted++;          } -        $bundles++ if (/^6.*\s+bundle\s/); +        $bundles++ if (/^7.*\s+bundle\s\S+\sunpacking/);          $packets++ if (/^7.*\s+pkt\:\s/);      }  } @@ -113,7 +113,7 @@ printf "        bundles:          %.2f\n", $bundles/$period if $long_stats;  printf "        (auto)posted:     %.2f\n\n", $posted/$period if $posted;  # converting verbose date to epoch seconds  sub date_to_period { -    $_[0] =~ /(\d\d)\s(\w\w\w)\s(\d\d)/i; +    $_[0] =~ /(\d{2})\s(\w{3})\s(\d{2,4})/i;      ($day, $month, $year) = ($1, $2, $3);      timelocal("59", "59", "23", $day, $months{$month}, $year);  } diff --git a/misc/st_htick.pl b/misc/st_htick.pl index 6823d34..960ecba 100755 -+- a/misc/st_htick.pl +++ b/misc/st_htick.pl @@ -148,7 +148,7 @@ print   "+==============================================+==========+",  # converting verbose date to epoch seconds  sub date_to_period { -    $_[0] =~ /(\d\d)\s(\w\w\w)\s(\d\d)/i; +    $_[0] =~ /(\d{2})\s(\w{3})\s(\d{2,4})/i;      ($day, $month, $year) = ($1, $2, $3);      timelocal("59", "59", "23", $day, $months{$month}, $year);  } Ещё у меня вопрос по коду ниже > if (/^5.*\s+posting msg.*area:\s+($areaname)$/i) { Я нигде в сорцах хаски не нагрепал 'posting msg', можно указать откуда это? Best Regards, Nil --- GoldED+/LNX 1.1.5 * Origin: -=NIL BBS=- (2:5015/46) К главной странице гейта

Powered by NoSFeRaTU`s FGHIGate
Открытие страницы: 0.037710 секунды