quäldich.de: Tandemtour von Maggi und Betty

$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".'

'."\n"; for ($Idx=0;$Idx < @Line/4; $Idx ++) { $target = ($Line[4*$Idx] eq "Shop")?" target=\"qdshop\"":""; if ($AktZeilenStr eq $Line[4*$Idx]) { @NewLine = @{$Line[4*$Idx+3]}; $Ausg = $Ausg.'".$Line[4*$Idx].""; #''.$Line[4*$Idx].""; if ($Line[4*$Idx+2] ne "") { $BannerStr = $Line[4*$Idx+2]; } $NachfGef = 1; } else { # $Ausg = $Ausg.''.$Line[4*$Idx].""; $Ausg = $Ausg.'".$Line[4*$Idx].""; } if (($Idx+1)*4 < @Line) { $Ausg = $Ausg." |\n"; } else { $Ausg = $Ausg."\n"; } } $Ausg = $Ausg."

'."\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

'."\n"; #printf '

'.$BannerStr.'

Layout & Design:

'."\n"; for (@RandLineStr) { printf $_; } printf "

\n"; } sub Navigationsausgabe { print ''."\n"; for (@NavigationsausgabeAr) {printf $_;}; #if ($Rev == 0) { printf "

\n"; #} } sub Datumsausgabe { printf <<__HTML


$Datum Layout & Design: textdesign-bittner.de	Impressum Jan Sahner

__HTML ; }


Betty und Maggi	Fotoalbum	Tandemtour Sindelfingen - Lugano 2001	Das sind wir

#!/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= '

'; #$Unterkunft= '

'; @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"; } # } 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".'

"; $Werbeinhalt_ROTATION_SKY = "

"; } } printf ''."\n"; # printf ''."\n"; printf '\n"; printf "\n

'."\n"; #printf '

'.$BannerStr.'

Layout & Design:

'."\n"; for (@RandLineStr) { printf $_; } printf "

\n"; } sub Navigationsausgabe { print ''."\n"; for (@NavigationsausgabeAr) {printf $_;}; #if ($Rev == 0) { printf "

\n"; #} } sub Datumsausgabe { printf <<__HTML


$Datum Layout & Design: textdesign-bittner.de	Impressum Jan Sahner

__HTML ; }