Bug 26732 - SkipFiles directive broken
Summary: SkipFiles directive broken
Status: CLOSED WORKSFORME
Alias: None
Product: Sisyphus
Classification: Development
Component: awstats (show other bugs)
Version: unstable
Hardware: all Linux
: P3 critical
Assignee: Konstantin A Lepikhov (L.A. Kostis)
QA Contact: qa-sisyphus
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2011-12-20 03:08 MSK by Ivan Adzhubey
Modified: 2015-08-16 00:06 MSK (History)
3 users (show)

See Also:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description Ivan Adzhubey 2011-12-20 03:08:53 MSK
Сейчас заметил, что у меня с 1 ноября перестал работать awstats. Сбрасывает 
ВСЕ записи в логах апача с диагностикой:

Dropped record (URL ... not qualified by SkipFiles)

При этом неважно, указана соотв. строка URL или regex в SkipFiles или нет - 
просто если в конфигурации параметр SkipFiles не пустой, то никакие записи в 
логах не обрабатываются.

Никаких объяснений этому поведению мне самому пока найти не удалось. Похоже на 
баг, может версия перла не устраивает?

# rpm -qa|grep awstats
awstats-docs-6.95-alt1
awstats-apache-6.95-alt1
awstats-6.95-alt1

# rpm -qa|grep perl-base
perl-base-5.14.2-alt2

(Это для сервера, где используется apache, но такая же проблема и с apache2.)
Comment 1 Vladimir Lettiev 2011-12-20 10:11:53 MSK
Проблема действительно связана с обновлением perl. Конкретно вот это изменение 
http://search.cpan.org/~jesse/perl-5.14.0/pod/perldelta.pod#%28?^...%29_construct_signifies_default_modifiers

Awstats можно пропатчить примерно так:

--- awstats.pl~
+++ awstats.pl
@@ -1406,7 +1406,7 @@
 sub OptimizeArray {
 	my $array = shift;
 	my @arrayunreg = map {
-		if (/\(\?[-\w]*:(.*)\)/) { $1 }
+		if (/\(\?[\^-\w]*:(.*)\)/) { $1 }
 	} @$array;
 	print "@$array -> @arrayunreg\n";
 	my $notcasesensitive = shift;
@@ -7711,7 +7711,7 @@
 # Return:		standardregex
 #------------------------------------------------------------------------------
 sub UnCompileRegex {
-	shift =~ /\(\?[-\w]*:(.*)\)/;
+	shift =~ /\(\?[\^-\w]*:(.*)\)/;
 	return $1;
 }
Comment 2 Ivan Adzhubey 2011-12-22 05:21:37 MSK
(In reply to comment #1)
> Проблема действительно связана с обновлением perl. Конкретно вот это изменение 
> http://search.cpan.org/~jesse/perl-5.14.0/pod/perldelta.pod#%28?^...%29_construct_signifies_default_modifiers
> 
> Awstats можно пропатчить примерно так:

Спасибо, Владимир, патч помог. Может быть кто-нибудь пересоберет пакет с ним? Лучше бы конечно последнюю версию 7.0.
Comment 3 Ivan Adzhubey 2012-02-20 07:59:10 MSK
(In reply to comment #2)
> (In reply to comment #1)
> > 
> > Awstats можно пропатчить примерно так:
> 
> Спасибо, Владимир, патч помог. Может быть кто-нибудь пересоберет пакет с ним?
> Лучше бы конечно последнюю версию 7.0.

Что-то меня гложут сомнения по поводу эффективности этого патча. Суммарная статистика вроде восстановилась, но вот аггрегированния по URL-ам - раз в 10 меньше чем раньше. Похоже, что где-то в коде аггрегации тоже надо патчить.

А что, так тихо? Никого совсем-совсем не интересует статистика обращения к своим сайтам? И мейнтейнера у этого пакета нет? Или вышло постановление пользоваться чем-то другим, а мужики-то и не знают? Просветите, пожалуйста!

На дворе меж тем давно уже:

AWStats Last stable version is 7.0 - 2010-12-05 23:54
Comment 4 Konstantin A Lepikhov (L.A. Kostis) 2015-08-16 00:06:05 MSK
Предполагаю, что ошибка уже исправлена, закрываю.