#!/usr/bin/perl -T ########################### #Copyright BB-PM GmbH #J.Brodnjak ########################### use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); #use warnings; #use Data::Dumper; use lib './'; #use SubDumper; use SubINparse9xDs_5; use SubMenue9xDs_5; use SubStats9xDs_5; use SubCaptch9xDs_5; use SubDataIn9xDs_5; use SubPrnhtml9xDs_5; $CGI::POST_MAX = 1024 * 100; # maximal 100K $CGI::DISABLE_UPLOADS = 1; SubDoit(1); # 0 = under construnction + group=911 -> enable testing sub SubDoit { print "Content-type: text/html\n\n"; my $siteactive = shift(@_); my @mydata; my %aktmenue; #$Mipp = 7; #Definition of max Items per Page my $Query_1 = CGI:: -> new(); my %categories; SubDataIN('textdb1/categories.txt', \%categories); my $catx = SubParse_form_data($Query_1->param('category')); if (!defined $catx || !exists $categories{$catx}) {$catx = '1';} my $groupx = SubParse_form_data($Query_1->param('group')); if (!defined $groupx) {$groupx = 0;} if ($siteactive == 1 || $groupx == '911') #911 for testing { SubDataIN($categories{$catx}, \@mydata); #SubDumpthis(\%categories); my $menuebar = ''; SubGeneratemenu('textdb1/menue.txt', \%aktmenue, \$menuebar); SubPrnhtml('textdb1/header.txt', '', ' - '.$aktmenue{$catx}); print $menuebar; SubListe(\@mydata, $catx, $groupx, \%aktmenue); SubPrnhtml('textdb1/footer.txt'); } else { print $groupx; SubPrnhtml('textdb1/underconst.txt') #under construction }; ######### STATS ########### if (SubDostats() == 1) { SubSite_visits(1); #Neuer Visitor SubIdent_browser(); } SubSite_referrer(); #log fremder Referer SubSite_pageviews(); #log Pageviews ######### STATS ########### } sub SubListe { my %layoutdef; SubDataIN('textdb1/mylayout.txt', \%layoutdef); my $r_data = shift(@_); my $catx = shift(@_); my $groupx = shift(@_); my $r_aktmenue = shift(@_); my @tempzeile1 = (); my @tempzeile2 = (); my $colspan = ''; my $rowspan = ''; my $javasc = ''; if ($#$r_data > 0 && @$r_data[0] =~ m/colspan|rowspan|ImprJS/gi) { @tempzeile1=split(/\|/, @$r_data[0]); shift(@$r_data); for (my $i=0; $i<=$#tempzeile1; $i++) { if ($tempzeile1[$i] =~ m/colspan/gi) {$colspan = ' '.$tempzeile1[$i];} if ($tempzeile1[$i] =~ m/rowspan/gi) {$rowspan = ' '.$tempzeile1[$i];} if ($tempzeile1[$i] =~ m/ImprJS/gi) {print qq|\n|;} #@Tempzeile1=split(/\|/, @$r_Data[0]); } } foreach( values %layoutdef ) { s/\$Rowsp/$rowspan/g } foreach( values %layoutdef ) { s/\$Colspan/$colspan/g } my $Groupact = ' '; my $Groupold = '-1'; my $open_tr_td = 0; my $ReadINFull = "0"; #wenn != 0 (=RI) komplett einlesen print q|