UPPER CASED all the callsigns on send

[spider.git] / perl / Filter.pm

diff --git a/perl/Filter.pm b/perl/Filter.pm
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..bc622e36490c1faa4a0050b4e208cbe9ba2dc9a2 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -0,0 +1,43 @@
+#
+# The User/Sysop Filter module
+#
+# The way this works is that the filter routine is actually
+# a predefined function that returns 0 if it is OK and 1 if it
+# is not when presented with a list of things.
+#
+# This set of routines provide a means of maintaining the filter
+# scripts which are compiled in when an entity connects.
+#
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package Filter;
+
+use DXVars;
+use DXUtils;
+use DXDebug;
+
+# initial filter system
+sub init
+{
+}
+
+sub compile
+{
+
+}
+
+
+
+
+
+
+
+
+
+
+
+1;
+__END__