#!/usr/bin/perl
#############################################################################
# verguest - Simple Guestbook - Version 1.4 - Released 12/27/2000
#
# The following variables control how the guestbook works
# This script was designed to give you as much freedom as
# possible in setting up your service.  Please change the 
# variables so the site fits more into your site.

$script_url = "http://www.seif-sy.com/cgi/guestbook.pl";
# This is the name of the script

$data_file = "/home/sites/site35/web/cgi/entries.txt";
# File where guestbook entries are stored.
# You must include the full path.  Upload a blank file called 
# entries.txt (or whatever), and make sure you CHMOD it to 777

$show = 10;
# Number of guestbook entries per page.

$my_email = 'bashar@seif-sy.com';
# Your email address.

$tell_me = "yes";
# Tell me when someone has signed the guestbook.
# This will send you an e-mail when the guestbook is signed.

$thanks_response = "yes";
# Send a thankyou email to the signer of the guestbook.

$sendmail = '/usr/sbin/sendmail';
# Where sendmail is located -- you should not have to change this.

$date_command = "/bin/date";
# Date command -- again, there is no need to change this.

$block_slang = 1;
# Block bad words (1=yes 2=no).  A list of curse words has been
# appended to the bottom of this script.  If you would like to 
# add others, simply follow the format.

#
# The following variables control how the guestbook looks
#

$view_text_color = "#000000";
# Color of the text within the guestbook.

$view_link_color = "#0000FF";
# Color of the link within the guestbook.

$view_bgcolor = "#FFFFFF";
# Color of the background within the guestbook.

$view_bgimage = "";
# Background image within the guestbook; this is optional.

$view_hr_image = " ";
# Horizontal line image within the guestbook; this is optional.
# If you leave it blank, an HR tag will be automatically appended
# between each entry.

$view_head_text = "This Is What Has Been Said About Our page";
# Text at the top of the guestbook.

$add_text_color = "#000000";
# Color of the text on the submit form.

$add_link_color = "#0000FF";
# Color of the link on the submit form.

$add_bgcolor = "#FFFFFF";
# Color of the background on the submit form.

$add_bgimage = "";
# Background image on the submit form; this is optional.

$add_head_text = "<h2>Add to our Guestbook </h2>";
# Text on the top of the submit page.

#################################
# Don't change the next 8 lines #
#################################
$date = `$date_command +"%B %d, %Y"`; chop($date);
&get_form;

if ($FORM{'what'} =~ /\b(submit)\b/i){&submit}
elsif ($FORM{'what'} =~ /\b(view)\b/i){&view}
elsif ($FORM{'what'} =~ /\b(preview)\b/i){&preview}
else {&add}
exit(0);

###################################
# Write an entry to the guestbook #
###################################
sub submit
{
   @cookies = split(/; /, $ENV{'HTTP_COOKIE'});
   foreach $cook (@cookies)
   {
      ($name, $value) = split(/=/, $cook);
      $COOKIE{$name} = $value;
   }
   &error("Bad!", "Only one post per session!") if $COOKIE{'gbook'} == 1;

   # Check for name and comments
   &error("No name!", "Please fill in your name!") unless $FORM{'name'};
   &error("No email!", "Please fill in your Email ! $FORM{'name'}") unless $FORM{'email'};
   &error("No comments!", "Please fill in your Comments $FORM{'name'}") unless $FORM{'comments'};

   $FORM{'comments'} =~ s/\n/<br>/g;

# Send the signer an e-mail
# By following the format, you can adjust the message to reflect what 
# you want to tell your visitor.

   if ($thanks_response =~ /yes/i && $FORM{'email'} =~ /\w+@\w+.\w+/)
   {
      open (MAIL, "|$sendmail -t") || die "Can't open $sendmail\n";
      print MAIL "To: $FORM{'email'}\n";
      print MAIL "Reply-to: $my_email\n";
      print MAIL "From: $my_email\n";
      print MAIL "Subject: Hello $FORM{'name'}\n\n";
      print MAIL "Thanks for signing our guestbook.  ";
      print MAIL "If you have any questions, please feel free to contact bashar\@seif-sy.com.\n\n";
      close (MAIL);
   }

   # Send administrator an e-mail
   if ($tell_me =~ /yes/i)
   {
      # Get the remote hostname.
      @subnet_numbers = split (/\./, $ENV{'REMOTE_ADDR'});
      $packed_address = pack ("C4", @subnet_numbers);
      $ENV{'REMOTE_HOST'} = gethostbyaddr($packed_address, 2);

      open (MAIL, "|$sendmail $my_email") || die "Can't open $sendmail!\n";
      print MAIL "Reply-to: $FORM{'email'}\n";
      print MAIL "From: $FORM{'email'} <$FORM{'name'}>\n";
      print MAIL "Subject: $FORM{'name'} signed the guestbook!\n\n";
      print MAIL "$FORM{'name'} <$FORM{'email'}> has made an entry to the guestbook.\n";
      print MAIL "with the IP $ENV{'REMOTE_ADDR'}\n";
      if ($ENV{'REMOTE_HOST'}){print MAIL "Using the hostname $ENV{'REMOTE_HOST'}\n"}
      print MAIL "on $date\n\n";
      print MAIL "User's Comments: $FORM{'comments'}\n";
      close (MAIL);
   }

   # Write a new entry to the guestbook file.
   open (FILE, ">>$data_file");
   flock(FILE, 2);
   seek(FILE, 0, 2);
   print FILE "$FORM{'name'}|$FORM{'email'}|";
   $FORM{'url'} =~ s#http://##eig;
   print FILE "http://$FORM{'url'}" if $FORM{'url'};
   print FILE "|$FORM{'city'}|$FORM{'state'}|$FORM{'country'}|$FORM{'comments'}|$date\n";
   close (FILE);
   flock(FILE, 8);

   # Set a Cookie
   print "Set-Cookie: gbook=1\n";
   # Redirect the user.
   print "Location: $script_url?what=view\n\n";
}

################################
# Print the guestbook add form #
################################
sub add
{
   print "Content-type: text/html\n\n";
   print "<html>\n";
   print "<head><title>Add to the Guestbook</title></head>\n";
   print "<body ";
   print "topmargin=\"0\" ";
   print "leftmargin=\"0\" ";
   print "background=\"$add_bgimage\" " if $add_bgimage;
   print "link=\"$add_link_color\" alink=\"$add_link_color\" vlink=\"$add_link_color\" " if $add_link_color;
   print "bgcolor=\"$add_bgcolor\" " if $add_bgcolor;
   print "text=\"$add_text_color\" " if $add_text_color;
   print ">";
   print "<font face=\"Arial,Verdana\"><center>\n";
   print "<table cellspacing=\"3\" cellpadding=\"2\">\n";
   print "  <form method=\"post\" action=\"$script_url?what=preview\">\n";
   print "    <tr><td><b>Name:</b></td><td><input type=\"text\" name=\"name\" size=\"25\"></td></tr>\n";
   print "    <tr><td><b>E-Mail:</b></td><td><input type=\"text\" name=\"email\" size=\"25\"></td></tr>\n";
   print "    <tr><td><b>URL:</b></td><td><input type=\"text\" name=\"url\" value=\"http://\" size=\"25\"></td></tr>\n";
   print "    <tr><td><b>City:</b></td><td><input type=\"text\" name=\"city\" size=\"8\"> <b>State: </b><input type=\"text\" name=\"state\" size=\"2\"><tr><td><b>Country:</b></td><td>  <select name=\"country\" size=\"1\">
  <option>----------INTERNATIONAL----------
  <option value=\"AFGHANISTAN\">AFGHANISTAN
  <option value=\"ALBANIA\">ALBANIA
  <option value=\"ALGERIA\">ALGERIA
  <option value=\"AMERICAN SAMOA\">AMERICAN SAMOA
  <option value=\"ANDORRA\">ANDORRA
  <option value=\"ANGOLA\">ANGOLA
  <option value=\"ANGUILLA\">ANGUILLA
  <option value=\"ANTARTICA\">ANTARTICA
  <option value=\"ANTIGUA & BARBUDA\">ANTIGUA &amp; BARBUDA
  <option value=\"ARGENTINA\">ARGENTINA
  <option value=\"ARMENIA\">ARMENIA
  <option value=\"ARUBA\">ARUBA
  <option value=\"AUSTRALIA\">AUSTRALIA
  <option value=\"AUSTRIA\">AUSTRIA
  <option value=\"AZERBAIJAN\">AZERBAIJAN
  <option value=\"BAHAMAS\">BAHAMAS
  <option value=\"BAHRAIN\">BAHRAIN
  <option value=\"BANGLADESH\">BANGLADESH
  <option value=\"BARBADOS\">BARBADOS
  <option value=\"BELARUS\">BELARUS
  <option value=\"BELGIUM\">BELGIUM
  <option value=\"BELIZE\">BELIZE
  <option value=\"BENIN\">BENIN
  <option value=\"BERMUDA\">BERMUDA
  <option value=\"BHUTAN\">BHUTAN
  <option value=\"BOLIVIA\">BOLIVIA
  <option value=\"BOSNIA & HERZEGOVINA\">BOSNIA &amp; HERZEGOVINA
  <option value=\"BOTSWANA\">BOTSWANA
  <option value=\"BOUVET ISLAND\">BOUVET ISLAND
  <option value=\"BR.INDIAN OCEAN TERR\">BR.INDIAN OCEAN TERR
  <option value=\"BR.VIRGIN ISLANDS\">BR.VIRGIN ISLANDS
  <option value=\"BRAZIL\">BRAZIL
  <option value=\"BRUNEI DARUSSALAM\">BRUNEI DARUSSALAM
  <option value=\"BULGARIA\">BULGARIA
  <option value=\"BURKINA FASO\">BURKINA FASO
  <option value=\"BURUNDI\">BURUNDI
  <option value=\"CAMBODIA\">CAMBODIA
  <option value=\"CAMEROON\">CAMEROON
  <option value=\"CANADA\">CANADA
  <option value=\"CAPE VERDE\">CAPE VERDE
  <option value=\"CAYMAN ISLANDS\">CAYMAN ISLANDS
  <option value=\"CENTRAL AFRICAN REP\">CENTRAL AFRICAN REP
  <option value=\"CHAD\">CHAD
  <option value=\"CHILE\">CHILE
  <option value=\"CHINA\">CHINA
  <option value=\"CHRISTMAS ISLAND\">CHRISTMAS ISLAND
  <option value=\"COCOS\">COCOS
  <option value=\"COLUMBIA\">COLUMBIA
  <option value=\"COMOROS\">COMOROS
  <option value=\"CONGO\">CONGO
  <option value=\"CONGO, DEM. REPUB. OF\">CONGO, DEM. REPUB. OF
  <option value=\"COOK ISLANDS\">COOK ISLANDS
  <option value=\"COSTA RICA\">COSTA RICA
  <option value=\"CROATIA\">CROATIA
  <option value=\"CUBA\">CUBA
  <option value=\"CYPRUS\">CYPRUS
  <option value=\"CZECH REPUBLIC\">CZECH REPUBLIC
  <option value=\"DENMARK\">DENMARK
  <option value=\"DJIBOUTI\">DJIBOUTI
  <option value=\"DOMINICA\">DOMINICA
  <option value=\"DOMINICAN REPUBLIC\">DOMINICAN REPUBLIC
  <option value=\"EAST TIMOR\">EAST TIMOR
  <option value=\"ECUADOR\">ECUADOR
  <option value=\"ESTONIA\">ESTONIA
  <option value=\"EGYPT\">EGYPT
  <option value=\"EL SALVADOR\">EL SALVADOR
  <option value=\"EQUATORIAL GUINEA\">EQUATORIAL GUINEA
  <option value=\"ERITREA\">ERITREA
  <option value=\"ETHIOPIA\">ETHIOPIA
  <option value=\"FALKLAND ISLANDS\">FALKLAND ISLANDS
  <option value=\"FAROE ISLANDS\">FAROE ISLANDS
  <option value=\"FIJI\">FIJI
  <option value=\"FINLAND\">FINLAND
  <option value=\"FORMER CZECHOSLOVAKIA\">FORMER CZECHOSLOVAKIA
  <option value=\"FRANCE\">FRANCE
  <option value=\"FRENCH GUIANA\">FRENCH GUIANA
  <option value=\"FRENCH POLYNESIA\">FRENCH POLYNESIA
  <option value=\"FRENCH SOUTHERN TERR\">FRENCH SOUTHERN TERR
  <option value=\"GABON\">GABON
  <option value=\"GAMBIA\">GAMBIA
  <option value=\"GEORGIA\">GEORGIA
  <option value=\"GERMANY\">GERMANY
  <option value=\"GHANA\">GHANA
  <option value=\"GIBRALTAR\">GIBRALTAR
  <option value=\"GREECE\">GREECE
  <option value=\"GREENLAND\">GREENLAND
  <option value=\"GRENADA\">GRENADA
  <option value=\"GUADELOUPE\">GUADELOUPE
  <option value=\"GUAM\">GUAM
  <option value=\"GUATEMALA\">GUATEMALA
  <option value=\"GUINEA\">GUINEA
  <option value=\"GUINEA-BISSAU\">GUINEA-BISSAU
  <option value=\"GUYANA\">GUYANA
  <option value=\"HAITI\">HAITI
  <option value=\"HEARD & MCDONALD ISL\">HEARD &amp; MCDONALD ISL
  <option value=\"HONDURAS\">HONDURAS
  <option value=\"HONG KONG\">HONG KONG
  <option value=\"HUNGARY\">HUNGARY
  <option value=\"ICELAND\">ICELAND
  <option value=\"INDIA\">INDIA
  <option value=\"INDONESIA\">INDONESIA
  <option value=\"IRAN\">IRAN
  <option value=\"IRAQ\">IRAQ
  <option value=\"IRELAND\">IRELAND
  <option value=\"ITALY\">ITALY
  <option value=\"IVORY COAST\">IVORY COAST
  <option value=\"JAMAICA\">JAMAICA
  <option value=\"JAPAN\">JAPAN
  <option value=\"JORDAN\">JORDAN
  <option value=\"KAZAKHSTAN\">KAZAKHSTAN
  <option value=\"KENYA\">KENYA
  <option value=\"KIRIBATI\">KIRIBATI
  <option value=\"KOREA (NORTH)\">KOREA (NORTH)
  <option value=\"KOREA (SOUTH)\">KOREA (SOUTH)
  <option value=\"KUWAIT\">KUWAIT
  <option value=\"KYRGYZSTAN\">KYRGYZSTAN
  <option value=\"LAOS\">LAOS
  <option value=\"LATVIA\">LATVIA
  <option value=\"LEBANON\">LEBANON
  <option value=\"LESOTHO\">LESOTHO
  <option value=\"LIBERIA\">LIBERIA
  <option value=\"LIBYA\">LIBYA
  <option value=\"LIECHTENSTEIN\">LIECHTENSTEIN
  <option value=\"LITHUANIA\">LITHUANIA
  <option value=\"LUXEMBOURG\">LUXEMBOURG
  <option value=\"MACAU\">MACAU
  <option value=\"MACEDONIA\">MACEDONIA
  <option value=\"MADAGASCAR\">MADAGASCAR
  <option value=\"MALAWI\">MALAWI
  <option value=\"MALAYSIA\">MALAYSIA
  <option value=\"MALDIVES\">MALDIVES
  <option value=\"MALI\">MALI
  <option value=\"MALTA\">MALTA
  <option value=\"MARSHALL ISLANDS\">MARSHALL ISLANDS
  <option value=\"MARTINIQUE\">MARTINIQUE
  <option value=\"MAURITANIA\">MAURITANIA
  <option value=\"MAURITIUS\">MAURITIUS
  <option value=\"MAYOTTE\">MAYOTTE
  <option value=\"MEXICO\">MEXICO
  <option value=\"MICRONESIA\">MICRONESIA
  <option value=\"MOLDOVA\">MOLDOVA
  <option value=\"MONACO\">MONACO
  <option value=\"MONGOLIA\">MONGOLIA
  <option value=\"MONTSERRAT\">MONTSERRAT
  <option value=\"MOROCCO\">MOROCCO
  <option value=\"MOZAMBIQUE\">MOZAMBIQUE
  <option value=\"MYANMAR\">MYANMAR
  <option value=\"NAMIBIA\">NAMIBIA
  <option value=\"NEPAL\">NEPAL
  <option value=\"NAURA\">NAURA
  <option value=\"NETHERLANDS\">NETHERLANDS
  <option value=\"NETHERLANDS ANTILLES\">NETHERLANDS ANTILLES
  <option value=\"NEW CALEDONIA\">NEW CALEDONIA
  <option value=\"NEW ZEALAND\">NEW ZEALAND
  <option value=\"NICARAGUA\">NICARAGUA
  <option value=\"NIGER\">NIGER
  <option value=\"NIGERIA\">NIGERIA
  <option value=\"NIUE\">NIUE
  <option value=\"NORFOLK ISLAND\">NORFOLK ISLAND
  <option value=\"NORTHERN MARIANA ISL\">NORTHERN MARIANA ISL
  <option value=\"NORWAY\">NORWAY
  <option value=\"OMAN\">OMAN
  <option value=\"PAKISTAN\">PAKISTAN
  <option value=\"PALAU\">PALAU
  <option value=\"PANAMA\">PANAMA
  <option value=\"PAPUA NEW GUINEA\">PAPUA NEW GUINEA
  <option value=\"PARAGUAY\">PARAGUAY
  <option value=\"PERU\">PERU
  <option value=\"PHILIPPINES\">PHILIPPINES
  <option value=\"PITCAIRN\">PITCAIRN
  <option value=\"POLAND\">POLAND
  <option value=\"PORTUGAL\">PORTUGAL
  <option value=\"PUERTO RICO\">PUERTO RICO
  <option value=\"QATAR\">QATAR
  <option value=\"REUNION\">REUNION
  <option value=\"ROMANIA\">ROMANIA
  <option value=\"RUSSIAN FEDERATION\">RUSSIAN FEDERATION
  <option value=\"RWANDA\">RWANDA
  <option value=\"S GEORGIA & S SANDWI\">S GEORGIA &amp; S SANDWI
  <option value=\"SAINT KITTS & NEVIS\">SAINT KITTS &amp; NEVIS
  <option value=\"SAINT LUCIA\">SAINT LUCIA
  <option value=\"SAINT VINCENT & GREN\">SAINT VINCENT &amp; GREN
  <option value=\"SAMOA\">SAMOA
  <option value=\"SAN MARINO\">SAN MARINO
  <option value=\"SAO TOME & PRINCIPE\">SAO TOME &amp; PRINCIPE
  <option value=\"SAUDI ARABIA\">SAUDI ARABIA
  <option value=\"SENEGAL\">SENEGAL
  <option value=\"SEYCHELLES\">SEYCHELLES
  <option value=\"SIERRA LEONE\">SIERRA LEONE
  <option value=\"SINGAPORE\">SINGAPORE
  <option value=\"SLOVAK REPUBLIC\">SLOVAK REPUBLIC
  <option value=\"SLOVENIA\">SLOVENIA
  <option value=\"SOLOMON ISLANDS\">SOLOMON ISLANDS
  <option value=\"SOMALIA\">SOMALIA
  <option value=\"SOUTH AFRICA\">SOUTH AFRICA
  <option value=\"SPAIN\">SPAIN
  <option value=\"SRI LANKA\">SRI LANKA
  <option value=\"ST HELENA\">ST HELENA
  <option value=\"PM\">ST PIERRE &amp; MIQUELON
  <option value=\"SUDAN\">SUDAN
  <option value=\"SURINAME\">SURINAME
  <option value=\"SVALBARD & JAN MAYEN\">SVALBARD &amp; JAN MAYEN
  <option value=\"SWAZILAND\">SWAZILAND
  <option value=\"SWEDEN\">SWEDEN
  <option value=\"SWITZERLAND\">SWITZERLAND
  <option value=\"SYRIA\">SYRIA
  <option value=\"TAIWAN\">TAIWAN
  <option value=\"TAJIKISTAN\">TAJIKISTAN
  <option value=\"TANZANIA\">TANZANIA
  <option value=\"THAILAND\">THAILAND
  <option value=\"TOGO\">TOGO
  <option value=\"TOKELAU\">TOKELAU
  <option value=\"TONGO\">TONGO
  <option value=\"TRINIDAD & TOBAGO\">TRINIDAD &amp; TOBAGO
  <option value=\"TUNISIA\">TUNISIA
  <option value=\"TURKEY\">TURKEY
  <option value=\"TURKMENISTAN\">TURKMENISTAN
  <option value=\"TURKS & CAICOS ISLAN\">TURKS &amp; CAICOS ISLAN
  <option value=\"TUVALU\">TUVALU
  <option value=\"UGANDA\">UGANDA
  <option value=\"UKRAINE\">UKRAINE
  <option value=\"UNITED ARAB EMIRATES\">UNITED ARAB EMIRATES
  <option value=\"UNITED KINGDOM\">UNITED KINGDOM
  <option value=\"UNITED STATES\">UNITED STATES</option>
  <option value=\"US VIRGIN ISLANDS\">US VIRGIN ISLANDS
  <option value=\"URUGUAY\">URUGUAY
  <option value=\"UZBEKISTAN\">UZBEKISTAN
  <option value=\"VANUATU\">VANUATU
  <option value=\"VATICAN CITY STATE\">VATICAN CITY STATE
  <option value=\"VENEZUELA\">VENEZUELA
  <option value=\"VIETNAM\">VIETNAM
  <option value=\"WALLIS & FUTUNA ISLA\">WALLIS &amp; FUTUNA ISLA
  <option value=\"WESTERN SAHARA\">WESTERN SAHARA
  <option value=\"YEMEN\">YEMEN
  <option value=\"YUGOSLAVIA\">YUGOSLAVIA
  <option value=\"ZAIRE\">ZAIRE
  <option value=\"ZAMBIA\">ZAMBIA
  <option value=\"ZIMBABWE\">ZIMBABWE</option>
</select></td></tr>\n";
   print "    <tr><td valign=\"top\"><b>Comments:</b></td><td><textarea name=\"comments\" cols=\"30\" rows=\"4\"></textarea></td></tr></table>\n";
   print "    <table width=\"100%\">\n";
   print "    <tr></td><td width=\"33%\"><td width=\"33%\"><div align=\"center\"><input type=\"submit\" value=\"Preview Entry\"></div></form></td><td width=\"34%\"><form action=\"$script_url?what=view\" method=\"post\"><input type=\"submit\" value=\"Read Guestbook\"></form></td></tr>\n";
   print "    <tr><td></td><td></form></td></tr>\n";
   print "    </table>\n";
   print "</center></font>\n";
   print "</body></html>\n";
}

##########################
# Print out the preview  #
##########################
sub preview
{
   # Check for name and comments
   &error("No name!", "Please fill in your name!") unless $FORM{'name'};
   &error("No email!", "Please fill in your Email ! $FORM{'name'}") unless $FORM{'email'};
   &error("No comments!", "Please fill in your comments $FORM{'name'}") unless $FORM{'comments'};
   
   print "Content-type: text/html\n\n";
   print "<html>\n";
   print "<head><title>Preview Entry</title></head>\n";
   print "<body";
   print " background=\"$view_bgimage\"" if $view_bgimage;
   print " link=\"$view_link_color\" alink=\"$view_link_color\" vlink=\"$view_link_color\"" if $view_link_color;
   print " bgcolor=\"$view_bgcolor\"" if $view_bgcolor;
   print " text=\"$view_text_color\"" if $view_text_color;
   print ">";
   print "<font face=\"Arial,Verdana\"><form action=\"$script_url?what=submit\" method=\"post\"><center><br>\n";
   print "<big><big>This is what your entry will look like...</big></big>\n";
   print "<p><img src=\"$view_hr_image\" width=\"100%\" height=\"4\"></p></center>\n\n";
   print "<table cellpadding=\"0\" cellspacing=\"1\" border=\"0\">\n";
   print "<tr><td>&nbsp;<b>Name:</b></td><td>$FORM{'name'} - $date</td></td>\n";
   print "<tr><td>&nbsp;<b>E-mail:</b></td><td><a href=\"mailto:$FORM{'email'}\">$FORM{'email'}</a></td></tr>\n" if $FORM{'email'};
   $FORM{'url_temp'} = $FORM{'url'}; $FORM{'url_temp'} =~ s#//##eig;
   print "<tr><td>&nbsp;<b>My URL:</b></td><td><a href=\"$FORM{'$url'}\" target=\"link\">$FORM{'url'}</a></td></tr>\n" if $FORM{'url_temp'};
   print "<tr><td>&nbsp;<b>Location:</b></td><td>";
   if (!$FORM{'country'}){$FORM{'country'} = "USA"}
   if ($FORM{'city'} && $FORM{'state'}){print "$FORM{'city'}, $FORM{'state'} $FORM{'country'}"}
   elsif ($FORM{'city'}){print "$FORM{'city'}, $FORM{'country'}"}
   elsif ($state){print "$FORM{'state'}, $FORM{'country'}"}
   else {print "$FORM{'country'}"}
   print "</td></tr>\n";
   print "<tr><td valign=\"top\">&nbsp;<b>Comments: &nbsp;</b></td>\n";
   $FORM{'commentsp'} = $FORM{'comments'}; $FORM{'commentsp'} =~ s/\n/<br>/g;
   print "<td><b>$FORM{'commentsp'}</b></td></tr></table><p>\n";
   print "<center><img src=\"$view_hr_image\" width=\"100%\" height=\"4\"></center><br>\n\n";
   print "<input type=\"hidden\" name=\"name\" value=\"$FORM{'name'}\"><input type=\"hidden\" name=\"email\" value=\"$FORM{'email'}\"><input type=\"hidden\" name=\"url\" value=\"$FORM{'url'}\"><input type=\"hidden\" name=\"country\" value=\"$FORM{'country'}\"><input type=\"hidden\" name=\"city\" value=\"$FORM{'city'}\"><input type=\"hidden\" name=\"state\" value=\"$FORM{'state'}\"><input type=\"hidden\" name=\"comments\" value=\"$FORM{'comments'}\">\n";
   print "<input type=\"submit\" value=\"Submit Entry\"> <font size=\"2\">(please be patient)</font>\n";
   print "</center></form></font></body></html>\n";
}

####################
# View the entries #
####################
sub view
{
   $po = ($FORM{'o'}-$show);
   $no = ($FORM{'o'}+$show);

   open(FILE, $data_file);
   @entries = <FILE>;
   close(FILE);
   @entries = reverse @entries;

   # Print out the html
   print "Content-type: text/html\n\n";
   print "<html>\n";
   print "<head><title>Guestbook</title></head>\n";
   print "<body";
   print " background=\"$view_bgimage\"" if $view_bgimage;
   print " link=\"$view_link_color\" alink=\"$view_link_color\" vlink=\"$view_link_color\"" if $view_link_color;
   print " bgcolor=\"$view_bgcolor\"" if $view_bgcolor;
   print " text=\"$view_text_color\"" if $view_text_color;
   print ">";
   print "<font face=\"Arial,Verdana\"><br>\n";
   print "<H3>$view_head_text</H3>\n";
   print "<p><img src=\"$view_hr_image\" width=\"100%\" height=\"4\"></p></center>\n\n";
   foreach $line (@entries[$FORM{'o'}..$no-1])
   {
      chomp $line;
      if ($line)
      {
         ($name, $email, $url, $city, $state, $country, $comments, $date) = split(/\|/, $line);
         print "<table cellpadding=\"0\" cellspacing=\"1\" border=\"0\">\n";
         print "<tr><td>&nbsp;<b>Name:</b></td><td>$name - $date</td></td>\n";
         print "<tr><td>&nbsp;<b>E-mail:</b></td><td><a href=\"mailto:$email\">$email</a></td></tr>\n" if $email;
         print "<tr><td>&nbsp;<b>My URL:</b></td><td><a href=\"$url\" target=\"link\">$url</a></td></tr>\n"            if $url;
         print "<tr><td>&nbsp;<b>Location:</b></td><td>";
         if (!($country)){$country = "USA"}
         if ($city && $state){print "$city, $state $country"}
         elsif ($city){print "$city, $country"}
         elsif ($state){print "$state, $country"}
         else {print "$country"}
         print "</td></tr>\n";
         print "<tr><td valign=\"top\">&nbsp;<b>Comments: &nbsp;</b></td>\n";
         print "<td><b>$comments</b></td></tr></table><p>\n";
         print "<center><img src=\"$view_hr_image\" width=\"100%\" height=\"4\"></center><br>\n\n";
      }
   }
   print "<br><center>\n";
   if ($po >= 0){print "<a href=\"$script_url?what=view&o=$po\">[<< Prev]</a>"}
   $tno = $no; $tno++;
   if ($entries[$tno]){print " <a href=\"$script_url?what=view&o=$no\">[Next >>]</a>"}
   print "</center></body></html>\n";
}

######################
# Print out an error #
######################
sub error
{
      print "Content-type: text/html\n\n";
      print "<html>\n";
      print "<head><title>Error! - $_[0]</title></head>\n";
      print "<body ";
      print "background=\"$add_bgimage\" " if $add_bgimage;
      print "link=\"$add_link_color\" alink=\"$add_link_color\" vlink=\"$add_link_color\" " if $add_link_color;
      print "bgcolor=\"$add_bgcolor\" " if $add_bgcolor;
      print "text=\"$add_text_color\" " if $add_text_color;
      print ">";
      print "<font face=\"Arial,Verdana\"><center>\n";
      print "<br><br><h2>$_[1]</h2>\n";
      print "</center></font>\n";
 	  print "<div align=\"center\"><input type=\"submit\" value=\"    OK    \" onclick=\"javascript:history.go(-1)\">\n";
      print "</body></html>\n";
      exit(0);
}

#####################
# Parse form input. #
#####################
sub get_form
{
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   @pairs = split(/&/, $buffer);
   @pairs2 = split(/&/, $ENV{'QUERY_STRING'});
   foreach $pair (@pairs, @pairs2)
   {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # Strip SSI
      $value =~ s/<!--(.|\n)*-->/ /g;

      # Strip HTML
      $value =~ s/\|/ /g;
      $value =~ s/\;//g;
      $value =~ s/\&/ /g;
      $value =~ s/</&lt;/g;
      $value =~ s/>/&gt;/g;

# Strip Bad Words
# Please add any words you feel are inappropriate to your site.
      $value =~ s/suck/stink/gi;
      $value =~ s/fuck/fudge/gi;
      $value =~ s/dick/richard/gi;
      $value =~ s/penis/dang/gi;
      $value =~ s/shit/shoot/gi;
      $value =~ s/fag/bundle of sticks/gi;
      $value =~ s/cunt/carp/gi;
      $value =~ s/pussy/prissy/gi;
      $value =~ s/ass/bum/gi;
      $value =~ s/bitch/Meredith Brooks/gi;

      $FORM{$name} = $value;
   }
   $FORM{'email'} =~ s/^([^ ]+) (.*)/$1/g;
}