#!/usr/bin/perl

##############################################
# HE-CMS  -  Perl Content Management System  #
# Hauptprogramm hecms.pl                     #
# Version 1.20 (05/2003)                     #
# letzte Änderung: 28.05.2003 S.Karschewski  #
##############################################
# (c) 2001-2003 by Sven Karschewski          #
# Hardware Express GmbH                      #
# Kuhnbergstr. 27                            #
# 73037 Göppingen                            #
##############################################

###################
### Initialisierung
###################

# Config einlesen
require "./config.pl";
require "$settings/design.pl";
$lock_img=~ s/\$admimages/$admimages/g;

# Perl Module
use Time::Local ;
use CGI qw/ReadParse cookie/;
use CGI::Carp qw/fatalsToBrowser/;

# PID setzen
$pid=time;

# Module einlesen
if ($gaestebuch_mod eq 1) {require "$modules/cms_gb.pl";}
if ($newsletter_mod eq 1) {require "$modules/cms_nl.pl";}
if ($forum_mod eq 1) {require "$modules/cms_bbs.pl";}
if ($user_mod eq 1) {require "$modules/cms_usr.pl";}

# IP in Log schreiben
&IpLog;

##########################
### Einlesen der Variablen
##########################

# Formular bzw. URL Daten holen
&ReadParse;
$pos1 = $in{'pos1'};
$pos2 = $in{'pos2'};
$id = $in{'id'};
$key = $in{'key'};
$email = $in{'email1'};
$action = $in{'action'};

# Jump-ID bestimmen
if ($id) {&Menu0Laden;&Id;$pos1=$idp1;$pos2=$idp2;}

if ($action eq "logout" && $user_mod eq 1) {&usr_cookie_set;$pos1=0;$pos2=0;$cokcheck="1";}
if ($action eq "gb" && $gaestebuch_mod eq 1) {&GB_Eintrag;}
if ($action eq "nl" && $newsletter_mod eq 1) {&NL_Action;}

# Positionsvariablen prüfen
if ($pos1 eq "") {$pos1="0";}
if ($pos2 eq "") {$pos2="0";}
# Auf ungültige Pos prüfen, wenn ja umleiten auf 0/0

&Menu0Laden;
&Menu1Laden;
if ($pos1 > $m0anzahl) {$pos1="0";$pos2="0";}
if ($pos2 > $m1anzahl) {$pos1="0";$pos2="0";}
if ($pos1 < "0") {$pos1="0";$pos2="0";}
if ($pos2 < "0") {$pos1="0";$pos2="0";}

# Wenn User-Modul vorhanden, Zugriffsrechte prüfen
if ($menu0{$pos1}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu0{$pos1};&usr_check;}}
if ($menu1{$pos2}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu1{$pos2};&usr_check;}}

######################################################################################################
### Hauptprogramm Seite ausgeben
######################################################################################################

if ($key) {&Suchen;$pos1=$m0anzahl+1;}
if ($email) {&Menu0Laden;$pos1=$m0anzahl+1;}

if ($INVALIDPASS ne "1") {
# Seitenelemente erzeugen
&Title;
&Menue;
&MenueTop;
&MenueSub;
&HMenueTop;
&HMenueSub;
$HMENU="$HMENUTOP<hr>$HMENUSUB";
&Content;
&DateFormat;
&Meta;
&IpHits;

$JAVASCRIPT="\n<script language=\"javascript\">\n<!--\n$JAVASCRIPT\n//-->\n</script>\n";

if ($key) {$TITLE="Suchergebnis";}
if ($email) {&formmail;
$CONTENT="<b>Danke !</b><br><br>Ihre Daten wurden erfolgreich versendet.";$TITLE="Bestätigung";}
}

# Template bestimmen
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;
if ($seitenname=~ /<!--/) {
$n=0;$seitenname=~ s/<!--//;
while (substr($seitenname,$n,3) ne "-->") {
  $tmptemp=substr($seitenname,$n,1);
  $tp="$tp$tmptemp";
  $n++;}
$n=$n+3;}

if ($tp eq "") {$tp="$default_template";}

# Template einlesen
open (template, "<$template/$tp");
@template=<template>;
close(template);
$template="@template";

# Seitenelemente in Template einsetzen
$template= "<a name=\"top\"><!--TOP--><\/a>\n$template";
$template=~ s/<\/head>/$META<\/head>$JAVASCRIPT/i;
$template=~ s/\$TITLE/$TITLE/g;
$template=~ s/\$HMENUTOP/$HMENUTOP/g;
$template=~ s/\$HMENUSUB/$HMENUSUB/g;
$template=~ s/\$HMENU/$HMENU/g;
$template=~ s/\$MENUTOP/$MENUTOP/g;
$template=~ s/\$MENUSUB/$MENUSUB/g;
$template=~ s/\$MENU/$MENU/g;
$template=~ s/\$DATE/$DATE/g;
$template=~ s/\$ENHDATE/$ENHDATE/g;
$template=~ s/\$TIME/$TIME/g;
$template=~ s/\$COUNT/$g_hits/g;
if ($key) {$template=~ s/\$CONTENT/$RESULT/g;} else {$template=~ s/\$CONTENT/$CONTENT/g;}

# HTML-Header ausgeben
print "Content-type: text/html\n\n";

# Template ausgeben
print $template; 

# Hauptprogramm Ende
exit;


######################################################################################################
### Unterroutinen
######################################################################################################

##########################
### $MENU 
##########################

sub Menue {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

if ($pos1 ne 0) {$MENU="$MENU<a href=\"hecms.pl?pid=$pid;pos1=0;pos2=0\">$topmenutag1 $home_name$topmenutag2</a><br>\n";} else {
  $MENU="$MENU$topmenutag1 $home_name$topmenutag2<br>\n";}
$gtemp=1;
while ($gtemp<=$m0anzahl) {
  if ($menu0{$gtemp}=~ /<!--INV-->/){print "";} else {
  if ($menu0{$gtemp}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
  if ($pos1 eq $gtemp) {
    if ($pos2 ne 0) {$MENU="$MENU<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg<br>\n";} 
    else {$MENU="$MENU$topmenutag1$menu0{$gtemp}$topmenutag2$lockimg<br>\n";}
    $gtemp1=1;
    while ($gtemp1<=$m1anzahl) {
      if ($menu1{$gtemp1}=~ /<!--INV-->/){print "";} else {
      if ($menu1{$gtemp1}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
      if ($pos2 eq $gtemp1) {$MENU="$MENU$submenutag1$menu1{$gtemp1}$submenutag2$lockimg<br>\n";} 
      else {$MENU="$MENU<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=$gtemp1\">$submenutag1$menu1{$gtemp1}$submenutag2</a>$lockimg<br>\n"; }}
      $gtemp1=$gtemp1+1; }} 
  else {$MENU="$MENU<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg<br>\n";}}

  $gtemp=$gtemp+1;}
    if ($user_mod eq 1 && $lock_logout eq 1) {
  	if ($usr_cok_name eq "" && $cokcheck ne 1) {&usr_cookie_read;}
  	if ($usr_cok_name ne "") {
  		$MENU="$MENU<br>$lock_img&nbsp;<a href=\"hecms.pl?action=logout;pid=$pid\">$topmenutag1\[Abmelden]$topmenutag2</a>";}}
  }

##########################
### $MENUTOP 
##########################

sub MenueTop {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

if ($pos1 ne 0) {$MENUTOP="$MENUTOP<a href=\"hecms.pl?pid=$pid;pos1=0;pos2=0\">$topmenutag1$home_name$topmenutag2</a><br>\n";} else {
  $MENUTOP="$MENUTOP$topmenutag1$home_name$topmenutag2<br>\n";}
$gtemp=1;
while ($gtemp<=$m0anzahl) {
  if ($menu0{$gtemp}=~ /<!--INV-->/){print "";} else {
  if ($menu0{$gtemp}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
  if ($pos1 eq $gtemp) {
    if ($pos2 ne 0) {$MENUTOP="$MENUTOP<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg<br>\n";} 
    else {$MENUTOP="$MENUTOP$topmenutag1$menu0{$gtemp}$topmenutag2$lockimg<br>\n";}}
  else {$MENUTOP="$MENUTOP<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg<br>\n";}}
  $gtemp=$gtemp+1;}
      if ($user_mod eq 1 && $lock_logout eq 1) {
  	if ($usr_cok_name eq "" && $cokcheck ne 1) {&usr_cookie_read;}
  	if ($usr_cok_name ne "") {
  		$MENUTOP="$MENUTOP<br>$lock_img&nbsp;<a href=\"hecms.pl?action=logout;pid=$pid\">$topmenutag1\[Abmelden]$topmenutag2</a>";}}
  }

##########################
### $MENUSUB 
##########################

sub MenueSub {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

$gtemp1=1;
while ($gtemp1<=$m1anzahl) {
  if ($menu1{$gtemp1}=~ /<!--INV-->/){print "";} else {
  if ($menu1{$gtemp1}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
  if ($pos2 eq $gtemp1) {$MENUSUB="$MENUSUB$submenutag1$menu1{$gtemp1}$submenutag2$lockimg<br>\n";} 
  else {$MENUSUB="$MENUSUB<a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$gtemp1\">$submenutag1$menu1{$gtemp1}$submenutag2</a>$lockimg<br>\n"; }}
  $gtemp1=$gtemp1+1; }}

##########################
### $HMENUTOP 
##########################

sub HMenueTop {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

if ($pos1 ne 0) {$HMENUTOP="$HMENUTOP|&nbsp;<a href=\"hecms.pl?pid=$pid;pos1=0;pos2=0\">$topmenutag1$home_name$topmenutag2</a>&nbsp;|";} else {
  $HMENUTOP="$HMENUTOP|&nbsp;$topmenutag1$home_name$topmenutag2&nbsp;|";}
$gtemp=1;
while ($gtemp<=$m0anzahl) {
  if ($menu0{$gtemp}=~ /<!--INV-->/){print "";} else {
  if ($menu0{$gtemp}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
  if ($pos1 eq $gtemp) {
    if ($pos2 ne 0) {$HMENUTOP="$HMENUTOP&nbsp;<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg&nbsp;|";} 
    else {$HMENUTOP="$HMENUTOP&nbsp;$topmenutag1$menu0{$gtemp}$topmenutag2$lockimg&nbsp;|";}}
  else {$HMENUTOP="$HMENUTOP&nbsp;<a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\">$topmenutag1$menu0{$gtemp}$topmenutag2</a>$lockimg&nbsp;|";}}
  $gtemp=$gtemp+1;}
        if ($user_mod eq 1 && $lock_logout eq 1) {
  	if ($usr_cok_name eq "" && $cokcheck ne 1) {&usr_cookie_read;}
  	if ($usr_cok_name ne "") {
  		$HMENUTOP="$HMENUTOP&nbsp;$lock_img&nbsp;<a href=\"hecms.pl?action=logout;pid=$pid\">$topmenutag1\[Abmelden]$topmenutag2</a>&nbsp;|\n";}}
}

##########################
### $HMENUSUB 
##########################

sub HMenueSub {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

$gtemp1=1;
while ($gtemp1<=$m1anzahl) {
  if ($menu1{$gtemp1}=~ /<!--INV-->/){print "";} else {
  if ($menu1{$gtemp1}=~ /<!--GRP:/ && $user_mod eq 1){$lockimg="&nbsp;$lock_img";} else {$lockimg="";}
  if ($gtemp1 eq 1) {$HMENUSUB="$HMENUSUB|";}
  if ($pos2 eq $gtemp1) {$HMENUSUB="$HMENUSUB $submenutag1$menu1{$gtemp1}$submenutag2$lockimg |";} 
  else {$HMENUSUB="$HMENUSUB <a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$gtemp1\">$submenutag1$menu1{$gtemp1}$submenutag2</a>$lockimg |"; }}
  $gtemp1=$gtemp1+1; }}

################################
### $TITLE
################################

sub Title {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

if ($seitenname=~ /<!--/) {
$n=0;$seitenname=~ s/<!--//;
while (substr($seitenname,$n,3) ne "-->") {$n++;}
$n=$n+3;
$seitenname=substr($seitenname,$n,length($seitenname));}

$TITLE="$TITLE$seitenname\n"; }

###########################
### $CONTENT
###########################

sub Content {

# Datenbank Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

if ($seitenstil eq 1) {
  $CONTENT="$CONTENT<ul type=disc>";
  $ktemp=1;
  while ($ktemp<=$kapanzahl) {
    &KapitelLaden;
    if ($kapanzeigen eq 2){&DatumPruefen;}
    if ($kapanzeigen ne 1 && $kaptitle) {$CONTENT="$CONTENT<li><a href=\"#kap$ktemp\">$kaptitle</a></li>\n";}
    $ktemp=$ktemp+1; }
  $CONTENT="$CONTENT</ul><br><br>\n"; }

$ktemp=1;
while ($ktemp<=$kapanzahl) {
  &KapitelLaden;
  
  if ($kapcontent=~ /<!--TABLE-->/) {
    $kapcontent=~ s/\$table_bordersize/$table_bordersize/g;
    $kapcontent=~ s/\$table_bordercolor/$table_bordercolor/g;
    $kapcontent=~ s/\$table_tablehead/$table_tablehead/g;
    $kapcontent=~ s/\$table_tablecolor1/$table_tablecolor1/g;
    $kapcontent=~ s/\$table_tablecolor2/$table_tablecolor2/g; }
  
  if ($kapanzeigen eq 2){&DatumPruefen;}
  if ($kapcontent=~ /<!--SITEMAP-->/){if ($kapanzeigen ne 1) {&Sitemap;}} else {
    if ($kapcontent=~ /<!--SUCHE-->/){if ($kapanzeigen ne 1) {&Suchform;}} else {

      if ($kapanzeigen ne 1) {
      
      # ID Verarbeitung
      $count="";
      $n="";
      while ($kapcontent =~ /<a href=\"id:/ig) { $count++ }
      $n1="";
      while ($n1<$count) {
        $id="";$idurl="";
        while (lc(substr($kapcontent,$n,12)) ne "<a href=\"id:") {
          $n++;}
        $n=$n+12;
        while (substr($kapcontent,$n,2) ne "\">") {
          $idtemp=substr($kapcontent,$n,1);
          $id="$id$idtemp";
          $n++;}
        $kapcontenttemp=$kapcontent;
        &Id;
        $kapcontent=$kapcontenttemp;
        $id{$n1}=$id;$idurl{$n1}=$idurl;
        $n1++;}
      $n1="";
      while ($n1<$count) {
        $kapcontent=~ s/id:$id{$n1}/$idurl{$n1}/i;
        $n1++;}

      $CONTENT="$CONTENT<a name=\"kap$ktemp\">$headlinetag1$kaptitle$headlinetag2</a>\n<p>\n";
        $nocontent=2;
        if ($kapcontent =~ /<!--GB-->/ && $gaestebuch_mod eq 1) {&GB_Print;$nocontent=1;}
        if ($kapcontent =~ /<!--NL-->/ && $newsletter_mod eq 1) {&NL_Print;$nocontent=1;} 
        if ($kapcontent =~ /<!--BBS:/ && $forum_mod eq 1) {&BBS_Print;$nocontent=1;}
        if ($nocontent ne 1){
        if ($kapbildart eq "1") {$CONTENT="$CONTENT<img src=\"$images/$kapbild\" border=0 align=left>\n";}
        if ($kapbildart eq "2") {$CONTENT="$CONTENT<center><img src=\"$images/$kapbild\" border=0></center>\n";}
        if ($kapbildart eq "3") {$CONTENT="$CONTENT<img src=\"$images/$kapbild\" border=0 align=right>\n";}
        if ($kapbildart eq "7") {$CONTENT="$CONTENT<div align=left><img src=\"$images/$kapbild\" border=0></div>\n";}
        if ($kapbildart eq "8") {$CONTENT="$CONTENT<div align=right><img src=\"$images/$kapbild\" border=0></div>\n";}
        $CONTENT="$CONTENT$kapcontent\n";
        if ($kapbildart eq "4") {$CONTENT="$CONTENT<div align=left><img src=\"$images/$kapbild\" border=0></div>\n";}
        if ($kapbildart eq "5") {$CONTENT="$CONTENT<center><img src=\"$images/$kapbild\" border=0 ></center>\n";}
        if ($kapbildart eq "6") {$CONTENT="$CONTENT<div align=right><img src=\"$images/$kapbild\" border=0></div>\n";}}
        
        if ($seitenstil eq 1 && $kaptitle) {$CONTENT="$CONTENT</p><div align=right><font size=1><a href=\"#top\">[nach oben]</a></font></div>";} 
        else {$CONTENT="$CONTENT</p>";}}}}
    if ($kapanzeigen ne 1) {
      if ($ktemp >= $kapanzahl) {$CONTENT="$CONTENT<br>\n";} else {
        if ($seitenstil1 eq 1) {$CONTENT="$CONTENT<hr noshade size=1>\n";} else {$CONTENT="$CONTENT<br>\n";}}}
    $ktemp=$ktemp+1; 
    }}

############################
### Datum für Anzeige prüfen
############################

sub DatumPruefen {

&DateFormat;
$heute=scalar timelocal 0,0,0,$TAG,$MONAT-1,$JAHR-1900;
$vondatum=scalar timelocal 0,0,0,$vontag,$vonmonat-1,$vonjahr-1900;
$bisdatum=scalar timelocal 0,0,0,$bistag,$bismonat-1,$bisjahr-1900;
if ($vondatum <= $heute && $heute <= $bisdatum) {$kapanzeigen=0;} else {$kapanzeigen=1;}
}

##########################
### ID Position bestimmen
##########################

sub Id {

# Positionsvariablen speichern
$pos1save=$pos1;
$pos2save=$pos2;
$ktempsave=$ktemp;

# Downloadliste durchsuchen
&DownloadLaden;
$dtemp=1;
while ($dtemp <= $downanzahl) {
if ($downid{$dtemp}=~ /$id/i) {$idurl="cmsdown.pl?id=$downid{$dtemp}";}
$dtemp++;}

# ID HOME bearbeiten
if (lc($id) eq "home") {$idurl="hecms.pl?pid=$pid;pos1=0;pos2=0";}

# Positionsvariablen neu setzen
$pos1=0;$pos2=0;$ktemp=1;

# Datenbank neu laden
&Menu1Laden;
&SeiteLaden;

if ($idurl eq "") {
while ($ktemp <= $kapanzahl) {
  &KapitelLaden;
  if ($kapcontent=~ /<!--ID:$id-->/i) {$idurl="hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp";$idp1=$pos1;$idp2=$pos2;}
  $ktemp=$ktemp+1;}}

$gtemp=1;
if ($idurl eq "") {
while ($gtemp<=$m0anzahl) {
  $pos1=$gtemp;
  &Menu1Laden;
  $pos2=0;$ktemp=1;
  if ($menu0{$pos1}=~ /<!--ID:$id-->/i) {$idurl="hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2";$idp1=$pos1;$idp2=$pos2;}
  &SeiteLaden;

  while ($ktemp <= $kapanzahl) {
    &KapitelLaden;
    if ($kapcontent=~ /<!--ID:$id-->/i) {$idurl="hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp";$idp1=$pos1;$idp2=$pos2;}
    $ktemp=$ktemp+1;}

if ($idurl eq "") {
  $gtemp1=1;
  while ($gtemp1<=$m1anzahl) {
    $pos2=$gtemp1;$ktemp=1;
    if ($menu1{$pos2}=~ /<!--ID:$id-->/i) {$idurl="hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2";$idp1=$pos1;$idp2=$pos2;}
    &SeiteLaden;
    while ($ktemp <= $kapanzahl) {
      &KapitelLaden;
      if ($kapcontent=~ /<!--ID:$id-->/i) {$idurl="hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp";$idp1=$pos1;$idp2=$pos2;}
      $ktemp=$ktemp+1;}
    $gtemp1=$gtemp1+1; }}

  $gtemp=$gtemp+1;}}

# Positionsvariablen wiederherstellen
$pos1=$pos1save;
$pos2=$pos2save;
$ktemp=$ktempsave;

# Datenbank neu Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden; 
&KapitelLaden; }

##########################
### Suchformular ausgeben
##########################

sub Suchform {
$CONTENT="$CONTENT<a name=\"kap$ktemp\"><b>$kaptitle</b>\n<p>Hier können Sie die kompletten Seiteninhalte nach einem Stichwort durchsuchen.<br><br>\n<form name=\"suche\" action=\"hecms.pl\" method=\"POST\">\n<input type=hidden name=\"pid\" value=\"$pid\">\nSuchbegriff:<br><input type=text size=20 name=\"key\">&nbsp;\n<input type=submit value=\"Suchen\"></form>";
if ($seitenstil eq 1) 
  {$CONTENT="$CONTENT<div align=right><font size=1><a href=\"#top\">[nach oben]</a></font></div><br><br>\n";} 
  else {$CONTENT="$CONTENT</p><br><br>\n";}
}

##########################
### Sitemap ausgeben
##########################

sub Sitemap {

# Positionsvariablen speichern
$pos1save=$pos1;
$pos2save=$pos2;
$ktempsave=$ktemp;

if ($user_mod eq 1) {&usr_cookie_read;&usr_laden;}

# Positionsvariablen neu setzen
$pos1=0;$pos2=0;$ktemp=1;

# Datenbank neu laden
&Menu1Laden;
&SeiteLaden;

# Sitemap erzeugen
$CONTENT="$CONTENT<a name=\"kap$ktempsave\"><b>$kaptitle</b></a>\n<p>\n";
$CONTENT="$CONTENT<ul>";
$CONTENT="$CONTENT<li><a href=\"hecms.pl?pid=$pid;pos1=0;pos2=0\"><b>$home_name</b> <i>[$seitenname]</i></a><br><br></li>\n";
$CONTENT="$CONTENT<ul><ul>";
while ($ktemp <= $kapanzahl) {
  &KapitelLaden;
  if ($kaptitle ne "") {
    if ($kapanzeigen eq 2){&DatumPruefen;}
    if ($kapanzeigen ne 1) {$CONTENT="$CONTENT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</A></i></li>";}}
  $ktemp=$ktemp+1;}
$CONTENT="$CONTENT</ul></ul>";
$gtemp=1;
while ($gtemp<=$m0anzahl) {
  $pos1=$gtemp;
  &Menu1Laden;
  $pos2=0;$ktemp=1;
  &SeiteLaden;
    
  if ($menu0{$gtemp}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu0{$gtemp};&usr_cookie_read;&usr_laden;&usr_test;} else {$userok=1;}} else {$userok=1;}
  if ($menu0{$gtemp}=~ /<!--INV-->/) {print "";} else {
  if ($menu0{$gtemp}=~ /<!--GRP:/) {$lockimg=$lock_img;} else {$lockimg="";}
  $CONTENT="$CONTENT<br><li><a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\"><b>$menu0{$gtemp}</b> <i>[$seitenname]</i></a>&nbsp;$lockimg<br><br></li>\n";
  if ($userok eq "1") {
  $CONTENT="$CONTENT<ul><ul>";
  while ($ktemp <= $kapanzahl) {
    &KapitelLaden;
    if ($kaptitle ne "") {
      if ($kapanzeigen eq 2){&DatumPruefen;}
      if ($kapanzeigen ne 1) {$CONTENT="$CONTENT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</a></i></li>";}}
    $ktemp=$ktemp+1;}
  $CONTENT="$CONTENT</ul>";

  $gtemp1=1;
  while ($gtemp1<=$m1anzahl) {
    $pos2=$gtemp1;$ktemp=1;
    &SeiteLaden;
    
    if ($menu1{$gtemp1}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu1{$gtemp1};&usr_cookie_read;&usr_laden;&usr_test;} else {$userok=1;}} else {$userok=1;}
    if ($menu1{$gtemp1}=~ /<!--INV-->/) {print "";} else {
    if ($menu1{$gtemp1}=~ /<!--GRP:/) {$lockimg=$lock_img;} else {$lockimg="";}
    $CONTENT="$CONTENT<br><li><b><a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=$gtemp1\">$menu1{$gtemp1}</b> <i>[$seitenname]</i></a>&nbsp;$lockimg<br><br></li>\n";
    if ($userok eq "1") {
    $CONTENT="$CONTENT<ul>";
    while ($ktemp <= $kapanzahl) {
      &KapitelLaden;
      if ($kaptitle ne "") {
        if ($kapanzeigen eq 2){&DatumPruefen;}
        if ($kapanzeigen ne 1) {$CONTENT="$CONTENT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</a></i></li>"};}
      $ktemp=$ktemp+1;}
    $CONTENT="$CONTENT</ul>";}}
    $gtemp1=$gtemp1+1; }

  $CONTENT="$CONTENT</ul>";}}
  $gtemp=$gtemp+1;}
if ($seitenstil eq 1) 
  {$CONTENT="$CONTENT</ul></p><div align=right><font size=1><a href=\"#top\">[nach oben]</a></font></div><br><br>\n";} 
  else {$CONTENT="$CONTENT</ul></p><br><br>\n";}

# Positionsvariablen wiederherstellen
$pos1=$pos1save;
$pos2=$pos2save;
$ktemp=$ktempsave;

# Datenbank neu Laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;
&KapitelLaden; }

##########################
### Suchmaschine
##########################

sub Suchen {

# Positionsvariablen speichern
$pos1save=$pos1;
$pos2save=$pos2;
$ktempsave=$ktemp;

# Positionsvariablen neu setzen
$pos1=0;$pos2=0;$ktemp=1;$resu2=0;

# Datenbank neu laden
&Menu0Laden;
&Menu1Laden;
&SeiteLaden;

# Struktur durchsuchen und Ergebnismap erzeugen

$RESULT="$RESULT<a name=\"kap$ktempsave\"><b>Suchergebnis</b></a>\n<p>\n";
$RESULT="$RESULT<ul>";

$resu=0;
if ($seitenname=~ /$key/i) {$resu=1;}
while ($ktemp <= $kapanzahl) {
  &KapitelLaden;
  if ($kapanzeigen eq 2){&DatumPruefen;}
  if ($kapanzeigen ne 1) {
    if ($kaptitle=~ /$key/i) {$resu=1;}
    if ($kapcontent=~ /$key/i) {$resu=1;}}
  $ktemp=$ktemp+1;}

if ($resu eq 1) {
$RESULT="$RESULT<li><a href=\"hecms.pl?pid=$pid;pos1=0;pos2=0\"><b>$home_name</b> <i>[$seitenname]</i></a><br><br></li>\n";

$RESULT="$RESULT<ul><ul>";
$ktemp=1;
while ($ktemp <= $kapanzahl) {
  &KapitelLaden;
  if ($resu eq 1) {$resu2=1;}
  $resu=0;
  if ($kaptitle=~ /$key/i) {$resu=2;}
  if ($kapcontent=~ /$key/i) {$resu=2;}
  if ($resu eq 2) {
    if ($kaptitle ne "") {
      if ($kapanzeigen eq 2){&DatumPruefen;}
      if ($kapanzeigen ne 1) {$RESULT="$RESULT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</A></i></li>";}}
    }
  $ktemp=$ktemp+1;}
$RESULT="$RESULT</ul></ul>";}

$gtemp=1;
while ($gtemp<=$m0anzahl) {
  $pos1=$gtemp;
  &Menu1Laden;
  $pos2=0;$ktemp=1;
  &SeiteLaden;
  if ($menu0{$gtemp}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu0{$gtemp};&usr_cookie_read;&usr_laden;&usr_test;} else {$userok=1;}} else {$userok=1;}
  if ($menu0{$gtemp}=~ /<!--INV-->/ || $userok ne "1"){print "";} else {

    if ($resu eq 1) {$resu2=1;}
    $resu=0;
    if ($menu0{$gtemp}=~ /$key/i) {$resu=1;}
    if ($seitenname=~ /$key/i) {$resu=1;}
    while ($ktemp <= $kapanzahl) {
      &KapitelLaden;
      if ($kapanzeigen eq 2){&DatumPruefen;}
      if ($kapanzeigen ne 1) {
        if ($kaptitle=~ /$key/i) {$resu=1;}
        if ($kapcontent=~ /$key/i) {$resu=1;}}
      $ktemp=$ktemp+1;}

    if ($resu eq 1) {
      $RESULT="$RESULT<br><li><a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=0\"><b>$menu0{$gtemp}</b> <i>[$seitenname]</i></a><br><br></li>\n";}

    $RESULT="$RESULT<ul><ul>";

    if ($resu eq 1) {
    $ktemp=1;
    while ($ktemp <= $kapanzahl) {
      &KapitelLaden;
      if ($resu eq 1) {$resu2=1;}
      $resu=0;
      if ($kaptitle=~ /$key/i) {$resu=2;}
      if ($kapcontent=~ /$key/i) {$resu=2;}
      if ($resu eq 2) {
        if ($kaptitle ne "") {
          if ($kapanzeigen eq 2){&DatumPruefen;}
          if ($kapanzeigen ne 1) {$RESULT="$RESULT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</A></i></li>";}}
        }
      $ktemp=$ktemp+1;}}

    $RESULT="$RESULT</ul>";

    $gtemp1=1;
    while ($gtemp1<=$m1anzahl) {
      $pos2=$gtemp1;$ktemp=1;
      &SeiteLaden;
      if ($menu1{$gtemp1}=~ /<!--GRP:/){if ($user_mod eq 1) {$usrchecktemp=$menu1{$gtemp1};&usr_cookie_read;&usr_laden;&usr_test;} else {$userok=1;}} else {$userok=1;}
      if ($menu1{$gtemp1}=~ /<!--INV-->/ || $userok ne "1"){print "";} else {

        if ($resu eq 1) {$resu2=1;}
        $resu=0;
        if ($seitenname=~ /$key/i) {$resu=1;}
        if ($menu1{$gtemp1}=~ /$key/i) {$resu=1;}
        while ($ktemp <= $kapanzahl) {
          &KapitelLaden;
          if ($kapanzeigen eq 2){&DatumPruefen;}
          if ($kapanzeigen ne 1) {
            if ($kaptitle=~ /$key/i) {$resu=1;}
            if ($kapcontent=~ /$key/i) {$resu=1;}}
          $ktemp=$ktemp+1;}

        if ($resu eq 1) {
          $RESULT="$RESULT<br><li><b><a href=\"hecms.pl?pid=$pid;pos1=$gtemp;pos2=$gtemp1\">$menu1{$gtemp1}</b> <i>[$seitenname]</i></a><br><br></li>\n";}

        $RESULT="$RESULT<ul>";

        if ($resu eq 1) {

          while ($ktemp <= $kapanzahl) {
            &KapitelLaden;
            if ($resu eq 1) {$resu2=1;}
            $resu=0;
            if ($kaptitle=~ /$key/i) {$resu=2;}
            if ($kapcontent=~ /$key/i) {$resu=2;}
            if ($resu eq 2) {
              if ($kaptitle ne "") {
                if ($kapanzeigen eq 2){&DatumPruefen;}
                if ($kapanzeigen ne 1) {$RESULT="$RESULT<li><i><a href=\"hecms.pl?pid=$pid;pos1=$pos1;pos2=$pos2#kap$ktemp\">$kaptitle</a></i></li>"};}
              }
            $ktemp=$ktemp+1;}}

      $RESULT="$RESULT</ul>";}
    $gtemp1=$gtemp1+1; }
  $RESULT="$RESULT</ul>";}
$gtemp=$gtemp+1;}

if ($resu2 ne 1) {$RESULT="$RESULT<br><b><i>Der Suchbegriff wurde nicht gefunden !</i></b>";}

if ($seitenstil eq 1) 
  {$RESULT="$RESULT</ul></p><div align=right><font size=1><a href=\"#top\">[nach oben]</a></font></div><br><br>\n";} 
  else {$RESULT="$RESULT</ul></p><br><br>\n";}

$kaptitle="Erneute Suche";&Suchform;$RESULT="$RESULT$CONTENT";

# Positionsvariablen wiederherstellen
$pos1=$pos1save;
$pos2=$pos2save;
$ktemp=$ktempsave;

# Datenbank neu Laden
&Menu0Laden;
&Menu1Laden;
$SeiteLaden; }

##########################
### Meta-Tags erzeugen
##########################

sub Meta {
$META = "\n<meta name=\"creator\" content=\"HE-Content-Management-System HE-CMS V1.0\">\n";
}

##########################
### Datum formatieren
##########################

sub DateFormat {

@days   = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
@months = ('Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$TIME = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 1900;
$ENHDATE = "$days[$wday], den $mday. $months[$mon] $year"; 
$DATE = "$mday. $months[$mon] $year"; 
$SHORTDATE = sprintf("%02d.%02d.%04d",$mday,$mon+1,$year);
$TAG = sprintf("%02d",$mday);
$MONAT = sprintf("%02d",$mon+1);
$JAHR = sprintf("%04d",$year);}

###########################
### Menü-Ebene 1 laden
###########################

sub Menu0Laden {

open (menu, "<$database/seiten.cfg");
$menu0content{0}=<menu>;
$menu0content{0}=~ tr/\r\n//d;
$m0anzahl=<menu>;
$ftemp=1;
while ($ftemp<=$m0anzahl) {
$menu0{$ftemp}=<menu>;
$menu0{$ftemp}=~ tr/\r\n//d;
$menu0content{$ftemp}=<menu>;
$menu0content{$ftemp}=~ tr/\r\n//d;
$ftemp=$ftemp+1;}
close (menu); }

###########################
### Menü-Ebene 2 laden
###########################

sub Menu1Laden {

open (menu, "<$database/$menu0content{$pos1}");
$menu1content{0}=<menu>;
$menu1content{0}=~ tr/\r\n//d;
$m1anzahl=<menu>;
$ftemp=1;
while ($ftemp<=$m1anzahl) {
$menu1{$ftemp}=<menu>;
$menu1{$ftemp}=~ tr/\r\n//d;
$menu1content{$ftemp}=<menu>;
$menu1content{$ftemp}=~ tr/\r\n//d;
$ftemp=$ftemp+1;}
close (menu); }

###########################
### Seite laden
###########################

sub SeiteLaden {

open (seite, "<$database/seiten/$menu1content{$pos2}");
$seitenname=<seite>;
$seitenname=~ tr/\r\n//d;
$kapanzahl=<seite>;
$ftemp=1;
while ($ftemp<=$kapanzahl) {
$kap{$ftemp}=<seite>;
$kap{$ftemp}=~ tr/\r\n//d;
$ftemp=$ftemp+1;}
$seitenstil=<seite>;
$seitenstil=~ tr/\r\n//d;
$seitenstil1=<seite>;
$seitenstil1=~ tr/\r\n//d;
close (seite); }

###########################
### Kapitel laden
###########################

sub KapitelLaden {

open (kap, "<$database/kapitel/$kap{$ktemp}");
$kaptitle=<kap>;
$kaptitle=~ tr/\r\n//d;
$kapcontent=<kap>;
$kapcontent=~ tr/\r\n//d;
$kapbildart=<kap>;
$kapbildart=~ tr/\r\n//d;
$kapbild=<kap>;
$kapbild=~ tr/\r\n//d;
$kapanzeigen=<kap>;
$kapanzeigen=~ tr/\r\n//d;
$vontag=<kap>;
$vontag=~ tr/\r\n//d;
$vonmonat=<kap>;
$vonmonat=~ tr/\r\n//d;
$vonjahr=<kap>;
$vonjahr=~ tr/\r\n//d;
$bistag=<kap>;
$bistag=~ tr/\r\n//d;
$bismonat=<kap>;
$bismonat=~ tr/\r\n//d;
$bisjahr=<kap>;
$bisjahr=~ tr/\r\n//d;
close (kap); }

###########################
### Downloadliste laden
###########################

sub DownloadLaden {

open (download, "<$download/download.cfg");
$downanzahl=<download>;
$downanzahl=~ tr/\r\n//d;
$dtemp=1;
while ($dtemp <= $downanzahl) {
$downlink{$dtemp}=<download>;
$downlink{$dtemp}=~ tr/\r\n//d;
$downid{$dtemp}=<download>;
$downid{$dtemp}=~ tr/\r\n//d; 
$trash=<download>;
$dtemp++;}
close (download); }

##########################
### Formular mailen
##########################

sub formmail {
$formular1 = $in {'formular1'};
$formular2 = $in {'formular2'};
$n=0;$n1=1;
while (substr($formular1,$n,1) ne "|") {
    $tempchar=substr($formular1,$n,1);
    $formanzahl="$formanzahl$tempchar";
    $n++;}
  $n++;
  $formanzahl=scalar $formanzahl;
while ($n1 <= $formanzahl) {
while (substr($formular1,$n,1) ne "|") {
    $tempchar=substr($formular1,$n,1);
    $formname{$n1}="$formname{$n1}$tempchar";
    $n++;}
  $n++;
  while (substr($formular1,$n,1) ne "|") {
    $tempchar=substr($formular1,$n,1);
    $formart{$n1}="$formart{$n1}$tempchar";
    $n++;}
  $n++;
$n1++;}
$n=1;
while ($n <= $formanzahl) {
$forminhalt{$n}=$in{"$formname{$n}"};
$n++;}
# Mail verschicken
open(MAIL,"|$mailprog -t");
print MAIL "To: $email\n";
print MAIL "From: (HE-CMS Webformular)\n";
print MAIL "Subject: $formular2\n\n";
print MAIL "Folgende Daten wurden über Ihre Webseite übermittelt:\n\n";
$n=1;
while ($n <= $formanzahl) {
print MAIL "$formname{$n}:\n";
print MAIL "$forminhalt{$n}\n\n";
$n++;}
close (MAIL); }

##########################
### IP's loggen
##########################

sub IpLog {

# Datum holen
&DateFormat;

# Datei sperren
&lock("$cmslog/ipdaily.log");
&lock("$cmslog/ip.log");

# IP holen
$ip=$ENV{'REMOTE_ADDR'};

# Datei laden
open (datei, "<$cmslog/ipdaily.log");
$ipdatum=<datei>;
@templog=<datei>;
close (datei);
if ($ipdatum eq "") {$ipdatum="$TAG.$MONAT.$JAHR";}

# Prüfen ob neues Datum
if ("$TAG.$MONAT.$JAHR\n" ne $ipdatum) {
	
	$ipdatum=~ tr/\n//d;
	($tag1,$monat1,$jahr1)=split(/\./,$ipdatum);
	$logdatum=scalar timelocal 0,0,0,$tag1,$monat1-1,$jahr1-1900;
	$heute=scalar timelocal 0,0,0,$TAG,$MONAT-1,$JAHR-1900;
	$tempdatum=$logdatum;
	# Anzahl IP's zählen
	$zaehler=0;
	foreach (@templog) { $zaehler++; }
	# IPLog laden
	open (datei, "<$cmslog/ip.log");
	@iplog=<datei>;
	close (datei);
	# IPLOG zur Ausgabe öffnen
	open (datei, ">$cmslog/ip.log");
	print datei @iplog;
	# Datum hochzählen
	while ($tempdatum ne $heute) {
		($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($tempdatum))[0,1,2,3,4,5,6];
		$tag2= sprintf("%02d",$mday);
		$monat2 = sprintf("%02d",$mon+1);
		$jahr2 = sprintf("%04d",$year+1900);
		$ipdatum="$tag2.$monat2.$jahr2";
		if ($tempdatum eq $logdatum) {$ipanz=$zaehler;} else {$ipanz="0";}
		print datei "$ipdatum|$ipanz\n";
		$tempdatum=$tempdatum+90000;
		($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($tempdatum))[0,1,2,3,4,5,6];
		$tempdatum=scalar timelocal 0,0,0,$mday,$mon,$year;
		}
	close (datei);
	# neues Datum setzen
	$ipdatum="$TAG.$MONAT.$JAHR\n";
	# Temp-Log zurücksetzn
	@templog="";}

# IP-Adresse Suchen
$ipwrite=1;
foreach (@templog) { if ($_ eq "$ip\n") {$ipwrite="0"} }

# IP evtl. in Datei schreiben
if ($ipwrite eq "1") {
open (datei, ">$cmslog/ipdaily.log");
print datei $ipdatum;
print datei @templog;
print datei "$ip\n";
close (datei);}

# Datei entsperren
&unlock("$cmslog/ipdaily.log");
&unlock("$cmslog/ip.log");
}

##########################
### Anzahl Hits bestimmen
##########################

sub IpHits {

# Datei laden für Komplett-hits
open ("datei", "<$cmslog/ipdaily.log");
$logdatum=<datei>;
@dailylog=<datei>;
close ("datei");
foreach (@dailylog) { $hits_daily++; }

open ("datei", "<$cmslog/ip.log");
@log=<datei>;
close ("datei");

# Daten splitten
$zaehler=0;
foreach (@log) {
($logdatum{$zaehler},$loghits{$zaehler}) = split(/\|/,$_);
$zaehler++; }
$log_anz=$zaehler;

# Gesamtanzahl Hits
$zaehler=0;
while ($zaehler < $log_anz) {
$g_hits=$g_hits+$loghits{$zaehler};
$zaehler++;}
$g_hits=$g_hits+$hits_daily;
}

##########################
### File locking
##########################

sub lock {

$lockfile = $_[0];
$sec_time=time+5;
while(-e "$lockfile.lock" && time <= $sec_time)
{
# warten bis die Datei nicht mehr existiert, max 5 Sekunden
}
if (-e "$lockfile.lock") {unlink("$lockfile.lock");}
open(LOCK,">$lockfile.lock");
close(LOCK);}

sub unlock {
	
$lockfile = $_[0];
unlink("$lockfile.lock");}