From: eldy <>
Date: Sat, 26 Apr 2003 19:14:22 +0000 (+0000)
Subject: Added plugin ipv6 to fully support IPv6 (included reverse DNS lookup).
X-Git-Tag: AWSTATS_5_5_BETA~9
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0483837e6d03abaecde0495218ca96d862f9f587;p=thirdparty%2FAWStats.git

Added plugin ipv6 to fully support IPv6 (included reverse DNS lookup).
---

diff --git a/wwwroot/cgi-bin/plugins/ipv6.pm b/wwwroot/cgi-bin/plugins/ipv6.pm
new file mode 100644
index 00000000..82d70967
--- /dev/null
+++ b/wwwroot/cgi-bin/plugins/ipv6.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# IPv6 AWStats plugin
+# This plugin allow AWStats to make reverse DNS Lookup on IPv6 addresses.
+#-----------------------------------------------------------------------------
+# Perl Required Modules: Net::IP and Net::DNS
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+if (!eval ('require "Net/IP.pm";')) 	{ return "Error: Need Perl module Net::IP"; }
+if (!eval ('require "Net/DNS.pm";')) 	{ return "Error: Need Perl module Net::DNS"; }
+# ----->
+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="5.5";
+my $PluginHooksFunctions="GetResolvedIP";
+# ----->
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
+use vars qw/
+$resolver
+/;
+# ----->
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: Init_pluginname
+#-----------------------------------------------------------------------------
+sub Init_ipv6 {
+	my $InitParams=shift;
+	my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+
+	# <-----
+	# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
+	debug(" InitParams=$InitParams",1);
+	$resolver = Net::DNS::Resolver->new;
+	# ----->
+
+	return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: GetResolvedIP_pluginname
+# UNIQUE: YES (Only one plugin using this function can be loaded)
+# GetResolvedIP is called to resolve an IPv6 address into a host name
+#-----------------------------------------------------------------------------
+sub GetResolvedIP_ipv6 {
+	# <-----
+	my $ip = new Net::IP($_[0]);
+	my $reverseip= $ip->reverse_ip();
+	my $query = $resolver->query($reverseip, "PTR");
+	my @result=split(/\s/, ($query->answer)[0]->string);
+	return $result[4];
+	# ----->
+}
+
+
+1;	# Do not remove this line