#!/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 ; }
Königs-Jedermannetappe der Deutschlandtour 2002
Oberstaufen - OberstdorfRiedbergpass, Oberjoch, Oberellegg8.6.2002127,8 km / 1969 Hm

Dieser Bericht wurde von Dmitri Vitkin verfasst. Herzlichen Dank.
Am 30.03. bin ich bei super Wetter die diesjährige 6. Etappe der Deutschland-Tour abgefahren. Ich bin in diesem Jahr zum ersten Mal bei diesem Rennen dabei, und wollte mir vorab ein Bild von dieser Strecke machen, um im Rennen im Vorteil zu sein.
Der Kurs beginnt meiner Meinung nach nicht optimal. Nach ein paar Metern nach dem Start kommt die Abfahrt Richtung Weissach, die Straße ist kurvig und der Belag relativ schlecht. Nach ca. 3 km wird die Straße besser und breiter, das Rad rollt fast von selber nach Österreich... Ab km 9 ist aber Schluss mit lustig. Bis km 30 (Balderschwang, Verpflegungszone) folgen zahlreiche kleine Steigungen, die aber nicht zu schwierig zu fahren sind.
Dann kommt der Anstieg zum Riedbergpass. Der Anstieg ist relativ kurz ("nur" 4 km), aber sehr unangenehm. Sehr steile Passage mit über 15% wechseln sich mit etwas flacheren Teilen, man muss sehr oft schalten und es ist schwierig, einen richtigen Rhythmus zu finden. Die Abfahrt beginnt sehr steil und kurvig, es wird aber langsam einfacher. Die kleine aber feine Steigung nach Schöllang (700 m mit 10%) kommt gerade richtig, um die Beine warm zu halten.
Eine neu aufgebaute Strasse führt von Schöllang nach Sonthofen. In Sonthofen sollte man aufpassen: die Straßenführung ist nicht einfach, ich bin einige Hundertmeter zu viel gefahren. (Die Hauptstraße biegt nach der Stadteinfahrt links ab, man muss aber geradeaus in die kleinere Strasse fahren, siehe die DT-Marschtabelle). Die B308 von Sonthofen nach Hindenlang ist gerade, breit und flach - ein Terrain für Rouleurs.
Die Steigung zum Oberjoch ist im Vergleich zum Riedbergpass wie eine Abfahrt: nicht zu steil, gleichmäßig, gute Straße, fährt sich sehr angenehm (wenn das Tempo nicht zu hoch ist). Während der folgenden 10 km runter nach Wertach kann man fast ein Schläfchen machen: praktisch gerade aus und sehr breit.
In Wertach sollte man aber wieder aufwachen, die Steigung nach Oberelleg beginnt gleich mit 9%, nach einer kleinen Verschnaufpause geht es mit 8 bis 12% weiter. Hach der Bergwertung (Gaststätte) geht's noch ein Paar Meter hoch (links abbiegen!), dann aber fast 20 km praktisch nur runter bis Immenstadt mit kleineren, aber relativ guten Straßen.
Die letzten 20 km nach Oberstdorf haben es in sich: die kleine Straße mit mehreren giftigen Anstiegen nach 4 Stunden im Sattel verlangt die letzte Energie-Reserve.
Fazit: eine anspruchsvolle Strecke, die aber bei trockenem Wetter sehr schön zu fahren ist.

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