From: eldy <>
Date: Sun, 27 Jul 2003 14:29:43 +0000 (+0000)
Subject: Added hostinfo plugin to handle the "Popup WhoIs link" code.
X-Git-Tag: AWSTATS_5_7_BETA~41
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ecbb54fe87b5beb429e5d989d0f23a88ad7398f7;p=thirdparty%2FAWStats.git

Added hostinfo plugin to handle the "Popup WhoIs link" code.
---

diff --git a/wwwroot/cgi-bin/plugins/hostinfo.pm b/wwwroot/cgi-bin/plugins/hostinfo.pm
new file mode 100644
index 00000000..e90db25b
--- /dev/null
+++ b/wwwroot/cgi-bin/plugins/hostinfo.pm
@@ -0,0 +1,122 @@
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# HostInfo AWStats plugin
+# This plugin allow you to add information on hosts, like a whois link.
+#-----------------------------------------------------------------------------
+# Perl Required Modules: None
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES.
+# ----->
+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.7";
+my $PluginHooksFunctions="ShowInfoHost AddHTMLBodyHeader";
+# ----->
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
+use vars qw/
+/;
+# ----->
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: Init_pluginname
+#-----------------------------------------------------------------------------
+sub Init_hostinfo {
+	my $InitParams=shift;
+	my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+
+	# <-----
+	# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
+	debug(" InitParams=$InitParams",1);
+	if (! $LinksToWhoIs || ! $LinksToIPWhoIs) { return "Error: Parameters LinksToWhoIs and LinksToIPWhoIs must be defined in config file to use hostinfo plugin."; } 
+	# ----->
+
+	return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: AddHTMLBodyHeader_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+# Function called to Add HTML code at beginning of BODY section.
+#-----------------------------------------------------------------------------
+sub AddHTMLBodyHeader_hostinfo {
+	# <-----
+	my $WIDTHINFO=640;
+	my $HEIGHTINFO=480;
+
+	print <<EOF;
+			
+<SCRIPT language="JavaScript">
+function neww(a,b) {
+	var wfeatures="directories=0,menubar=1,status=0,resizable=1,scrollbars=1,toolbar=0,width=$WIDTHINFO,height=$HEIGHTINFO,left=" + eval("(screen.width - $WIDTHINFO)/2") + ",top=" + eval("(screen.height - $HEIGHTINFO)/2");
+	if (b==1) { fen=window.open('$LinksToWhoIs'+a,'whois',wfeatures); }
+	if (b==2) { fen=window.open('$LinksToIPWhoIs'+a,'whois',wfeatures); }
+}
+</SCRIPT>
+
+EOF
+
+	return 1;
+	# ----->
+}
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN FUNCTION: ShowInfoHost_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+# Function called to add additionnal information for Users in users' report.
+# Parameters: Host name or ip
+#-----------------------------------------------------------------------------
+sub ShowInfoHost_hostinfo {
+	# <-----
+	my $hostinfotoshow="$_[0]";
+	if ($hostinfotoshow eq '__title__') {
+		print "<TD width=80>$Message[114]</TD>";	
+	}
+	elsif ($hostinfotoshow) {
+		my $keyforwhois;
+		my $linkforwhois;
+		if ($hostinfotoshow =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {	# IPv4 address
+			$keyforwhois=$hostinfotoshow;
+			$linkforwhois=2;
+		}
+		elsif ($hostinfotoshow =~ /^[0-9A-F]*:/i) {							# IPv6 address
+			$keyforwhois=$hostinfotoshow;
+			$linkforwhois=2;
+		}
+		else {	# Hostname
+			$hostinfotoshow =~ /([-\w]+\.[-\w]+\.(au|uk|jp|nz))$/ or $hostinfotoshow =~ /([-\w]+\.[-\w]+)$/;
+			$keyforwhois=$1;
+			$linkforwhois=1;
+		}
+		print "<TD>";
+		if ($keyforwhois && $linkforwhois) { print "<a href=\"javascript:neww('$keyforwhois',$linkforwhois)\">?</a>"; }
+		else { print "&nbsp;" }
+		print "</TD>";
+	}
+	else {
+		print "<TD>&nbsp;</TD>";
+	}
+	return 1;
+	# ----->
+}
+
+
+1;	# Do not remove this line