#!/usr/bin/perl -w use strict; use diagnostics; use CGI qw/:standard/; use CGI::Carp qw/carpout fatalsToBrowser/; use List::Util 'shuffle'; $| = 1; # unbuffer output ### BEGINN Bild in der Headline aus Textfile 'headlinepixx' ### open my $handle, '<', "headlinepixx"; chomp(my @choices = <$handle>); close $handle; #my @choices = qw/ Keller Wohnzimmer Kueche Garten Pfrimmwehr Pleistermuehle_See Wormser Wormserbuehne SchlossHerrnsheim Lollipop Rheinschafe JesusBagger /; # vorhandene Bilder my @randomarray = shuffle(@choices); my $thisone = "../images/".$randomarray[0]."_900x99.jpg"; # ..das Bild ist das erste im geshuffelten Array ### ENDE das Bild in der Headline ### print "Content-type: text/html\n\n"; print "";

#!/usr/bin/perl -w use strict; use diagnostics; use CGI qw/:standard/; use CGI::Carp qw/carpout fatalsToBrowser/; $| = 1; # unbuffer output my @menu = qw/ MenuA MenuB MenuC MenuD MenuE MenuF /; my @pagename= qw/index panoramas cubes vtours contact impressum /; my @menuitem = qw/ Technik PanoBilder 360°Panorama VirtuelleTouren Info&Kontakt Impressum /; my $thispage = param('page'); # Parameter wird mit Link uebergeben print "Content-type: text/html\n\n"; for (0..5) { print "\n"; }

#!/usr/bin/perl -w use strict; use CGI qw/:standard/; use CGI::Carp qw/carpout fatalsToBrowser/; use List::Util 'shuffle'; $| = 1; # unbuffer output ## Hash mit allen verfuegbaren Bildern ### my %panosntext = ( # Jena_Wohnzimmer => "Über den Dächern von Jena", # Jaguar_SS => "Jaguar SS", # Wormser_Aussen => "Eingangsbereich 'Das Wormser'", # homegarden => "Heimatplanet", # JesusBagger => "The bright side", Ettersburg_Mittag => "Schloss Ettersburg/Weimar 2012", Ettersburg_Gewehrzimmer => "Gewehrzimmer Schloss Ettersburg/Weimar 20112", # Ettersburg_Nacht => "Schloss Ettersburg/Weimar", # Ettersburg_vom_Park => "Schloss Ettersburg/Weimar Park(Original 15000 x 5000 Pixel)", # Pfrimmwehr => "Pfrimmwehr on Ice", # Wormser_Buehne => "Bühne 'Das Wormser' (Original 15000 x 5000 Pixel)", # Schloss_Muenster => "Schloss Münster (Original 12000 x 4000 Pixel)", # Wormser_Terrasse => "Oberes Foyer 'Das Wormser'", # schlossherrnsheim => "Schloss Hernsheim", # rheinschafe => "Rheinschafe", # Jaguar_SS_Nacht => "Schloss Ettersburg/Weimar Innenhof", under_the_bridge => "R.U.S.H. 2012", # silo => "Silo Bull", # LagoMaggiore_Stausee => "Stausee am Lago Maggiore 2012", LagoMaggiore_Kirche => "Kirche über dem Lago Maggiore 2012", # Lumin_Strandweg => "Lago di Como", Lumin_Hafen => "Hafen am Lago di Como 2013", # lagocoast => "Westufer Lago Maggiore 2013(Original 10000 x 3500 Pixel)", # astonfront => "Bella Machina...", # boxauto => "Boxautos BFF Worms", # riesenrad => "Riesenrad BFF Worms", backfischfest => "Backfischfest Worms 2014 (Original 9000 x 2500 Pixel)", # LagoDiComoPano => "Ausblick Hotel Lumin, Lago di Como (Original 8000 x 3000 Pixel)", # LagoDiComo_obens => "Lago di Como am Abend (iPhone)", # versace => "Gebirgsbach (kalt)", # eiswoog => "Eiswoog, zum Fische fangen leer gepumpt (iPhone)", # winter_wonderland_small => "Johanniskreuz Silvester 2014 (Original 11000 x 5500 Pixel)", frankfurt_skyline => "Skyline Frankfurt in der Dämmerung 2014 (Original 9000 x 2500 Pixel)", kitchen_doggy => "Lazy Dog I 2012", # kitchen_doggy2 => "Lazy Dog II", # Dom_Nebenraum => "Wormser Dom, Taufkapelle (HDR Fusion, Original 10000 x 5000 Pixel)", # Dom_innen => "Wormser Dom (True HDR, Original 10000 x 5000 Pixel)", # Dom_Altar => "Wormser Dom, Altar (HDR Fusion, Original 10000 x 5000 Pixel)", Paris_La_Defense => "Paris, La Defense 2015(iPhone)", Paris_Grande_Arche => "Paris, Grande Arche de La Defense 2015 (iPhone)", Paris_Grande_Arche2 => "Paris, Blick von Grande Arche de La Defense 2015 (iPhone)", # ungeheuersee => "Ungeheuersee, Lindemannsruhe Pfalz", gotthardpass2 => "Gotthardpass August 2015", LakeView1 => "Lago Di Como, Acquaseria Balcony 2015", motorworld => "Motorworld Böblingen 2015", alpen => "Eiger, Mönch, Jungfrau, Matterhorn (wenn man weiß wo man suchen muss) Silvester 2015", # bergenwandern => "Lago di Como, Draufsicht Silvester 2015", zurich_limmat => "Zurich, Altstadt links der Limmat 2016 (iPhone)", camp_nou_barca => "Barcelona, Camp Nou April 2017 (iPhone)", camp_nou_barca_ground => "Barcelona, Camp Nou April 2017 (iPhone)", forum_romanum => "Rom, Forum Romanum April 2017 (iPhone)", forum_romanum2 => "Rom, Forum Romanum April 2017 (iPhone)", pannini => "Rom von oben April 2017 (iPhone)", las_arenas_valencia => "Hotel Las Arenas, Valencia 2018 (iPhone)", zurich_lindenhof => "Zurich, Lindenhof 2017" ); my @sortSchluessel = keys(%panosntext); ### Auslesen der Schluesselwerte my @Schluessel = shuffle(@sortSchluessel); ### Zerwurfeln, angezeigt wird im HTML nur ein Teil der Bilder print "Content-type: text/html\n\n"; print "\n";