[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
No Subject
- From: 404@jodi.org
- Date: Tue, 3 Feb 1998 08:44:16 -0500 (EST)
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
-------------------------------------------------------------