Merge branch 'dev' of soutade.fr:iwla into dev

This commit is contained in:
Gregory Soutade 2015-06-12 17:56:53 +02:00
commit 2d46dfc513
3 changed files with 46 additions and 8 deletions

File diff suppressed because one or more lines are too long

View File

@ -7,6 +7,7 @@ my @awstats_libs = ('search_engines.pm', 'robots.pm', 'operating_systems.pm', 'b
# my @awstats_libs = ('browsers.pm', 'browsers_phone.pm', 'mime.pm', 'referer_spam.pm', 'search_engines.pm', 'operating_systems.pm', 'robots.pm', 'worms.pm');
foreach $lib (@awstats_libs) {require $awstats_lib_root . $lib;}
require './tools/own_search_engines.pm';
sub dumpList {
my @list = @{$_[0]};
@ -64,6 +65,7 @@ print $FIC "]\n\n";
print $FIC "search_engines_2 = [";
dumpList(\@SearchEnginesSearchIDOrder_list2, $FIC, 1);
dumpList(\@Own_SearchEnginesSearchIDOrder, $FIC, 0);
print $FIC "]\n\n";
print $FIC "not_search_engines_keys = {";
@ -72,10 +74,12 @@ print $FIC "}\n\n";
print $FIC "search_engines_hashid = {";
dumpHash(\%SearchEnginesHashID, $FIC, 1);
dumpHash(\%Own_SearchEnginesHashID, $FIC, 0);
print $FIC "}\n\n";
print $FIC "search_engines_knwown_url = {";
dumpHash(\%SearchEnginesKnownUrl, $FIC, 1);
dumpHash(\%Own_SearchEnginesKnownUrl, $FIC, 0);
print $FIC "}\n\n";
print $FIC "operating_systems = [";

View File

@ -0,0 +1,34 @@
@Own_SearchEnginesSearchIDOrder=(
'jwss\.cc',
'lemoteur\.orange\.fr',
'windowssearch\.com',
'qwant\.com',
'wow\.com',
'searches\.omiga-plus\.com',
'buenosearch\.com',
'searches\.vi-view\.com'
);
%Own_SearchEnginesHashID = (
'jwss\.cc', 'jws',
'lemoteur\.orange\.fr', 'Orange',
'windowssearch\.com', 'Windows Search',
'qwant\.com', 'Qwant',
'wow\.com', 'WOW',
'searches\.omiga-plus\.com', 'Omiga-plus',
'buenosearch\.com', 'Bueno Search',
'searches\.vi-view\.com', 'vi-view'
);
%Own_SearchEnginesKnownUrl=(
'jws','q=',
'Orange', 'kw=',
'Windows Search', 'q=',
'Qwant', 'q=',
'WOW', 'q=',
'Omiga-plus', 'q=',
'Bueno Search', 'q=',
'vi-view', 'q='
);