#!/usr/bin/perl -w use strict; 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. ### ENDE Bild in der Headline ### my $cube = param('cube'); # Parameter wird mit Link uebergeben my @menu = qw/ MenuA MenuB MenuC MenuD MenuE MenuF /; my @pagename= qw/new_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"; print <<"EndOfHTML1";