#!/usr/bin/perl -w
#!/usr/bin/composite

###########################################################
##  N E T G E N E R A T O R                              ##
##                                                ##
##                             ##
##                                   ##
##                            ##
##                                     ##
##                      V5.x    ##
##                                                       ##
###   1999-2006 netgenerator.de / modularedynamik.com  ###


use CGI::Carp 'fatalsToBrowser';
use netGen_settings;
use netGen_basis;
use netGen_cms_baum_basis;
use netGen_shop_basis;
use netGen_users;
use netGen_basis_sm;
###########################################################
##  Config		                                         ##


##                                                       ##
###########################################################

my ($basedir, $standard_lang) = set_basedir_var();
@cb = split(/http:\/\/www\./,$basedir);
my $cookie_basedir = "www.".$cb[1];
my $email_basedir = $cb[1];
#$cookie_basedir=$cb[1];
#$sslbasedir=$sslserver."/".$cb[1];
# my $sslbasedir = $sslserver;

if(defined $Formular{'lang'}) {
	if($Formular{'lang'} eq "debug") {
		$Formular{'lang'} = "de";
		$Formular{'debug'} = 1;
	} elsif($Formular{'lang'} eq "smdebug") {
		$Formular{'lang'} = "de";
		$Formular{'smdebug'} = 1;
	}
}

$Formular{'action'} = "template" if(!$Formular{'action'} && $Formular{'template'} ne "");
$Formular{'site'} = $standard_site if(!$Formular{'site'});
if((!$Formular{'lang'} || !$Formular{'user'} || !$Formular{'password'} || !$Formular{'sid'}) && $Formular{'action'} ne "login") {
	use CGI;
	my $cgi = new CGI;
	
	$cookie_lang = $cgi->cookie(-name=>'lang');
	$cookie_user = $cgi->cookie(-name=>'user');
	$cookie_password = $cgi->cookie(-name=>'password');
	$cookie_sid = $cgi->cookie(-name=>'sid');
	
	if(!$Formular{'lang'} ) {
		if($cookie_lang && $Formular{'action'} ne "index") {
			$Formular{'lang'}=$cookie_lang;
		} else {
			$Formular{'lang'}=$standard_lang;
		}
	}
	
	#basedir fuer auslaendische domains setzen
	
	$Formular{'user'} = $cookie_user if(!$Formular{'user'} && $cookie_user);
	$Formular{'password'} = $cookie_password if(!$Formular{'password'} && $cookie_password);
	$Formular{'sid'} = $cookie_sid if(!$Formular{'sid'} && $cookie_sid);
}





sub init {
	
	#&check_referer;
	my $i = 0;

	($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
	$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);

	$mon += 1;
	$year += 1900;
	$date = "$mday.$mon.$year";

	&logit;
	&load_settings;
	
	if($Formular{'action'} eq "login") 	{
		&sm_init;
		require netGen_login;
		&login;
	} elsif($Formular{'action'} eq "shop_bestellen_login_register") 	{
		&sm_init;
		require netGen_shop_bestellen;
		&shop_bestellen_login_register;
	} elsif($Formular{'action'} eq "shop_vorbestellen") 	{
		require netGen_shop_vorbestellen;
		&shop_vorbestellen;
	} elsif($Formular{'action'} eq "shop_vorbestellen_email") 	{
		require netGen_shop_vorbestellen;
		&shop_vorbestellen_email;
	} else {
		&init_users;
	}
}


&init;




