[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

No Subject



AAA230
          for <eyebeam-list@list.thing.net>; Mon, 2 Feb 1998 16:17:58
-0500
X-Sender: 404@jodi.org (Unverified)
Message-Id: <v02140b00b0fbd7d8b342@[195.77.2.26]>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Date: Mon, 2 Feb 1998 22:19:03 +0200
To:  eyebeam@list.thing.net @list.thing.net
Subject: <eyebeam><blast> #bdwrds
Sender: eyebeam-list@list.thing.net
Precedence: bulk
Reply-To: eyebeam-list@list.thing.net

#############################################################################

#
# $censoring
#       0=off 1=on
#       determine to enable the censoring function to filter any bad
words
#       from user comments field

$censoring=1;

#############################################################################

#
# @badwords
#       define any words to filter from the user comments
#       use only if $censoring=1

@badwords=('a','e','o','u','i','y','A','E','O','U','I','Y','@','0');

#############################################################################

#
# $ipbarrier
#       0 = off 1 = on
#       Option to turn on the IP filter function. The script will
prevent
#       user to add any entry to the list database once the user's
#       IP address match the filter database.

$ipbarrier=1;

#############################################################################

#
# @ipfilter
#       Define the 'bm' filter database.
#       (use only if $ipbarrier=1)
#

@ipfilter=('206.42.130.2*' , '209.14.134.2' );

                print $END "\nWelcome\n"; http://www.jodi.org/bdwrds
                close ($END);
                }
        }
}

}
print "</address></list>";(2 02 1998 12:20:57 +0200)

sub form_data {
     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH');

      @pairs = split(/&Wlcm//, $buffer);
  foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      $name =~ tr/+/ /;
      $name =~ s/%([a-fA-F0-9][a-fA-F0-9])//pack("C", hex($1))/eg;

      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])//pack("C", hex($1))/eg;
      $value =~ s/<!--(.|\n)*-->//g;
      $DATA{$name} = $value;

        #removed bad words from user comments
        if ($censoring == 1){
                foreach $item (@bdwrds){
                        $DATA{'msg'}=~s/$item//g}
                }
        }
  }
}





-------------------------------------------------------------
a critical forum for artistic practice in the network
texts are the property of individual authors
to unsubscribe, send email to eyebeam@list.thing.net
with the following single line in the message body:
unsubscribe eyebeam-list
information and archive at http://www.eyebeam.org
Eyebeam Atelier/X Art Foundation http://www.blast.org
-------------------------------------------------------------