ChattyChild
exit;
}
#############################################################
sub Enter {
print "Content-type: text/html\n\n";
print <<"ChattyChild";
Chatty Child
$Welcome
$Playhouse
|
| |
$t1 |
|
| $CloseWindow |
| |
| Theme Chat © Copyright 2000 |
|
ChattyChild
exit;
}
#############################################################
sub Transfer {
print "Content-type: text/html\n\n";
print <<"ChattyChild";
Chatty Child
$Transfer1$Transfer2
ChattyChild
&MakeMessages;
exit;
}
#############################################################
sub Leave {
print "Content-type: text/html\n\n";
print <<"ChattyChild";
Chatty Child
ChattyChild
$counter = 0;
open (OLD, "$file");
@lines = ;
chomp (@lines);
close(OLD);
open (NEW, ">$file");
print NEW "\n";
print NEW "\n";
print NEW "\n";
print NEW "\n";
print NEW "$data{'name'}: $out
\n";
for ($counter = 4; $counter < 15; $counter++) {
print NEW "$lines[$counter]\n";
}
print NEW "\n\\\n";
close(NEW);
exit;
}
#############################################################
sub parse
{
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
$input = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'};
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$data{$name} = $value;
}
if ($bw eq 'Yes') { &bw_filter(%data); }
}
#############################################################
sub bw_filter {
foreach $key (keys %data) {
foreach $badword (@badwords) {
if ($data{$key} =~ /\b$badword\b/i) {
if ($data{'name'} =~ /\b$badword\b/i) {
&Out;
}
if ($leave eq 'Yes'){
if ($data{'name'} =~ /\b$badword\b/i) {
&Out;
}else{
$data{$key} = $KO;
&Out;
}
}else{
$data{$key} =~ s/\b$badword\b/$new_word/ig;
}
}
}
}
}
#############################################################
sub Out {
$out = "chat.pl";
print "Content-type: text/html\n\n";
print <<"ChattyChild";
ChattyChild
exit;
}
#############################################################
sub KO {
print "Content-type: text/html\n\n";
print <<"ChattyChild";
Chatty Child
ChattyChild
$counter = 0;
open (OLD, "$file");
@lines = ;
chomp (@lines);
close(OLD);
open (NEW, ">$file");
print NEW "\n";
print NEW "\n";
print NEW "\n";
print NEW "\n";
print NEW "$data{'name'}: $KO
\n";
for ($counter = 4; $counter < 15; $counter++) {
print NEW "$lines[$counter]\n";
}
print NEW "\n\\\n";
close(NEW);
exit;
}
#############################################################
sub CleanInput {
## Disallow JavaScript
$data{'message'} =~ s///ig unless $allow_javascript eq "Yes";
$data{'message'} =~ s/<\/SCRIPT\>//ig unless $allow_javascript eq "Yes";
## Disallow Java Applets
$data{'message'} =~ s///ig unless $allow_java eq "Yes";
$data{'message'} =~ s/<\/APPLET\>//ig unless $allow_java eq "Yes";
if ((length ($data{'message'}) > 50) && (($data{'message'}) !~ /\s/)){
$data{'message'} = "";
}
$data{'message'} =~ s/<([^>]+)>//ig unless $allow_html eq "Yes";
$data{'message'} =~ s/<(IMG\s*SRC.*)>//ig unless $allow_images eq "0";
$data{'message'} =~ s/\n//g;
$data{'message'} =~ s///ig;
}
###################################################################
# end of script
#############################################################
|
