GuestBook
Add Guest Book
#!/usr/bin/perl
# Guestbook program for WWW by Matt Wright Ver. 2.3.1
#Modifyed By kibochan
require 'jcode.pl';
$guestbook= "guestbook.htm";
$date_command = "/usr/bin/date";
#$date = `$date_command +"%D %T %Z"`; chop($date);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
&jcode'convert(*value, 'sjis');
$FORM{$name} = $value;
}
&no_comments unless $FORM{'comments'};
&no_name unless $FORM{'name'};
open (FILE,"$guestbook") || die "Can't Open $guestbook: $!\n";
@LINES=
;
close(FILE);
$SIZE=@LINES;
open (GUEST,">$guestbook") || die "Can't Open $guestbook: $!\n";
for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
if (//) {
print GUEST "\n";
$FORM{'comments'} =~ s/\cM\n/
\n/g;
print GUEST "$FORM{'comments'}
\n";
if ($FORM{'url'}) {
print GUEST "$FORM{'name'}";
}
else {
print GUEST "$FORM{'name'}";
}
if ( $FORM{'email'} ){
print GUEST " \<";
print GUEST "$FORM{'email'}\>";
}
print GUEST "
\n - $date
\n\n";
}
else {
print GUEST $_;
}
}
close (GUEST);
&success;
sub no_comments {
print "Content-type: text/html\n\n";
print "No Message!!\n";
print "\n";
print "メッセージがありません
\n";
print "もう一度やり直して下さい。
\n";
exit;
}
sub no_name {
print "Content-type: text/html\n\n";
print "No Name!!\n";
print "\n";
print "名前がありません
\n";
print "もう一度やり直して下さい。
\n";
exit;
}
sub success {
print "Content-type: text/html\n\n";
print "Thank You\n";
print "\n";
print "メッセージ
\n";
print "ありがとうございました
\n";
print "
\n";
print "$FORM{'comments'}\n";
if ($FORM{'url'}) {
print "$FORM{'name'}";
}
else {
print GUEST "$FORM{'name'}";
}
if ( $FORM{'email'} ){
print GUEST " \<";
print GUEST "$FORM{'email'}\>";
}
print GUEST "
\n - $date
\n\n";
exit;
}