#!/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		                                         ##


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

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

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;
	$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;




