";
- print "| $key | ";
+ print "$key | ";
print "".($smtpcodelib{$key}?$smtpcodelib{$key}:'Unknown error')." | $_errors_h{$key} | $p % | ".Format_Bytes($_errors_k{$key})." | ";
print "\n";
$total_h+=$_errors_h{$key};
diff --git a/wwwroot/cgi-bin/plugins/hostinfo.pm b/wwwroot/cgi-bin/plugins/hostinfo.pm
index 2afcafc4..5172a69e 100644
--- a/wwwroot/cgi-bin/plugins/hostinfo.pm
+++ b/wwwroot/cgi-bin/plugins/hostinfo.pm
@@ -1,15 +1,17 @@
#!/usr/bin/perl
#-----------------------------------------------------------------------------
# HostInfo AWStats plugin
-# This plugin allow you to add information on hosts, like a whois link.
+# This plugin allow you to add information on hosts, like a whois fields.
#-----------------------------------------------------------------------------
-# Perl Required Modules: None
+# Perl Required Modules: XWhois
#-----------------------------------------------------------------------------
# $Revision$ - $Author$ - $Date$
# <-----
-# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES.
+push @INC, "${DIR}/plugins";
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+if (!eval ('require "Net/XWhoIs.pm";')) { return $@?"Error: $@":"Error: Need Perl module Net::XWhoIs"; }
# ----->
use strict;no strict "refs";
@@ -22,7 +24,7 @@ use strict;no strict "refs";
# 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";
+my $PluginHooksFunctions="ShowInfoHost AddHTMLBodyHeader BuildFullHTMLOutput";
# ----->
# <-----
@@ -43,7 +45,6 @@ sub Init_hostinfo {
# <-----
# 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");
@@ -66,8 +67,8 @@ sub AddHTMLBodyHeader_hostinfo {
@@ -122,4 +123,64 @@ sub ShowInfoHost_hostinfo {
}
+#-----------------------------------------------------------------------------
+# PLUGIN FUNTION: BuildFullHTMLOutput_pluginname
+# UNIQUE: NO (Several plugins using this function can be loaded)
+# Function called to output an HTML page completely built by plugin instead
+# of AWStats output
+#-----------------------------------------------------------------------------
+sub BuildFullHTMLOutput_hostinfo {
+ # <-----
+# my $regipv4=qr/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/;
+# my $regipv6=qr/^[0-9A-F]*:/i;
+
+ my $Host='';
+ if ($QueryString =~ /host=([^&]+)/i) {
+ $Host=lc(&DecodeEncodedString("$1"));
+ }
+
+ my $ip='';
+ my $HostResolved='';
+# if ($Host =~ /$regipv4/o) { $ip=4; }
+# elsif ($Host =~ /$regipv6/o) { $ip=6; }
+# if ($ip == 4) {
+# my $lookupresult=lc(gethostbyaddr(pack("C4",split(/\./,$Host)),AF_INET)); # This is very slow, may spend 20 seconds
+# if (! $lookupresult || $lookupresult =~ /$regipv4/o || ! IsAscii($lookupresult)) {
+# $HostResolved='*';
+# }
+# else {
+# $HostResolved=$lookupresult;
+# }
+# if ($Debug) { debug(" Reverse DNS lookup for $Host done: $HostResolved",4); }
+# }
+ if (! $ip) { $HostResolved=$Host; }
+
+ if ($Debug) { debug(" DirData=$DirData Host=$Host HostResolved=$HostResolved ",4); }
+ my $w = new Net::XWhois Verbose=>$Debug, Cache=>$DirData, NoCache=>0, Timeout=>30, Domain=>$HostResolved;
+
+ print "
\n";
+
+ &tab_head("Common Whois Fields",0,0,'whois');
+ print "| Common field info | Value |
|---|
\n";
+ print "| Name | ".($w->name())." |
";
+ print "| Status | ".($w->status())." |
";
+ print "| NameServers | ".($w->nameservers())." |
";
+ print "| Registrant | ".($w->registrant())." |
";
+ print "| Contact Admin | ".($w->contact_admin())." |
";
+ print "| Contact Tech | ".($w->contact_tech())." |
";
+ print "| Contact Billing | ".($w->contact_billing())." |
";
+ print "| Contact Zone | ".($w->contact_zone())." |
";
+ print "| Contact Emails | ".($w->contact_emails())." |
";
+ print "| Contact Handles | ".($w->contact_handles())." |
";
+ print "| Domain Handles | ".($w->domain_handles())." |
";
+ &tab_end;
+
+ &tab_head("Full Whois Field",0,0,'whois');
+ print "".($w->response())." |
\n";
+ &tab_end;
+
+ return 1;
+ # ----->
+}
+
1; # Do not remove this line
--
2.47.3