-# AWSTATS CONFIGURE FILE 6.2
+# AWSTATS CONFIGURE FILE 6.3
#-----------------------------------------------------------------------------
# Copy this file into awstats.www.mydomain.conf and edit this new config file
# to setup AWStats (See documentation in docs/ directory).
#
#LoadPlugin="geoip_city_maxmind GEOIP_STANDARD /pathto/GeoIPCity.dat"
+# Plugin: GeoIP_ISP_Maxmind
+# Perl modules required: Geo::IP (from Maxmind)
+# This plugin add a chart of hits by ISP.
+# Note: This plugin need Maxmind GeoIP Perl module AND the ISP database.
+# Note: I get some problem with Maxmind Geo::IP Perl module with ActiveState
+# on Windows but it works great on Linux with default Perl.
+# You need to purchase a license from Maxmind to get/use the ISP database.
+# This plugin reduces AWStats speed.
+#
+#LoadPlugin="geoip_isp_maxmind GEOIP_STANDARD /pathto/GeoIPISP.dat"
+
+# Plugin: GeoIP_Org_Maxmind
+# Perl modules required: Geo::IP (from Maxmind)
+# This plugin add a chart of hits by Organization name
+# Note: This plugin need Maxmind GeoIP Perl module AND the Org database.
+# Note: I get some problem with Maxmind Geo::IP Perl module with ActiveState
+# on Windows but it works great on Linux with default Perl.
+# You need to purchase a license from Maxmind to get/use the Org database.
+# This plugin reduces AWStats speed.
+#
+#LoadPlugin="geoip_org_maxmind GEOIP_STANDARD /pathto/GeoIPOrg.dat"
+
# Plugin: UserInfo
# Perl modules required: None
# Add a text (Firtname, Lastname, Office Department, ...) in authenticated user
print "<span style=\"color: #$color_other\">$Message[0]</span>";
}
if (! $key) {
- print "<span style=\"color: #$color_other\">$Message[0]</span>";
+ my $record=();
+ $record=$geoip_city_maxmind->record_by_name($param) if $geoip_city_maxmind;
+ if ($Debug) { debug(" Plugin geoip_city_maxmind: GetCityByHostname for $param: [$record]",5); }
+ my $city;
+ $city=$record->city if $record;
+ if ($city) { print "$city"; }
+ else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
}
print "</td>";
}
--- /dev/null
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# GeoIp_Isp_Maxmind AWStats plugin
+# This plugin allow you to add a city report.
+# Need the licensed ISP database from Maxmind.
+#-----------------------------------------------------------------------------
+# Perl Required Modules: Geo::IP (Geo::IP::PurePerl is not yet supported)
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+if (!eval ('require "Geo/IP.pm";')) {
+ return $@?"Error: $@":"Error: Need Perl module Geo::IP (Geo::IP::PurePerl is not yet supported)";
+}
+# ----->
+use strict;no strict "refs";
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN VARIABLES
+#-----------------------------------------------------------------------------
+# <-----
+# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
+# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
+my $PluginNeedAWStatsVersion="6.2";
+my $PluginHooksFunctions="AddHTMLMenuLink AddHTMLGraph ShowInfoHost SectionInitHashArray SectionProcessIp SectionProcessHostname SectionReadHistory SectionWriteHistory";
+# ----->
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
+use vars qw/
+$geoip_isp_maxmind
+%_isp_p
+%_isp_h
+%_isp_k
+%_isp_l
+$MAXNBOFSECTIONGIR
+/;
+# ----->
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: Init_pluginname
+#-----------------------------------------------------------------------------
+sub Init_geoip_isp_maxmind {
+ my $InitParams=shift;
+ my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+ $MAXNBOFSECTIONGIR=10;
+
+ # <-----
+ # ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
+ debug(" Plugin geoip_isp_maxmind: InitParams=$InitParams",1);
+# if ($UpdateStats) {
+ my ($mode,$datafile)=split(/\s+/,$InitParams,2);
+ if (! $datafile) { $datafile="GeoIPCity.dat"; }
+ if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE') { $mode=Geo::IP::GEOIP_MEMORY_CACHE(); }
+ else { $mode=Geo::IP::GEOIP_STANDARD(); }
+ debug(" Plugin geoip_isp_maxmind: GeoIP initialized in mode $mode",1);
+ $geoip_isp_maxmind = Geo::IP->open($datafile, $mode);
+# }
+ # ----->
+
+ return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: AddHTMLMenuLink_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub AddHTMLMenuLink_geoip_isp_maxmind {
+ my $categ=$_[0];
+ my $menu=$_[1];
+ my $menulink=$_[2];
+ my $menutext=$_[3];
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: AddHTMLMenuLink"); }
+ if ($categ eq 'who') {
+ $menu->{'plugin_geoip_isp_maxmind'}=1; # Pos
+ $menulink->{'plugin_geoip_isp_maxmind'}=2; # Type of link
+ $menutext->{'plugin_geoip_isp_maxmind'}="Cities"; # Text
+ }
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: AddHTMLGraph_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub AddHTMLGraph_geoip_isp_maxmind {
+ my $categ=$_[0];
+ my $menu=$_[1];
+ my $menulink=$_[2];
+ my $menutext=$_[3];
+ # <-----
+ my $ShowISP='H';
+ $MinHit{'Isp'}=1;
+ my $total_p; my $total_h; my $total_k;
+ my $rest_p; my $rest_h; my $rest_k;
+
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: AddHTMLGraph $categ $menu $menulink $menutext"); }
+ my $title='Cities';
+ &tab_head("$title",19,0,'cities');
+ print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>ISP : ".((scalar keys %_isp_h)-($_isp_h{'unknown'}?1:0))."</th>";
+ if ($ShowISP =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
+ if ($ShowISP =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
+ if ($ShowISP =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+ if ($ShowISP =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
+ if ($ShowISP =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
+ if ($ShowISP =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+ print "</tr>\n";
+ $total_p=$total_h=$total_k=0;
+ my $count=0;
+ &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Isp'},\%_isp_h,\%_isp_h);
+ foreach my $key (@keylist) {
+ if ($key eq 'unknown') { next; }
+ my $p_p; my $p_h;
+ if ($TotalPages) { $p_p=int($_isp_p{$key}/$TotalPages*1000)/10; }
+ if ($TotalHits) { $p_h=int($_isp_h{$key}/$TotalHits*1000)/10; }
+ print "<tr>";
+ print "<td class=\"aws\">".ucfirst($key)."</td>";
+ if ($ShowISP =~ /P/i) { print "<td>".($_isp_p{$key}?$_isp_p{$key}:" ")."</td>"; }
+ if ($ShowISP =~ /P/i) { print "<td>".($_isp_p{$key}?"$p_p %":' ')."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($_isp_h{$key}?$_isp_h{$key}:" ")."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($_isp_h{$key}?"$p_h %":' ')."</td>"; }
+ if ($ShowISP =~ /B/i) { print "<td>".Format_Bytes($_isp_k{$key})."</td>"; }
+ if ($ShowISP =~ /L/i) { print "<td>".($_isp_p{$key}?Format_Date($_isp_l{$key},1):'-')."</td>"; }
+ print "</tr>\n";
+ $total_p += $_isp_p{$key}||0;
+ $total_h += $_isp_h{$key};
+ $total_k += $_isp_k{$key}||0;
+ $count++;
+ }
+ if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
+ $rest_p=0;
+ $rest_h=$TotalHits-$total_h;
+ $rest_k=0;
+ if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) { # All other cities
+# print "<tr>";
+# print "<td class=\"aws\"> </td>";
+# if ($ShowISP =~ /P/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /P/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /H/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /H/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /B/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /L/i) { print "<td> </td>"; }
+# print "</tr>\n";
+
+ my $p_p; my $p_h;
+ if ($TotalPages) { $p_p=int($rest_p/$TotalPages*1000)/10; }
+ if ($TotalHits) { $p_h=int($rest_h/$TotalHits*1000)/10; }
+ print "<tr>";
+ print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]/$Message[0]</span></td>";
+ if ($ShowISP =~ /P/i) { print "<td>".($rest_p?$rest_p:" ")."</td>"; }
+ if ($ShowISP =~ /P/i) { print "<td>".($rest_p?"$p_p %":' ')."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($rest_h?$rest_h:" ")."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($rest_h?"$p_h %":' ')."</td>"; }
+ if ($ShowISP =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
+ if ($ShowISP =~ /L/i) { print "<td> </td>"; }
+ print "</tr>\n";
+ }
+ &tab_end();
+
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: ShowInfoHost_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+# Function called to add additionnal columns to the Hosts report.
+# This function is called when building rows of the report (One call for each
+# row). So it allows you to add a column in report, for example with code :
+# print "<TD>This is a new cell for $param</TD>";
+# Parameters: Host name or ip
+#-----------------------------------------------------------------------------
+sub ShowInfoHost_geoip_isp_maxmind {
+ my $param="$_[0]";
+ # <-----
+ if ($param eq '__title__') {
+ print "<th width=\"80\">GeoIP<br>ISP</th>";
+ }
+ elsif ($param) {
+ my $ip=0;
+ my $key;
+ if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address
+ $ip=4;
+ $key=$param;
+ }
+ elsif ($param =~ /^[0-9A-F]*:/i) { # IPv6 address
+ $ip=6;
+ $key=$param;
+ }
+ print "<td>";
+ if ($key && $ip==4) {
+ my $isp=$geoip_isp_maxmind->org_by_addr($param) if $geoip_isp_maxmind;
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: GetIspByIp for $param: [$isp]",5); }
+ if ($isp) { print "$isp"; }
+ else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
+ }
+ if ($key && $ip==6) {
+ print "<span style=\"color: #$color_other\">$Message[0]</span>";
+ }
+ if (! $key) {
+ my $isp=$geoip_isp_maxmind->org_by_name($param) if $geoip_isp_maxmind;
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: GetIspByHostname for $param: [$isp]",5); }
+ if ($isp) { print "$isp"; }
+ else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
+ }
+ print "</td>";
+ }
+ else {
+ print "<td> </td>";
+ }
+ return 1;
+ # ----->
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionInitHashArray_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionInitHashArray_geoip_isp_maxmind {
+ my $param="$_[0]";
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: Init_HashArray"); }
+ %_isp_p = %_isp_h = %_isp_k = %_isp_l =();
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionProcessIP_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionProcessIp_geoip_isp_maxmind {
+ my $param="$_[0]"; # Param must be an IP
+ # <-----
+ my $isp = $geoip_isp_maxmind->org_by_addr($param) if $geoip_isp_maxmind;
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: GetIspByIp for $param: [$isp]",5); }
+ if ($isp) {
+ $isp =~ s/\s/_/g;
+ $_isp_h{$isp}++;
+ } else {
+ $_isp_h{'unknown'}++;
+ }
+# if ($timerecord > $_isp_l{$city}) { $_isp_l{$city}=$timerecord; }
+ # ----->
+ return;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionProcessHostname_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionProcessHostname_geoip_isp_maxmind {
+ my $param="$_[0]"; # Param must be an IP
+ # <-----
+ my $isp = $geoip_isp_maxmind->org_by_name($param) if $geoip_isp_maxmind;
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: GetIspByHostname for $param: [$isp]",5); }
+ if ($isp) {
+ $isp =~ s/\s/_/g;
+ $_isp_h{$isp}++;
+ } else {
+ $_isp_h{'unknown'}++;
+ }
+# if ($timerecord > $_isp_l{$city}) { $_isp_l{$city}=$timerecord; }
+ # ----->
+ return;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionReadHistory_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionReadHistory_geoip_isp_maxmind {
+ my $issectiontoload=shift;
+ my $xmlold=shift;
+ my $xmleb=shift;
+ my $countlines=shift;
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: Begin of PLUGIN_geoip_isp_maxmind section"); }
+ my @field=();
+ my $count=0;my $countloaded=0;
+ do {
+ if ($field[0]) {
+ $count++;
+ if ($issectiontoload) {
+ $countloaded++;
+ if ($field[2]) { $_isp_h{$field[0]}+=$field[2]; }
+ }
+ }
+ $_=<HISTORY>;
+ chomp $_; s/\r//;
+ @field=split(/\s+/,($xmlold?CleanFromTags($_):$_));
+ $countlines++;
+ }
+ until ($field[0] eq 'END_PLUGIN_geoip_isp_maxmind' || $field[0] eq "${xmleb}END_PLUGIN_geoip_isp_maxmind" || ! $_);
+ if ($field[0] ne 'END_PLUGIN_geoip_isp_maxmind' && $field[0] ne "${xmleb}END_PLUGIN_geoip_isp_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); }
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: End of PLUGIN_geoip_isp_maxmind section ($count entries, $countloaded loaded)"); }
+ # ----->
+ return 0;
+}
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionWriteHistory_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionWriteHistory_geoip_isp_maxmind {
+ my ($xml,$xmlbb,$xmlbs,$xmlbe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=(shift,shift,shift,shift,shift,shift,shift,shift,shift);
+ if ($Debug) { debug(" Plugin geoip_isp_maxmind: SectionWriteHistory_geoip_isp_maxmind start - ".(scalar keys %_isp_h)); }
+ # <-----
+ print HISTORYTMP "\n";
+ if ($xml) { print HISTORYTMP "<section id='plugin_geoip_isp_maxmind'><sortfor>$MAXNBOFSECTIONGIR</sortfor><comment>\n"; }
+ print HISTORYTMP "# Plugin key - Pages - Hits - Bandwidth - Last access\n";
+ #print HISTORYTMP "# The $MaxNbOfExtra[$extranum] first number of hits are first\n";
+ $ValueInFile{'plugin_geoip_isp_maxmind'}=tell HISTORYTMP;
+ print HISTORYTMP "${xmlbb}BEGIN_PLUGIN_geoip_isp_maxmind${xmlbs}".(scalar keys %_isp_h)."${xmlbe}\n";
+ &BuildKeyList($MAXNBOFSECTIONGIR,1,\%_isp_h,\%_isp_h);
+ my %keysinkeylist=();
+ foreach (@keylist) {
+ $keysinkeylist{$_}=1;
+ #my $page=$_isp_p{$_}||0;
+ #my $bytes=$_isp_k{$_}||0;
+ #my $lastaccess=$_isp_l{$_}||'';
+ print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_isp_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
+ }
+ foreach (keys %_isp_h) {
+ if ($keysinkeylist{$_}) { next; }
+ #my $page=$_isp_p{$_}||0;
+ #my $bytes=$_isp_k{$_}||0;
+ #my $lastaccess=$_isp_l{$_}||'';
+ print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_isp_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
+ }
+ print HISTORYTMP "${xmleb}END_PLUGIN_geoip_isp_maxmind${xmlee}\n";
+ # ----->
+ return 0;
+}
+
+
+
+1; # Do not remove this line
--- /dev/null
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# GeoIp_Org_Maxmind AWStats plugin
+# This plugin allow you to add a city report.
+# Need the licensed ISP database from Maxmind.
+#-----------------------------------------------------------------------------
+# Perl Required Modules: Geo::IP (Geo::IP::PurePerl is not yet supported)
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+if (!eval ('require "Geo/IP.pm";')) {
+ return $@?"Error: $@":"Error: Need Perl module Geo::IP (Geo::IP::PurePerl is not yet supported)";
+}
+# ----->
+use strict;no strict "refs";
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN VARIABLES
+#-----------------------------------------------------------------------------
+# <-----
+# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
+# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
+my $PluginNeedAWStatsVersion="6.2";
+my $PluginHooksFunctions="AddHTMLMenuLink AddHTMLGraph ShowInfoHost SectionInitHashArray SectionProcessIp SectionProcessHostname SectionReadHistory SectionWriteHistory";
+# ----->
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
+use vars qw/
+$geoip_org_maxmind
+%_org_p
+%_org_h
+%_org_k
+%_org_l
+$MAXNBOFSECTIONGIR
+/;
+# ----->
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: Init_pluginname
+#-----------------------------------------------------------------------------
+sub Init_geoip_org_maxmind {
+ my $InitParams=shift;
+ my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+ $MAXNBOFSECTIONGIR=10;
+
+ # <-----
+ # ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
+ debug(" Plugin geoip_org_maxmind: InitParams=$InitParams",1);
+# if ($UpdateStats) {
+ my ($mode,$datafile)=split(/\s+/,$InitParams,2);
+ if (! $datafile) { $datafile="GeoIPCity.dat"; }
+ if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE') { $mode=Geo::IP::GEOIP_MEMORY_CACHE(); }
+ else { $mode=Geo::IP::GEOIP_STANDARD(); }
+ debug(" Plugin geoip_org_maxmind: GeoIP initialized in mode $mode",1);
+ $geoip_org_maxmind = Geo::IP->open($datafile, $mode);
+# }
+ # ----->
+
+ return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: AddHTMLMenuLink_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub AddHTMLMenuLink_geoip_org_maxmind {
+ my $categ=$_[0];
+ my $menu=$_[1];
+ my $menulink=$_[2];
+ my $menutext=$_[3];
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: AddHTMLMenuLink"); }
+ if ($categ eq 'who') {
+ $menu->{'plugin_geoip_org_maxmind'}=1; # Pos
+ $menulink->{'plugin_geoip_org_maxmind'}=2; # Type of link
+ $menutext->{'plugin_geoip_org_maxmind'}="Cities"; # Text
+ }
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: AddHTMLGraph_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub AddHTMLGraph_geoip_org_maxmind {
+ my $categ=$_[0];
+ my $menu=$_[1];
+ my $menulink=$_[2];
+ my $menutext=$_[3];
+ # <-----
+ my $ShowISP='H';
+ $MinHit{'Org'}=1;
+ my $total_p; my $total_h; my $total_k;
+ my $rest_p; my $rest_h; my $rest_k;
+
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: AddHTMLGraph $categ $menu $menulink $menutext"); }
+ my $title='Cities';
+ &tab_head("$title",19,0,'cities');
+ print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>Organizations : ".((scalar keys %_org_h)-($_org_h{'unknown'}?1:0))."</th>";
+ if ($ShowISP =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
+ if ($ShowISP =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
+ if ($ShowISP =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
+ if ($ShowISP =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
+ if ($ShowISP =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
+ if ($ShowISP =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
+ print "</tr>\n";
+ $total_p=$total_h=$total_k=0;
+ my $count=0;
+ &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Org'},\%_org_h,\%_org_h);
+ foreach my $key (@keylist) {
+ if ($key eq 'unknown') { next; }
+ my $p_p; my $p_h;
+ if ($TotalPages) { $p_p=int($_org_p{$key}/$TotalPages*1000)/10; }
+ if ($TotalHits) { $p_h=int($_org_h{$key}/$TotalHits*1000)/10; }
+ print "<tr>";
+ print "<td class=\"aws\">".ucfirst($key)."</td>";
+ if ($ShowISP =~ /P/i) { print "<td>".($_org_p{$key}?$_org_p{$key}:" ")."</td>"; }
+ if ($ShowISP =~ /P/i) { print "<td>".($_org_p{$key}?"$p_p %":' ')."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($_org_h{$key}?$_org_h{$key}:" ")."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($_org_h{$key}?"$p_h %":' ')."</td>"; }
+ if ($ShowISP =~ /B/i) { print "<td>".Format_Bytes($_org_k{$key})."</td>"; }
+ if ($ShowISP =~ /L/i) { print "<td>".($_org_p{$key}?Format_Date($_org_l{$key},1):'-')."</td>"; }
+ print "</tr>\n";
+ $total_p += $_org_p{$key}||0;
+ $total_h += $_org_h{$key};
+ $total_k += $_org_k{$key}||0;
+ $count++;
+ }
+ if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
+ $rest_p=0;
+ $rest_h=$TotalHits-$total_h;
+ $rest_k=0;
+ if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) { # All other cities
+# print "<tr>";
+# print "<td class=\"aws\"> </td>";
+# if ($ShowISP =~ /P/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /P/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /H/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /H/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /B/i) { print "<td> </td>"; }
+# if ($ShowISP =~ /L/i) { print "<td> </td>"; }
+# print "</tr>\n";
+
+ my $p_p; my $p_h;
+ if ($TotalPages) { $p_p=int($rest_p/$TotalPages*1000)/10; }
+ if ($TotalHits) { $p_h=int($rest_h/$TotalHits*1000)/10; }
+ print "<tr>";
+ print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]/$Message[0]</span></td>";
+ if ($ShowISP =~ /P/i) { print "<td>".($rest_p?$rest_p:" ")."</td>"; }
+ if ($ShowISP =~ /P/i) { print "<td>".($rest_p?"$p_p %":' ')."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($rest_h?$rest_h:" ")."</td>"; }
+ if ($ShowISP =~ /H/i) { print "<td>".($rest_h?"$p_h %":' ')."</td>"; }
+ if ($ShowISP =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
+ if ($ShowISP =~ /L/i) { print "<td> </td>"; }
+ print "</tr>\n";
+ }
+ &tab_end();
+
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: ShowInfoHost_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+# Function called to add additionnal columns to the Hosts report.
+# This function is called when building rows of the report (One call for each
+# row). So it allows you to add a column in report, for example with code :
+# print "<TD>This is a new cell for $param</TD>";
+# Parameters: Host name or ip
+#-----------------------------------------------------------------------------
+sub ShowInfoHost_geoip_org_maxmind {
+ my $param="$_[0]";
+ # <-----
+ if ($param eq '__title__') {
+ print "<th width=\"80\">GeoIP<br>Org</th>";
+ }
+ elsif ($param) {
+ my $ip=0;
+ my $key;
+ if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address
+ $ip=4;
+ $key=$param;
+ }
+ elsif ($param =~ /^[0-9A-F]*:/i) { # IPv6 address
+ $ip=6;
+ $key=$param;
+ }
+ print "<td>";
+ if ($key && $ip==4) {
+ my $org=$geoip_org_maxmind->org_by_addr($param) if $geoip_org_maxmind;
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: GetOrgByIp for $param: [$org]",5); }
+ if ($org) { print "$org"; }
+ else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
+ }
+ if ($key && $ip==6) {
+ print "<span style=\"color: #$color_other\">$Message[0]</span>";
+ }
+ if (! $key) {
+ my $org=$geoip_org_maxmind->org_by_name($param) if $geoip_org_maxmind;
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: GetOrgByHostname for $param: [$org]",5); }
+ if ($org) { print "$org"; }
+ else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
+ }
+ print "</td>";
+ }
+ else {
+ print "<td> </td>";
+ }
+ return 1;
+ # ----->
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionInitHashArray_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionInitHashArray_geoip_org_maxmind {
+ my $param="$_[0]";
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: Init_HashArray"); }
+ %_org_p = %_org_h = %_org_k = %_org_l =();
+ # ----->
+ return 0;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionProcessIP_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionProcessIp_geoip_org_maxmind {
+ my $param="$_[0]"; # Param must be an IP
+ # <-----
+ my $org = $geoip_org_maxmind->org_by_addr($param) if $geoip_org_maxmind;
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: GetOrgByIp for $param: [$org]",5); }
+ if ($org) {
+ $org =~ s/\s/_/g;
+ $_org_h{$org}++;
+ } else {
+ $_org_h{'unknown'}++;
+ }
+# if ($timerecord > $_org_l{$city}) { $_org_l{$city}=$timerecord; }
+ # ----->
+ return;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionProcessHostname_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionProcessHostname_geoip_org_maxmind {
+ my $param="$_[0]"; # Param must be an IP
+ # <-----
+ my $org = $geoip_org_maxmind->org_by_name($param) if $geoip_org_maxmind;
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: GetOrgByHostname for $param: [$org]",5); }
+ if ($org) {
+ $org =~ s/\s/_/g;
+ $_org_h{$org}++;
+ } else {
+ $_org_h{'unknown'}++;
+ }
+# if ($timerecord > $_org_l{$city}) { $_org_l{$city}=$timerecord; }
+ # ----->
+ return;
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionReadHistory_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionReadHistory_geoip_org_maxmind {
+ my $issectiontoload=shift;
+ my $xmlold=shift;
+ my $xmleb=shift;
+ my $countlines=shift;
+ # <-----
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: Begin of PLUGIN_geoip_org_maxmind section"); }
+ my @field=();
+ my $count=0;my $countloaded=0;
+ do {
+ if ($field[0]) {
+ $count++;
+ if ($issectiontoload) {
+ $countloaded++;
+ if ($field[2]) { $_org_h{$field[0]}+=$field[2]; }
+ }
+ }
+ $_=<HISTORY>;
+ chomp $_; s/\r//;
+ @field=split(/\s+/,($xmlold?CleanFromTags($_):$_));
+ $countlines++;
+ }
+ until ($field[0] eq 'END_PLUGIN_geoip_org_maxmind' || $field[0] eq "${xmleb}END_PLUGIN_geoip_org_maxmind" || ! $_);
+ if ($field[0] ne 'END_PLUGIN_geoip_org_maxmind' && $field[0] ne "${xmleb}END_PLUGIN_geoip_org_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); }
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: End of PLUGIN_geoip_org_maxmind section ($count entries, $countloaded loaded)"); }
+ # ----->
+ return 0;
+}
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: SectionWriteHistory_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+#-----------------------------------------------------------------------------
+sub SectionWriteHistory_geoip_org_maxmind {
+ my ($xml,$xmlbb,$xmlbs,$xmlbe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=(shift,shift,shift,shift,shift,shift,shift,shift,shift);
+ if ($Debug) { debug(" Plugin geoip_org_maxmind: SectionWriteHistory_geoip_org_maxmind start - ".(scalar keys %_org_h)); }
+ # <-----
+ print HISTORYTMP "\n";
+ if ($xml) { print HISTORYTMP "<section id='plugin_geoip_org_maxmind'><sortfor>$MAXNBOFSECTIONGIR</sortfor><comment>\n"; }
+ print HISTORYTMP "# Plugin key - Pages - Hits - Bandwidth - Last access\n";
+ #print HISTORYTMP "# The $MaxNbOfExtra[$extranum] first number of hits are first\n";
+ $ValueInFile{'plugin_geoip_org_maxmind'}=tell HISTORYTMP;
+ print HISTORYTMP "${xmlbb}BEGIN_PLUGIN_geoip_org_maxmind${xmlbs}".(scalar keys %_org_h)."${xmlbe}\n";
+ &BuildKeyList($MAXNBOFSECTIONGIR,1,\%_org_h,\%_org_h);
+ my %keysinkeylist=();
+ foreach (@keylist) {
+ $keysinkeylist{$_}=1;
+ #my $page=$_org_p{$_}||0;
+ #my $bytes=$_org_k{$_}||0;
+ #my $lastaccess=$_org_l{$_}||'';
+ print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_org_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
+ }
+ foreach (keys %_org_h) {
+ if ($keysinkeylist{$_}) { next; }
+ #my $page=$_org_p{$_}||0;
+ #my $bytes=$_org_k{$_}||0;
+ #my $lastaccess=$_org_l{$_}||'';
+ print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_org_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
+ }
+ print HISTORYTMP "${xmleb}END_PLUGIN_geoip_org_maxmind${xmlee}\n";
+ # ----->
+ return 0;
+}
+
+
+
+1; # Do not remove this line
projects / thirdparty / AWStats.git / commitdiff
