#!/usr/bin/perl -w
BEGIN {
	push (@INC,"/home/username/mods");
	push (@INC,"/home/username2/mods");
}
use Carp ();
local $SIG{__WARN__} = \&Carp::cluck;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard :cgi-lib escapeHTML);
use Mail::Sendmail;
use Digest::MD5;
use Crypt::CBC;
use Crypt::Blowfish;
use LWP::UserAgent;
use Image::Magick; # I really don't use this YET, I should remove it I guess... Until I need it
use SiteDB::Session;
ReadParse(\%in);
use vars qw($cookie $sess_id $sess_ref $page $is_logged_in %in);
$sess_id = cookie("sess_id");
if ($sess_id eq "" && $in{sess_id} ne "") {
$sess_id = $in{sess_id};
}
$sess_ref = SiteDB::Session->open_with_expiration(undef, $sess_id) if defined ($sess_id);

require "/home/username/site/path/data.conf";


if ((defined($in{pg}) && $in{pg} eq "quit") && defined($sess_ref)) {
	if ((defined($sess_ref->attr("remember_me")) && $sess_ref->attr("remember_me") == 1) && (!defined($in{expire}) || (defined($in{expire}) && $in{expire} != 1))) {
		Log_Out_User($sess_ref);
	} else {
		Delete_Session_Forever($sess_ref);
	}
}

if (!defined ($sess_ref))
{
	defined ($sess_ref = SiteDB::Session->open (undef, undef))
		or error ("Could not create new session: $SiteDB::Session::errstr");
	$cookie = cookie (-name => "sess_id",
						-value => $sess_ref->session_id(),
						-path => url (-absolute => 1),
						-expires => "+1y"
);

}
get_cookie_values($sess_ref);
require "/home/username/site/path/config.data";


$sess_ref->expires ($sess_ref->now() + (60*60*24*365)) if !defined ($sess_ref->expires());
$Page_Dir = "/home/username/site/path/pages";
$pg = $in{pg};
$enter1 = 0;

if (!$pg || !-e "$Page_Dir/$pg.conf") {
	require "$Page_Dir/enter.conf";
	$enter1++;
	$page .= $page_content;

} elsif ($pg =~ /inventory/i) {
	$item_num = $in{item_num};
	require "$Page_Dir/inventory.conf";
	if ($item_num eq "") {
		$page .= show_form("");
	} else {
		$page .= Check_inventory();
	}

	$page .=  qq~<table border="0" class="table2" align="center" width="95%">
<tr valign="top">
<td align="right">Last updated on: <font color="orange">~;
open(UPDATE, "/home/username/site/path/stock/updated.conf") or die "Could not get Last Update time: $!";
seek(UPDATE,0,0);
	while(<UPDATE>) {
		if ($_ ne "") {
			$page .=  $_;
		}
	}
close(UPDATE);
	$page .= qq~</font></td>
</tr>
</table>
~;

} elsif(-e "$Page_Dir/$pg.conf") {
	$test_cookie2 = cookie ("sess_id");
	if (!defined($test_cookie2) || (defined($test_cookie2) && $test_cookie2 eq "")) {
		$nocookies = 1;
		$include_sess_id = "&sess_id=" . $sess_ref->session_id();
	} else {
		$nocookies = 0;
		$include_sess_id = "";
	}

	$datafile = "$Page_Dir/$pg.conf";
	require $datafile;
	$page .= $page_content;
}

if ($enter1) {
	enter_header($title,"","");
} else {
	top_header("$title","","");
}
	if ($in{pg} ne "" || $in{pg} ne "enter") {
		$page .= qq~</td>\n</tr>\n</table>
		</td>\n</tr>\n</table>~;
	}
	$page .= p({-style => "margin-left: 20", -align => "center"}, br() . qq~<font face="Arial" color="#FFFFFF" size="1">© COPYRIGHT 2002 THE GIFT COTTAGE<br />ALL RIGHTS RESERVED<br />Art work by <a href="http://www.thomaskinkade.com/magi/servlet/com.asucon.ebiz.home.web.tk.HomeServlet" class="PageLink" target="tom">Thomas Kinkade</a></font>~);
	print $page, br() x 3,
	end_html(); # Close page
	$sess_ref->close($sess_id) if defined($sess_ref);# Close the session.
	exit; # Exit system.

sub error {
my $er_message = shift;
$title = "The Gift Cottage - Error Page";
top_header("$title","","");
print h3({-align=>"center"},"Error"),
p(strong($er_message)),
br(),
br(),
qq~
</p />
</td />
</tr />
</table />
</td />
</tr />
<tr valign="top">
<td bgcolor="#E1EAF1">
<font size="1">
<div align="center"><font class="copyright">© COPYRIGHT 2002 THE GIFT COTTAGE<br />ALL RIGHTS RESERVED</font />
</div />
</font />
</td />
</tr />
</table />
~,
p({-style => "margin-left: 20", -align => "center"}, br() . qq~<font face="Arial" color="#FFFFFF" size="1">© COPYRIGHT 2002 THE GIFT COTTAGE<br />ALL RIGHTS RESERVED</font>~),
br() x 4,
end_html();
$sess_ref->close($sess_id) if defined($sess_ref);# Close the session. Used here because exits next!
exit;
}