From: eldy <>
Date: Thu, 5 Jun 2003 19:35:36 +0000 (+0000)
Subject: Added detectrefererspam and detectworms plugins (not working yet)
X-Git-Tag: AWSTATS_5_6_BETA~40
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb405a6a20d39a6fac2c57e449a82dc22973fec9;p=thirdparty%2FAWStats.git

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 3baf73b0..246a52e9 100644
--- 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
+'voodoomachine.com',4
+'mastodonte.com',4
+'surfnomore.com',4
+'raverpussies.com',4
+'quiveringfuckholes.com',4
+'burningbush.netfirms.com',4
+'lesbo-tennie-girls.lesbian-hardcore-porn-teen-pics.com',4
+'free-people-search-engines.com',4
+'iaea.org',4
+'1stchoicecolo.com',4
+'globoads.com',4
+'morganindustriesinc.com',4
+'chicagodrugclub.com',4
+'massivecocks.com',4
+
 );
 
 
diff --git a/wwwroot/cgi-bin/plugins/detectrefererspam.pm b/wwwroot/cgi-bin/plugins/detectrefererspam.pm
new file mode 100644
index 00000000..e182e8ac
--- /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
index 00000000..95b6c4b2
--- /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