Added detectrefererspam and detectworms plugins (not working yet)

diff --git a/wwwroot/cgi-bin/lib/referer_spam.pm b/wwwroot/cgi-bin/lib/referer_spam.pm
index 3baf73b0e8c1d3ff9a03da3e2a736563159a6ea1..246a52e93fed415e0b525fc2466d880e643846e7 100644 (file)
--- a/wwwroot/cgi-bin/lib/referer_spam.pm
+++ b/wwwroot/cgi-bin/lib/referer_spam.pm
@@ -26,6 +26,23 @@
 'free',1,
 'porn',2,
 'sex',2
+
+'full-list.net',4\r
+'voodoomachine.com',4\r
+'mastodonte.com',4\r
+'surfnomore.com',4\r
+'raverpussies.com',4\r
+'quiveringfuckholes.com',4\r
+'burningbush.netfirms.com',4\r
+'lesbo-tennie-girls.lesbian-hardcore-porn-teen-pics.com',4\r
+'free-people-search-engines.com',4\r
+'iaea.org',4\r
+'1stchoicecolo.com',4\r
+'globoads.com',4\r
+'morganindustriesinc.com',4\r
+'chicagodrugclub.com',4\r
+'massivecocks.com',4\r
+
 );
 
 

diff --git a/wwwroot/cgi-bin/plugins/detectrefererspam.pm b/wwwroot/cgi-bin/plugins/detectrefererspam.pm
new file mode 100644 (file)
index 0000000..e182e8a
--- /dev/null
+++ b/wwwroot/cgi-bin/plugins/detectrefererspam.pm
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# detectwrefererspam AWStats plugin
+#-----------------------------------------------------------------------------
+# Perl Required Modules: None
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+# ----->
+use strict;no strict "refs";
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN VARIABLES
+#-----------------------------------------------------------------------------
+my $PluginNeedAWStatsVersion="5.6";
+my $PluginHooksFunctions="ScanForRefererSpam";
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE
+use vars qw/
+/;
+# ----->
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN Init_pluginname FUNCTION
+#-----------------------------------------------------------------------------
+sub Init_detectrefererspam {
+       my $InitParams=shift;
+       my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+
+       # <-----
+       # YOU CAN ENTER HERE CODE TO INIT PLUGIN GLOBAL VARIABLES
+       my @param=split(/\s+/,$InitParams);
+       # ----->
+
+       return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+
+#--------------------------------------------------------------------
+# Function:      Return true if record is a referer spammer hit
+# Input:         
+# Output:        
+# UNIQUE: YES (Only one plugin using this function can be loaded)
+#--------------------------------------------------------------------
+sub ScanForRefererSpam_detectrefererspam
+{
+       debug("Call to ScanForRefererSpam",5);
+
+}
+
+
+
+1;     # Ne pas effacer cette ligne

diff --git a/wwwroot/cgi-bin/plugins/detectworms.pm b/wwwroot/cgi-bin/plugins/detectworms.pm
new file mode 100644 (file)
index 0000000..95b6c4b
--- /dev/null
+++ b/wwwroot/cgi-bin/plugins/detectworms.pm
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+#-----------------------------------------------------------------------------
+# detectworms AWStats plugin
+#-----------------------------------------------------------------------------
+# Perl Required Modules: None
+#-----------------------------------------------------------------------------
+# $Revision$ - $Author$ - $Date$
+
+# <-----
+# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
+# ----->
+use strict;no strict "refs";
+
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN VARIABLES
+#-----------------------------------------------------------------------------
+my $PluginNeedAWStatsVersion="5.6";
+my $PluginHooksFunctions="ScanForWorms";
+
+# <-----
+# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE
+use vars qw/
+/;
+# ----->
+
+
+#-----------------------------------------------------------------------------
+# PLUGIN Init_pluginname FUNCTION
+#-----------------------------------------------------------------------------
+sub Init_detectworms {
+       my $InitParams=shift;
+       my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
+
+       # <-----
+       # YOU CAN ENTER HERE CODE TO INIT PLUGIN GLOBAL VARIABLES
+       my @param=split(/\s+/,$InitParams);
+       # ----->
+
+       return ($checkversion?$checkversion:"$PluginHooksFunctions");
+}
+
+
+
+#--------------------------------------------------------------------
+# Function:      Return true if record is a worm hit
+# Input:         
+# Output:        
+# UNIQUE: YES (Only one plugin using this function can be loaded)
+#--------------------------------------------------------------------
+sub ScanForWorms_detectworms
+{
+       debug("Call to ScanForWorms",5);
+
+}
+
+
+
+1;     # Ne pas effacer cette ligne