#!/usr/bin/perl
#############################################################################

#
# Guestbook                     Version 2.3.1                               

#############################################################################

#
# Set Variables

$guestbookurl = 

"http://home.deds.nl/~maxgiezen/guestbook.html";
$guestbookreal = 

"guestbook.html";
$guestlog = "guestlog.html";
$cgiurl = 

"http://home.deds.nl/~maxgiezen/guestbook.pl";
$date_command = 

"/usr/bin/date";

# Set Your Options:
$mail = 0;              # 1 = Yes; 0 = 

No
$uselog = 1;            # 1 = Yes; 0 = No
$linkmail = 0;          # 1 = 

Yes; 0 = No
$separator = 1;         # 1 = <hr>; 0 = <p>
$redirection = 0;     

  # 1 = Yes; 0 = No
$entry_order = 1;       # 1 = Newest entries added 

first;
                        # 0 = Newest Entries added last.
$remote_mail 

= 0;       # 1 = Yes; 0 = No
$allow_html = 1;        # 1 = Yes; 0 = No
$line_breaks = 0;	# 1 = Yes; 0 = No

# If you answered 1 to $mail or 

$remote_mail you will need to fill out 
# these variables below:
$mailprog = 

'/usr/lib/sendmail';
$recipient = 'you@your.com';

# Done
#############################################################################

#

# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y at %T 

(%Z)"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; 

chop($shortdate);

# Get the input
read(STDIN, $buffer, 

$ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, 

$buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

 

  # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ 

s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ 

s/<!--(.|\n)*-->//g;

   if ($allow_html != 1) {
      $value =~ 

s/<([^>]|\n)*>//g;
   }

   $FORM{$name} = $value;
}

# Print the Blank 

Response Subroutines
&no_comments unless $FORM{'comments'};
&no_name unless 

$FORM{'realname'};

# Begin the Editing of the Guestbook File
open 

(FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open 

(GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n";

for 

($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) { 

      if 

($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
   

   if ($line_breaks == 1) {
         $FORM{'comments'} =~ s/\cM\n/<br>\n/g;
  

    }

      print GUEST "<b>$FORM{'comments'}</b><br>\n";

      if 

($FORM{'url'}) {
         print GUEST "<a 

href=\"$FORM{'url'}\">$FORM{'realname'}</a>";
      }
      else {
         

print GUEST "$FORM{'realname'}";
      }

      if ( $FORM{'username'} ){
    

     if ($linkmail eq '1') {
            print GUEST " \&lt;<a 

href=\"mailto:$FORM{'username'}\">";
            print GUEST 

"$FORM{'username'}</a>\&gt;";
         }
         else {
            print 

GUEST " &lt;$FORM{'username'}&gt;";
         }
      }

      print GUEST 

"<br>\n";

      if ( $FORM{'city'} ){
         print GUEST 

"$FORM{'city'},";
      }
     
      if ( $FORM{'state'} ){
         print 

GUEST " $FORM{'state'}";
      }

      if ( $FORM{'country'} ){
         

print GUEST " $FORM{'country'}";
      }

      if ($separator eq '1') {
     

    print GUEST " - $date<hr>\n\n";
      }
      else {
         print GUEST 

" - $date<p>\n\n";
      }

      if ($entry_order eq '0') {
         print 

GUEST "<!--begin-->\n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);

# Log The Entry

if ($uselog eq '1') {
   &log('entry');
}


#########
# Options

# Mail Option
if ($mail eq '1') {
   open (MAIL, 

"|$mailprog $recipient") || die "Can't open $mailprog!\n";

   print MAIL 

"Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
   print MAIL "From: 

$FORM{'username'} ($FORM{'realname'})\n";
   print MAIL "Subject: Entry to 

Guestbook\n\n";
   print MAIL "You have a new entry in your guestbook:\n\n";
 

  print MAIL "------------------------------------------------------\n";
   

print MAIL "$FORM{'comments'}\n";
   print MAIL "$FORM{'realname'}";

   if ( 

$FORM{'username'} ){
      print MAIL " <$FORM{'username'}>";
   }

   print 

MAIL "\n";

   if ( $FORM{'city'} ){
      print MAIL "$FORM{'city'},";
   

}

   if ( $FORM{'state'} ){
      print MAIL " $FORM{'state'}";
   }

   if 

( $FORM{'country'} ){
      print MAIL " $FORM{'country'}";
   }

   print 

MAIL " - $date\n";
   print MAIL 

"------------------------------------------------------\n";

   close 

(MAIL);
}

if ($remote_mail eq '1' && $FORM{'username'}) {
   open (MAIL, 

"|$mailprog -t") || die "Can't open $mailprog!\n";

   print MAIL "To: 

$FORM{'username'}\n";
   print MAIL "From: $recipient\n";
   print MAIL 

"Subject: Entry to Guestbook\n\n";
   print MAIL "Thank you for adding to my 

guestbook.\n\n";
   print MAIL 

"------------------------------------------------------\n";
   print MAIL 

"$FORM{'comments'}\n";
   print MAIL "$FORM{'realname'}";

   if ( 

$FORM{'username'} ){
      print MAIL " <$FORM{'username'}>";
   }

   print 

MAIL "\n";

   if ( $FORM{'city'} ){
      print MAIL "$FORM{'city'},";
   

}

   if ( $FORM{'state'} ){
      print MAIL " $FORM{'state'}";
   }

   if 

( $FORM{'country'} ){
     print MAIL " $FORM{'country'}";
   }

   print 

MAIL " - $date\n";
   print MAIL 

"------------------------------------------------------\n";

   close 

(MAIL);
}

# Print Out Initial Output Location Heading
if ($redirection eq 

'1') {
   print "Location: $guestbookurl\n\n";
}
else { 
   

&no_redirection;
}

#######################
# Subroutines

sub no_comments {
 

  print "Content-type: text/html\n\n";
   print "<html><head><title>No 

Comments</title></head>\n";
   print "<body><h1>Your Comments appear to be 

blank</h1>\n";
   print "The comment section in the guestbook fillout form 

appears\n";
   print "to be blank and therefore the Guestbook Addition was 

not\n";
   print "added.  Please enter your comments below.<p>\n";
   print 

"<form method=POST action=\"$cgiurl\">\n";
   print "Your Name:<input 

type=text name=\"realname\" size=30 ";
   print 

"value=\"$FORM{'realname'}\"><br>\n";
   print "E-Mail: <input type=text 

name=\"username\""; 
   print "value=\"$FORM{'username'}\" size=40><br>\n";
  

 print "City: <input type=text name=\"city\" value=\"$FORM{'city'}\" ";
   

print "size=15>, State: <input type=text name=\"state\" "; 
   print 

"value=\"$FORM{'state'}\" size=15> Country: <input type=text "; 
   print 

"name=\"country\" value=\"$FORM{'country'}\" size=15><p>\n";
   print 

"Comments:<br>\n";
   print "<textarea name=\"comments\" COLS=60 

ROWS=4></textarea><p>\n";
   print "<input type=submit> * <input 

type=reset></form><hr>\n";
   print "Return to the <a 

href=\"$guestbookurl\">Guestbook</a>.";
   print "\n</body></html>\n";

   # 

Log The Error
   if ($uselog eq '1') {
      &log('no_comments');
   }

   

exit;
}

sub no_name {
   print "Content-type: text/html\n\n";
   print 

"<html><head><title>No Name</title></head>\n";
   print "<body><h1>Your Name 

appears to be blank</h1>\n";
   print "Je bent vergeten om in te vullen voor 

wie de vraag is.\n";
   print "Je vraag is niet toegevoegd bij de 

vragen.\n";
   print "<p>\n";
   print "<form method=POST 

action=\"$cgiurl\">\n";
   print "Aan:<input type=text name=\"realname\" 

size=30><br>\n";
   print "Comments have been retained.<p>\n";
   print 

"<input type=hidden name=\"comments\" ";
   print 

"value=\"$FORM{'comments'}\">\n";
   print "<input type=submit> * <input 

type=reset><hr>\n";
   print "<a 

href=\"$http://home.deds.nl/~maxgiezen/guestbook.html\">Ga terug naar de 

vragen.</a>.";
   print "\n</body></html>\n";

   # Log The Error
   if 

($uselog eq '1') {
      &log('no_name');
   }

   exit;
}

# Log the Entry 

or Error
sub log {
   $log_type = $_[0];
   open (LOG, ">>$guestlog");
   if 

($log_type eq 'entry') {
      print LOG "$ENV{'REMOTE_HOST'} - 

[$shortdate]<br>\n";
   }
   elsif ($log_type eq 'no_name') {
      print LOG 

"$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: No Name<br>\n";
   }
   elsif 

($log_type eq 'no_comments') {
      print LOG "$ENV{'REMOTE_HOST'} - 

[$shortdate] - ERR: No ";
      print LOG "Comments<br>\n";
   }
}

# 

Redirection Option
sub no_redirection {

   # Print Beginning of HTML
   

print "Content-Type: text/html\n\n";
   print "<html><head><title>Thank 

You</title></head>\n";
   print "<body><h1>Uw vraag is toegevoegd.</h1>\n";

 

  # Print Response
   print "Uw vraag is toegevoegd\n";
   print "<hr>\n";
   

print "Dit is de vraag die je hebt gesteld:<p>\n";
   print 

"<b>$FORM{'comments'}</b><br>\n";

   if ($FORM{'url'}) {
      print "<a 

href=\"$FORM{'url'}\">$FORM{'realname'}</a>";
   }
   else {
      print 

"$FORM{'realname'}";
   }

   print " - $date<p>\n";

   # Print End of HTML
 

  print "<hr>\n";
   print "<a 

href=\"$http://home.deds.nl/~maxgiezen/guestbook.html\">Terug naar de 

vragen</a>\n";         print "- Het kan zijn dat de pagina moet vernieuwen om 

je vraag te kunnen zien.\n";
   print "\n";
   print "</body></html>\n";

   

exit;
}