#!/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 ; }
 
Betty und Maggi Fotoalbum Tandemtour Sindelfingen - Lugano 2001 Etappe 1
 
Sindelfingen - Unteruhldingen Sindelingen - Tübingen - Gammertingen - Pfullendorf - Heiligenberg - Unter-Uhldingen
DatumKilometerHöhenmeterAVS-SpeedStart - AnkunftFahrtzeitMax-Speedkcal
18.08.2002 162 km 1.085 Hm 26,51 km/h 8:30 - 17:00 6:08:32 h 74,9 km/h 2039
Dieser Bericht wurde uns begeisternderweise von Betty Scheu zugesandt und niemand vom quäldich-Team war dabei. Deswegen sollten alle Fragen direkt an Betty gestellt werden. Habt ihr auch einen Bericht, den ihr hier veröffentlichen wollt? Hier findet ihr, wie es geht.

On the road - die ersten 80 km sind geschafft. Der Hintern kribbelt. Aber wir haben beide ein Hochgefühl. Wenn erst mal der Albaufstieg von Talheim nach Melchingen geschafft ist, rollt es von ganz allein mit 30 - 35 km/h. Marcus ist es etwas peinlich als ein Rennradfahrer, der eine zeitlang Windschatten genossen hat, fragt wo`s hingehen soll und ich sage "nach Italien"... Bei mir hat sich so ein Freiheitsgefühl breitgemacht, wie ich es noch nie empfunden habe wenn ich auf anderen Transportwegen in Urlaub gefahren/geflogen bin. Die Hälfte der heutigen Tagesetappe haben wir - nachdem wir mit nur 1 1/2Std. Verspätung um 8:30h los sind - gar nicht schlecht.

Unter-Uhldingen, 18.08.01, 18h

Diese Glücksgefühle sind überwältigend. Ich kann es nicht in Worte fassen, welch unglaubliches Glück mich erfüllt. Ab Gammertingen hatten wir Sonne satt. Der Nebel und grau verhangener Himmel hat stahlblau Platz gemacht. Die von mir befürchtete damit verbundene Hitze bleibt aus. Der Fahrtwind kühlt alles weg. In Sigmaringen Fotostop vor dem Schloss. Wir lassen es uns nicht nehmen, durch das Stadtzentrum zu fahren, vorbei an Eisessenden die an diesem Tag bestimmt noch keine 100 km in den Beinen hatten. Wir fliegen hoch nach Krauchenwies - im Wald ist es angenehm schattig. Die Ebene bis Pfullendorf bügeln wir mit 33 km/h weg. Dann das zähe Stück - 14 km bis Heiligenberg. Ich schlage vor, den 2. Riegel zu essen - Maggi stimmt schnell zu - zu schnell für meine Begriffe. Er zieht ziemlich. Sein Puls hängt bei 150 - meiner ist bei 140 - 144. Ich fühle mich stark, leiste etwas mehr. Das Zwicken an den Sitzbeinhöckern ist jetzt schon stärker.
Heiligenberg - der Eiskaffee hat uns magisch angezogen - zurecht - er ist fantastisch! Dann die Abfahrt nach Salem. Wir fliegen wieder mal. Wir haben irrsinnig schöne Gespräche - keinem macht die Anstrengung etwas aus. In Salem sind es noch 14 km die ruckzuck vergehen. Wir kaufen in einem Neukauf Trauben und Bananen - letzte Gelegenheit, es ist 15:50h. Um 16:30h sind wir an der Touri-Info Unter-Uhldingen. Als ich vor 2 Wochen 2 Std. lang versuchte, telefonisch ein Zimmer zu reservieren, erlebte ich eine totale Pleite. Viele Felder waren rot auf der Anzeigetafel - aber es gab grüne!! Und was wir nie zu hoffen gewagt hätten - das erste hat noch ein Zimmer für uns - direkt am Strand neben der "Seevilla" wo wir schon 2 mal dinniert haben. Kurze Diskussion ob der Zimmerpreis pro Person ist, (ich hat natürlich recht) dann fahren wir hin - "Al Porto" - Restaurant-Pizzeria, Zimmer mit direktem See-/Hafenblick. Zwar ein kleines Zimmer für 160,-- DM aber völlig wurscht. Wir reissen die Kleider vom Leib - Bikini und Badehose an und ab ins Strandbad - tja und hier liegen wir, können unser Glück nicht fassen. So entspannt durchgekommen, eine geniale Unterkunft gefunden und herrliches Badewetter in einem sauguten Strandbad. Und der Schnitt ist nicht zu verachten: 26,51 km/h. Und das bei 2039 kcal. Neuer Rekord. Eigentlich müsste ich bodenleer sein. Gerade haben wir Trauben genascht. Und gedehnt. Uns geht`s soooo gut!

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