#!/usr/bin/perl
# Engine zum Erstellen von dynamischen Headern fuer quaeldich.de Seiten
# Jan Sahner September 2002
push (@INC, './Club');
push (@INC, 'Club');
push (@INC, '../Club');
push (@INC, './Bergengine');
push (@INC, './Bergengine/PLAdmin');
require $ENV{'DOCUMENT_ROOT'}.'/Club/Club.pm';
require $ENV{'DOCUMENT_ROOT'}.'/Bergengine/PLAdmin/generalFns.pm';
   if ($ComeFromElsewhere == 0)
   {
      &Eingabe;
      &HeaderCheckClub();
   }
   else {$ID=~s/\+/ /g;}
if (index($ID, "Wochentouren")>=0 || index($ID, "Tagestouren")>=0) {
  require  $ENV{'DOCUMENT_ROOT'}.'/Bergengine/PLAdmin/TourenFns2.pm';
}
srand;                      # not needed for 5.004 and later
$NavRandInd   = rand(10);
$PLBanner=$BikeSideBanner;

$TrikotSky = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/Sommer2007Sky_160.jpg\" border=\"0\"/></a>";
$WHHSky = "<a href=\"http://www.diego06.de/?pid=1556\"><img src=\"http://www.quaeldich.de/Bilder/diego_SkyScraper.gif\" border=\"0\" target=\"_new\"/></a>";

$SkyScraper = $TrikotSky;

if ($NavRandInd <5) {
  $DiskussionsBanner=$BikeSideBanner;
} else {
  $NavRandIndQD=rand(12);
  if ($NavRandIndQD < 6) {
    $DiskussionsBanner=$TrikotBanner;
    $PLBanner=$TrikotBanner;
  }else {
    $DiskussionsBanner=$TrikotBanner;#$DreiLTBanner;
    $PLBanner=$TrikotBanner;#$DreiLTBanner;
  }
}

$IndexBanner=$CitecBanner;
if (0 && $ENV{"HTTPS"}==0) {
$Werbeinhalt_HOMEPAGE_SKY = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 120x600 ------>
<table cellspacing="0" cellpadding="0" border="0" width="120" height="600"><tr>
<td valign="top" border="0" width="120" height="600">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord=1234567890?" border="0" width="120" height="600">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 120x600  ------>
__ADLINK
  ;
$Werbeinhalt_HOMEPAGE_BANNER = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 468x60 ------>
<table cellspacing="0" cellpadding="0" border="0" width="468" height="60"><tr>
<td valign="top" border="0" width="468" height="60">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/homepage;sz=468x60;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/homepage;sz=468x60;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/homepage;sz=468x60;ord=1234567890?" border="0" width="468" height="60">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 468x60  ------>
__ADLINK
;

$Werbeinhalt_ROTATION_SKY = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 120x600 ------>
<table cellspacing="0" cellpadding="0" border="0" width="120" height="600"><tr>
<td valign="top" border="0" width="120" height="600">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord=1234567890?" border="0" width="120" height="600">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 120x600  ------>
__ADLINK
;
$Werbeinhalt_ROTATION_BANNER = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 468x60 ------>
<table cellspacing="0" cellpadding="0" border="0" width="468" height="60" style="margin-left:30px"><tr>
<td valign="top" border="0" width="468" height="60">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/rotation;sz=468x60;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/rotation;sz=468x60;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/rotation;sz=468x60;ord=1234567890?" border="0" width="468" height="60">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 468x60  ------>
__ADLINK
;
}

     my $NavRandIndQDHP=rand(12);
     if (1 || $NavRandIndQDHP < 6) {
       $IndexBanner = $TrikotBanner;
       $Werbeinhalt_HOMEPAGE_SKY = $SkyScraper;
       $Werbeinhalt_ROTATION_SKY = $SkyScraper;
     } else {
       $IndexBanner=$Werbeinhalt_HOMEPAGE_BANNER;
       $Werbeinhalt_HOMEPAGE_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
       $Werbeinhalt_ROTATION_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
     }




#'<a href="/Kampagne/Kampagne.shtml"><img src="http://www.quaeldich.de/Bilder/Banner90.gif" width="426" height="80" border="0" alt=""></a>';
@FreundeLine = ("Alle","/Wir/Freunde.shtml","",\@Leer,"Armin","/Wir/Armin.shtml","",\@Leer,"Freddy","/Wir/Freddy.shtml","",\@Leer,"Johannes","/Wir/Johannes.shtml","",\@Leer,"Torsten","/Wir/Torsten.shtml","",\@Leer);
@WirLine = ("Alle","/Wir/Wir.shtml","",\@Leer,"Andy","/Wir/Andy.shtml","",\@Leer,"Jan","/Wir/Jan.shtml","",\@Leer,"Till","/Wir/Till.shtml","",\@Leer,"Tobi","/Wir/Tobi.shtml","",\@Leer,"Freunde","/Wir/Freunde.shtml","",\@FreundeLine);
#@RandLine = ("Wir","/Wir/Wir.shtml","",\@WirLine,"Neu","/Neu.shtml","",\@Leer,"Links","/Links.shtml",$Banner90,\@Leer,"Deine Seite hier","/Upload.shtml","",\@Leer);
#
$DagesStr = '<a href="http://www.zweirad-dages.de"><img src=""http://www.quaeldich.de/Bilder/dages.gif" alt="" width="165" height="90" border="0" align="left"></a>';
#$HinweisStr= '<td align=left><font size=2>Trag dich ein ins</font><br><font size=4><b><a href="/Forum/Gaestebuch.pl?Aktion=Liste">Gästebuch!</a></b></font></td>';
#$HinweisStr= '<a href="/Forum/Unterkunft.shtml"><img src="/Bilder/UnterkunftsringBesonders.gif" width="426" height="90" border="0" alt="Trag dich ein in den Unterkunftsring!"></a>';
#$Unterkunft= '<a href="/Forum/Unterkunft.pl?Aktion=NE"><img src="/Bilder/UnterkunftsringBesonders.gif" width="426" height="90" border="0" alt="Trag dich ein in den Unterkunftsring!"></a>';
@DiskussionsLine = ("Alle Einträge","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=0",$DiskussionsBanner,\@Leer,
		    "Technikforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=1",$DiskussionsBanner,\@Leer,
		    "Trainingsforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=2",$DiskussionsBanner,\@Leer,
		    "Reiseforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=3",$DiskussionsBanner,\@Leer,
		    "Sonstige Einträge","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=4",$DiskussionsBanner,\@Leer,
		    "Passkommentare","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=5",$DiskussionsBanner,\@Leer,
		    "FAQ","/Forum/FAQ.shtml","",\@Leer,
		    "Neuer Eintrag","/Forum/Diskussion.pl?Aktion=NE",$DiskussionsBanner, \@Leer);
@GaestebuchLine = ("Ansicht","/Forum/Gaestebuch.shtml",$Banner90,\@Leer,"Neuer Eintrag","/Forum/GaestebuchNEU.shtml"," ",\@Leer);
@UnterkunftsringLine = ("Übersicht","/Forum/Unterkunftsring.shtml",$Unterkunft,\@Leer,"Alle Einträge","/Forum/Unterkunft.pl?Aktion=Liste&Sort=PLZ",$Unterkunft,\@Leer,"Suche","/Forum/UnterkunftsSuche.shtml",$Unterkunft,\@Leer,"Neuer Eintrag","/Forum/Unterkunft.pl?Aktion=NE"," ",\@Leer);
@HotelLine= ("Hotelliste","/Hotels/Hotels.pl?Aktion=Liste","",\@Leer,"Hotel anmelden","/Hotels/Hotels.pl?Aktion=TeilnahmeForm","",\@Leer);
@UnterkunftLine = ("Übersicht","/Forum/Unterkunft.shtml",$Unterkunft,\@Leer,"Hotels","/Hotels/Hotels.pl?Aktion=Liste",$Unterkunft,\@HotelLine,"Unterkunftsring","/Forum/Unterkunftsring.shtml",$Unterkunft,\@UnterkunftsringLine);
@TrKalLine = ("Übersicht","/Forum/TrKal.shtml","",\@Leer,"Diese Woche","/Forum/TrKal.pl?Wann=Woche","",\@Leer,"Diesen Monat","/Forum/TrKal.pl?Wann=Monat","",\@Leer,"Dieses Jahr","/Forum/TrKal.pl?Wann=Jahr","",\@Leer,"Suche","/Forum/TrSuche.shtml","",\@Leer,"Neuer Eintrag","/Forum/TrKalNE.shtml","",\@Leer);
@KlAnzLine = ("Übersicht", "/Forum/KlAnz.shtml","",\@Leer, "Suche","/Forum/KlAnz.pl?Aktion=Liste&Rubrik=Allgemein&SB=S","",\@Leer, "Biete","/Forum/KlAnz.pl?Aktion=Liste&Rubrik=Allgemein&SB=B","",\@Leer,"Neuer Eintrag","/Forum/KlAnzNE.shtml","",\@Leer);
@ForumLine = ("Übersicht", "/Forum/Forum.shtml",$DiskussionsBanner,\@Leer,"Diskussion","/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine,"Gästebuch","/Forum/Gaestebuch.shtml",$DiskussionsBanner,\@GaestebuchLine,"Kleinanzeigen","/Forum/KlAnz.shtml","",\@KlAnzLine, "Unterkunft","/Forum/Unterkunft.shtml","",\@UnterkunftLine,"Trainingskalender","/Forum/TrKal.shtml","",\@TrKalLine);
@ProfileLine = ("Übersicht", "/Paesselexikon/Profile.shtml", $PLBanner, \@Leer,
		"Hintergrund", "/Paesselexikon/ProfileKnowledge.shtml", $PLBanner, \@Leer);
@PaesselexikonLine = ("Übersicht","/Paesselexikon/Paesselexikon.shtml",$PLBanner,\@Leer,"Alle Pässe","/PaesseDirekt.shtml",$PLBanner,\@Leer,"Pässe suchen","/PassSuche.shtml",$PLBanner,\@Leer,"Tourenplaner","/Paesselexikon/Tourenplaner/Tourenplaner.shtml",$PLBanner,\@Leer,"Pässequartett", "/Paesselexikon/Quartett/Quartett.shtml",$PLBanner,\@Leer,"Alle Bilder","/Bilder.pl?Aktion=Detail&Pass=Photos",$PLBanner,\@Leer,"Höhenprofile", "/Paesselexikon/Profile.shtml", $PLBanner, \@ProfileLine, "Selbst mitwirken","/Paesselexikon/HowTo.shtml",$BikeSideBanner,\@Leer);
#"Trainingskalender"
if (index($ID, "Tagestouren") >=0) {
  @TagestourenLine = ("Übersicht","/Tagestouren.shtml","",\@Leer,"Zentralschweiztour 2001","/Touren/SustenFurkaGrimsel01/Bericht.shtml","",\@Leer,"Deutschlandtour 2001","/Touren/Deutschlandtour2001/Jedermann.shtml","",\@Leer,"2002","/Touren/Deutschlandtour2002/Jedermann.shtml","",\@Leer,"Andermatt 2000","/Alpenbrevet2000/Brevet.shtml","",\@Leer,"Ötztalmarathon 2000","/Touren/Barth/Oetztalmarathon2000/Oetztalmarathon2000.shtml","",\@Leer,"Andermatt 1999","/Touren/Alpenbrevet99/Alpenbrevet99.shtml","",\@Leer,"Bern Bodensee Bern 2001","/Touren/BBB/venetz.shtml","",\@Leer);
  &AlleTourenEinlesen("((Features & $Aktiv) != 0) and (vonDatum=bisDatum)", "bisDatum");
  my $iTr, $tH;
  for ($iTr=0; $iTr < @AlleTouren; $iTr++) {
    push(@TagestourenLine, $$AlleTouren[$iTr]{"Name"}, "/Touren/Touren.pl?TourHandle=$$AlleTouren[$iTr]{\"Handle\"}", "", \@Leer);
  }
}
if (index($ID, "Wochentouren")>=0) {
  @Mallorca01Line =("Ankunft","/Touren/Mallorca01/Ankunft.shtml","",\@Leer,"Tag 1","/Touren/Mallorca01/Tag1.shtml","",\@Leer,"Tag 2","/Touren/Mallorca01/Tag2.shtml","",\@Leer,"Tag 3","/Touren/Mallorca01/Tag3.shtml","",\@Leer,"Tag 4","/Touren/Mallorca01/Tag4.shtml","",\@Leer,"Tag 5","/Touren/Mallorca01/Tag5.shtml","",\@Leer,"Tag 6","/Touren/Mallorca01/Tag6.shtml","",\@Leer,"Tag 7","/Touren/Mallorca01/Tag7.shtml","",\@Leer,"Tag 8","/Touren/Mallorca01/Tag8.shtml","",\@Leer);
  @BarthJuniLine = ("Tag 1","/Touren/Barth/Juni2000/Tag1.shtml","",\@Leer, "Tage 2 und 3","/Touren/Barth/Juni2000/Tag23.shtml","",\@Leer, "Tag 4","/Touren/Barth/Juni2000/Tag4.shtml","",\@Leer, "Tage 5 und 6","/Touren/Barth/Juni2000/Tag56.shtml","",\@Leer, "Tag 7 und Heimreise","/Touren/Barth/Juni2000/Tag78.shtml","",\@Leer, "Team Roßtal","/Touren/Barth/Juni2000/TeamRoßtal.shtml","",\@Leer);
  @BarthSommerLine = ("Tage 1 und 2","/Touren/Barth/Sommer2000/Tag12.shtml","",\@Leer, "Tage 3 und 4","/Touren/Barth/Sommer2000/Tag34.shtml","",\@Leer, "Tage 5 und 6","/Touren/Barth/Sommer2000/Tag56.shtml","",\@Leer, "Tage 7, 8 und 9","/Touren/Barth/Sommer2000/Tag789.shtml","",\@Leer, "Tage 10 und 11","/Touren/Barth/Sommer2000/Tag1011.shtml","",\@Leer, "Team Roßtal","/Touren/Barth/Juni2000/TeamRoßtal.shtml","",\@Leer);
  @TandemLine = ("Team","/Touren/Tandemtour/Team.shtml","",\@Leer,"Etappe 1","/Touren/Tandemtour/Etappe1.shtml","",\@Leer,"Etappe 2","/Touren/Tandemtour/Etappe2.shtml","",\@Leer,"Etappe 3","/Touren/Tandemtour/Etappe3.shtml","",\@Leer,"Etappe 4","/Touren/Tandemtour/Etappe4.shtml","",\@Leer,"Etappe 5","/Touren/Tandemtour/Etappe5.shtml","",\@Leer,"Etappe 6","/Touren/Tandemtour/Etappe6.shtml","",\@Leer,"Etappe 7","/Touren/Tandemtour/Etappe7.shtml","",\@Leer,"Etappe 8","/Touren/Tandemtour/Etappe8.shtml","",\@Leer,"Etappe 9","/Touren/Tandemtour/Etappe9.shtml","",\@Leer,"Etappe 10","/Touren/Tandemtour/Etappe10.shtml","",\@Leer,"Etappe 11","/Touren/Tandemtour/Etappe11.shtml","",\@Leer,"Etappe 12","/Touren/Tandemtour/Etappe12.shtml","",\@Leer,"Etappe 13","/Touren/Tandemtour/Etappe13.shtml","",\@Leer,"Etappe 14","/Touren/Tandemtour/Etappe14.shtml","",\@Leer,"Fotoalbum","/Bilder.pl?Album=Touren/Tandemtour/Bilder/Alle.pht|Tandemtour+2001|/Touren/Tandemtour/Etappe1.shtml|Beschreibung+der+Tandemtour&Target=Tourenberichte|Wochentouren|Tandemtransalp|Fotoalbum","",\@Leer);
  @ProvenceLine = ("Rolf Schödel","/Touren/Schoedel/Provence1999/Team.shtml","",\@Leer,
		   "Etappe 1","/Touren/Schoedel/Provence1999/Etappe01.shtml","",\@Leer,
		   "Etappe 2","/Touren/Schoedel/Provence1999/Etappe02.shtml","",\@Leer,
		   "Etappe 3","/Touren/Schoedel/Provence1999/Etappe03.shtml","",\@Leer,
		   "Etappe 4","/Touren/Schoedel/Provence1999/Etappe04.shtml","",\@Leer,
		   "Etappe 5","/Touren/Schoedel/Provence1999/Etappe05.shtml","",\@Leer,
		   "Etappe 6","/Touren/Schoedel/Provence1999/Etappe06.shtml","",\@Leer,
		   "Etappe 7","/Touren/Schoedel/Provence1999/Etappe07.shtml","",\@Leer,
		   "Etappe 8","/Touren/Schoedel/Provence1999/Etappe08.shtml","",\@Leer,
		   "Etappe 9","/Touren/Schoedel/Provence1999/Etappe09.shtml","",\@Leer,
		   "Etappe 10","/Touren/Schoedel/Provence1999/Etappe10.shtml","",\@Leer,
		   "Etappe 11","/Touren/Schoedel/Provence1999/Etappe11.shtml","",\@Leer,
		   "Etappe 12","/Touren/Schoedel/Provence1999/Etappe12.shtml","",\@Leer,
		   "Fotoalbum","/Bilder.pl?Album=Touren/Schoedel/Provence1999/Bilder/Alle.pht|Provencetour+1999|/Touren/Schoedel/Provence1999/Etappe01.shtml|Beschreibung+der+Provencetour&Target=Tourenberichte|Wochentouren|Provence 99|Fotoalbum","",\@Leer);
  @Dolomiten2002 = ("Tage 1 und 2","/Touren/Barth/DolomitenMai2002/Tag12.shtml","",\@Leer,
		    "Tage 3 und 4","/Touren/Barth/DolomitenMai2002/Tag34.shtml","",\@Leer,
		    "Tag 5","/Touren/Barth/DolomitenMai2002/Tag5.shtml","",\@Leer,
		    "Tage 6, 7, 8","/Touren/Barth/DolomitenMai2002/Tag678.shtml","",\@Leer,
		    "Fotoalbum","/Bilder.pl?Album=Touren/Barth/DolomitenMai2002/Bilder/AlbumGesamt.pht|Dolomitentour+Team+Rosstal,+Mai+2002|/Touren/Barth/DolomitenMai2002/Tag678.shtml|Beschreibung+Tage+6, 7, 8&Target=Tourenberichte|Wochentouren|Dolomiten 2002|Fotoalbum","",\@Leer,
		    "Team Ro&szlig;tal","/Touren/Barth/DolomitenMai2002/TeamRosstal.shtml","",\@Leer);
  @Lombardei2002 = ("Tag 1","/Touren/Barth/LombardiaAugust2002/Tag1.shtml","",\@Leer,
		    "Tage 2 und 3","/Touren/Barth/LombardiaAugust2002/Tag23.shtml","",\@Leer,
		    "Tage 4 und 5","/Touren/Barth/LombardiaAugust2002/Tag45.shtml","",\@Leer,
		    "Tage 6 und 7","/Touren/Barth/LombardiaAugust2002/Tag67.shtml","",\@Leer,
		    "Fotoalbum","/Bilder.pl?Album=Touren/Barth/LombardiaAugust2002/Bilder/AlbumGesamt.pht|Lombardeitour+Team+Rosstal,+August+2002|/Touren/Barth/LombardiaAugust2002/Tag1.shtml|Beschreibung+Tag+1&Target=Tourenberichte|Wochentouren|Dolomiten 2002|Fotoalbum","",\@Leer,
		    "Team Ro&szlig;tal","/Touren/Barth/LombardeiAugust2002/TeamRosstal.shtml","",\@Leer);
  @Frankreich2001 = ("Tag 1","/Touren/Barth/Frankreich2001/Tag1.shtml","",\@Leer,
		     "Tage 2 und 3","/Touren/Barth/Frankreich2001/Tag23.shtml","",\@Leer,
		     "Tage 4 und 5","/Touren/Barth/Frankreich2001/Tag45.shtml","",\@Leer,
		     "Tage 6 und 7","/Touren/Barth/Frankreich2001/Tag67.shtml","",\@Leer,
		     "Tage 8 und 9","/Touren/Barth/Frankreich2001/Tag89.shtml","",\@Leer,
		     "Tage 10 und 11","/Touren/Barth/Frankreich2001/Tag1011.shtml","",\@Leer,
		     "Tage 12 und 13","/Touren/Barth/Frankreich2001/Tag1213.shtml","",\@Leer,
		     "Fotoalbum","/Bilder.pl?Album=Touren/Barth/LombardiaAugust2002/Bilder/AlbumGesamt.pht|Team+Rosstal+Frankreich+2001|/Touren/Barth/Frankreich2001/Tag1.shtml|Beschreibung+Tag+1&Target=Tourenberichte|Wochentouren|Frankreich 2001|Fotoalbum","",\@Leer,
		     "Team Ro&szlig;tal","/Touren/Barth/Frankreich2001/TeamRosstal.shtml","",\@Leer);
  @Zentralschweiz2002 = ("Tag 1","/Touren/Jungwirth/Zentralschweiz/tag1.shtml","",\@Leer,
			 "Tag 2","/Touren/Jungwirth/Zentralschweiz/tag2.shtml","",\@Leer,
			 "Tag 3","/Touren/Jungwirth/Zentralschweiz/tag3.shtml","",\@Leer,
			 "Tag 4","/Touren/Jungwirth/Zentralschweiz/tag4.shtml","",\@Leer);
  @Pyrenaeen02 = ("Planung","/Touren/Pyrenaeen02/Abstrakt.shtml","",\@Leer,"Anreise","/Touren/Pyrenaeen02/Tag0.shtml","",\@Leer,
		  "Tag 1","/Touren/Pyrenaeen02/Tag1.shtml","",\@Leer,
		  "Tag 2","/Touren/Pyrenaeen02/Tag2.shtml","",\@Leer,
		  "Tag 3","/Touren/Pyrenaeen02/Tag3.shtml","",\@Leer,
		  "Tag 4","/Touren/Pyrenaeen02/Tag4.shtml","",\@Leer,
		  "Tag 5","/Touren/Pyrenaeen02/Tag5.shtml","",\@Leer,
		  "Tag 6","/Touren/Pyrenaeen02/Tag6.shtml","",\@Leer,
		  "Tag 7","/Touren/Pyrenaeen02/Tag7.shtml","",\@Leer,
		  "Tag 8","/Touren/Pyrenaeen02/Tag8.shtml","",\@Leer,
		  "Tag 9","/Touren/Pyrenaeen02/Tag9.shtml","",\@Leer,
		  "Abreise","/Touren/Pyrenaeen02/Tag10.shtml","",\@Leer);
  @WochentourenLine = ("Übersicht","/Wochentouren.shtml","",\@Leer,"Frankreich 98","/France/haupt.html","",\@Leer, "Schwarzwald 99", "/Touren/Pfingsttour99/Tag0.html","",\@Leer,"Dolomiten 99","/Italia/haupt.html","",\@Leer,"13 Pässetour 99", "/Touren/13Paessetour99/Planung.html","",\@Leer,"Provence 99","/Touren/Schoedel/Provence1999/Etappe01.shtml","",\@ProvenceLine,"Team Roßtal Juni 2000","/Touren/Barth/Juni2000/Tag1.shtml","",\@BarthJuniLine, "Team Roßtal Sommer 2000","/Touren/Barth/Sommer2000/Tag12.shtml","",\@BarthSommerLine, "Frankreich 2000", "/France2000/Tag0.html","",\@Leer,"Tandemtransalp","/Touren/Tandemtour/Etappe1.shtml","",\@TandemLine,"Frankreich 2001","/Touren/Barth/Frankreich2001/Tag1.shtml","",\@Frankreich2001,"Sommertour 2001","/Touren/Sommertour2001/Abstrakt.shtml","",\@Leer,"Mallorca 2001","/Touren/Mallorca01/Ankunft.shtml","",\@Mallorca01Line,"Dolomiten 2002", "/Touren/Barth/DolomitenMai2002/Tag12.shtml","",\@Dolomiten2002, "Zentralschweiz 2002", "/Touren/Jungwirth/Zentralschweiz/tag1.shtml","",\@Zentralschweiz2002,"Lombardei 2002", "/Touren/Barth/LombardiaAugust2002/Tag1.shtml","",\@Lombardei2002,"Pyrenäen 2002", "/Touren/Pyrenaeen02/Abstrakt.shtml","",\@Pyrenaeen02);  
  
  
  &AlleTourenEinlesen("((Features & $Aktiv) != 0) and (vonDatum<bisDatum)", "bisDatum");
  my $iTr, $iTg, $tH;
  for ($iTr=0; $iTr < @AlleTouren; $iTr++) {
    &wennTourExistiertDannEinlesen($$AlleTouren[$iTr]{"Handle"},"",1);
    $tH=$$AlleTouren[$iTr]{"Handle"};
    # nun TourenLine erstellen. Dies ist bei Wochentouren immer noetig
    # TourenLine erhaelt den Namen @$tH
    @$tH=@Leer;
    push(@$tH, "Übersicht","/Touren/Touren.pl?TourHandle=$tH", "", \@Leer);
    for ($iTg=0; $iTg < @Tage; $iTg++) {
      push(@$tH, $$Tage[$iTg]{"Name"}, "/Touren/Touren.pl?TourHandle=$tH&TagHandle=$$Tage[$iTg]{\"Handle\"}","",\@Leer);
    }
    push(@WochentourenLine, $$AlleTouren[$iTr]{"Name"}, "/Touren/Touren.pl?TourHandle=$tH", "", \@$tH);
  }
}
@TourenLine = ("Übersicht","/Touren.shtml","",\@Leer,"Wochentouren","/Wochentouren.shtml","",\@WochentourenLine,"Tagestouren","/Tagestouren.shtml","",\@TagestourenLine, "Marathons", "/Marathons/Marathons.pl","",\@Leer, "Alpentouren-Know-How","/Regionen/Alpen/Alpentipps.shtml","", \@Leer);
@AllgaeuLine=("Übersicht", "/Deutschland/Allgaeu/Allgaeu.shtml","",\@Leer,"Pässe","/Deutschland/Allgaeu/Paesse.shtml","",\@Leer);
@SiebengebirgeLine = ("Siebengebirge","/Deutschland/Siebengebirge/Siebengebirge.shtml","",\@Leer,"Touren", "/Deutschland/Siebengebirge/Touren.shtml","",\@Leer, "Karte", "/Bergengine/Deutschland/Karten/Siebengebirge.jpg","",\@Leer);
@SchwarzwaldLine = ("Übersicht","/Deutschland/Schwarzwald/Schwarzwald.shtml",$DagesStr,\@Leer,"Leitartikel","/Deutschland/Schwarzwald/Kandeltour.shtml",$DagesStr,\@Leer,"Berge","/Deutschland/Schwarzwald/Paesse.shtml",$DagesStr,\@Leer,"Touren","/Deutschland/Schwarzwald/Touren.shtml",$DagesStr,\@Leer,"Pfingsttour 1999","/Touren/Pfingsttour99/Tag0.html","",\@Leer,"Silvesterfahrt Kandel 2000","/Deutschland/Schwarzwald/BerichtSilvester2000.shtml",$DagesStr,\@Leer,"2001","/Deutschland/Schwarzwald/BerichtSilvester2001.shtml",$DagesStr,\@Leer,"Karte","/Bergengine/Deutschland/Karten/Schwarzwald.jpg","",\@Leer);
@EifelLine = ("Übersicht","/Deutschland/Eifel/Eifel.shtml","",\@Leer,"Touren","/Deutschland/Eifel/Touren.shtml","",\@Leer);
@DeutschlandLine = ("Übersicht","/Deutschland/Deutschland.shtml",$Banner90,\@Leer,"Allgäu","/Deutschland/Allgaeu/Allgaeu.shtml","",\@AllgaeuLine,"Eifel","/Deutschland/Eifel/Eifel.shtml","",\@EifelLine,"Rhön", "/Deutschland/Rhoen/Rhoen.shtml", "", \@Leer, "Schwarzwald","/Deutschland/Schwarzwald/Schwarzwald.shtml",$DagesStr,\@SchwarzwaldLine,"Odenwald","/Deutschland/Odenwald/Odenwald.shtml","",\@Leer,"Siebengebirge","/Deutschland/Siebengebirge/Siebengebirge.shtml","",\@SiebengebirgeLine, "Spessart", "/Deutschland/Spessart/Spessart.shtml", "", \@Leer);

@TrikotLine = ("Bestellung","/Kampagne/Trikots.shtml",$BestellBanner,\@Leer,"Galerie","/Bilder.pl?AlbumID=40","",\@Leer);

@KampagneLine = ("Übersicht","/Kampagne/Kampagne.shtml","",\@Leer,"Shirts","/Kampagne/TShirt.shtml","",\@Leer,"Trikots","/Kampagne/Trikots.shtml",$BestellBanner,\@TrikotLine);
@MagazinLine =("Übersicht","/Magazin/Magazin.shtml","",\@Leer,"Der erste Pass","/Magazin/ErsterPass.shtml","",\@Leer,"Im Rausch","/Magazin/StilfserJoch.shtml","",\@Leer,"Kampf gegen die Uhr","/Magazin/7Paesse.shtml","",\@Leer,"Vollmond","/Magazin/Vollmond.shtml","",\@Leer);
@VogesenLine = ("Übersicht","/Regionen/Vogesen/Vogesen.shtml","",\@Leer,"Kennenlerntour","/Regionen/Vogesen/TourTurckheim.shtml","",\@Leer);
@AlpenOesterreichLine = ("Übersicht","/Regionen/Alpen/Oesterreich/Oesterreich.shtml","",\@Leer,
			 "Pässe","/Regionen/Alpen/Oesterreich/Paesse.shtml","",\@Leer,
			 "Touren","/Regionen/Alpen/Oesterreich/Touren.shtml","",\@Leer,
			 "Vorarlberg","/Regionen/Alpen/Oesterreich/Vorarlberg.shtml","",\@Leer,
			 "Tirol","/Regionen/Alpen/Oesterreich/Tirol.shtml","",\@Leer
			);
@AlpenFrankreichLine = ("Übersicht","/Regionen/Alpen/Frankreich/Frankreich.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Frankreich/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Frankreich/Touren.shtml","",\@Leer);
@AlpenItalienLine = ("Übersicht","/Regionen/Alpen/Italien/Italien.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Italien/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Italien/Touren.shtml","",\@Leer,"Dolomiten","/Regionen/Alpen/Italien/Dolomiten/Dolomiten.shtml","",\@Leer);
@AlpenSchweizLine = ("Übersicht","/Regionen/Alpen/Schweiz/Schweiz.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Schweiz/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Schweiz/Touren.shtml","",\@Leer,"Engadin","/Regionen/Alpen/Schweiz/Engadin/Engadin.shtml","",\@Leer,"Zentralschweiz","/Regionen/Alpen/Schweiz/Zentralschweiz/Zentralschweiz.shtml","",\@Leer);
@AlpenLine = ("Übersicht","/Regionen/Alpen/Alpen.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Paesse.shtml","",\@Leer,"Alpentouren-Know-How","/Regionen/Alpen/Alpentipps.shtml","",\@Leer,"Schweiz","/Regionen/Alpen/Schweiz/Schweiz.shtml","",\@AlpenSchweizLine,"Frankreich","/Regionen/Alpen/Frankreich/Frankreich.shtml","",\@AlpenFrankreichLine,"Italien","/Regionen/Alpen/Italien/Italien.shtml","",\@AlpenItalienLine,"Österreich","/Regionen/Alpen/Oesterreich/Oesterreich.shtml","",\@AlpenOesterreichLine);
@SchweizerJuraLine = ("Übersicht","/Regionen/SchweizerJura/SchweizerJura.shtml","",\@Leer,"Pässe","/Regionen/SchweizerJura/Paesse.shtml","",\@Leer,"Brevier","/Regionen/SchweizerJura/Brevier.shtml","",\@Leer);
@KorsikaLine = ("Übersicht","/Regionen/Korsika/Korsika.shtml","",\@Leer,"Pässe","/Regionen/Korsika/Paesse.shtml","",\@Leer);
@KatalonienLine = ("Übersicht","/Regionen/Katalonien/Katalonien.shtml","",\@Leer,"Pässe","/Regionen/Katalonien/Paesse.shtml","",\@Leer,"Brevier","/Regionen/Katalonien/Brevier.shtml","",\@Leer);
@PyrenaeenLine = ("Übersicht","/Regionen/Pyrenaeen/Pyrenaeen.shtml","",\@Leer,"Pässe","/Regionen/Pyrenaeen/Paesse.shtml","",\@Leer,"Brevier","/Regionen/Pyrenaeen/Brevier.shtml","",\@Leer);
@RegionenLine =("Übersicht","/Regionen/Regionen.shtml","",\@Leer,"Alpen","/Regionen/Alpen/Alpen.shtml","",\@AlpenLine,"Pyrenäen","/Regionen/Pyrenaeen/Pyrenaeen.shtml","",\@PyrenaeenLine,"Katalonien","/Regionen/Katalonien/Katalonien.shtml","",\@KatalonienLine,"Deutschland","/Deutschland/Deutschland.shtml","",\@DeutschlandLine,"Schweizer Jura","/Regionen/SchweizerJura/SchweizerJura.shtml","",\@SchweizerJuraLine,"Mallorca","/Regionen/Mallorca/Mallorca.shtml","",\@Leer,"Korsika","/Regionen/Korsika/Korsika.shtml","",\@KorsikaLine,"Vogesen","/Regionen/Vogesen/Vogesen.shtml","",\@VogesenLine);
@IndexLine = ("Willkommen","http://www.quaeldich.de/Willkommen.shtml",$IndexBanner,\@Leer,
                    "qu&auml;ldich-Guide", "http://www.quaeldich.de/Locations.pl", "", \@Leer, 
                    "Pässelexikon","http://www.quaeldich.de/Locations.pl?Aktion=Paesse",$PLBanner,\@Leer, 
                    "Trainingstreff","http://www.quaeldich.de/Training.php","",\@Leer, "Tourentipps",
                    "http://www.quaeldich.de/Locations.pl?Aktion=Tourentipps","",\@Leer,
                    "Tourenplaner","http://tourenplaner.quaeldich.de/","",\@Leer,
                    "1.000.000mal dopingfrei!","http://dopingfrei.quaeldich.de/","",\@Leer, 
		    "Shop","http://www.quaeldich.de/shop",$Banner90,\@KampagneLine,
                    "Gästebuch","http://www.quaeldich.de/Forum/Gaestebuch.shtml","",\@GaestebuchLine,
                    "Diskussion","http://www.quaeldich.de/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine);
#@IndexLine = ("Willkommen","/Willkommen.shtml",$IndexBanner,\@Leer,"Pässelexikon","/Paesselexikon/Paesselexikon.shtml",$PLBanner,\@PaesselexikonLine,"Regionen", "/Regionen/Regionen.shtml","",\@RegionenLine,"Tourenberichte","/Touren.shtml","",\@TourenLine,"Magazin","/Magazin/Magazin.shtml","",\@MagazinLine,"Kleidung","/Kampagne/Kampagne.shtml",$Banner90,\@KampagneLine,"Kleinanzeigen","/Forum/KlAnz.shtml","",\@KlAnzLine,"Training","/Forum/TrKal.shtml","",\@TrKalLine,"Unterkunft","/Forum/Unterkunft.shtml","",\@UnterkunftLine,"Gästebuch","/Forum/Gaestebuch.shtml","",\@GaestebuchLine,"Diskussion","/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine);
   $HLC="#FFA500";

   #if (index($ID, "Pässelexikon",0) != -1){$HLC="#66CCFF";} else {if (index($ID,"Regionen",0)!=-1){$HLC="#C0C0C0";}}
   @IDBaum = split(/\|/, $ID);
   if ($ID eq "Willkommen") {
     $tdwidth="100%";
   } else {
     $tdwidth="90%";
   }
   if ($Rev == 0) {
     &quaeldichHTMLHeader();
#     $ClubEingeloggt++;
     &ClubZeile($ID);
#     $ClubEingeloggt--;
   }
   &Bannervorbereitung;
   &Navigationsvorbereitung;

   if ($Rev==0) {
      &Banner;
   } else {
     printf "<!-- Ende des Statischen Inhalts -->\n</div>\n</div>\n";
   }
#   } else {printf "<!-- Ende des Statischen Inhalts -->\n</td></tr></table></center>\n";}
   &Navigationsausgabe;

   if ($Rev)
   {
     # Nun rsn.com einbinden. 
#     if ($ID eq "Magazin|Übersicht") {
#       push(@INC,"c:/Sprachen/Perl/lib");
#       push(@INC,"c:/Sprachen/Perl/site/lib");
#       require LWP::UserAgent;
#       require HTTP::Request;
#       $URL="http://www.quaeldich.de/rsn.com.html";
#       $ua=LWP::UserAgent->new;
#       $request=HTTP::Request->new(GET=> $URL);
#       $response=$ua->request($request);
#       print $response->content;
#     }
      &Datumsausgabe;
      print <<__HTML
      <script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
      </script>
      <script type="text/javascript">
      _uacct = "UA-2212452-1"
      urchinTracker();
      </script>
__HTML
;
      print "</body>\n</html>\n";
   } else {
     my $Werbeinhalt="";
     if ($ID eq "Willkommen") {
       if (werbungErlauben($ID)) {
	 $Werbeinhalt = $Werbeinhalt_HOMEPAGE_SKY;
       }
       printf "<div style=\"width:990px\"><div style=\"width:160px;float:right;\">$Werbeinhalt</div><div style=\"width:800px;\">\n<!-- Anfang des statischen Inhalts -->\n";
     }
     else{
       if (werbungErlauben($ID)) {
	 $Werbeinhalt = $Werbeinhalt_ROTATION_SKY;
       }
       my $widthMain    = 1025 + $widthMainAdd;
       my $widthContent =  835 + $widthMainAdd;
       
       printf "<div style=\"width:$widthMain"."px\"><div style=\"width:160px;float:right;\">$Werbeinhalt</div><div style=\"width:$widthContent"."px;margin-left:15px;margin-right:15px\">\n<!-- Anfang des statischen Inhalts -->\n";
#       printf "<center><table cellpadding=\"0\" cellspacing=\"0\" width=\"$tdwidth\"><td><div>\n<!-- Anfang des statischen Inhalts -->\n";
     }
   }
sub werbungErlauben {
  my $ret=1;
  if (index($ID, "Shop") >= 0) {
    $ret = 0;
  }
  return $ret;
}
sub Eingabe
{
  if($ENV{'REQUEST_METHOD'} eq 'GET') {
    $Daten = $ENV{'QUERY_STRING'}
  } else {
    read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
  }
  @Formularfelder = split(/&/, $Daten);
  $i = 0;
  foreach $Feld (@Formularfelder) {
    ($name, $value) = split(/=/, $Feld);
    $value =~ s/\+/ /g;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|\n)*-->//g;
    if ($name eq "Rev"){$Rev=$value;} elsif
      ($name eq "Datum"){$Datum=$value;} elsif
	($name eq "Titel"){$Titel=$value;} elsif
	  ($name eq "ID"){$ID=$value;}
  }
}
sub Bannervorbereitung {
  for ($Index=0; 4*$Index < @RandLine; $Index ++) {
    $tmpStr = $RandLine[$Index*4];
    $tmpStr =~ s/ /&nbsp;/g;
    if ($IDBaum[0] ne $RandLine[$Index*4]) {
      $RandLineStr[$Index] = '<a id="top" href="'.$RandLine[$Index*4+1].'">'.$tmpStr."</a><br>\n";
    } else {
      $RandLineStr[$Index] = '<a class="tophi" href="'.$RandLine[$Index*4+1].'">'.$tmpStr."</a><br>\n";
      #'<span style="color:'.$HLC.'"><strong>'.$tmpStr."</strong></span><br>\n";
      if ($RandLine[4*$Index+2] ne "") {
	$BannerStr = $RandLine[4*$Index+2];
      }
      @NewLine = @{$RandLine[4*$Index+3]};
    }
  }
}

sub Navigationsvorbereitung {
  @NavigationsausgabeAr = @Ruecksetzung;
  @Line = @IndexLine;
  $AktZeile=0;
  for $AktZeilenStr (@IDBaum) {
    $NachfGef = 0;
    $Ausg = "";
    $Ausg = $Ausg."\n<tr>\n".'<td height="18">'."\n".'<div align="left" class="navig" style="margin-left:4px">'."\n";
    for ($Idx=0;$Idx < @Line/4; $Idx ++) {
	    $target = ($Line[4*$Idx] eq "Shop")?" target=\"qdshop\"":"";
      if ($AktZeilenStr eq $Line[4*$Idx]) {
	@NewLine = @{$Line[4*$Idx+3]};
            $Ausg = $Ausg.'<a name="Titel" class="tophi" href="'.$Line[4*$Idx+1].'"'."$target>".$Line[4*$Idx]."</a>";
	#'<span style="color:'.$HLC.'"><strong>'.$Line[4*$Idx]."</strong></span>";
	if ($Line[4*$Idx+2] ne "") {
	  $BannerStr = $Line[4*$Idx+2];
	}
	$NachfGef = 1;
      } else {
#	$Ausg = $Ausg.'<a name="Titel" class="navi" href="'.$Line[4*$Idx+1].'"><span style=":hover:Orange" style="color:white;">'.$Line[4*$Idx]."</span></a>";
	$Ausg = $Ausg.'<a name="Titel" class="navi" href="'.$Line[4*$Idx+1].'"'."$target>".$Line[4*$Idx]."</a>";
      }
      if (($Idx+1)*4 < @Line) {
	$Ausg = $Ausg." |\n";
      } else {
	$Ausg = $Ausg."\n";
      }
    }
    $Ausg = $Ausg."</div></td></tr>\n";
    push (@NavigationsausgabeAr,$Ausg);
    if ($AktZeile != @IDBaum - 1 || $AktZeile == 0) {
      $Ausg='<tr><td align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0" align="top"></td></tr>'."\n";
      push(@NavigationsausgabeAr,$Ausg);
      $Ausg = "<!-- Orangene Linie -->\n<tr>";
      $ThickOr = ($AktZeile == 0 ? "5":"3");
      $Ausg = $Ausg.'   <td align="center" bgcolor="'.$HLC.'"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="'.$ThickOr.'" border="0" align="top"></td>'."\n</tr>\n";
      push (@NavigationsausgabeAr,$Ausg);
      $Ausg='<tr><td align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0" align="top"></td></tr>'."\n";
      push(@NavigationsausgabeAr,$Ausg);
    }
    @Line = @NewLine;
    $AktZeile ++;
  }
  if ($Rev) {
    @NavigationsausgabeAr = reverse @NavigationsausgabeAr;
  }
}
sub Banner {
   printf "<!-- Kopfzeile mit Logo, Bannerwerbung und Links rechts -->\n";
   printf '<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>'."\n";
   printf '<td align="left"><a href="http://www.quaeldich.de/Willkommen.shtml"><img src="http://www.quaeldich.de/Bilder/hauptsachebergauf160_90.png" alt="qu&auml;ldich.de" width="160" height="90" hspace="5" border="0" align="left"></a></td>'."\n";
   #printf '<td align="right" valign=bottom>&nbsp;'."\n";
   #printf '</td>'."\n";
   if ($BannerStr eq "") {$BannerStr = $StdBanner;}
   if ($ID ne "Willkommen") {

     my $NavRandIndQD=rand(12);
     if (1 || $NavRandIndQD < 6 || werbungErlauben() == 0) {
       $BannerStr = $TrikotBanner;
       $Werbeinhalt_HOMEPAGE_SKY = $SkyScraper;
       $Werbeinhalt_ROTATION_SKY = $SkyScraper;
     } else {
       $BannerStr = $Werbeinhalt_ROTATION_BANNER;
       $Werbeinhalt_HOMEPAGE_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
       $Werbeinhalt_ROTATION_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";

     }

   }
     
   printf '<td width="100%" align="left"><div style="margin-left:30px">'.$BannerStr.'</div></td>'."\n";
#   printf '<td><div class="text" style="text-align:center;font-size:9pt">Layout &amp; Design:<br><a href="http://www.textdesign-bittner.de"><img src="/Bilder/bittner.gif" alt="johannes bittner text&amp;design" width="153" height="57" hspace="5" border="0"></a></div></td>'."\n";
   printf '<td valign="top" align=right><div class="top">'."\n";
   for (@RandLineStr) {
      printf $_;
   }
   printf "</div></td>\n";
   printf "</tr>\n</table>\n";
}
sub Navigationsausgabe
{
   print '<table width="100%" style="margin-top:1px" bgcolor="#376FA6" border="0" cellspacing=0 cellpadding=0>'."\n";
   for (@NavigationsausgabeAr)
   {printf $_;};
   #if ($Rev == 0) {
     printf "</table>\n";
   #}
}

sub Datumsausgabe
{
  printf <<__HTML
<table width="100%" style="margin-top:1px" bgcolor="#376FA6" border="0" cellspacing=0 cellpadding=0>
<!-- Weisse Zwischenlinie -->
<tr>
        <td colspan="2" align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0"'."\align="top"></td>
</tr>
<!-- Fuss-Leiste -->
<tr>
        <td height="18" bgcolor="#E8F3FD"><div align="left" class="tiny" style="margin-left: 10px;">$Datum
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Layout &amp; Design: <a href=\"http://www.textdesign-bittner.de\">textdesign-bittner.de</a></div></td>
<td align="right" bgcolor="#E8F3FD" ><div align="right" class="tiny" style="margin-right: 10px;"><a href=\"http://www.quaeldich.de/Wir.shtml\">Impressum</a>
	    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:jan\@quaeldich.de?subject=quaeldich.de: (hier Betreff einfügen)">Jan Sahner</a></div>
        </td>
</tr>
</table>
__HTML
;
}


<table width="100%" border=0><tr bgcolor=ghostwhite><td><h1>Die Zentralschweiz</h1></td><td align=center><a href="../../../../Bilder.pl?Album=Regionen/Alpen/Schweiz/Zentralschweiz/Album.pht|Fotoalbum+Zentralschweiz|Regionen/Alpen/Schweiz/Zentralschweiz/Zentralschweiz.shtml|Beschreibung+der+Zentralschweiz">Fotoalbum: <img src="../../../../Bilder/Foto20.gif" align="top" width="30" height="20" border="0" alt="Fotoalbum des Engadin"></a></td><td align=right><font size=1>Foto: Blick vom Oberalppass &uuml;ber Andermatt auf den Furkapass</font></td></tr></table>
<div style="text-align:justify">
<a href="../../../../Touren/Sommertour2001/Tag6/05HighspeedAbfahrtOberalpMitBlickAufDenFurkapass.jpg"><img src="../../../../Touren/Sommertour2001/Tag6/05HighspeedAbfahrtOberalpMitBlickAufDenFurkapasskl.jpg" align=right width="350" height="219" border="0" alt=""></a>
Mit Zentralschweiz bezeichnet man das Gebiet rund um Andermatt (1440 m) im Kanton Uri. Die Zentralschweiz ist ein
wahres Dorado f&uuml;r P&auml;ssefahrer. Direkt von Andermatt kann man den <a href="../../../../Bergengine.pl?Pass=Furkapass">Furkapass</a> (2436 m) im Westen,
den <a href="../../../../Bergengine.pl?Pass=St.+Gotthardpass">St. Gotthardpass</a> (2109 m) im S&uuml;den und den
<a href="../../../../Bergengine.pl?Pass=Oberalppass">Oberalppass</a> (2046 m) im Osten erreichen, der direkt
in Andermatt seinen Ausgang nimmt; drei kantonale
Grenzp&auml;sse, die ins Wallis, ins Tessin und nach Graub&uuml;nden f&uuml;hren. Aus Richtung Norden ist Andermatt nur
&uuml;ber die <a href="../../../../Bergengine.pl?Pass=Sch&ouml;llenenschlucht">Sch&ouml;llenenschlucht</a> erreichbar, die
Andermatt an den Rest des Kantons Uri anbindet.<br>
Weitere Orte in der Hochebene um Andermatt sind Hospental (1452 m), Fu&szlig;punkt des <a href="../../../../Bergengine.pl?Pass=St.+Gotthardpass">Gotthardpasses</a>,
und Realp (1543 m), &uuml;ber das die ersten Kehren des <a href="../../../../Bergengine.pl?Pass=Furkapass">Furkapasses</a> wachen.<br>
<br>
Doch diese drei P&auml;sse kann man &uuml;ber vier weitere zu <b>vier Rundtouren</b> kombinieren, und zwar
&uuml;ber den <a href="../../../../Bergengine.pl?Pass=Sustenpass">Sustenpass</a> (2224 m), den <a href="../../../../Bergengine.pl?Pass=Grimselpass">Grimselpass</a> (2165 m),
den <a href="../../../../Bergengine.pl?Pass=Nufenenpass">Nufenenpass</a> (2478 m) und den <a href="../../../../Bergengine.pl?Pass=Lukmanier">Lukmanier</a> (1915 m).<br>
F&uuml;r die <b>Nordschleife</b> (<a href="../../../../Touren/SustenFurkaGrimsel01/Bericht.shtml">Bericht</a> 2001 in anderer Richtung) f&auml;hrt man die Sch&ouml;llenschlucht hinunter nach Wassen, nimmt den Sustenpass,
der parallel zum Furkapass liegt, und nimmt am jenseitigen Fu&szlig;punkt Innertkirchen die Bergfahrt
wieder den Grimselpass hinauf in Angriff, der in Gletsch auf der Auffahrt zum Furkapass endet, &uuml;ber den man wiederum Andermatt erreicht.<br>
Die <b>S&uuml;dwestschleife</b> (die kurze Strecke beim allj&auml;hrlichen  Alpenbrevet Andermatt) f&auml;hrt den Furkapass zuerst, dann aber &uuml;ber Gletsch hinaus nach Ulrichen,
wo man nach Osten, zum zweith&ouml;chsten schweizer Pass, dem Nufenenpass abbiegt, der einen nach Airolo ins Tessin
f&uuml;hrt. Von hier erreicht man &uuml;ber den St. Gotthardpass Andermatt, vorzugsweise &uuml;ber das sagenumwobene Val Tremola.<br>
Die <b>S&uuml;dostschleife</b> (die mittlere Strecke beim Alpenbrevet Andermatt, <a href="../../../../Touren/Alpenbrevet1999/Alpenbrevet99.shtml">Bericht</a> 1999) f&uuml;hrt zum Einstieg &uuml;ber den Oberalppass ins graub&uuml;ndener Disentis. Hier folgen
wir dem Lukmanier nach S&uuml;den, ins Tessin. In Biasca angekommen f&uuml;hrt uns die St. Gotthardstra&szlig;e
bis Airolo, von wo aus wir wiederum den St. Gotthardpass in Angriff nehmen, der uns zum Anfangsort Andermatt zur&uuml;ckf&uuml;hrt.<br>
Eine <b>vierte M&ouml;glichkeit</b> soll wegen der Popularit&auml;t nicht verschwiegen werden:
Das gro&szlig;e Alpenbrevet Andermatt (<a href="../../../../Alpenbrevet2000/Bericht.shtml">Bericht 2000</a>) f&uuml;hrt &uuml;ber
Oberalppass, Lukmanier, Nufenenpass, Furkapass. Eine Runde mit 4776 Hm und 212 km.

</div>
#!/usr/bin/perl
# Engine zum Erstellen von dynamischen Headern fuer quaeldich.de Seiten
# Jan Sahner September 2002
push (@INC, './Club');
push (@INC, 'Club');
push (@INC, '../Club');
push (@INC, './Bergengine');
push (@INC, './Bergengine/PLAdmin');
require $ENV{'DOCUMENT_ROOT'}.'/Club/Club.pm';
require $ENV{'DOCUMENT_ROOT'}.'/Bergengine/PLAdmin/generalFns.pm';
   if ($ComeFromElsewhere == 0)
   {
      &Eingabe;
      &HeaderCheckClub();
   }
   else {$ID=~s/\+/ /g;}
if (index($ID, "Wochentouren")>=0 || index($ID, "Tagestouren")>=0) {
  require  $ENV{'DOCUMENT_ROOT'}.'/Bergengine/PLAdmin/TourenFns2.pm';
}
srand;                      # not needed for 5.004 and later
$NavRandInd   = rand(10);
$PLBanner=$BikeSideBanner;

$TrikotSky = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/Sommer2007Sky_160.jpg\" border=\"0\"/></a>";
$WHHSky = "<a href=\"http://www.diego06.de/?pid=1556\"><img src=\"http://www.quaeldich.de/Bilder/diego_SkyScraper.gif\" border=\"0\" target=\"_new\"/></a>";

$SkyScraper = $TrikotSky;

if ($NavRandInd <5) {
  $DiskussionsBanner=$BikeSideBanner;
} else {
  $NavRandIndQD=rand(12);
  if ($NavRandIndQD < 6) {
    $DiskussionsBanner=$TrikotBanner;
    $PLBanner=$TrikotBanner;
  }else {
    $DiskussionsBanner=$TrikotBanner;#$DreiLTBanner;
    $PLBanner=$TrikotBanner;#$DreiLTBanner;
  }
}

$IndexBanner=$CitecBanner;
if (0 && $ENV{"HTTPS"}==0) {
$Werbeinhalt_HOMEPAGE_SKY = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 120x600 ------>
<table cellspacing="0" cellpadding="0" border="0" width="120" height="600"><tr>
<td valign="top" border="0" width="120" height="600">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/homepage_sky;sz=120x600;tile=2;ord=1234567890?" border="0" width="120" height="600">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 120x600  ------>
__ADLINK
  ;
$Werbeinhalt_HOMEPAGE_BANNER = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 468x60 ------>
<table cellspacing="0" cellpadding="0" border="0" width="468" height="60"><tr>
<td valign="top" border="0" width="468" height="60">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/homepage;sz=468x60;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/homepage;sz=468x60;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/homepage;sz=468x60;ord=1234567890?" border="0" width="468" height="60">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 468x60  ------>
__ADLINK
;

$Werbeinhalt_ROTATION_SKY = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 120x600 ------>
<table cellspacing="0" cellpadding="0" border="0" width="120" height="600"><tr>
<td valign="top" border="0" width="120" height="600">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/rotation_sky;sz=120x600;tile=2;ord=1234567890?" border="0" width="120" height="600">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 120x600  ------>
__ADLINK
;
$Werbeinhalt_ROTATION_BANNER = <<__ADLINK
<!------- Start of Ad'LINK ADJ Tag - Javascript Format , size : 468x60 ------>
<table cellspacing="0" cellpadding="0" border="0" width="468" height="60" style="margin-left:30px"><tr>
<td valign="top" border="0" width="468" height="60">
<script language="JavaScript">
   if(typeof(adlink_randomnumber)=="undefined"){var adlink_randomnumber=Math.floor(Math.random()*10000000000)}
   document.write('<scr'+'ipt language="JavaScript" src="http://ad.de.doubleclick.net/adj/quaeldich.de/rotation;sz=468x60;ord='+adlink_randomnumber+'?"><\/scr'+'ipt>');
</script><noscript>
<a href="http://ad.de.doubleclick.net/jump/quaeldich.de/rotation;sz=468x60;ord=1234567890?" target="_blank">
<img src="http://ad.de.doubleclick.net/ad/quaeldich.de/rotation;sz=468x60;ord=1234567890?" border="0" width="468" height="60">
</a></noscript></td></tr></table>
<!------- End of Ad'LINK ADJ Tag - Javascript Format, size : 468x60  ------>
__ADLINK
;
}

     my $NavRandIndQDHP=rand(12);
     if (1 || $NavRandIndQDHP < 6) {
       $IndexBanner = $TrikotBanner;
       $Werbeinhalt_HOMEPAGE_SKY = $SkyScraper;
       $Werbeinhalt_ROTATION_SKY = $SkyScraper;
     } else {
       $IndexBanner=$Werbeinhalt_HOMEPAGE_BANNER;
       $Werbeinhalt_HOMEPAGE_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
       $Werbeinhalt_ROTATION_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
     }




#'<a href="/Kampagne/Kampagne.shtml"><img src="http://www.quaeldich.de/Bilder/Banner90.gif" width="426" height="80" border="0" alt=""></a>';
@FreundeLine = ("Alle","/Wir/Freunde.shtml","",\@Leer,"Armin","/Wir/Armin.shtml","",\@Leer,"Freddy","/Wir/Freddy.shtml","",\@Leer,"Johannes","/Wir/Johannes.shtml","",\@Leer,"Torsten","/Wir/Torsten.shtml","",\@Leer);
@WirLine = ("Alle","/Wir/Wir.shtml","",\@Leer,"Andy","/Wir/Andy.shtml","",\@Leer,"Jan","/Wir/Jan.shtml","",\@Leer,"Till","/Wir/Till.shtml","",\@Leer,"Tobi","/Wir/Tobi.shtml","",\@Leer,"Freunde","/Wir/Freunde.shtml","",\@FreundeLine);
#@RandLine = ("Wir","/Wir/Wir.shtml","",\@WirLine,"Neu","/Neu.shtml","",\@Leer,"Links","/Links.shtml",$Banner90,\@Leer,"Deine Seite hier","/Upload.shtml","",\@Leer);
#
$DagesStr = '<a href="http://www.zweirad-dages.de"><img src=""http://www.quaeldich.de/Bilder/dages.gif" alt="" width="165" height="90" border="0" align="left"></a>';
#$HinweisStr= '<td align=left><font size=2>Trag dich ein ins</font><br><font size=4><b><a href="/Forum/Gaestebuch.pl?Aktion=Liste">Gästebuch!</a></b></font></td>';
#$HinweisStr= '<a href="/Forum/Unterkunft.shtml"><img src="/Bilder/UnterkunftsringBesonders.gif" width="426" height="90" border="0" alt="Trag dich ein in den Unterkunftsring!"></a>';
#$Unterkunft= '<a href="/Forum/Unterkunft.pl?Aktion=NE"><img src="/Bilder/UnterkunftsringBesonders.gif" width="426" height="90" border="0" alt="Trag dich ein in den Unterkunftsring!"></a>';
@DiskussionsLine = ("Alle Einträge","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=0",$DiskussionsBanner,\@Leer,
		    "Technikforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=1",$DiskussionsBanner,\@Leer,
		    "Trainingsforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=2",$DiskussionsBanner,\@Leer,
		    "Reiseforum","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=3",$DiskussionsBanner,\@Leer,
		    "Sonstige Einträge","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=4",$DiskussionsBanner,\@Leer,
		    "Passkommentare","/Forum/Diskussion.pl?Aktion=Liste&RubrikID=5",$DiskussionsBanner,\@Leer,
		    "FAQ","/Forum/FAQ.shtml","",\@Leer,
		    "Neuer Eintrag","/Forum/Diskussion.pl?Aktion=NE",$DiskussionsBanner, \@Leer);
@GaestebuchLine = ("Ansicht","/Forum/Gaestebuch.shtml",$Banner90,\@Leer,"Neuer Eintrag","/Forum/GaestebuchNEU.shtml"," ",\@Leer);
@UnterkunftsringLine = ("Übersicht","/Forum/Unterkunftsring.shtml",$Unterkunft,\@Leer,"Alle Einträge","/Forum/Unterkunft.pl?Aktion=Liste&Sort=PLZ",$Unterkunft,\@Leer,"Suche","/Forum/UnterkunftsSuche.shtml",$Unterkunft,\@Leer,"Neuer Eintrag","/Forum/Unterkunft.pl?Aktion=NE"," ",\@Leer);
@HotelLine= ("Hotelliste","/Hotels/Hotels.pl?Aktion=Liste","",\@Leer,"Hotel anmelden","/Hotels/Hotels.pl?Aktion=TeilnahmeForm","",\@Leer);
@UnterkunftLine = ("Übersicht","/Forum/Unterkunft.shtml",$Unterkunft,\@Leer,"Hotels","/Hotels/Hotels.pl?Aktion=Liste",$Unterkunft,\@HotelLine,"Unterkunftsring","/Forum/Unterkunftsring.shtml",$Unterkunft,\@UnterkunftsringLine);
@TrKalLine = ("Übersicht","/Forum/TrKal.shtml","",\@Leer,"Diese Woche","/Forum/TrKal.pl?Wann=Woche","",\@Leer,"Diesen Monat","/Forum/TrKal.pl?Wann=Monat","",\@Leer,"Dieses Jahr","/Forum/TrKal.pl?Wann=Jahr","",\@Leer,"Suche","/Forum/TrSuche.shtml","",\@Leer,"Neuer Eintrag","/Forum/TrKalNE.shtml","",\@Leer);
@KlAnzLine = ("Übersicht", "/Forum/KlAnz.shtml","",\@Leer, "Suche","/Forum/KlAnz.pl?Aktion=Liste&Rubrik=Allgemein&SB=S","",\@Leer, "Biete","/Forum/KlAnz.pl?Aktion=Liste&Rubrik=Allgemein&SB=B","",\@Leer,"Neuer Eintrag","/Forum/KlAnzNE.shtml","",\@Leer);
@ForumLine = ("Übersicht", "/Forum/Forum.shtml",$DiskussionsBanner,\@Leer,"Diskussion","/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine,"Gästebuch","/Forum/Gaestebuch.shtml",$DiskussionsBanner,\@GaestebuchLine,"Kleinanzeigen","/Forum/KlAnz.shtml","",\@KlAnzLine, "Unterkunft","/Forum/Unterkunft.shtml","",\@UnterkunftLine,"Trainingskalender","/Forum/TrKal.shtml","",\@TrKalLine);
@ProfileLine = ("Übersicht", "/Paesselexikon/Profile.shtml", $PLBanner, \@Leer,
		"Hintergrund", "/Paesselexikon/ProfileKnowledge.shtml", $PLBanner, \@Leer);
@PaesselexikonLine = ("Übersicht","/Paesselexikon/Paesselexikon.shtml",$PLBanner,\@Leer,"Alle Pässe","/PaesseDirekt.shtml",$PLBanner,\@Leer,"Pässe suchen","/PassSuche.shtml",$PLBanner,\@Leer,"Tourenplaner","/Paesselexikon/Tourenplaner/Tourenplaner.shtml",$PLBanner,\@Leer,"Pässequartett", "/Paesselexikon/Quartett/Quartett.shtml",$PLBanner,\@Leer,"Alle Bilder","/Bilder.pl?Aktion=Detail&Pass=Photos",$PLBanner,\@Leer,"Höhenprofile", "/Paesselexikon/Profile.shtml", $PLBanner, \@ProfileLine, "Selbst mitwirken","/Paesselexikon/HowTo.shtml",$BikeSideBanner,\@Leer);
#"Trainingskalender"
if (index($ID, "Tagestouren") >=0) {
  @TagestourenLine = ("Übersicht","/Tagestouren.shtml","",\@Leer,"Zentralschweiztour 2001","/Touren/SustenFurkaGrimsel01/Bericht.shtml","",\@Leer,"Deutschlandtour 2001","/Touren/Deutschlandtour2001/Jedermann.shtml","",\@Leer,"2002","/Touren/Deutschlandtour2002/Jedermann.shtml","",\@Leer,"Andermatt 2000","/Alpenbrevet2000/Brevet.shtml","",\@Leer,"Ötztalmarathon 2000","/Touren/Barth/Oetztalmarathon2000/Oetztalmarathon2000.shtml","",\@Leer,"Andermatt 1999","/Touren/Alpenbrevet99/Alpenbrevet99.shtml","",\@Leer,"Bern Bodensee Bern 2001","/Touren/BBB/venetz.shtml","",\@Leer);
  &AlleTourenEinlesen("((Features & $Aktiv) != 0) and (vonDatum=bisDatum)", "bisDatum");
  my $iTr, $tH;
  for ($iTr=0; $iTr < @AlleTouren; $iTr++) {
    push(@TagestourenLine, $$AlleTouren[$iTr]{"Name"}, "/Touren/Touren.pl?TourHandle=$$AlleTouren[$iTr]{\"Handle\"}", "", \@Leer);
  }
}
if (index($ID, "Wochentouren")>=0) {
  @Mallorca01Line =("Ankunft","/Touren/Mallorca01/Ankunft.shtml","",\@Leer,"Tag 1","/Touren/Mallorca01/Tag1.shtml","",\@Leer,"Tag 2","/Touren/Mallorca01/Tag2.shtml","",\@Leer,"Tag 3","/Touren/Mallorca01/Tag3.shtml","",\@Leer,"Tag 4","/Touren/Mallorca01/Tag4.shtml","",\@Leer,"Tag 5","/Touren/Mallorca01/Tag5.shtml","",\@Leer,"Tag 6","/Touren/Mallorca01/Tag6.shtml","",\@Leer,"Tag 7","/Touren/Mallorca01/Tag7.shtml","",\@Leer,"Tag 8","/Touren/Mallorca01/Tag8.shtml","",\@Leer);
  @BarthJuniLine = ("Tag 1","/Touren/Barth/Juni2000/Tag1.shtml","",\@Leer, "Tage 2 und 3","/Touren/Barth/Juni2000/Tag23.shtml","",\@Leer, "Tag 4","/Touren/Barth/Juni2000/Tag4.shtml","",\@Leer, "Tage 5 und 6","/Touren/Barth/Juni2000/Tag56.shtml","",\@Leer, "Tag 7 und Heimreise","/Touren/Barth/Juni2000/Tag78.shtml","",\@Leer, "Team Roßtal","/Touren/Barth/Juni2000/TeamRoßtal.shtml","",\@Leer);
  @BarthSommerLine = ("Tage 1 und 2","/Touren/Barth/Sommer2000/Tag12.shtml","",\@Leer, "Tage 3 und 4","/Touren/Barth/Sommer2000/Tag34.shtml","",\@Leer, "Tage 5 und 6","/Touren/Barth/Sommer2000/Tag56.shtml","",\@Leer, "Tage 7, 8 und 9","/Touren/Barth/Sommer2000/Tag789.shtml","",\@Leer, "Tage 10 und 11","/Touren/Barth/Sommer2000/Tag1011.shtml","",\@Leer, "Team Roßtal","/Touren/Barth/Juni2000/TeamRoßtal.shtml","",\@Leer);
  @TandemLine = ("Team","/Touren/Tandemtour/Team.shtml","",\@Leer,"Etappe 1","/Touren/Tandemtour/Etappe1.shtml","",\@Leer,"Etappe 2","/Touren/Tandemtour/Etappe2.shtml","",\@Leer,"Etappe 3","/Touren/Tandemtour/Etappe3.shtml","",\@Leer,"Etappe 4","/Touren/Tandemtour/Etappe4.shtml","",\@Leer,"Etappe 5","/Touren/Tandemtour/Etappe5.shtml","",\@Leer,"Etappe 6","/Touren/Tandemtour/Etappe6.shtml","",\@Leer,"Etappe 7","/Touren/Tandemtour/Etappe7.shtml","",\@Leer,"Etappe 8","/Touren/Tandemtour/Etappe8.shtml","",\@Leer,"Etappe 9","/Touren/Tandemtour/Etappe9.shtml","",\@Leer,"Etappe 10","/Touren/Tandemtour/Etappe10.shtml","",\@Leer,"Etappe 11","/Touren/Tandemtour/Etappe11.shtml","",\@Leer,"Etappe 12","/Touren/Tandemtour/Etappe12.shtml","",\@Leer,"Etappe 13","/Touren/Tandemtour/Etappe13.shtml","",\@Leer,"Etappe 14","/Touren/Tandemtour/Etappe14.shtml","",\@Leer,"Fotoalbum","/Bilder.pl?Album=Touren/Tandemtour/Bilder/Alle.pht|Tandemtour+2001|/Touren/Tandemtour/Etappe1.shtml|Beschreibung+der+Tandemtour&Target=Tourenberichte|Wochentouren|Tandemtransalp|Fotoalbum","",\@Leer);
  @ProvenceLine = ("Rolf Schödel","/Touren/Schoedel/Provence1999/Team.shtml","",\@Leer,
		   "Etappe 1","/Touren/Schoedel/Provence1999/Etappe01.shtml","",\@Leer,
		   "Etappe 2","/Touren/Schoedel/Provence1999/Etappe02.shtml","",\@Leer,
		   "Etappe 3","/Touren/Schoedel/Provence1999/Etappe03.shtml","",\@Leer,
		   "Etappe 4","/Touren/Schoedel/Provence1999/Etappe04.shtml","",\@Leer,
		   "Etappe 5","/Touren/Schoedel/Provence1999/Etappe05.shtml","",\@Leer,
		   "Etappe 6","/Touren/Schoedel/Provence1999/Etappe06.shtml","",\@Leer,
		   "Etappe 7","/Touren/Schoedel/Provence1999/Etappe07.shtml","",\@Leer,
		   "Etappe 8","/Touren/Schoedel/Provence1999/Etappe08.shtml","",\@Leer,
		   "Etappe 9","/Touren/Schoedel/Provence1999/Etappe09.shtml","",\@Leer,
		   "Etappe 10","/Touren/Schoedel/Provence1999/Etappe10.shtml","",\@Leer,
		   "Etappe 11","/Touren/Schoedel/Provence1999/Etappe11.shtml","",\@Leer,
		   "Etappe 12","/Touren/Schoedel/Provence1999/Etappe12.shtml","",\@Leer,
		   "Fotoalbum","/Bilder.pl?Album=Touren/Schoedel/Provence1999/Bilder/Alle.pht|Provencetour+1999|/Touren/Schoedel/Provence1999/Etappe01.shtml|Beschreibung+der+Provencetour&Target=Tourenberichte|Wochentouren|Provence 99|Fotoalbum","",\@Leer);
  @Dolomiten2002 = ("Tage 1 und 2","/Touren/Barth/DolomitenMai2002/Tag12.shtml","",\@Leer,
		    "Tage 3 und 4","/Touren/Barth/DolomitenMai2002/Tag34.shtml","",\@Leer,
		    "Tag 5","/Touren/Barth/DolomitenMai2002/Tag5.shtml","",\@Leer,
		    "Tage 6, 7, 8","/Touren/Barth/DolomitenMai2002/Tag678.shtml","",\@Leer,
		    "Fotoalbum","/Bilder.pl?Album=Touren/Barth/DolomitenMai2002/Bilder/AlbumGesamt.pht|Dolomitentour+Team+Rosstal,+Mai+2002|/Touren/Barth/DolomitenMai2002/Tag678.shtml|Beschreibung+Tage+6, 7, 8&Target=Tourenberichte|Wochentouren|Dolomiten 2002|Fotoalbum","",\@Leer,
		    "Team Ro&szlig;tal","/Touren/Barth/DolomitenMai2002/TeamRosstal.shtml","",\@Leer);
  @Lombardei2002 = ("Tag 1","/Touren/Barth/LombardiaAugust2002/Tag1.shtml","",\@Leer,
		    "Tage 2 und 3","/Touren/Barth/LombardiaAugust2002/Tag23.shtml","",\@Leer,
		    "Tage 4 und 5","/Touren/Barth/LombardiaAugust2002/Tag45.shtml","",\@Leer,
		    "Tage 6 und 7","/Touren/Barth/LombardiaAugust2002/Tag67.shtml","",\@Leer,
		    "Fotoalbum","/Bilder.pl?Album=Touren/Barth/LombardiaAugust2002/Bilder/AlbumGesamt.pht|Lombardeitour+Team+Rosstal,+August+2002|/Touren/Barth/LombardiaAugust2002/Tag1.shtml|Beschreibung+Tag+1&Target=Tourenberichte|Wochentouren|Dolomiten 2002|Fotoalbum","",\@Leer,
		    "Team Ro&szlig;tal","/Touren/Barth/LombardeiAugust2002/TeamRosstal.shtml","",\@Leer);
  @Frankreich2001 = ("Tag 1","/Touren/Barth/Frankreich2001/Tag1.shtml","",\@Leer,
		     "Tage 2 und 3","/Touren/Barth/Frankreich2001/Tag23.shtml","",\@Leer,
		     "Tage 4 und 5","/Touren/Barth/Frankreich2001/Tag45.shtml","",\@Leer,
		     "Tage 6 und 7","/Touren/Barth/Frankreich2001/Tag67.shtml","",\@Leer,
		     "Tage 8 und 9","/Touren/Barth/Frankreich2001/Tag89.shtml","",\@Leer,
		     "Tage 10 und 11","/Touren/Barth/Frankreich2001/Tag1011.shtml","",\@Leer,
		     "Tage 12 und 13","/Touren/Barth/Frankreich2001/Tag1213.shtml","",\@Leer,
		     "Fotoalbum","/Bilder.pl?Album=Touren/Barth/LombardiaAugust2002/Bilder/AlbumGesamt.pht|Team+Rosstal+Frankreich+2001|/Touren/Barth/Frankreich2001/Tag1.shtml|Beschreibung+Tag+1&Target=Tourenberichte|Wochentouren|Frankreich 2001|Fotoalbum","",\@Leer,
		     "Team Ro&szlig;tal","/Touren/Barth/Frankreich2001/TeamRosstal.shtml","",\@Leer);
  @Zentralschweiz2002 = ("Tag 1","/Touren/Jungwirth/Zentralschweiz/tag1.shtml","",\@Leer,
			 "Tag 2","/Touren/Jungwirth/Zentralschweiz/tag2.shtml","",\@Leer,
			 "Tag 3","/Touren/Jungwirth/Zentralschweiz/tag3.shtml","",\@Leer,
			 "Tag 4","/Touren/Jungwirth/Zentralschweiz/tag4.shtml","",\@Leer);
  @Pyrenaeen02 = ("Planung","/Touren/Pyrenaeen02/Abstrakt.shtml","",\@Leer,"Anreise","/Touren/Pyrenaeen02/Tag0.shtml","",\@Leer,
		  "Tag 1","/Touren/Pyrenaeen02/Tag1.shtml","",\@Leer,
		  "Tag 2","/Touren/Pyrenaeen02/Tag2.shtml","",\@Leer,
		  "Tag 3","/Touren/Pyrenaeen02/Tag3.shtml","",\@Leer,
		  "Tag 4","/Touren/Pyrenaeen02/Tag4.shtml","",\@Leer,
		  "Tag 5","/Touren/Pyrenaeen02/Tag5.shtml","",\@Leer,
		  "Tag 6","/Touren/Pyrenaeen02/Tag6.shtml","",\@Leer,
		  "Tag 7","/Touren/Pyrenaeen02/Tag7.shtml","",\@Leer,
		  "Tag 8","/Touren/Pyrenaeen02/Tag8.shtml","",\@Leer,
		  "Tag 9","/Touren/Pyrenaeen02/Tag9.shtml","",\@Leer,
		  "Abreise","/Touren/Pyrenaeen02/Tag10.shtml","",\@Leer);
  @WochentourenLine = ("Übersicht","/Wochentouren.shtml","",\@Leer,"Frankreich 98","/France/haupt.html","",\@Leer, "Schwarzwald 99", "/Touren/Pfingsttour99/Tag0.html","",\@Leer,"Dolomiten 99","/Italia/haupt.html","",\@Leer,"13 Pässetour 99", "/Touren/13Paessetour99/Planung.html","",\@Leer,"Provence 99","/Touren/Schoedel/Provence1999/Etappe01.shtml","",\@ProvenceLine,"Team Roßtal Juni 2000","/Touren/Barth/Juni2000/Tag1.shtml","",\@BarthJuniLine, "Team Roßtal Sommer 2000","/Touren/Barth/Sommer2000/Tag12.shtml","",\@BarthSommerLine, "Frankreich 2000", "/France2000/Tag0.html","",\@Leer,"Tandemtransalp","/Touren/Tandemtour/Etappe1.shtml","",\@TandemLine,"Frankreich 2001","/Touren/Barth/Frankreich2001/Tag1.shtml","",\@Frankreich2001,"Sommertour 2001","/Touren/Sommertour2001/Abstrakt.shtml","",\@Leer,"Mallorca 2001","/Touren/Mallorca01/Ankunft.shtml","",\@Mallorca01Line,"Dolomiten 2002", "/Touren/Barth/DolomitenMai2002/Tag12.shtml","",\@Dolomiten2002, "Zentralschweiz 2002", "/Touren/Jungwirth/Zentralschweiz/tag1.shtml","",\@Zentralschweiz2002,"Lombardei 2002", "/Touren/Barth/LombardiaAugust2002/Tag1.shtml","",\@Lombardei2002,"Pyrenäen 2002", "/Touren/Pyrenaeen02/Abstrakt.shtml","",\@Pyrenaeen02);  
  
  
  &AlleTourenEinlesen("((Features & $Aktiv) != 0) and (vonDatum<bisDatum)", "bisDatum");
  my $iTr, $iTg, $tH;
  for ($iTr=0; $iTr < @AlleTouren; $iTr++) {
    &wennTourExistiertDannEinlesen($$AlleTouren[$iTr]{"Handle"},"",1);
    $tH=$$AlleTouren[$iTr]{"Handle"};
    # nun TourenLine erstellen. Dies ist bei Wochentouren immer noetig
    # TourenLine erhaelt den Namen @$tH
    @$tH=@Leer;
    push(@$tH, "Übersicht","/Touren/Touren.pl?TourHandle=$tH", "", \@Leer);
    for ($iTg=0; $iTg < @Tage; $iTg++) {
      push(@$tH, $$Tage[$iTg]{"Name"}, "/Touren/Touren.pl?TourHandle=$tH&TagHandle=$$Tage[$iTg]{\"Handle\"}","",\@Leer);
    }
    push(@WochentourenLine, $$AlleTouren[$iTr]{"Name"}, "/Touren/Touren.pl?TourHandle=$tH", "", \@$tH);
  }
}
@TourenLine = ("Übersicht","/Touren.shtml","",\@Leer,"Wochentouren","/Wochentouren.shtml","",\@WochentourenLine,"Tagestouren","/Tagestouren.shtml","",\@TagestourenLine, "Marathons", "/Marathons/Marathons.pl","",\@Leer, "Alpentouren-Know-How","/Regionen/Alpen/Alpentipps.shtml","", \@Leer);
@AllgaeuLine=("Übersicht", "/Deutschland/Allgaeu/Allgaeu.shtml","",\@Leer,"Pässe","/Deutschland/Allgaeu/Paesse.shtml","",\@Leer);
@SiebengebirgeLine = ("Siebengebirge","/Deutschland/Siebengebirge/Siebengebirge.shtml","",\@Leer,"Touren", "/Deutschland/Siebengebirge/Touren.shtml","",\@Leer, "Karte", "/Bergengine/Deutschland/Karten/Siebengebirge.jpg","",\@Leer);
@SchwarzwaldLine = ("Übersicht","/Deutschland/Schwarzwald/Schwarzwald.shtml",$DagesStr,\@Leer,"Leitartikel","/Deutschland/Schwarzwald/Kandeltour.shtml",$DagesStr,\@Leer,"Berge","/Deutschland/Schwarzwald/Paesse.shtml",$DagesStr,\@Leer,"Touren","/Deutschland/Schwarzwald/Touren.shtml",$DagesStr,\@Leer,"Pfingsttour 1999","/Touren/Pfingsttour99/Tag0.html","",\@Leer,"Silvesterfahrt Kandel 2000","/Deutschland/Schwarzwald/BerichtSilvester2000.shtml",$DagesStr,\@Leer,"2001","/Deutschland/Schwarzwald/BerichtSilvester2001.shtml",$DagesStr,\@Leer,"Karte","/Bergengine/Deutschland/Karten/Schwarzwald.jpg","",\@Leer);
@EifelLine = ("Übersicht","/Deutschland/Eifel/Eifel.shtml","",\@Leer,"Touren","/Deutschland/Eifel/Touren.shtml","",\@Leer);
@DeutschlandLine = ("Übersicht","/Deutschland/Deutschland.shtml",$Banner90,\@Leer,"Allgäu","/Deutschland/Allgaeu/Allgaeu.shtml","",\@AllgaeuLine,"Eifel","/Deutschland/Eifel/Eifel.shtml","",\@EifelLine,"Rhön", "/Deutschland/Rhoen/Rhoen.shtml", "", \@Leer, "Schwarzwald","/Deutschland/Schwarzwald/Schwarzwald.shtml",$DagesStr,\@SchwarzwaldLine,"Odenwald","/Deutschland/Odenwald/Odenwald.shtml","",\@Leer,"Siebengebirge","/Deutschland/Siebengebirge/Siebengebirge.shtml","",\@SiebengebirgeLine, "Spessart", "/Deutschland/Spessart/Spessart.shtml", "", \@Leer);

@TrikotLine = ("Bestellung","/Kampagne/Trikots.shtml",$BestellBanner,\@Leer,"Galerie","/Bilder.pl?AlbumID=40","",\@Leer);

@KampagneLine = ("Übersicht","/Kampagne/Kampagne.shtml","",\@Leer,"Shirts","/Kampagne/TShirt.shtml","",\@Leer,"Trikots","/Kampagne/Trikots.shtml",$BestellBanner,\@TrikotLine);
@MagazinLine =("Übersicht","/Magazin/Magazin.shtml","",\@Leer,"Der erste Pass","/Magazin/ErsterPass.shtml","",\@Leer,"Im Rausch","/Magazin/StilfserJoch.shtml","",\@Leer,"Kampf gegen die Uhr","/Magazin/7Paesse.shtml","",\@Leer,"Vollmond","/Magazin/Vollmond.shtml","",\@Leer);
@VogesenLine = ("Übersicht","/Regionen/Vogesen/Vogesen.shtml","",\@Leer,"Kennenlerntour","/Regionen/Vogesen/TourTurckheim.shtml","",\@Leer);
@AlpenOesterreichLine = ("Übersicht","/Regionen/Alpen/Oesterreich/Oesterreich.shtml","",\@Leer,
			 "Pässe","/Regionen/Alpen/Oesterreich/Paesse.shtml","",\@Leer,
			 "Touren","/Regionen/Alpen/Oesterreich/Touren.shtml","",\@Leer,
			 "Vorarlberg","/Regionen/Alpen/Oesterreich/Vorarlberg.shtml","",\@Leer,
			 "Tirol","/Regionen/Alpen/Oesterreich/Tirol.shtml","",\@Leer
			);
@AlpenFrankreichLine = ("Übersicht","/Regionen/Alpen/Frankreich/Frankreich.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Frankreich/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Frankreich/Touren.shtml","",\@Leer);
@AlpenItalienLine = ("Übersicht","/Regionen/Alpen/Italien/Italien.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Italien/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Italien/Touren.shtml","",\@Leer,"Dolomiten","/Regionen/Alpen/Italien/Dolomiten/Dolomiten.shtml","",\@Leer);
@AlpenSchweizLine = ("Übersicht","/Regionen/Alpen/Schweiz/Schweiz.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Schweiz/Paesse.shtml","",\@Leer,"Touren","/Regionen/Alpen/Schweiz/Touren.shtml","",\@Leer,"Engadin","/Regionen/Alpen/Schweiz/Engadin/Engadin.shtml","",\@Leer,"Zentralschweiz","/Regionen/Alpen/Schweiz/Zentralschweiz/Zentralschweiz.shtml","",\@Leer);
@AlpenLine = ("Übersicht","/Regionen/Alpen/Alpen.shtml","",\@Leer,"Pässe","/Regionen/Alpen/Paesse.shtml","",\@Leer,"Alpentouren-Know-How","/Regionen/Alpen/Alpentipps.shtml","",\@Leer,"Schweiz","/Regionen/Alpen/Schweiz/Schweiz.shtml","",\@AlpenSchweizLine,"Frankreich","/Regionen/Alpen/Frankreich/Frankreich.shtml","",\@AlpenFrankreichLine,"Italien","/Regionen/Alpen/Italien/Italien.shtml","",\@AlpenItalienLine,"Österreich","/Regionen/Alpen/Oesterreich/Oesterreich.shtml","",\@AlpenOesterreichLine);
@SchweizerJuraLine = ("Übersicht","/Regionen/SchweizerJura/SchweizerJura.shtml","",\@Leer,"Pässe","/Regionen/SchweizerJura/Paesse.shtml","",\@Leer,"Brevier","/Regionen/SchweizerJura/Brevier.shtml","",\@Leer);
@KorsikaLine = ("Übersicht","/Regionen/Korsika/Korsika.shtml","",\@Leer,"Pässe","/Regionen/Korsika/Paesse.shtml","",\@Leer);
@KatalonienLine = ("Übersicht","/Regionen/Katalonien/Katalonien.shtml","",\@Leer,"Pässe","/Regionen/Katalonien/Paesse.shtml","",\@Leer,"Brevier","/Regionen/Katalonien/Brevier.shtml","",\@Leer);
@PyrenaeenLine = ("Übersicht","/Regionen/Pyrenaeen/Pyrenaeen.shtml","",\@Leer,"Pässe","/Regionen/Pyrenaeen/Paesse.shtml","",\@Leer,"Brevier","/Regionen/Pyrenaeen/Brevier.shtml","",\@Leer);
@RegionenLine =("Übersicht","/Regionen/Regionen.shtml","",\@Leer,"Alpen","/Regionen/Alpen/Alpen.shtml","",\@AlpenLine,"Pyrenäen","/Regionen/Pyrenaeen/Pyrenaeen.shtml","",\@PyrenaeenLine,"Katalonien","/Regionen/Katalonien/Katalonien.shtml","",\@KatalonienLine,"Deutschland","/Deutschland/Deutschland.shtml","",\@DeutschlandLine,"Schweizer Jura","/Regionen/SchweizerJura/SchweizerJura.shtml","",\@SchweizerJuraLine,"Mallorca","/Regionen/Mallorca/Mallorca.shtml","",\@Leer,"Korsika","/Regionen/Korsika/Korsika.shtml","",\@KorsikaLine,"Vogesen","/Regionen/Vogesen/Vogesen.shtml","",\@VogesenLine);
@IndexLine = ("Willkommen","http://www.quaeldich.de/Willkommen.shtml",$IndexBanner,\@Leer,
                    "qu&auml;ldich-Guide", "http://www.quaeldich.de/Locations.pl", "", \@Leer, 
                    "Pässelexikon","http://www.quaeldich.de/Locations.pl?Aktion=Paesse",$PLBanner,\@Leer, 
                    "Trainingstreff","http://www.quaeldich.de/Training.php","",\@Leer, "Tourentipps",
                    "http://www.quaeldich.de/Locations.pl?Aktion=Tourentipps","",\@Leer,
                    "Tourenplaner","http://tourenplaner.quaeldich.de/","",\@Leer,
                    "1.000.000mal dopingfrei!","http://dopingfrei.quaeldich.de/","",\@Leer, 
		    "Shop","http://www.quaeldich.de/shop",$Banner90,\@KampagneLine,
                    "Gästebuch","http://www.quaeldich.de/Forum/Gaestebuch.shtml","",\@GaestebuchLine,
                    "Diskussion","http://www.quaeldich.de/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine);
#@IndexLine = ("Willkommen","/Willkommen.shtml",$IndexBanner,\@Leer,"Pässelexikon","/Paesselexikon/Paesselexikon.shtml",$PLBanner,\@PaesselexikonLine,"Regionen", "/Regionen/Regionen.shtml","",\@RegionenLine,"Tourenberichte","/Touren.shtml","",\@TourenLine,"Magazin","/Magazin/Magazin.shtml","",\@MagazinLine,"Kleidung","/Kampagne/Kampagne.shtml",$Banner90,\@KampagneLine,"Kleinanzeigen","/Forum/KlAnz.shtml","",\@KlAnzLine,"Training","/Forum/TrKal.shtml","",\@TrKalLine,"Unterkunft","/Forum/Unterkunft.shtml","",\@UnterkunftLine,"Gästebuch","/Forum/Gaestebuch.shtml","",\@GaestebuchLine,"Diskussion","/Forum/Diskussion.shtml",$DiskussionsBanner,\@DiskussionsLine);
   $HLC="#FFA500";

   #if (index($ID, "Pässelexikon",0) != -1){$HLC="#66CCFF";} else {if (index($ID,"Regionen",0)!=-1){$HLC="#C0C0C0";}}
   @IDBaum = split(/\|/, $ID);
   if ($ID eq "Willkommen") {
     $tdwidth="100%";
   } else {
     $tdwidth="90%";
   }
   if ($Rev == 0) {
     &quaeldichHTMLHeader();
#     $ClubEingeloggt++;
     &ClubZeile($ID);
#     $ClubEingeloggt--;
   }
   &Bannervorbereitung;
   &Navigationsvorbereitung;

   if ($Rev==0) {
      &Banner;
   } else {
     printf "<!-- Ende des Statischen Inhalts -->\n</div>\n</div>\n";
   }
#   } else {printf "<!-- Ende des Statischen Inhalts -->\n</td></tr></table></center>\n";}
   &Navigationsausgabe;

   if ($Rev)
   {
     # Nun rsn.com einbinden. 
#     if ($ID eq "Magazin|Übersicht") {
#       push(@INC,"c:/Sprachen/Perl/lib");
#       push(@INC,"c:/Sprachen/Perl/site/lib");
#       require LWP::UserAgent;
#       require HTTP::Request;
#       $URL="http://www.quaeldich.de/rsn.com.html";
#       $ua=LWP::UserAgent->new;
#       $request=HTTP::Request->new(GET=> $URL);
#       $response=$ua->request($request);
#       print $response->content;
#     }
      &Datumsausgabe;
      print <<__HTML
      <script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
      </script>
      <script type="text/javascript">
      _uacct = "UA-2212452-1"
      urchinTracker();
      </script>
__HTML
;
      print "</body>\n</html>\n";
   } else {
     my $Werbeinhalt="";
     if ($ID eq "Willkommen") {
       if (werbungErlauben($ID)) {
	 $Werbeinhalt = $Werbeinhalt_HOMEPAGE_SKY;
       }
       printf "<div style=\"width:990px\"><div style=\"width:160px;float:right;\">$Werbeinhalt</div><div style=\"width:800px;\">\n<!-- Anfang des statischen Inhalts -->\n";
     }
     else{
       if (werbungErlauben($ID)) {
	 $Werbeinhalt = $Werbeinhalt_ROTATION_SKY;
       }
       my $widthMain    = 1025 + $widthMainAdd;
       my $widthContent =  835 + $widthMainAdd;
       
       printf "<div style=\"width:$widthMain"."px\"><div style=\"width:160px;float:right;\">$Werbeinhalt</div><div style=\"width:$widthContent"."px;margin-left:15px;margin-right:15px\">\n<!-- Anfang des statischen Inhalts -->\n";
#       printf "<center><table cellpadding=\"0\" cellspacing=\"0\" width=\"$tdwidth\"><td><div>\n<!-- Anfang des statischen Inhalts -->\n";
     }
   }
sub werbungErlauben {
  my $ret=1;
  if (index($ID, "Shop") >= 0) {
    $ret = 0;
  }
  return $ret;
}
sub Eingabe
{
  if($ENV{'REQUEST_METHOD'} eq 'GET') {
    $Daten = $ENV{'QUERY_STRING'}
  } else {
    read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
  }
  @Formularfelder = split(/&/, $Daten);
  $i = 0;
  foreach $Feld (@Formularfelder) {
    ($name, $value) = split(/=/, $Feld);
    $value =~ s/\+/ /g;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|\n)*-->//g;
    if ($name eq "Rev"){$Rev=$value;} elsif
      ($name eq "Datum"){$Datum=$value;} elsif
	($name eq "Titel"){$Titel=$value;} elsif
	  ($name eq "ID"){$ID=$value;}
  }
}
sub Bannervorbereitung {
  for ($Index=0; 4*$Index < @RandLine; $Index ++) {
    $tmpStr = $RandLine[$Index*4];
    $tmpStr =~ s/ /&nbsp;/g;
    if ($IDBaum[0] ne $RandLine[$Index*4]) {
      $RandLineStr[$Index] = '<a id="top" href="'.$RandLine[$Index*4+1].'">'.$tmpStr."</a><br>\n";
    } else {
      $RandLineStr[$Index] = '<a class="tophi" href="'.$RandLine[$Index*4+1].'">'.$tmpStr."</a><br>\n";
      #'<span style="color:'.$HLC.'"><strong>'.$tmpStr."</strong></span><br>\n";
      if ($RandLine[4*$Index+2] ne "") {
	$BannerStr = $RandLine[4*$Index+2];
      }
      @NewLine = @{$RandLine[4*$Index+3]};
    }
  }
}

sub Navigationsvorbereitung {
  @NavigationsausgabeAr = @Ruecksetzung;
  @Line = @IndexLine;
  $AktZeile=0;
  for $AktZeilenStr (@IDBaum) {
    $NachfGef = 0;
    $Ausg = "";
    $Ausg = $Ausg."\n<tr>\n".'<td height="18">'."\n".'<div align="left" class="navig" style="margin-left:4px">'."\n";
    for ($Idx=0;$Idx < @Line/4; $Idx ++) {
	    $target = ($Line[4*$Idx] eq "Shop")?" target=\"qdshop\"":"";
      if ($AktZeilenStr eq $Line[4*$Idx]) {
	@NewLine = @{$Line[4*$Idx+3]};
            $Ausg = $Ausg.'<a name="Titel" class="tophi" href="'.$Line[4*$Idx+1].'"'."$target>".$Line[4*$Idx]."</a>";
	#'<span style="color:'.$HLC.'"><strong>'.$Line[4*$Idx]."</strong></span>";
	if ($Line[4*$Idx+2] ne "") {
	  $BannerStr = $Line[4*$Idx+2];
	}
	$NachfGef = 1;
      } else {
#	$Ausg = $Ausg.'<a name="Titel" class="navi" href="'.$Line[4*$Idx+1].'"><span style=":hover:Orange" style="color:white;">'.$Line[4*$Idx]."</span></a>";
	$Ausg = $Ausg.'<a name="Titel" class="navi" href="'.$Line[4*$Idx+1].'"'."$target>".$Line[4*$Idx]."</a>";
      }
      if (($Idx+1)*4 < @Line) {
	$Ausg = $Ausg." |\n";
      } else {
	$Ausg = $Ausg."\n";
      }
    }
    $Ausg = $Ausg."</div></td></tr>\n";
    push (@NavigationsausgabeAr,$Ausg);
    if ($AktZeile != @IDBaum - 1 || $AktZeile == 0) {
      $Ausg='<tr><td align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0" align="top"></td></tr>'."\n";
      push(@NavigationsausgabeAr,$Ausg);
      $Ausg = "<!-- Orangene Linie -->\n<tr>";
      $ThickOr = ($AktZeile == 0 ? "5":"3");
      $Ausg = $Ausg.'   <td align="center" bgcolor="'.$HLC.'"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="'.$ThickOr.'" border="0" align="top"></td>'."\n</tr>\n";
      push (@NavigationsausgabeAr,$Ausg);
      $Ausg='<tr><td align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0" align="top"></td></tr>'."\n";
      push(@NavigationsausgabeAr,$Ausg);
    }
    @Line = @NewLine;
    $AktZeile ++;
  }
  if ($Rev) {
    @NavigationsausgabeAr = reverse @NavigationsausgabeAr;
  }
}
sub Banner {
   printf "<!-- Kopfzeile mit Logo, Bannerwerbung und Links rechts -->\n";
   printf '<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>'."\n";
   printf '<td align="left"><a href="http://www.quaeldich.de/Willkommen.shtml"><img src="http://www.quaeldich.de/Bilder/hauptsachebergauf160_90.png" alt="qu&auml;ldich.de" width="160" height="90" hspace="5" border="0" align="left"></a></td>'."\n";
   #printf '<td align="right" valign=bottom>&nbsp;'."\n";
   #printf '</td>'."\n";
   if ($BannerStr eq "") {$BannerStr = $StdBanner;}
   if ($ID ne "Willkommen") {

     my $NavRandIndQD=rand(12);
     if (1 || $NavRandIndQD < 6 || werbungErlauben() == 0) {
       $BannerStr = $TrikotBanner;
       $Werbeinhalt_HOMEPAGE_SKY = $SkyScraper;
       $Werbeinhalt_ROTATION_SKY = $SkyScraper;
     } else {
       $BannerStr = $Werbeinhalt_ROTATION_BANNER;
       $Werbeinhalt_HOMEPAGE_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";
       $Werbeinhalt_ROTATION_SKY = "<a href=\"http://www.quaeldich.de/Kampagne/Trikots.shtml\"><img src=\"http://www.quaeldich.de/Bilder/WinterSky.gif\" border=\"0\"/></a>";

     }

   }
     
   printf '<td width="100%" align="left"><div style="margin-left:30px">'.$BannerStr.'</div></td>'."\n";
#   printf '<td><div class="text" style="text-align:center;font-size:9pt">Layout &amp; Design:<br><a href="http://www.textdesign-bittner.de"><img src="/Bilder/bittner.gif" alt="johannes bittner text&amp;design" width="153" height="57" hspace="5" border="0"></a></div></td>'."\n";
   printf '<td valign="top" align=right><div class="top">'."\n";
   for (@RandLineStr) {
      printf $_;
   }
   printf "</div></td>\n";
   printf "</tr>\n</table>\n";
}
sub Navigationsausgabe
{
   print '<table width="100%" style="margin-top:1px" bgcolor="#376FA6" border="0" cellspacing=0 cellpadding=0>'."\n";
   for (@NavigationsausgabeAr)
   {printf $_;};
   #if ($Rev == 0) {
     printf "</table>\n";
   #}
}

sub Datumsausgabe
{
  printf <<__HTML
<table width="100%" style="margin-top:1px" bgcolor="#376FA6" border="0" cellspacing=0 cellpadding=0>
<!-- Weisse Zwischenlinie -->
<tr>
        <td colspan="2" align="center" bgcolor="#FFFFFF"><img src="http://www.quaeldich.de/Bilder/spacer.gif" alt="Spacer" width="750" height="1" border="0"'."\align="top"></td>
</tr>
<!-- Fuss-Leiste -->
<tr>
        <td height="18" bgcolor="#E8F3FD"><div align="left" class="tiny" style="margin-left: 10px;">$Datum
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Layout &amp; Design: <a href=\"http://www.textdesign-bittner.de\">textdesign-bittner.de</a></div></td>
<td align="right" bgcolor="#E8F3FD" ><div align="right" class="tiny" style="margin-right: 10px;"><a href=\"http://www.quaeldich.de/Wir.shtml\">Impressum</a>
	    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:jan\@quaeldich.de?subject=quaeldich.de: (hier Betreff einfügen)">Jan Sahner</a></div>
        </td>
</tr>
</table>
__HTML
;
}