#!/usr/bin/perl
# Modify the line above, to the location of your perl program if the guestbook
# does not work for you.

  print "Content-type: text/html\n\n";
  use CGI::Carp qw(fatalsToBrowser);
  #use strict;


 # ///////////////////////////////////////////////////////////////////////////////
 # //                                                                           //
 # //   E-GUESTBOOK                                                     //
 # //   VERSION 3 MAJOR RELEASE                                                 //
 # //                                                                           //
 # //   COPYRIGHT 2002 by ECLYPSE SOFTWARE - your software partner              //
 # //                                                                           //
 # //   "e-Guestbook Edition" can be used for many purposes, rangeing         //
 # //   from a simple guestbook to a customer feedback or testimonials board.   //
 # //   It's up to your imagination to find a purpose for it's use.             //
 # //                                                                           //
 # //                                                                           //
 # ///////////////////////////////////////////////////////////////////////////////


 # This updated version now has email features allowing the guest book software to send you
 # an email when somebody posts a new message to your guestbook. NEW in version 3 :: Editing
 # option, plus better lookin' guestbook/admin/templates.

 # Plus, added option to post a response to each of the guestbook entries (20 Sep, 2002). I hope everyone
 # is satisfied with this version of e-guestbook Edition.


 # // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 #
 # COPYRIGHT NOTICE
 # Copyright 2002 by Eclypse Software - Your software partner
 #                                                                 Programmer:  [bizzy241]
 #                                                                      Email:  [bizzy241@hotmail.com]
 #
 #
 # All Rights Reserved.
 #
 # By using this script you agree to release the author
 # from any liability or damages that might arise from
 # its use.
 #
 # WARNING: This program is protected by copyright law and international
 # treaties.
 #
 # If you wish to distribute this program, please contact me.
 #
 # // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


 @values
 = # --1
 $ENV{'QUERY_STRING'} # --2
 ; # --3

foreach $i(@values) {
	($file # --1
	, $action # --2
	, $pagevalue) # --3
	=
	split(/\=/,$i)
	;
} $file = "eguestbook" if ($file eq ""); # // Determine guestbook.


# ///////////////////////////////////////////////////////////////////////////////
# //                                                                           //
# //   Initialize System                                                       //
# //                                                                           //
# ///////////////////////////////////////////////////////////////////////////////

# // System has been designed to reduce server load by only loading specific
# // e-Guestbook software components when requested. Code has been reduced to
# // a minimum to further enhance server performance.

&ini_setts
;  # // Initialize software settings.

	 if ($action eq "display") { require "mDisplay.cgi"; exit; }
 elsif ($action eq "sign") { require "mSign.cgi"; exit; }
 elsif ($action eq "sign.confirm") { require "mSignConfirm.cgi"; exit; }
 elsif ($action eq "sign.submit") { require "mSignSubmit.cgi"; exit; }
 elsif ($action eq "CP") { require "mCp.cgi"; exit; }
 elsif ($action eq "CP2") { require "mCp2.cgi"; exit; }
 elsif ($action eq "deleteconfirm") { require "mData004.cgi"; exit; }
 elsif ($action eq "search&it") { require "mSearch.cgi"; exit;}
  elsif ($action eq "statistics") { require "mStats.cgi"; exit;}

 else {
	&quitdie("You will be redirected to the guestbook. Please link to your guestbook with this format: http://www.host.com/cgi-bin/e-guestbook.cgi?eguestbook=display");
 }

# ///////////////////////////////////////////////////////////////////////////////
# //                                                                           //
# //   GLOBAL SOFTWARE ROUTINES                      //
# //                                                                           //
# ///////////////////////////////////////////////////////////////////////////////

sub quitdie {
	($msg) = @_
	;
	open(x, "<./templates/message_posted.htm") || print "Cannot load header template file: \"./templates/header.html\"";
	while (<x>) {
		$_ =~ s/\$msgs/$msg/;
		$_ =~ s/\$img_url/$img_url/;
		$_ =~ s/\$file/$file/;
		print("$_");
	}
	close(x);
exit;
}

sub ini_setts {
	open(file, "./$file.config.pl") || print ("Cannot load settings: \"$file.config.pl\". Have you tried the guestbook installer? install.cgi");
	while (<file>) {
		chomp($_);
		($guestbook_title # --1
		, $message # --2
		, $perpage # --3
		, $new_posts_first # --4
		, $password
		, $img_url
		, $website_title
		, $website_url
		, $send_email
		, $email
		, $time_offset ) # --7
		= split(/\|/,$_);
	}
	close(file);
}

exit;