#!/usr/bin/perl -w
use strict;
use CGI ':standard';
use Regexp::Common qw(RE_profanity);
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 $message =~ s/$RE{profanity}/bleep/msg;
foreach ($name,$mail,$message) {
s//>/g;
};
foreach ($message,$mail,$name){
s/\(b\)//ig;
s/\(i\)//ig;
s/\(\/b\)/<\/b>/ig;
s/\(\/i\)/<\/i>/ig;
};
foreach ($message,$mail,$name)
{
s/\(red\)//ig;
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 "";