filter status patch

[Marco d'Itri]

I propose this patch be applied to both -CURRENT and -STABLE.
It has been distributed with cleanfeed since more than two years and is
stable. It's in the inn debian package since more than one year and in
the inn2 package since a few months.
The diff is against the 1.x source, but with a small change it will work
with 2.x too.

--- cc.c.orig	Fri Dec 12 11:58:54 1997
+++ cc.c	Sat May 16 16:53:30 1998
@@ -750,6 +750,9 @@
 CCmode(av)
     char		*av[];
 {
+#if defined(DO_PERL)
+    dSP;
+#endif
     register char	*p;
     register int	i;
     int			h;
@@ -846,6 +849,27 @@
         p += strlen(strcpy(p, "enabled"));
     else
         p += strlen(strcpy(p, "disabled"));
+
+    /* perl filter status */
+
+    if (perl_get_cv("filter_stats", FALSE) != NULL) {
+        *p++ = '\n';
+        p += strlen(strcpy(p, "Perl filter stats: "));
+ 
+	ENTER ;
+	SAVETMPS;
+    
+	perl_call_argv("filter_stats", G_EVAL|G_NOARGS, NULL);
+
+	SPAGAIN;
+
+	p += strlen(strcpy(p, POPp)); 
+   
+	PUTBACK;
+	FREETMPS;
+	LEAVE; 
+    }    
+
 #endif /* defined(DO_PERL) */
 
     *p++ = '\n';

-- 
ciao,
Marco