<h2>Editing File: /usr/local/cpanel/3rdparty/bin/plugins/geoip.pm</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl
#-----------------------------------------------------------------------------
# GeoIp Maxmind AWStats plugin
# This plugin allow you to get country report with countries detected
# from a Geographical database (GeoIP internal database) instead of domain
# hostname suffix.
# Need the country database from Maxmind (free).
#-----------------------------------------------------------------------------
# Perl Required Modules: Geo::IP or Geo::IP::PurePerl
#-----------------------------------------------------------------------------


# &lt;-----
# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
use vars qw/ $type /;
$type='geoip';
if (!eval ('require &quot;Geo/IP.pm&quot;;')) {
	$error1=$@;
	$type='geoippureperl';
	if (!eval ('require &quot;Geo/IP/PurePerl.pm&quot;;')) {
		$error2=$@;
		$ret=($error1||$error2)?&quot;Error:\n$error1$error2&quot;:&quot;&quot;;
		$ret.=&quot;Error: Need Perl module Geo::IP or Geo::IP::PurePerl&quot;;
		return $ret;
	}
}
# -----&gt;
#use strict;
no strict &quot;refs&quot;;


#-----------------------------------------------------------------------------
# PLUGIN VARIABLES
#-----------------------------------------------------------------------------
# &lt;-----
# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
my $PluginNeedAWStatsVersion=&quot;5.4&quot;;
my $PluginHooksFunctions=&quot;GetCountryCodeByAddr GetCountryCodeByName ShowInfoHost&quot;;
my $PluginName = &quot;geoip&quot;;
my $LoadedOverride=0;
my $OverrideFile=&quot;&quot;;
my %TmpDomainLookup;
# -----&gt;

# &lt;-----
# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
use vars qw/
$gi
/;
# -----&gt;


#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: Init_pluginname
#-----------------------------------------------------------------------------
sub Init_geoip {
	my $InitParams=shift;
	my $checkversion=&amp;Check_Plugin_Version($PluginNeedAWStatsVersion);

	# &lt;-----
	# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
	debug(&quot; Plugin $PluginName: InitParams=$InitParams&quot;,1);
   	my ($mode,$tmpdatafile)=split(/\s+/,$InitParams,2);
   	my ($datafile,$override)=split(/\+/,$tmpdatafile,2);
   	if (! $datafile) { $datafile=&quot;$PluginName.dat&quot;; }
    else { $datafile =~ s/%20/ /g; }
	if ($type eq 'geoippureperl') {
		if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE')  { $mode=Geo::IP::PurePerl::GEOIP_MEMORY_CACHE(); }
		else { $mode=Geo::IP::PurePerl::GEOIP_STANDARD(); }
	} else {
		if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE')  { $mode=Geo::IP::GEOIP_MEMORY_CACHE(); }
		else { $mode=Geo::IP::GEOIP_STANDARD(); }
	}
	if ($override){$OverrideFile=$override;}
	%TmpDomainLookup=();
	debug(&quot; Plugin $PluginName: GeoIP try to initialize type=$type mode=$mode override=$override datafile=$datafile&quot;,1);
	if ($type eq 'geoippureperl') {
		$gi = Geo::IP::PurePerl-&gt;open($datafile, $mode);
	} else {
		$gi = Geo::IP-&gt;open($datafile, $mode);
	}

	# Fails on some GeoIP version
	# debug(&quot; Plugin $PluginName: GeoIP initialized database_info=&quot;.$gi-&gt;database_info());
	if ($gi) { debug(&quot; Plugin $PluginName: GeoIP plugin and gi object initialized&quot;,1); }
	else { return &quot;Error: Failed to create gi object for datafile=&quot;.$datafile; }
	# -----&gt;

	return ($checkversion?$checkversion:&quot;$PluginHooksFunctions&quot;);
}


#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: GetCountryCodeByAddr_pluginname
# UNIQUE: YES (Only one plugin using this function can be loaded)
# GetCountryCodeByAddr is called to translate an ip into a country code in lower case.
#-----------------------------------------------------------------------------
sub GetCountryCodeByAddr_geoip {
    my $param=&quot;$_[0]&quot;;
	# &lt;-----
	if (! $param) { return ''; }
	my $res= TmpLookup_geoip($param);
	if (! $res) {
		$res=lc($gi-&gt;country_code_by_addr($param)) || 'unknown';
		$TmpDomainLookup{$param}=$res;
		if ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryCodeByAddr for $param: [$res]&quot;,5); }
	}
	elsif ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryCodeByAddr for $param: Already resolved to [$res]&quot;,5); }
	# -----&gt;
	return $res;
}


#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: GetCountryCodeByName_pluginname
# UNIQUE: YES (Only one plugin using this function can be loaded)
# GetCountryCodeByName is called to translate a host name into a country code in lower case.
#-----------------------------------------------------------------------------
sub GetCountryCodeByName_geoip {
    my $param=&quot;$_[0]&quot;;
	# &lt;-----
	if (! $param) { return ''; }
	my $res = TmpLookup_geoip($param);
	if (! $res) {
		$res=lc($gi-&gt;country_code_by_name($param)) || 'unknown';
		$TmpDomainLookup{$param}=$res;
		if ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryCodeByName for $param: [$res]&quot;,5); }
	}
	elsif ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryCodeByName for $param: Already resolved to [$res]&quot;,5); }
	# -----&gt;
	return $res;
}


#-----------------------------------------------------------------------------
# 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 &quot;&lt;TD&gt;This is a new cell for $param&lt;/TD&gt;&quot;;
# Parameters: Host name or ip
#-----------------------------------------------------------------------------
sub ShowInfoHost_geoip {
    my $param=&quot;$_[0]&quot;;
	# &lt;-----
	if ($param eq '__title__') {
    	my $NewLinkParams=${QueryString};
    	$NewLinkParams =~ s/(^|&amp;)update(=\w*|$)//i;
    	$NewLinkParams =~ s/(^|&amp;)output(=\w*|$)//i;
    	$NewLinkParams =~ s/(^|&amp;)staticlinks(=\w*|$)//i;
    	$NewLinkParams =~ s/(^|&amp;)framename=[^&amp;]*//i;
    	my $NewLinkTarget='';
    	if ($DetailedReportsOnNewWindows) { $NewLinkTarget=&quot; target=\&quot;awstatsbis\&quot;&quot;; }
    	if (($FrameName eq 'mainleft' || $FrameName eq 'mainright') &amp;&amp; $DetailedReportsOnNewWindows &lt; 2) {
    		$NewLinkParams.=&quot;&amp;framename=mainright&quot;;
    		$NewLinkTarget=&quot; target=\&quot;mainright\&quot;&quot;;
    	}
    	$NewLinkParams =~ tr/&amp;/&amp;/s; $NewLinkParams =~ s/^&amp;//; $NewLinkParams =~ s/&amp;$//;
    	if ($NewLinkParams) { $NewLinkParams=&quot;${NewLinkParams}&amp;&quot;; }

		print &quot;&lt;th width=\&quot;80\&quot;&gt;&quot;;
        print &quot;&lt;a href=\&quot;#countries\&quot;&gt;GeoIP&lt;br /&gt;Country&lt;/a&gt;&quot;;
        print &quot;&lt;/th&gt;&quot;;
	}
	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 &quot;&lt;td&gt;&quot;;
		if ($key &amp;&amp; $ip==4) {
			my $res = TmpLookup_geoip($param);
        	if (!$res){$res=lc($gi-&gt;country_code_by_addr($param)) if $gi;}
        	if ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryByIp for $param: [$res]&quot;,5); }
		    if ($res) { print $DomainsHashIDLib{$res}?$DomainsHashIDLib{$res}:&quot;&lt;span style=\&quot;color: #$color_other\&quot;&gt;$Message[0]&lt;/span&gt;&quot;; }
		    else { print &quot;&lt;span style=\&quot;color: #$color_other\&quot;&gt;$Message[0]&lt;/span&gt;&quot;; }
		}
		if ($key &amp;&amp; $ip==6) {
		    print &quot;&lt;span style=\&quot;color: #$color_other\&quot;&gt;$Message[0]&lt;/span&gt;&quot;;
		}
		if (! $key) {
			my $res = TmpLookup_geoip($param);
        	if (!$res){$res=lc($gi-&gt;country_code_by_name($param)) if $gi;}
        	if ($Debug) { debug(&quot;  Plugin $PluginName: GetCountryByHostname for $param: [$res]&quot;,5); }
		    if ($res) { print $DomainsHashIDLib{$res}?$DomainsHashIDLib{$res}:&quot;&lt;span style=\&quot;color: #$color_other\&quot;&gt;$Message[0]&lt;/span&gt;&quot;; }
		    else { print &quot;&lt;span style=\&quot;color: #$color_other\&quot;&gt;$Message[0]&lt;/span&gt;&quot;; }
		}
		print &quot;&lt;/td&gt;&quot;;
	}
	else {
		print &quot;&lt;td&gt;&amp;nbsp;&lt;/td&gt;&quot;;
	}
	return 1;
	# -----&gt;
}

#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: LoadOverrideFile
# Attempts to load a comma delimited file that will override the GeoIP database
# Useful for Intranet records
# CSV format: IP,2-char Country code
#-----------------------------------------------------------------------------
sub LoadOverrideFile_geoip{
	my $filetoload=&quot;&quot;;
    my $GEOIPFILE;
	if ($OverrideFile){
		if (!open($GEOIPFILE, &quot;&lt;&quot;, $OverrideFile)){
			debug(&quot;Plugin $PluginName: Unable to open override file: $OverrideFile&quot;);
			$LoadedOverride = 1;
			return;
		}
	}else{
		my $conf = (exists(&amp;Get_Config_Name) ? Get_Config_Name() : $SiteConfig);
		if ($conf &amp;&amp; open($GEOIPFILE, &quot;&lt;&quot;, &quot;$DirData/$PluginName.$conf.txt&quot;))	{ $filetoload=&quot;$DirData/$PluginName.$conf.txt&quot;; }
		elsif (open($GEOIPFILE, &quot;&lt;&quot;, &quot;$DirData/$PluginName.txt&quot;))	{ $filetoload=&quot;$DirData/$PluginName.txt&quot;; }
		else { debug(&quot;No override file \&quot;$DirData/$PluginName.txt\&quot;: $!&quot;); }
	}
	if ($filetoload)
	{
		# This is the fastest way to load with regexp that I know
		while (&lt;$GEOIPFILE&gt;){
			chomp $_;
			s/\r//;
			my @record = split(&quot;,&quot;, $_);
			# replace quotes if they were used in the file
			foreach (@record){ $_ =~ s/&quot;//g; }
			# store in hash
			$TmpDomainLookup{$record[0]} = $record[1];
		}
		close $GEOIPFILE;
        debug(&quot; Plugin $PluginName: Overload file loaded: &quot;.(scalar keys %TmpDomainLookup).&quot; entries found.&quot;);
	}
	$LoadedOverride = 1;
	return;
}

#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: TmpLookup
# Searches the temporary hash for the parameter value and returns the corresponding
# GEOIP entry
#-----------------------------------------------------------------------------
sub TmpLookup_geoip(){
	$param = shift;
	if (!$LoadedOverride){&amp;LoadOverrideFile_geoip();}
	#my $val;
	#if ($gi &amp;&amp;
	#(($type eq 'geoip' &amp;&amp; $gi-&gt;VERSION &gt;= 1.30) || 
	#  $type eq 'geoippureperl' &amp;&amp; $gi-&gt;VERSION &gt;= 1.17)){
	#	$val = $TmpDomainLookup{$gi-&gt;get_ip_address($param)};
	#}
    #else {$val = $TmpDomainLookup{$param};}
    #return $val || '';
    return $TmpDomainLookup{$param}||'';
}

1;	# Do not remove this line
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fbin%2Fplugins'>Back to Directory</a>