#!/usr/bin/perl

###############################################################################
# JaLaBA.pl                                                                   #
###############################################################################
# Java Lattice Building Application                                           #
# =========================================================================== #
# Copyright (c) Maarten Janssen                                               #
# =========================================================================== #
# This file has been written by: Maarten Janssen                              #
###############################################################################

if(!(-e("Settings.pl"))) {
	$current_file = "$ENV{'REQUEST_URI'}";
	$current_file =~ s/\/(.*)\//$1/g;
	print "Location: http://$ENV{'SERVER_NAME'}/$1/Install.pl\n\n";
}
#$jaurl = "http://juffer.xs4all.nl/cgi-bin/jalaba/JaLaBA.pl";
$jaurl = "JaLaBA.pl";
#$jahurl = "http://juffer.xs4all.nl/jalaba";
$jahurl = "Documents";
$rootdir = $ENV{'DOCUMENT_ROOT'}."/jalaba";
require "Settings.pl";
require "$sourcedir/Subs.pl";

$Cookie_Exp_Date = 'Mon, 31-Jan-3000 12:00:00 GMT';
&get_date;
&readform;
foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
	($cookie,$value) = split(/=/);
	if($cookie eq "$cookieusername") { $username="$value"; }
	if($cookie eq "$cookiepassword") { $password="$value"; }
}

if($username eq "") { $username = "Guest"; };

open (FILE, ">>JaLaLog.txt") || &fatal_error("Onopenbaar: JaLaLog.txt");
&lock(FILE);
print FILE $date."\t";
print FILE $ENV{'REMOTE_HOST'}."\t";
print FILE $ENV{'REMOTE_ADDR'}."\t";
$htreferer = $ENV{'HTTP_REFERER'};
if ( $htreferer =~ /JaLaBA.pl/) {
	print FILE "(interne link)\t";
} else { 
	print FILE $ENV{'HTTP_REFERER'}."\t";
};
print FILE $ENV{'REQUEST_URI'}."\t";
print FILE "\n";
&unlock(FILE);
close(FILE);

# Depending on on the action field choose what to do
if ($action eq "output") { require "$sourcedir/Output.pl"; &Output; }
if ($action eq "create") { require "$sourcedir/Create.pl"; &Create; }
if ($action eq "create2") { require "$sourcedir/Create2.pl"; &Create2; }
if ($action eq "create3") { require "$sourcedir/Create3.pl"; &Create3; }
if ($action eq "create4") { require "$sourcedir/Create4.pl"; &Create4; }
if ($action eq "create5") { require "$sourcedir/Create5.pl"; &Create5; }
if ($action eq "rawinput") { require "$sourcedir/Rawinput.pl"; &Rawinput; }
# No action? Show the recepy index
 $main = "Yes"; $invoer = "main.txt";
 require "$sourcedir/Output.pl"; &Output;

exit;