#!/usr/bin/perl
##################################################################################
#
# (c) 2001 by Scholl Communications AG
#
# Diese Software ist urheberrechtlich geschützt. 
# Es ist verboten, den Source Code zu entschlüsseln oder zu veränden,
# sowie die Software mehr als lizensiert zu nutzen. 
# Zuwiderhandlungen werden strafrechtlich verfolgt.
#
###################################################################################!/usr/bin/perl
use lib qw(./weblication/lib ../weblication/lib ../htdocs/weblication/lib ../html/weblication/lib ../web/weblication/lib ../home/weblication/lib ../www/weblication/lib ./lib ../lib ./pages/weblication/lib);use strict;use WEBLIC::NNVR;use WEBLIC::CCGC;use WEBLIC::CTPT;use WEBLIC::CPLC;my $xqkuxnqseryoexxe = WEBLIC::CCGC->new("lt");my %dpummmswxehjonfwdxwswik    = $xqkuxnqseryoexxe->puvsokksmhmrhw();my %ugvlsupyupryxngth        = $xqkuxnqseryoexxe->iluiqggflpifru();my $kdomiglusxhnivsrdwhqp 		   = $dpummmswxehjonfwdxwswik{'action'};my $ppqhvrjil 		   = $dpummmswxehjonfwdxwswik{'navmode'};my $xsrpuxhgikvdlkfnd    	   = $dpummmswxehjonfwdxwswik{'navconfig'};my $vpptygoyjfwurllh             = $dpummmswxehjonfwdxwswik{'navtpl'};my $gtvehxwghkxmuyjfvjjjj              = $dpummmswxehjonfwdxwswik{'omode'};my $rvwhiwookwguqhqj           = $dpummmswxehjonfwdxwswik{'protocol'};my $ivqlyoygrerkpfiidwtsjo              = $dpummmswxehjonfwdxwswik{'id'};my $qthwuouwdqmpmpniy             = $dpummmswxehjonfwdxwswik{'cururl'};my $thqsptkqvitkutt        = $dpummmswxehjonfwdxwswik{'clientcache'};my $deuovuevidqppiwswlyg           = $dpummmswxehjonfwdxwswik{'personal'};my $gyrwlsyxrvg             = $dpummmswxehjonfwdxwswik{'single'};my $fosdgsrim            = $dpummmswxehjonfwdxwswik{'nonavid'};my $inqktfindpf;my $xtkeivvhgwl;my $fisqxmskhjvwpnrxylkvp;my $yvnhvoknwepsyfwoqhde;my $gtnqfslulhgyqior             = $dpummmswxehjonfwdxwswik{'option'};my $iiwtsjjhevqwif;if($deuovuevidqppiwswlyg ne ""){require WEBLIC::WRCC;if(WEBLIC::WRCC->ilmursrwnthptyluje("", "return") eq "0"){WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("\n");   exit; }}if($ugvlsupyupryxngth{'wNavId'} ne ""){$ivqlyoygrerkpfiidwtsjo = $ugvlsupyupryxngth{'wNavId'};}if($dpummmswxehjonfwdxwswik{'navid'} ne ""){$ivqlyoygrerkpfiidwtsjo = $dpummmswxehjonfwdxwswik{'navid'};}if($dpummmswxehjonfwdxwswik{'navId'} ne ""){$ivqlyoygrerkpfiidwtsjo = $dpummmswxehjonfwdxwswik{'navId'};}if($ivqlyoygrerkpfiidwtsjo eq "last" || $ivqlyoygrerkpfiidwtsjo eq "cache" || $ivqlyoygrerkpfiidwtsjo eq "clientcache"){$ivqlyoygrerkpfiidwtsjo       = "";$thqsptkqvitkutt = "1";}if($dpummmswxehjonfwdxwswik{'navurl'} ne ""){$inqktfindpf = $dpummmswxehjonfwdxwswik{'navurl'};}if($dpummmswxehjonfwdxwswik{'navUrl'} ne ""){$inqktfindpf = $dpummmswxehjonfwdxwswik{'navUrl'};}if($dpummmswxehjonfwdxwswik{'navlink'} ne ""){$inqktfindpf = $dpummmswxehjonfwdxwswik{'navlink'};}if($dpummmswxehjonfwdxwswik{'navLink'} ne ""){$inqktfindpf = $dpummmswxehjonfwdxwswik{'navLink'};}if($dpummmswxehjonfwdxwswik{'navtext'} ne ""){$xtkeivvhgwl = $dpummmswxehjonfwdxwswik{'navtext'};}if($dpummmswxehjonfwdxwswik{'navText'} ne ""){$xtkeivvhgwl = $dpummmswxehjonfwdxwswik{'navText'};}if($dpummmswxehjonfwdxwswik{'navlevel'} ne ""){$fisqxmskhjvwpnrxylkvp = $dpummmswxehjonfwdxwswik{'navlevel'};}if($dpummmswxehjonfwdxwswik{'navLevel'} ne ""){$fisqxmskhjvwpnrxylkvp = $dpummmswxehjonfwdxwswik{'navLevel'};}$xsrpuxhgikvdlkfnd =~ s/$\///;my $hnuhlohkkgrnqpepuyth = WEBLIC::NNVR->rogredhsfevkejqnvupqs();my $orqmjxknpnxpeosildijo = $hnuhlohkkgrnqpepuyth.$xsrpuxhgikvdlkfnd;my $ggseyvqfxwxixoggigrkpvk    = $hnuhlohkkgrnqpepuyth.$vpptygoyjfwurllh;my $guuejoteyvpjnlk;my $iqyspouxmtvspgdjmqytvmy;my $johjfnghxwmfkvwmyhxyn;if($xsrpuxhgikvdlkfnd eq ""){WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("Error: parameter navConfig is undefined!<br>");exit;}if($vpptygoyjfwurllh eq "" || !-f $ggseyvqfxwxixoggigrkpvk){if(-f($hnuhlohkkgrnqpepuyth."weblication/wDefault/navTpl.html")){$vpptygoyjfwurllh = "/weblication/wDefault/navTpl.html";}else{WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("Error: parameter navTpl is undefined or not available!<br>");  exit;}}if($ppqhvrjil eq ""){$ppqhvrjil = "a";}if(-f($orqmjxknpnxpeosildijo)){my $iqfogwmm = $xsrpuxhgikvdlkfnd;require WEBLIC::FWPT;if(WEBLIC::FWPT->xjqdjlspjk("SUBSTITUTE_WNAVCLIENTCACHE") ne ""){my $nisojpkmqjpsfpphevj = WEBLIC::FWPT->xjqdjlspjk("SUBSTITUTE_WNAVCLIENTCACHE");$iqfogwmm =~ s/$nisojpkmqjpsfpphevj//;}                 $guuejoteyvpjnlk = WEBLIC::CPLC->iextmdtutpypgnideevhrt($orqmjxknpnxpeosildijo);if($guuejoteyvpjnlk =~ /^\s*<wNavigation[^>]+allowinclude="1"/){  require WEBLIC::FNVG;  $guuejoteyvpjnlk = WEBLIC::FNVG->yjpvlxwdiwsmlqoj($guuejoteyvpjnlk);}if($gyrwlsyxrvg eq "" && $fosdgsrim eq ""){if($inqktfindpf ne ""){$ivqlyoygrerkpfiidwtsjo = eomjnhhmvdvlypdfx($guuejoteyvpjnlk, $inqktfindpf);}if($xtkeivvhgwl ne ""){$ivqlyoygrerkpfiidwtsjo = hygpsdfmnoktdepuvvekxs($guuejoteyvpjnlk, $xtkeivvhgwl);}if($fisqxmskhjvwpnrxylkvp ne ""){$ivqlyoygrerkpfiidwtsjo = sjogmqwuwyhvidrjwxgk($guuejoteyvpjnlk, $fisqxmskhjvwpnrxylkvp);}require WEBLIC::WCCH;    if($ivqlyoygrerkpfiidwtsjo eq ""){if($qthwuouwdqmpmpniy eq ""){     $qthwuouwdqmpmpniy = kjqhvoiuhfjelys($guuejoteyvpjnlk, "cururl");}if($qthwuouwdqmpmpniy ne ""){require WEBLIC::CRLR;require WEBLIC::CFCN;    $ivqlyoygrerkpfiidwtsjo = eomjnhhmvdvlypdfx($guuejoteyvpjnlk, WEBLIC::CFCN->fgmojnorkdufdkty(WEBLIC::CRLR->kluehofgugf()));  }  if($ivqlyoygrerkpfiidwtsjo eq ""){if($thqsptkqvitkutt eq ""){$thqsptkqvitkutt = kjqhvoiuhfjelys($guuejoteyvpjnlk, "clientcache");}if($thqsptkqvitkutt ne "" && $ENV{'HTTP_USER_AGENT'} !~ /lwp/i){if($ivqlyoygrerkpfiidwtsjo eq ""){$ivqlyoygrerkpfiidwtsjo = WEBLIC::WCCH->tkppoengphxpgfxpnlewm("navId:$iqfogwmm");       }  } }  }if($ENV{'HTTP_USER_AGENT'} !~ /lwp/i){WEBLIC::WCCH->xvnjtetpowkrwfhmrwjhxk("navId:$iqfogwmm", $ivqlyoygrerkpfiidwtsjo);     }}else{$ivqlyoygrerkpfiidwtsjo = "";}   my $mfrvuxvewkgipkyirmnsgl;if($guuejoteyvpjnlk =~ /^[^>]+static="([^"]+)"/){$mfrvuxvewkgipkyirmnsgl = $1;if($mfrvuxvewkgipkyirmnsgl ne "" && $mfrvuxvewkgipkyirmnsgl ne "0"){if($guuejoteyvpjnlk =~ /pathStatic="([^"]+)"/){$mfrvuxvewkgipkyirmnsgl = $1;}}my $xymdyoyiqvqjomq = "_~_";my $qvkyvgjlqntmngjnipntdri = "-~-";$johjfnghxwmfkvwmyhxyn = "wNavStat".$xymdyoyiqvqjomq.$xsrpuxhgikvdlkfnd.$xymdyoyiqvqjomq.$vpptygoyjfwurllh.$xymdyoyiqvqjomq.$ppqhvrjil.$xymdyoyiqvqjomq.$ivqlyoygrerkpfiidwtsjo;$johjfnghxwmfkvwmyhxyn =~ s/\//$qvkyvgjlqntmngjnipntdri/g;$johjfnghxwmfkvwmyhxyn = $hnuhlohkkgrnqpepuyth.$mfrvuxvewkgipkyirmnsgl.$johjfnghxwmfkvwmyhxyn;my $jowxgshtgpm = $vpptygoyjfwurllh;$jowxgshtgpm =~ s/.*(\.[^\.]*)$/$1/;if($jowxgshtgpm eq ""){$jowxgshtgpm = ".htm";}	$johjfnghxwmfkvwmyhxyn   .= $jowxgshtgpm;  if(-f($johjfnghxwmfkvwmyhxyn)){if($ivqlyoygrerkpfiidwtsjo ne ""){WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("<!--wClientCache:navId:$iqfogwmm:$ivqlyoygrerkpfiidwtsjo-->\n".WEBLIC::CPLC->iextmdtutpypgnideevhrt($johjfnghxwmfkvwmyhxyn));      }else{WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt(WEBLIC::CPLC->iextmdtutpypgnideevhrt($johjfnghxwmfkvwmyhxyn));}  exit;}}require WEBLIC::WNVN;my $yronhlninrxvfxuhixffi = new WEBLIC::WNVN;if($ivqlyoygrerkpfiidwtsjo ne ""){  WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("<!--wClientCache:navId:$iqfogwmm:$ivqlyoygrerkpfiidwtsjo-->\n".$yronhlninrxvfxuhixffi->gdrgisnkx($xsrpuxhgikvdlkfnd, $vpptygoyjfwurllh, $ppqhvrjil, $ivqlyoygrerkpfiidwtsjo, $rvwhiwookwguqhqj, $yvnhvoknwepsyfwoqhde, $gtnqfslulhgyqior));}else{  WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt($yronhlninrxvfxuhixffi->gdrgisnkx($xsrpuxhgikvdlkfnd, $vpptygoyjfwurllh, $ppqhvrjil, $ivqlyoygrerkpfiidwtsjo, $rvwhiwookwguqhqj, $yvnhvoknwepsyfwoqhde, $gtnqfslulhgyqior));}}else{WEBLIC::CTPT->poktjqkixltkxxmxjgqrhdt("Error: navConfigFile is not available<br>");}sub eomjnhhmvdvlypdfx {my ($guuejoteyvpjnlk, $inqktfindpf) = @_;if($guuejoteyvpjnlk =~ s/link="$inqktfindpf".*//s){my $fyskljsxhxigmyt = $guuejoteyvpjnlk;my @dvpeyffwlifertedtwkdq        = ($fyskljsxhxigmyt =~ /<nav[pP]oint /gs);my $ivqlyoygrerkpfiidwtsjo = $#dvpeyffwlifertedtwkdq + 1;
return $ivqlyoygrerkpfiidwtsjo;}return "";}sub hygpsdfmnoktdepuvvekxs {my ($guuejoteyvpjnlk, $xtkeivvhgwl) = @_;if($guuejoteyvpjnlk =~ s/text="$xtkeivvhgwl".*//s){my $fyskljsxhxigmyt = $guuejoteyvpjnlk;my @dvpeyffwlifertedtwkdq        = ($fyskljsxhxigmyt =~ /<nav[pP]oint /gs);my $ivqlyoygrerkpfiidwtsjo = $#dvpeyffwlifertedtwkdq + 1;
return $ivqlyoygrerkpfiidwtsjo;}return "";}sub sjogmqwuwyhvidrjwxgk {my ($guuejoteyvpjnlk, $fisqxmskhjvwpnrxylkvp) = @_;if($guuejoteyvpjnlk =~ s/level="$fisqxmskhjvwpnrxylkvp".*//s){my $fyskljsxhxigmyt = $guuejoteyvpjnlk;my @dvpeyffwlifertedtwkdq        = ($fyskljsxhxigmyt =~ /<nav[pP]oint /gs);my $ivqlyoygrerkpfiidwtsjo = $#dvpeyffwlifertedtwkdq + 1;
return $ivqlyoygrerkpfiidwtsjo;}return "";}sub kjqhvoiuhfjelys {my ($guuejoteyvpjnlk, $fqxnpltywpnqp) = @_;if($guuejoteyvpjnlk =~ /^[^<]*<wNavigation[^>]+$fqxnpltywpnqp="([^"])*"/){return $1;}return "";}exit;