#!/usr/bin/perl

# Guestbook for the World Wide Web
# Created by Matt Wright           Version 2.3.1
# Created on: 4/21/95      	   Last Modified: 10/29/95
# Consult the file README for more information and Installation Instructions.

#############################################################################
# Variables

$guestbookurl = "http://matrix.etseq.urv.es/alumnes/agiribet/personal/llibre/guestbook.html";
$guestbookreal = "/lliure/agiribet/html/personal/llibre/guestbook.html";
$guestlog = "/lliure/agiribet/html/personal/llibre/guestlog.html";
$cgiurl = "http:/matrix.etseq.urv.es/cgi-bin/guestbook.cgi";
$date_command = "/bin/date";

# Opciones:
$mail = 0;              # 1 = Yes; 0 = No
$uselog = 1;            # 1 = Yes; 0 = No
$linkmail = 1;          # 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 = 0;        # 1 = Yes; 0 = No
$line_breaks = 1;	# 1 = Yes; 0 = No

# Si contestaste 1 a $mail o $remote_mail necesitas dar un valor 
# a estas dos variables
$mailprog = '/usr/sbin/sendmail';
$recipient = 'agiribet@etse.urv.es';

# 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{'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: Entrada en el llibre de visites\n\n";
   print MAIL "Entrada:\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{'country'} ){
      print MAIL " $FORM{'country'}\n";
   }

   if ( $FORM{'url'} ){
      print MAIL " $FORM{'url'}\n";
   }

   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: Llibre de visites: confirmacions\n\n";
   print MAIL "Gràcies per firmar en El món d'en GIRI: .\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'}\n";
   }

   if ( $FORM{'url'} ){
      print MAIL " $FORM{'url'}\n";
   }
   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>Sense comentaris</title></head>\n";
   print "<body bgcolor='#FFFFFF'><font face='Arial'>";
   print "<h2>Els teus comentaris sembla que estan en blanc</h2>\n";
   print "Els comentaris sembla que estan en blanc \n";
   print "i per tant no han estat afegits al llibre de visites\n";
   print ".  Siusplau, introdueix els comentaris en l'espai inferior.<p>\n";
   print "<form method=POST action=\"$cgiurl\">\n";
   print "<table border=0><tr><td align=right>";
   print "El teu nom:</td><td><input type=text name=\"realname\" size=50 ";   
   print "value=\"$FORM{'realname'}\">\n";
   print "</td></tr><tr><td align=right>";
   print "Adreça de correu:</td><td><input type=text name=\"username\""; 
   print "value=\"$FORM{'username'}\" size=50>\n";
   print "<tr><td align=right>";
   print "URL:</td><td><input type=text name=\"url\" ";
   print "value=\"$FORM{'url'}\" size=50></td></tr>";
   print "</td></tr><tr><td align=right>";
   print "Ciutat:</td><td><input type=text name=\"city\" value=\"$FORM{'city'}\" ";
   print "size=15>";
   print "</td></tr><tr><td align=right>";
   print "Pa&iacute;s:</td><td><input type=text "; 
   print "name=\"country\" value=\"$FORM{'country'}\" size=15>\n";
   print "</td></tr><tr><td align=left colspan=2>";
   print "Comentaris:<br>\n";
   print "<textarea name=\"comments\" COLS=60 ROWS=6></textarea>\n";
   print "</td></tr><tr><td align=center colspan=2>";
   print "<input type=submit value='Firmar'> ";
   print "<input type=reset value='Cancelar'></td></tr></table></form><hr>\n";
   print "Tornar al <a href=\"$guestbookurl\">llibre de visites</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>Sense nom</title></head>\n";
   print "<body bgcolor='#FFFFFF'><font face='Arial'>";
   print "<h2>El teu nom apareix el blanc</h2>\n";
   print "La secció corresponent al seu nom esta en blanc \n";
   print "i per tant no ha estat afegit al llibre de visites. \n";
   print " Siusplau introdueix el teu nom en l'espai corresponent.<p>\n";
     print "<form method=POST action=\"$cgiurl\">\n";
   print "<table border=0><tr><td align=right>";
   print "El teu nom:</td><td><input type=text name=\"realname\" size=50 ";   
   print "value=\"$FORM{'realname'}\">\n";
   print "</td></tr><tr><td align=right>";
   print "Adreça de correu:</td><td><input type=text name=\"username\""; 
   print "value=\"$FORM{'username'}\" size=50>\n";
   print "<tr><td align=right>";
   print "URL:</td><td><input type=text name=\"url\" ";
   print "value=\"$FORM{'url'}\" size=50></td></tr>";
   print "</td></tr><tr><td align=right>";
   print "Ciutat:</td><td><input type=text name=\"city\" value=\"$FORM{'city'}\"
";
   print "size=15>";
   print "</td></tr><tr><td align=right>";
   print "Pa&iacute;s:</td><td><input type=text "; 
   print "name=\"country\" value=\"$FORM{'country'}\" size=15>\n";
   print "</td></tr><tr><td align=left colspan=2>";
   print "Comentaris:<br>\n";
   print "<textarea name=\"comments\" COLS=60 ROWS=6></textarea>\n";
   print "</td></tr><tr><td align=center colspan=2>";
   print "<input type=submit value='Firmar'> ";
   print "<input type=reset value='Cancelar'></td></tr></table></form><hr>\n";
   print "Tornar al <a href=\"$guestbookurl\">llibre de visites</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: Sense nom<br>\n";
   }
   elsif ($log_type eq 'no_comments') {
      print LOG "$ENV{'REMOTE_HOST'} - [$shortdate] - ERR: Sense ";
      print LOG "comentaris<br>\n";
   }
}

# Redirection Option
sub no_redirection {

   # Print Beginning of HTML
   print "Content-Type: text/html\n\n";
   print "<html><head><title>Gràcies</title></head>\n";
   print "<body bgcolor='#FFFFFF'><h1>Gràcies per firmar en el llibre de visites d'El món d'en GIRI</h1>\n";

   # Print Response
   print "Gràcias per omplir el formulari. Els teus comentaris han estat \n";
   print "afegits al llibre de visites.<hr>\n";
   print "Aquí hi ha el que has enviat:<p>\n";
   print "<b>$FORM{'comments'}</b><br>\n";

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

   if ( $FORM{'username'} ){
      if ($linkmail eq '1') {
         print " &lt;<a href=\"mailto:$FORM{'username'}\">";
         print "$FORM{'username'}</a>&gt;";
      }
      else {
         print " &lt;$FORM{'username'}&gt;";
      }
   }

   print "<br>\n";

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

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

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

   # Print End of HTML
   print "<hr>\n";
   print "Tornar al <a href=\"$guestbookurl\">llibre de visites</a>\n";         
   print "- Es necesari recargar-lo per poder veure la teva propia entrada.\n";
   print "</body></html>\n";

   exit;
}