perl/Filter.pm

   1 #
   2 # The User/Sysop Filter module
   3 #
   4 # The way this works is that the filter routine is actually
   5 # a predefined function that returns 0 if it is OK and 1 if it
   6 # is not when presented with a list of things.
   7 #
   8 # This set of routines provide a means of maintaining the filter
   9 # scripts which are compiled in when an entity connects.
  10 #
  11 # Copyright (c) 1999 Dirk Koopman G1TLH
  12 #
  13 # $Id$
  14 #
  15
  16 package Filter;
  17
  18 use DXVars;
  19 use DXUtils;
  20 use DXDebug;
  21
  22 # initial filter system
  23 sub init
  24 {
  25 }
  26
  27 sub compile
  28 {
  29
  30 }
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42 1;
  43 __END__