#!/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 =~//) {$message =~ s//>/g;};
if ($name =~//) {$name =~ s//>/g;};
if ($mail =~ //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 "";