#!/use/bin/perl -w
use strict;
use CGI ':standard';
print header();
print start_html();
print "
Thanks for Signing!";
print "";
my $q=new CGI;
my $name =$q->param('name');
my $mail =$q->param('mail');
my $message =$q->param('message');
print "Thanks for signing my guestbook, your message has been posted! $name!
";
# REMOVE THIS COMMENT TO ACTIVATE CENSOR if ($message =~/badword/i or $message =~/badword2/i or $message =~/badword3/i) {$message =~ s/badword/bleep/ig; $message =~ s/badword2/bleep/ig; $message =~ s/badword3/bleep/ig;};
if ($message =~/ or $message =~/>/) {$message =~ s/</g; $message =~ s/>/>/g;};
if ($name =~/ or $name =~/>/) {$name =~ s/</g; $name =~ s/>/>/g;};
if ($mail =~ / or $mail =~/) {$mail =~ s/</g; $mail =~ s/>/g;};
if ($message =~ /\(b\)/i or $message =~ /\(i\)/i or $message =~ /\(\/i\)/ or $message =~ /\(\/b\)/) {$message =~ s/\(b\)//ig; $message =~ s/\(i\)//ig; $message =~ s/\(\/b\)/<\/b>/ig; $message =~ s/\(\/i\)/<\/i>/ig;};
if ($message =~ /\(red\)/i or $message =~ /\(\/red\)/i) {$message =~ s/\(red\)//ig; $message =~ s/\(\/red\)/<\/font>/ig;};
if ($message =~ /\(red\)/i and $message =! /\(\/red\)/i) {$message=$message.""};
print "Name: $name
Email: $mail
Message: $message";
open HTML, ">>../gbook.html" or die $!;
print HTML "Name: $name
E-Mail: $mail
Message: $message ";
close HTML;
print "";