- or download this
: #!/usr/bin/perl -w
: use strict;
: use CGI ':standard';
- or download this
use CGI qw/:standard center *font *i *b/;
: use Regexp::Common qw(RE_profanity);
- or download this
: print header();
: print start_html();
:
: print "<html><head><title>Thanks for Signing!</title></head>";
: print "<body bgcolor=black text=white>";
- or download this
print
header,
start_html(
...
: my $name =$q->param('name');
: my $mail =$q->param('mail');
: my $message =$q->param('message');
- or download this
my $name = param('name');
my $mail = param('mail');
my $message = param('message');
: print "<center><p>Thanks for signing my guestbook, your",
: "message has been posted! $name!</center></p>";
- or download this
print center(
p( 'Thanks for signing my guestbook, your message ',
"has been posted! $name!" ));
...
: s/\(red\)/<font color=red>/ig;
: s/\(\/red\)/<\/font>/ig;
: };
- or download this
my ($red, $sl_red) = qw|\(red\) \(/red\)|;
foreach ($name, $mail, $message) {
s/</</g;
...
: if ($message =~ /\(red\)/i and $message =! /\(\/red\)/i) {
: $message=$message."</font>"
: };
- or download this
: print "Name: $name <br> Email: $mail <br> Message: $message"; - or download this
: open HTML, ">>../gbook.html" or die $!;
: print HTML "<i>Name:</i> $name <br> <i>E-Mail: </i>$mail<br> ",
: "<i>Message: </i>$message <p>";
- or download this
print HTML
i('Name: '), $name, br,
i('E-Mail: '), $mail, br,
...
: close HTML;
: print "</BODY></HTML>";
- or download this
print
"Name: $name", br,
"Email: $mail", br,
...
end_html;
__END__