#!/usr/bin/perl ################################################################################## # # (c) 2001 - 2008 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. # ################################################################################## use lib qw(./weblication/lib ../weblication/lib ../htdocs/weblication/lib ../http/weblication/lib ../html/weblication/lib ../web/weblication/lib ../home/weblication/lib ../www/weblication/lib ../data/weblication/lib ../httpdocs/weblication/lib ../public_html/weblication/lib ../public/weblication/lib);BEGIN{if(-f('./wLib.pm')){require wLib;}}use strict;use WEBLIC::NNVR;use WEBLIC::CCGC;use WEBLIC::CFCN;use WEBLIC::CTPT;use WEBLIC::CPLC;my $klrtytiu = WEBLIC::CCGC->new("lt");my %ngsewowoimdds = $klrtytiu->xjljonnponnpnnpjjtdxw();my %rokgqxdptyrh = $klrtytiu->iyxmdrdygdk();my $ynlmjsirljoodnrnqpjqv = $ngsewowoimdds{'action'};my $ewymxrrylqekrljllw = $ngsewowoimdds{'navconfig'};my $itqmojegjgnwmofrtxlvp = $ngsewowoimdds{'navtpl'};my $ywmfgffnkfnypjfip = $ngsewowoimdds{'navmode'};my $ojlpwvyutdooxqnxlr = $ngsewowoimdds{'id'};my %uhshknxhjwofovyre;$uhshknxhjwofovyre{'single'} = $ngsewowoimdds{'single'};$uhshknxhjwofovyre{'personal'} = $ngsewowoimdds{'personal'};$uhshknxhjwofovyre{'protocol'} = $ngsewowoimdds{'protocol'};$uhshknxhjwofovyre{'curUrl'} = $ngsewowoimdds{'cururl'};$uhshknxhjwofovyre{'navUrl'} = $ngsewowoimdds{'navurl'};$uhshknxhjwofovyre{'navText'} = $ngsewowoimdds{'navtext'};$uhshknxhjwofovyre{'navLevel'} = $ngsewowoimdds{'navlevel'};$uhshknxhjwofovyre{'clientCache'} = $ngsewowoimdds{'clientcache'};$uhshknxhjwofovyre{'noNavid'} = $ngsewowoimdds{'nonavid'};$uhshknxhjwofovyre{'namestatic'} = $ngsewowoimdds{'namestatic'};$uhshknxhjwofovyre{'static'} = "on";my $qypildoxkyysqvnqgvmpe;if($uhshknxhjwofovyre{'personal'} ne ""){require WEBLIC::WRCC;if(WEBLIC::WRCC->vtyxjtgxiww("", "return") eq "0"){WEBLIC::CTPT->uuseympftuyfnnvwxioie("\n"); exit; }}if($rokgqxdptyrh{'wNavId'} ne ""){$ojlpwvyutdooxqnxlr = $rokgqxdptyrh{'wNavId'};}if($ngsewowoimdds{'navid'} ne ""){$ojlpwvyutdooxqnxlr = $ngsewowoimdds{'navid'};}if($ngsewowoimdds{'navId'} ne ""){$ojlpwvyutdooxqnxlr = $ngsewowoimdds{'navId'};}if($ojlpwvyutdooxqnxlr eq "last" || $ojlpwvyutdooxqnxlr eq "cache" || $ojlpwvyutdooxqnxlr eq "clientcache"){$ojlpwvyutdooxqnxlr = "";$uhshknxhjwofovyre{'clientCache'} = "1";}if($ngsewowoimdds{'navUrl'} ne ""){$uhshknxhjwofovyre{'navUrl'} = $ngsewowoimdds{'navUrl'};}if($ngsewowoimdds{'navlink'} ne ""){$uhshknxhjwofovyre{'navUrl'} = $ngsewowoimdds{'navlink'};}if($ngsewowoimdds{'navLink'} ne ""){$uhshknxhjwofovyre{'navUrl'} = $ngsewowoimdds{'navLink'};}if($ngsewowoimdds{'navText'} ne ""){$uhshknxhjwofovyre{'navText'} = $ngsewowoimdds{'navText'};}if($ngsewowoimdds{'navLevel'} ne ""){$uhshknxhjwofovyre{'navText'} = $ngsewowoimdds{'navLevel'};}if($ngsewowoimdds{'navanchor'} ne ""){$uhshknxhjwofovyre{'navAnchor'} = $ngsewowoimdds{'navanchor'};}require WEBLIC::WNVN;my $ouovfvqmorfvjqnxeqplwwt = new WEBLIC::WNVN;WEBLIC::CTPT->uuseympftuyfnnvwxioie($ouovfvqmorfvjqnxeqplwwt->qdkxnluqhpvoow($ewymxrrylqekrljllw, $itqmojegjgnwmofrtxlvp, $ywmfgffnkfnypjfip, $ojlpwvyutdooxqnxlr, \%uhshknxhjwofovyre));#$dsvektwg, $tiwrvpwpops, $omjmujrsqigmffum)); exit;