* Rework the whole filters system

* Add metrics optimization and symbols cache
* Change all plugins

[DRAGONS]: not for production usage, some things are still not working!

1 files changed, 0 insertions, 96 deletions

diff --git a/src/perl.c b/src/perl.c
index f39ac7df0..eab3a424d 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -126,102 +126,6 @@ perl_call_header_filter (const char *function, struct worker_task *task)
 }
 
 int
-perl_call_mime_filter (const char *function, struct worker_task *task)
-{
-	int result;
-	SV *sv;
-
-	dTHXa (perl_interpreter);
-	PERL_SET_CONTEXT (perl_interpreter);
-
-	dSP;
-	ENTER;
-	SAVETMPS;
-
-	PUSHMARK (SP);
-	sv = sv_2mortal (sv_bless (newRV_noinc (newSViv (PTR2IV(task))), rspamd_task_stash));
-	XPUSHs (sv);
-	PUTBACK;
-	
-	call_pv (function, G_SCALAR);
-
-	SPAGAIN;
-
-	result = POPi;
-	msg_debug ("mime_filter: call of %s returned mark %d\n", function, result);
-
-	PUTBACK;
-	FREETMPS;
-	LEAVE;
-
-	return result;
-}
-
-int
-perl_call_message_filter (const char *function, struct worker_task *task)
-{
-	int result;
-	SV *sv;
-
-	dTHXa (perl_interpreter);
-	PERL_SET_CONTEXT (perl_interpreter);
-
-	dSP;
-	ENTER;
-	SAVETMPS;
-
-	PUSHMARK (SP);
-	sv = sv_2mortal (sv_bless (newRV_noinc (newSViv (PTR2IV(task))), rspamd_task_stash));
-	XPUSHs (sv);
-	PUTBACK;
-	
-	call_pv (function, G_SCALAR);
-
-	SPAGAIN;
-
-	result = POPi;
-	msg_debug ("message_filter: call of %s returned mark %d\n", function, result);
-
-	PUTBACK;
-	FREETMPS;
-	LEAVE;
-
-	return result;
-}
-
-int
-perl_call_url_filter (const char *function, struct worker_task *task)
-{
-	int result;
-	SV *sv;
-
-	dTHXa (perl_interpreter);
-	PERL_SET_CONTEXT (perl_interpreter);
-
-	dSP;
-	ENTER;
-	SAVETMPS;
-	
-	PUSHMARK (SP);
-	sv = sv_2mortal (sv_bless (newRV_noinc (newSViv (PTR2IV(task))), rspamd_task_stash));
-	XPUSHs (sv);
-	PUTBACK;
-	
-	call_pv (function, G_SCALAR);
-
-	SPAGAIN;
-
-	result = POPi;
-	msg_debug ("url_filter: call of %s for url returned mark %d\n", function, result);
-
-	PUTBACK;
-	FREETMPS;
-	LEAVE;
-
-	return result;
-}
-
-int
 perl_call_chain_filter (const char *function, struct worker_task *task, int *marks, unsigned int number)
 {
 	int result, i;