~ubuntu-branches/ubuntu/hardy/awstats/hardy
» Revision
4
: wwwroot/cgi-bin/plugins/.#geoip_city_maxmind.pm.1.8
« back to all changes in this revision
Viewing changes to wwwroot/cgi-bin/plugins/.#geoip_city_maxmind.pm.1.8
- browse files at revision 4
- compare with another revision
- download diff
- download tarball
- view history from revision 4
- Committer: Bazaar Package Importer
- Author(s): Jonas Smedegaard, Charles Fry, Jonas Smedegaard
- Date: 2005-09-19 22:41:16 UTC
- mfrom: (1.2.1 upstream)
- Revision ID: james.westby@ubuntu.com-20050919224116-6bo795sxx5nsosby
Tags: 6.4-2
[ Charles Fry ]
* New co-maintainer.
* Suggest libgeo-ipfree-perl. Closes: #316126 (thanks to Gunnar Wolf
<gwolf@gwolf.org>).
* Fixed README.Debian path to configure.pl. Closes: #313093 (thanks to
Michael De Nil <michael@flex-it.be>).
[ Jonas Smedegaard ]
* Acknowledge NMU. Closes: bug#322591.
* Bump up watch version, and adjust the default command (we have moved
to SubVerSion).
* Add proto to URL in long description.
* User newer chown syntax in postinst (thanks to lintian).
* New co-maintainer.
* Suggest libgeo-ipfree-perl. Closes: #316126 (thanks to Gunnar Wolf
<gwolf@gwolf.org>).
* Fixed README.Debian path to configure.pl. Closes: #313093 (thanks to
Michael De Nil <michael@flex-it.be>).
[ Jonas Smedegaard ]
* Acknowledge NMU. Closes: bug#322591.
* Bump up watch version, and adjust the default command (we have moved
to SubVerSion).
* Add proto to URL in long description.
* User newer chown syntax in postinst (thanks to lintian).
- files added:
- debian/patches/02_redirect_to_STDERR.patch
- files removed:
- debian/patches/02_backport_6.4_security-fixes.patch
- files modified:
- README.TXT
added
removed
wwwroot/cgi-bin/plugins/.#geoip_city_maxmind.pm.1.8
1
#!/usr/bin/perl
2
#-----------------------------------------------------------------------------
3
# GeoIp Maxmind AWStats plugin
4
# This plugin allow you to get AWStats country report with countries detected
5
# from a Geographical database (GeoIP internal database) instead of domain
6
# hostname suffix.
7
#-----------------------------------------------------------------------------
8
# Perl Required Modules: Geo::IP (Geo::IP::PurePerl is not yet supported)
9
#-----------------------------------------------------------------------------
10
# $Revision: 1.8 $ - $Author: eldy $ - $Date: 2005/01/15 01:07:29 $
11
12
13
# <-----
14
# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
15
if (!eval ('require "Geo/IP.pm";')) {
16
return $@?"Error: $@":"Error: Need Perl module Geo::IP (Geo::IP::PurePerl is not yet supported)";
17
}
18
# ----->
19
use strict;no strict "refs";
20
21
22
23
#-----------------------------------------------------------------------------
24
# PLUGIN VARIABLES
25
#-----------------------------------------------------------------------------
26
# <-----
27
# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
28
# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
29
my $PluginNeedAWStatsVersion="6.2";
30
my $PluginHooksFunctions="AddHTMLMenuLink AddHTMLGraph ShowInfoHost SectionInitHashArray SectionProcessIp SectionProcessHostname SectionReadHistory SectionWriteHistory";
31
# ----->
32
33
# <-----
34
# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
35
use vars qw/
36
$geoip_city_maxmind
37
%_city_p
38
%_city_h
39
%_city_k
40
%_city_l
41
%_region_p
42
%_region_h
43
%_region_k
44
%_region_l
45
$MAXNBOFSECTIONGIR
46
%region
47
/;
48
my %countrylib=('ca'=>'Canadian Regions','us'=>'US regions');
49
my %regca=(
50
'AB',"Alberta",
51
'BC',"British Columbia",
52
'MB',"Manitoba",
53
'NB',"New Brunswick",
54
'NF',"Newfoundland",
55
'NS',"Nova Scotia",
56
'NU',"Nunavut",
57
'ON',"Ontario",
58
'PE',"Prince Edward Island",
59
'QC',"Quebec",
60
'SK',"Saskatchewan",
61
'NT',"Northwest Territories",
62
'YT',"Yukon Territory"
63
);
64
my %regus=(
65
'AA',"Armed Forces Americas",
66
'AE',"Armed Forces Europe, Middle East, & Canada",
67
'AK',"Alaska",
68
'AL',"Alabama",
69
'AP',"Armed Forces Pacific",
70
'AR',"Arkansas",
71
'AS',"American Samoa",
72
'AZ',"Arizona",
73
'CA',"California",
74
'CO',"Colorado",
75
'CT',"Connecticut",
76
'DC',"District of Columbia",
77
'DE',"Delaware",
78
'FL',"Florida",
79
'FM',"Federated States of Micronesia",
80
'GA',"Georgia",
81
'GU',"Guam",
82
'HI',"Hawaii",
83
'IA',"Iowa",
84
'ID',"Idaho",
85
'IL',"Illinois",
86
'IN',"Indiana",
87
'KS',"Kansas",
88
'KY',"Kentucky",
89
'LA',"Louisiana",
90
'MA',"Massachusetts",
91
'MD',"Maryland",
92
'ME',"Maine",
93
'MH',"Marshall Islands",
94
'MI',"Michigan",
95
'MN',"Minnesota",
96
'MO',"Missouri",
97
'MP',"Northern Mariana Islands",
98
'MS',"Mississippi",
99
'MT',"Montana",
100
'NC',"North Carolina",
101
'ND',"North Dakota",
102
'NE',"Nebraska",
103
'NH',"New Hampshire",
104
'NJ',"New Jersey",
105
'NM',"New Mexico",
106
'NV',"Nevada",
107
'NY',"New York",
108
'OH',"Ohio",
109
'OK',"Oklahoma",
110
'OR',"Oregon",
111
'PA',"Pennsylvania",
112
'PR',"Puerto Rico",
113
'PW',"Palau",
114
'RI',"Rhode Island",
115
'SC',"South Carolina",
116
'SD',"South Dakota",
117
'TN',"Tennessee",
118
'TX',"Texas",
119
'UT',"Utah",
120
'VA',"Virginia",
121
'VI',"Virgin Islands",
122
'VT',"Vermont",
123
'WA',"Washington",
124
'WV',"West Virginia",
125
'WI',"Wisconsin",
126
'WY',"Wyoming"
127
);
128
my %region=(
129
'ca'=>\%regca,
130
'us'=>\%regus
131
);
132
# ----->
133
134
135
#-----------------------------------------------------------------------------
136
# PLUGIN FUNCTION: Init_pluginname
137
#-----------------------------------------------------------------------------
138
sub Init_geoip_city_maxmind {
139
my $InitParams=shift;
140
my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
141
$MAXNBOFSECTIONGIR=10;
142
143
# <-----
144
# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
145
debug(" Plugin geoip_city_maxmind: InitParams=$InitParams",1);
146
# if ($UpdateStats) {
147
my ($mode,$datafile)=split(/\s+/,$InitParams,2);
148
if (! $datafile) { $datafile="GeoIPCity.dat"; }
149
if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE') { $mode=Geo::IP::GEOIP_MEMORY_CACHE(); }
150
else { $mode=Geo::IP::GEOIP_STANDARD(); }
151
debug(" Plugin geoip_city_maxmind: GeoIP initialized in mode $mode",1);
152
$geoip_city_maxmind = Geo::IP->open($datafile, $mode);
153
# }
154
# ----->
155
156
return ($checkversion?$checkversion:"$PluginHooksFunctions");
157
}
158
159
160
#-----------------------------------------------------------------------------
161
# PLUGIN FUNCTION: AddHTMLMenuLink_pluginname
162
# UNIQUE: NO (Several plugins using this function can be loaded)
163
#-----------------------------------------------------------------------------
164
sub AddHTMLMenuLink_geoip_city_maxmind {
165
my $categ=$_[0];
166
my $menu=$_[1];
167
my $menulink=$_[2];
168
my $menutext=$_[3];
169
# <-----
170
if ($Debug) { debug(" Plugin geoip_city_maxmind: AddHTMLMenuLink"); }
171
if ($categ eq 'who') {
172
$menu->{'plugin_geoip_city_maxmind'}=2.2; # Pos
173
$menulink->{'plugin_geoip_city_maxmind'}=2; # Type of link
174
$menutext->{'plugin_geoip_city_maxmind'}="Cities"; # Text
175
}
176
# ----->
177
return 0;
178
}
179
180
181
#-----------------------------------------------------------------------------
182
# PLUGIN FUNCTION: AddHTMLGraph_pluginname
183
# UNIQUE: NO (Several plugins using this function can be loaded)
184
#-----------------------------------------------------------------------------
185
sub AddHTMLGraph_geoip_city_maxmind {
186
my $categ=$_[0];
187
my $menu=$_[1];
188
my $menulink=$_[2];
189
my $menutext=$_[3];
190
# <-----
191
my $ShowCities='H';
192
$MinHit{'Cities'}=1;
193
my $total_p; my $total_h; my $total_k;
194
my $rest_p; my $rest_h; my $rest_k;
195
196
if ($Debug) { debug(" Plugin geoip_city_maxmind: AddHTMLGraph $categ $menu $menulink $menutext"); }
197
my $title='Cities';
198
&tab_head("$title",19,0,'cities');
199
print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"2\">Cities : ".((scalar keys %_city_h)-($_city_h{'unknown'}?1:0))."</th>";
200
if ($ShowCities =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
201
if ($ShowCities =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
202
if ($ShowCities =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
203
if ($ShowCities =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
204
if ($ShowCities =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
205
if ($ShowCities =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
206
print "</tr>\n";
207
$total_p=$total_h=$total_k=0;
208
my $count=0;
209
&BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Cities'},\%_city_h,\%_city_h);
210
# Group by country
211
# my @countrylist=('ca','us');
212
# foreach my $country (@countrylist) {
213
# print "<tr>";
214
# print "<td class=\"aws\"><b>".$countrylib{$country}."</b></td>";
215
# if ($ShowCities =~ /P/i) { print "<td> </td>"; }
216
# if ($ShowCities =~ /P/i) { print "<td> </td>"; }
217
# if ($ShowCities =~ /H/i) { print "<td> </td>"; }
218
# if ($ShowCities =~ /H/i) { print "<td> </td>"; }
219
# if ($ShowCities =~ /B/i) { print "<td> </td>"; }
220
# if ($ShowCities =~ /L/i) { print "<td> </td>"; }
221
# print "</tr>\n";
222
foreach my $key (@keylist) {
223
if ($key eq 'unknown') { next; }
224
my ($countrycode,$city)=split('_',$key,2);
225
$city=~tr/_/ /;
226
# if ($countrycode ne $country) { next; }
227
my $p_p; my $p_h;
228
if ($TotalPages) { $p_p=int($_city_p{$key}/$TotalPages*1000)/10; }
229
if ($TotalHits) { $p_h=int($_city_h{$key}/$TotalHits*1000)/10; }
230
print "<tr>";
231
print "<td class=\"aws\">".$DomainsHashIDLib{$countrycode}."</td>";
232
print "<td class=\"aws\">".ucfirst($city)."</td>";
233
if ($ShowCities =~ /P/i) { print "<td>".($_city_p{$key}?$_city_p{$key}:" ")."</td>"; }
234
if ($ShowCities =~ /P/i) { print "<td>".($_city_p{$key}?"$p_p %":' ')."</td>"; }
235
if ($ShowCities =~ /H/i) { print "<td>".($_city_h{$key}?$_city_h{$key}:" ")."</td>"; }
236
if ($ShowCities =~ /H/i) { print "<td>".($_city_h{$key}?"$p_h %":' ')."</td>"; }
237
if ($ShowCities =~ /B/i) { print "<td>".Format_Bytes($_city_k{$key})."</td>"; }
238
if ($ShowCities =~ /L/i) { print "<td>".($_city_p{$key}?Format_Date($_city_l{$key},1):'-')."</td>"; }
239
print "</tr>\n";
240
$total_p += $_city_p{$key}||0;
241
$total_h += $_city_h{$key};
242
$total_k += $_city_k{$key}||0;
243
$count++;
244
}
245
# }
246
if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
247
$rest_p=0;
248
$rest_h=$TotalHits-$total_h;
249
$rest_k=0;
250
if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) { # All other cities
251
# print "<tr>";
252
# print "<td class=\"aws\"> </td>";
253
# if ($ShowCities =~ /P/i) { print "<td> </td>"; }
254
# if ($ShowCities =~ /P/i) { print "<td> </td>"; }
255
# if ($ShowCities =~ /H/i) { print "<td> </td>"; }
256
# if ($ShowCities =~ /H/i) { print "<td> </td>"; }
257
# if ($ShowCities =~ /B/i) { print "<td> </td>"; }
258
# if ($ShowCities =~ /L/i) { print "<td> </td>"; }
259
# print "</tr>\n";
260
261
my $p_p; my $p_h;
262
if ($TotalPages) { $p_p=int($rest_p/$TotalPages*1000)/10; }
263
if ($TotalHits) { $p_h=int($rest_h/$TotalHits*1000)/10; }
264
print "<tr>";
265
print "<td class=\"aws\" colspan=\"2\"><span style=\"color: #$color_other\">$Message[2]/$Message[0]</span></td>";
266
if ($ShowCities =~ /P/i) { print "<td>".($rest_p?$rest_p:" ")."</td>"; }
267
if ($ShowCities =~ /P/i) { print "<td>".($rest_p?"$p_p %":' ')."</td>"; }
268
if ($ShowCities =~ /H/i) { print "<td>".($rest_h?$rest_h:" ")."</td>"; }
269
if ($ShowCities =~ /H/i) { print "<td>".($rest_h?"$p_h %":' ')."</td>"; }
270
if ($ShowCities =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
271
if ($ShowCities =~ /L/i) { print "<td> </td>"; }
272
print "</tr>\n";
273
}
274
&tab_end();
275
276
# ----->
277
return 0;
278
}
279
280
281
#-----------------------------------------------------------------------------
282
# PLUGIN FUNCTION: ShowInfoHost_pluginname
283
# UNIQUE: NO (Several plugins using this function can be loaded)
284
# Function called to add additionnal columns to the Hosts report.
285
# This function is called when building rows of the report (One call for each
286
# row). So it allows you to add a column in report, for example with code :
287
# print "<TD>This is a new cell for $param</TD>";
288
# Parameters: Host name or ip
289
#-----------------------------------------------------------------------------
290
sub ShowInfoHost_geoip_city_maxmind {
291
my $param="$_[0]";
292
# <-----
293
if ($param eq '__title__') {
294
my $NewLinkParams=${QueryString};
295
$NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
296
$NewLinkParams =~ s/(^|&)output(=\w*|$)//i;
297
$NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
298
$NewLinkParams =~ s/(^|&)framename=[^&]*//i;
299
my $NewLinkTarget='';
300
if ($DetailedReportsOnNewWindows) { $NewLinkTarget=" target=\"awstatsbis\""; }
301
if (($FrameName eq 'mainleft' || $FrameName eq 'mainright') && $DetailedReportsOnNewWindows < 2) {
302
$NewLinkParams.="&framename=mainright";
303
$NewLinkTarget=" target=\"mainright\"";
304
}
305
$NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
306
if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
307
308
print "<th width=\"80\">";
309
print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=plugin_geoip_city_maxmind"):"$PROG$StaticLinks.plugin_geoip_city_maxmind.$StaticExt")."\"$NewLinkTarget>GeoIP<br>City</a>";
310
print "</th>";
311
}
312
elsif ($param) {
313
my $ip=0;
314
my $key;
315
if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address
316
$ip=4;
317
$key=$param;
318
}
319
elsif ($param =~ /^[0-9A-F]*:/i) { # IPv6 address
320
$ip=6;
321
$key=$param;
322
}
323
print "<td>";
324
if ($key && $ip==4) {
325
my $record=();
326
$record=$geoip_city_maxmind->record_by_addr($param) if $geoip_city_maxmind;
327
if ($Debug) { debug(" Plugin geoip_city_maxmind: GetCityByIp for $param: [$record]",5); }
328
my $city;
329
$city=$record->city if $record;
330
if ($city) { print "$city"; }
331
else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
332
}
333
if ($key && $ip==6) {
334
print "<span style=\"color: #$color_other\">$Message[0]</span>";
335
}
336
if (! $key) {
337
my $record=();
338
$record=$geoip_city_maxmind->record_by_name($param) if $geoip_city_maxmind;
339
if ($Debug) { debug(" Plugin geoip_city_maxmind: GetCityByHostname for $param: [$record]",5); }
340
my $city;
341
$city=$record->city if $record;
342
if ($city) { print "$city"; }
343
else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
344
}
345
print "</td>";
346
}
347
else {
348
print "<td> </td>";
349
}
350
return 1;
351
# ----->
352
}
353
354
355
#-----------------------------------------------------------------------------
356
# PLUGIN FUNCTION: SectionInitHashArray_pluginname
357
# UNIQUE: NO (Several plugins using this function can be loaded)
358
#-----------------------------------------------------------------------------
359
sub SectionInitHashArray_geoip_city_maxmind {
360
my $param="$_[0]";
361
# <-----
362
if ($Debug) { debug(" Plugin geoip_city_maxmind: Init_HashArray"); }
363
%_city_p = %_city_h = %_city_k = %_city_l =();
364
# ----->
365
return 0;
366
}
367
368
369
#-----------------------------------------------------------------------------
370
# PLUGIN FUNCTION: SectionProcessIP_pluginname
371
# UNIQUE: NO (Several plugins using this function can be loaded)
372
#-----------------------------------------------------------------------------
373
sub SectionProcessIp_geoip_city_maxmind {
374
my $param="$_[0]"; # Param must be an IP
375
# <-----
376
my $record=();
377
$record=$geoip_city_maxmind->record_by_addr($param) if $geoip_city_maxmind;
378
if ($Debug) { debug(" Plugin geoip_city_maxmind: GetCityByIp for $param: [$record]",5); }
379
my $city=$record->city;
380
# if ($PageBool) { $_city_p{$city}++; }
381
if ($city) {
382
my $countrycity=lc(($record->country_code)."_".$city);
383
$countrycity=~tr/ /_/;
384
$_city_h{$countrycity}++;
385
} else {
386
$_city_h{'unknown'}++;
387
}
388
# if ($timerecord > $_city_l{$city}) { $_city_l{$city}=$timerecord; }
389
# ----->
390
return;
391
}
392
393
394
#-----------------------------------------------------------------------------
395
# PLUGIN FUNCTION: SectionProcessHostname_pluginname
396
# UNIQUE: NO (Several plugins using this function can be loaded)
397
#-----------------------------------------------------------------------------
398
sub SectionProcessHostname_geoip_city_maxmind {
399
my $param="$_[0]"; # Param must be an IP
400
# <-----
401
my $record=();
402
$record=$geoip_city_maxmind->record_by_name($param) if $geoip_city_maxmind;
403
if ($Debug) { debug(" Plugin geoip_city_maxmind: GetCityByName for $param: [$record]",5); }
404
my $city=$record->city;
405
# if ($PageBool) { $_city_p{$city}++; }
406
if ($city) {
407
my $countrycity=lc(($record->country_code)."_".$city);
408
$countrycity=~tr/ /_/;
409
$_city_h{$countrycity}++;
410
} else {
411
$_city_h{'unknown'}++;
412
}
413
# if ($timerecord > $_city_l{$city}) { $_city_l{$city}=$timerecord; }
414
# ----->
415
return;
416
}
417
418
419
#-----------------------------------------------------------------------------
420
# PLUGIN FUNCTION: SectionReadHistory_pluginname
421
# UNIQUE: NO (Several plugins using this function can be loaded)
422
#-----------------------------------------------------------------------------
423
sub SectionReadHistory_geoip_city_maxmind {
424
my $issectiontoload=shift;
425
my $xmlold=shift;
426
my $xmleb=shift;
427
my $countlines=shift;
428
# <-----
429
if ($Debug) { debug(" Plugin geoip_city_maxmind: Begin of PLUGIN_geoip_city_maxmind section"); }
430
my @field=();
431
my $count=0;my $countloaded=0;
432
do {
433
if ($field[0]) {
434
$count++;
435
if ($issectiontoload) {
436
$countloaded++;
437
if ($field[2]) { $_city_h{$field[0]}+=$field[2]; }
438
}
439
}
440
$_=<HISTORY>;
441
chomp $_; s/\r//;
442
@field=split(/\s+/,($xmlold?CleanFromTags($_):$_));
443
$countlines++;
444
}
445
until ($field[0] eq 'END_PLUGIN_geoip_city_maxmind' || $field[0] eq "${xmleb}END_PLUGIN_geoip_city_maxmind" || ! $_);
446
if ($field[0] ne 'END_PLUGIN_geoip_city_maxmind' && $field[0] ne "${xmleb}END_PLUGIN_geoip_city_maxmind") { error("History file is corrupted (End of section PLUGIN not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
447
if ($Debug) { debug(" Plugin geoip_city_maxmind: End of PLUGIN_geoip_city_maxmind section ($count entries, $countloaded loaded)"); }
448
# ----->
449
return 0;
450
}
451
452
#-----------------------------------------------------------------------------
453
# PLUGIN FUNCTION: SectionWriteHistory_pluginname
454
# UNIQUE: NO (Several plugins using this function can be loaded)
455
#-----------------------------------------------------------------------------
456
sub SectionWriteHistory_geoip_city_maxmind {
457
my ($xml,$xmlbb,$xmlbs,$xmlbe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=(shift,shift,shift,shift,shift,shift,shift,shift,shift);
458
if ($Debug) { debug(" Plugin geoip_city_maxmind: SectionWriteHistory_geoip_city_maxmind start - ".(scalar keys %_city_h)); }
459
# <-----
460
print HISTORYTMP "\n";
461
if ($xml) { print HISTORYTMP "<section id='plugin_geoip_city_maxmind'><sortfor>$MAXNBOFSECTIONGIR</sortfor><comment>\n"; }
462
print HISTORYTMP "# Plugin key - Pages - Hits - Bandwidth - Last access\n";
463
#print HISTORYTMP "# The $MaxNbOfExtra[$extranum] first number of hits are first\n";
464
$ValueInFile{'plugin_geoip_city_maxmind'}=tell HISTORYTMP;
465
print HISTORYTMP "${xmlbb}BEGIN_PLUGIN_geoip_city_maxmind${xmlbs}".(scalar keys %_city_h)."${xmlbe}\n";
466
&BuildKeyList($MAXNBOFSECTIONGIR,1,\%_city_h,\%_city_h);
467
my %keysinkeylist=();
468
foreach (@keylist) {
469
$keysinkeylist{$_}=1;
470
#my $page=$_city_p{$_}||0;
471
#my $bytes=$_city_k{$_}||0;
472
#my $lastaccess=$_city_l{$_}||'';
473
print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_city_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
474
}
475
foreach (keys %_city_h) {
476
if ($keysinkeylist{$_}) { next; }
477
#my $page=$_city_p{$_}||0;
478
#my $bytes=$_city_k{$_}||0;
479
#my $lastaccess=$_city_l{$_}||'';
480
print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_city_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
481
}
482
print HISTORYTMP "${xmleb}END_PLUGIN_geoip_city_maxmind${xmlee}\n";
483
# ----->
484
return 0;
485
}
486
487
488
489
1; # Do not remove this line
Loggerhead is a web-based interface for Breezy
Version: 2.0.1