#!/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 ; }
 
Team RoßtalTour Juni 2000 Österreich - Italien - Schweiz
 
Eglfing - HuglfingPeißenberg14.6.200063,90 km / 755 Hm / 28,6 km/h
Dieser Bericht wurde uns begeisternderweise von Christian Barth zugesandt und niemand vom quäldich-Team war dabei. Deswegen sollten alle Fragen direkt an Christian gestellt werden. Habt ihr auch einen Bericht, den ihr hier veröffentlichen wollt? Hier findet ihr, wie es geht.

Früh morgens um 7.30 Uhr beginnen wir die Anreise zu unserem Quartier im oberbayerischen Dörfchen Obereglfing bei Murnau am Staffelsee. Dort angekommen haben wir uns erst einmal gemütlich eingerichtet und zu Mittag eine Portion der täglichen Kohlenhydrat-Nahrung namens Nudeln eingenommen. Die haben wir auch bitter nötig, denn für den Nachmittag war ja schon ein erster Härtetest für Mensch und Maschine geplant: Die 1. Etappe.
Und so machen wir uns also auf exakt den selben Weg wie schon im vorherigen Sommer, als wir diese Etappe schon einmal gefahren sind. Von Eglfing rollen wir uns ein in Richtung Huglfing, um von dort aus in flottem Tempo nach Peißenberg zu fahren. Am Ortsausgang von Peißenberg führt eine schmale Straße mit 15% durch ein kleines Wäldchen nach oben. Ich schaue zu meinem Mitstreiter zurück, der an meinem Hinterrad fährt. Seine Miene verrät mir genau das, was mir auch gerade durch den Kopf schießt: "Jetzt geht's los!" Täuscht der Eindruck oder ist die Straße hinauf nach Hohenpeißenberg dieses Jahr steiler als im letzten? Nein, aber wir müssen schon ganz schön ackern, um im Rhythmus zu bleiben. In Hohenpeißenberg biegen wir links ab und müssen wieder auf das kleine Blatt schalten, damit wir das zweite steilere Stück des Berges erklimmen können. Auf dieser Straße überholen wir zwei abgestiegene Mountainbikefahrer, die es trotz ihrer kleinen Witzübersetzung nicht geschafft haben, im Sattel zu bleiben und lieber abgestiegen sind, um zu pausieren und sich nicht quälen zu müssen. Wir aber fahren ruhig weiter durch ein letztes Waldstück. Jetzt fahren wir wieder hinaus in die Sonne und mir läuft bereits der Schweiß in Strömen übers Gesicht. Aber ich muss aufpassen auf den Angriff von meinem Mitstreiter, denn es geht ja schließlich um die ersten Bergpunkte der Tour - sämtliche Anstiege der Tour wurden vorher von uns in verschiedene Kategorien (wie bei der Tour de France) je nach Schwierigkeit eingeteilt, um am Ende des ‚Urlaubs' den besten Bergfahrer von uns beiden herauszufinden - Der Peißenberg zählt mit seinen 988 m über dem Meer zur Kategorie 3, wofür es 10 Punkte gibt. Ich bin also vorbereitet auf den Angriff, der jedoch bislang noch ausbleibt. Da, die letzten 350 m bis zum Gipfel sind angebrochen, und mein Kollege greift von meinem Hinterrad aus an. Ich versuche alles, will hochschalten, was mir jedoch nicht gelingt. Da ist er natürlich bereits zu weit weg, und ich fahre nun weiter meinen Rhythmus bis zum Gipfel, wo ich 8 Sekunden auf die "Bergziege" verloren habe. Allerdings scheint mit meiner Form etwas nicht zu stimmen, denn obwohl ich eigentlich immer sehr viel schwitze bei solchen Touren, erscheint es mir die große Schweißmenge doch etwas seltsam... Anschließend fahren wir wieder die Abfahrt hinunter und müssen dann einen anspruchsvollen Anstieg nach Böbing hochtreten, der uns aber nicht allzu sehr weh tut. Nach 64 km gewinne ich noch den obligatorischen Zielsprint in Eglfing, und wir freuen uns schon auf den kommenden Tag, wo das Hahntennjoch zu bewältigen sein wird.

#!/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 ; }