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