: #!/usr/bin/perl -w : use strict; : use CGI ':standard'; #### use CGI qw/:standard center *font *i *b/; : use Regexp::Common qw(RE_profanity); #### : print header(); : print start_html(); : : print "Thanks for Signing!"; : print ""; #### print header, start_html( -bgcolor => 'black', -text => 'white', -title => 'Thanks for Signing!'); : my $q=new CGI; : my $name =$q->param('name'); : my $mail =$q->param('mail'); : my $message =$q->param('message'); #### my $name = param('name'); my $mail = param('mail'); my $message = param('message'); : print "

Thanks for signing my guestbook, your", : "message has been posted! $name!

"; ##
## print center( p( 'Thanks for signing my guestbook, your message ', "has been posted! $name!" )); : # REMOVE THIS COMMENT TO ACTIVATE CENSOR # use Regexp::Common qw(RE_profanity); : # $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; : }; #### my ($red, $sl_red) = qw|\(red\) \(/red\)|; foreach ($name, $mail, $message) { s//>/g; s|\(b\)|start_b|ieg; s|\(i\)|start_i|ieg; s|\(/b\)|end_b|ieg; s|\(/i\)|end_i|ieg; s/$red/start_font({-color => 'red'})/iego; s/$sl_red/end_font/iego; } : 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

"; #### print HTML i('Name: '), $name, br, i('E-Mail: '), $mail, br, i('Message: '), p($message); : close HTML; : print ""; #### print "Name: $name", br, "Email: $mail", br, "Message: $message", end_html; __END__