#!/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 = ""; $WHHSky = ""; $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
__ADLINK ; $Werbeinhalt_HOMEPAGE_BANNER = <<__ADLINK
__ADLINK ; $Werbeinhalt_ROTATION_SKY = <<__ADLINK
__ADLINK ; $Werbeinhalt_ROTATION_BANNER = <<__ADLINK
__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 = ""; $Werbeinhalt_ROTATION_SKY = ""; } #''; @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 = ''; #$HinweisStr= 'Trag dich ein ins
Gästebuch!'; #$HinweisStr= 'Trag dich ein in den Unterkunftsring!'; #$Unterkunft= 'Trag dich ein in den Unterkunftsring!'; @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ß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ß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ß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\n\n\n"; } # } else {printf "\n\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 __HTML ; print "\n\n"; } else { my $Werbeinhalt=""; if ($ID eq "Willkommen") { if (werbungErlauben($ID)) { $Werbeinhalt = $Werbeinhalt_HOMEPAGE_SKY; } printf "
$Werbeinhalt
\n\n"; } else{ if (werbungErlauben($ID)) { $Werbeinhalt = $Werbeinhalt_ROTATION_SKY; } my $widthMain = 1025 + $widthMainAdd; my $widthContent = 835 + $widthMainAdd; printf "
$Werbeinhalt
\n\n"; # printf "
\n".'\n"; push (@NavigationsausgabeAr,$Ausg); if ($AktZeile != @IDBaum - 1 || $AktZeile == 0) { $Ausg=''."\n"; push(@NavigationsausgabeAr,$Ausg); $Ausg = "\n"; $ThickOr = ($AktZeile == 0 ? "5":"3"); $Ausg = $Ausg.' '."\n\n"; push (@NavigationsausgabeAr,$Ausg); $Ausg=''."\n"; push(@NavigationsausgabeAr,$Ausg); } @Line = @NewLine; $AktZeile ++; } if ($Rev) { @NavigationsausgabeAr = reverse @NavigationsausgabeAr; } } sub Banner { printf "\n"; printf '
\n\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///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/ / /g; if ($IDBaum[0] ne $RandLine[$Index*4]) { $RandLineStr[$Index] = ''.$tmpStr."
\n"; } else { $RandLineStr[$Index] = ''.$tmpStr."
\n"; #''.$tmpStr."
\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
'."\n".'
Spacer
Spacer
Spacer
'."\n"; printf ''."\n"; #printf ''."\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 = ""; $Werbeinhalt_ROTATION_SKY = ""; } } printf ''."\n"; # printf ''."\n"; printf '\n"; printf "\n
quäldich.de '."\n"; #printf '
'.$BannerStr.'
Layout & Design:
johannes bittner text&design
'."\n"; for (@RandLineStr) { printf $_; } printf "
\n"; } sub Navigationsausgabe { print ''."\n"; for (@NavigationsausgabeAr) {printf $_;}; #if ($Rev == 0) { printf "
\n"; #} } sub Datumsausgabe { printf <<__HTML
Spacer
$Datum       Layout & Design: textdesign-bittner.de
Impressum       Jan Sahner
__HTML ; }
PlanungVaduz - ZernezZernez - Ponte (I)Ponte (I) - PontresinaPontresina - BondoBondo - DisentisDisentis - AndermattAndermatt - BrienzBrienz - GersauGersau - Thalwil
Gersau - ThalwilIbergeregg, Raten, Albispass Andy Damjan Jan Tobi Topsi Liliane & Walter
9. Tag, Samstag den 04. August 2001Fotoalbum des Tages ansehen91 km / 2 Pässe / 1474 Hm

Tagesbericht
Nach dem Start in Gersau steht nach Schwyz der letzte grosse Berg im Weg. Das Ibergeregg mit 1406 m, steigt in etlichen Serpentinen mit konstanter Steigung an. Nach der Fahrt am Sihlsee entlang kommen wir an Einsiedeln vorbei und wechseln dann über den Ausläufer des Gottschalkenberg rüber zum Aegerisee. Von dort geht's dann runter nach Sihlbrugg und steigt gleich wieder an Richtung Hausen. Hier etwa 25 km vor unserem Ziel rollen wir schon durch die Aglomeration Zürich und werden bei Türlen unseren letzten "Pass", den Albispass, in Angriff nehmen. Ein letzter Hügel werden wir dann von Langnau nach Thalwil überfahren. In Thalwil eingetroffen, werden wir dann auf der Seestrasse nochmal Tempo machen und bei der Hausnummer 151 über die Ziellinie schiessen.

Tagesbericht


Aussicht vom Ibergeregg

Der letzte Tag ist schnell erzählt. Leider weckt uns heute morgen der Regen, mit dem wir gestern eingeschlafen waren, also müssen wir die Etappe schon in Regenzeug beginnen; ein schlechtes Omen. Am Vierwaldstätter See entlang fahren wir durch Brunnen in Richtung Ibergeregg, der letzter Pass unserer Tour. Glücklicherweise klart es ein wenig auf, so dass wir vom Ibergeregg noch einen schönen Blick auf Brunnen vor dem Vierwaldstätter See werfen können.
Das Ibergeregg ist weder lang noch steil, der Charakter auch hier wieder schwarzwaldartig. Vor der letzten Abfahrt der Tour in Richtung Thalwil bei Zürich am Zürichsee verfängt sich Andys Vorderrad in einem Weiderost, als gerade alle in Lilianes Kamera gucken. Es gibt einen fürchterlichen Massensturz mit ca 22.000 DM Materialschaden. Zum Glück bleiben wir alle unverletzt.


Fataler Crash am Ibergeregg
Auf dem nun folgenden Weg zum Zürichsee machen wir unserem Namen keine Ehre. War das Wetter seit dem Ibergeregg recht freundlich, so ist es 16 km vor dem Ziel wieder wolkenverhangen mit dunklerer Tendenz in Richtung Zürich. Bei einer Scheune stellen wir uns unter, nach 10 Minuten abwartender Grundhaltung fahren wir zum Zürichsee, wo wir uns die obligatorische Sektdusche verpassen und danach in den Zürichsee springen, um nicht wie im letzten Jahr katastrophal nach Sekt zu stinken. Der See ist das Wärmste, was ich in den letzten Tagen an Alpenseen geniessen konnte, angenehm bei diesen äusseren Temperaturen.
Nach ausgedehntem Bad heisst es wieder einmal Abschied nehmen von den Alpen, aber wir sind uns wiederum sicher, dass es nur ein Abschied auf Zeit ist, die Pässe, die wir gefahren sind waren wieder unverwechselbar unglaublich, die Highlights Gaviapass und Grosse Scheidegg ganz oben, aber auch die Qualen der zwei Königsetappen sind unvergessen, der Eisregen vom Stilfserjoch hinunter, der bekloppte Fahrer in Ilanz, das Zeitfahren am Albulapass und Orte wie Morteratsch und vor allem Soglio werden uns noch lange in Erinnerung bleiben. Was für eine Tour.

Links: Sektdusche in Thalwil

Rechts: Geschafft


Bald gings zurück, an Füllinsdorf vorbei, wo Liliane & Walter ausstiegen, die uns in den letzten Tagen so tolle Dienste erwiesen haben nach Gundelfingen, wo Yasmin und Sabine schon das Grillfest vorbereitet hatten, an dem mal wieder alle zuviel gegessen haben - es war einfach zu gut.

Andermatt - BrienzIbergeregg, Raten, Albispass Andy Damjan Jan Tobi Topsi Liliane & Walter
PlanungVaduz - ZernezZernez - Ponte (I)Ponte (I) - PontresinaPontresina - BondoBondo - DisentisDisentis - AndermattAndermatt - BrienzBrienz - GersauGersau - Thalwil
#!/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 = ""; $WHHSky = ""; $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
__ADLINK ; $Werbeinhalt_HOMEPAGE_BANNER = <<__ADLINK
__ADLINK ; $Werbeinhalt_ROTATION_SKY = <<__ADLINK
__ADLINK ; $Werbeinhalt_ROTATION_BANNER = <<__ADLINK
__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 = ""; $Werbeinhalt_ROTATION_SKY = ""; } #''; @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 = ''; #$HinweisStr= 'Trag dich ein ins
Gästebuch!'; #$HinweisStr= 'Trag dich ein in den Unterkunftsring!'; #$Unterkunft= 'Trag dich ein in den Unterkunftsring!'; @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ß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ß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ß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\n
\n
\n"; } # } else {printf "\n\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 __HTML ; print "\n\n"; } else { my $Werbeinhalt=""; if ($ID eq "Willkommen") { if (werbungErlauben($ID)) { $Werbeinhalt = $Werbeinhalt_HOMEPAGE_SKY; } printf "
$Werbeinhalt
\n\n"; } else{ if (werbungErlauben($ID)) { $Werbeinhalt = $Werbeinhalt_ROTATION_SKY; } my $widthMain = 1025 + $widthMainAdd; my $widthContent = 835 + $widthMainAdd; printf "
$Werbeinhalt
\n\n"; # printf "
\n".'\n"; push (@NavigationsausgabeAr,$Ausg); if ($AktZeile != @IDBaum - 1 || $AktZeile == 0) { $Ausg=''."\n"; push(@NavigationsausgabeAr,$Ausg); $Ausg = "\n"; $ThickOr = ($AktZeile == 0 ? "5":"3"); $Ausg = $Ausg.' '."\n\n"; push (@NavigationsausgabeAr,$Ausg); $Ausg=''."\n"; push(@NavigationsausgabeAr,$Ausg); } @Line = @NewLine; $AktZeile ++; } if ($Rev) { @NavigationsausgabeAr = reverse @NavigationsausgabeAr; } } sub Banner { printf "\n"; printf '
\n\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///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/ / /g; if ($IDBaum[0] ne $RandLine[$Index*4]) { $RandLineStr[$Index] = ''.$tmpStr."
\n"; } else { $RandLineStr[$Index] = ''.$tmpStr."
\n"; #''.$tmpStr."
\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
'."\n".'
Spacer
Spacer
Spacer
'."\n"; printf ''."\n"; #printf ''."\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 = ""; $Werbeinhalt_ROTATION_SKY = ""; } } printf ''."\n"; # printf ''."\n"; printf '\n"; printf "\n
quäldich.de '."\n"; #printf '
'.$BannerStr.'
Layout & Design:
johannes bittner text&design
'."\n"; for (@RandLineStr) { printf $_; } printf "
\n"; } sub Navigationsausgabe { print ''."\n"; for (@NavigationsausgabeAr) {printf $_;}; #if ($Rev == 0) { printf "
\n"; #} } sub Datumsausgabe { printf <<__HTML
Spacer
$Datum       Layout & Design: textdesign-bittner.de
Impressum       Jan Sahner
__HTML ; }