#!/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 "";
www.PANdoradO.de
#!/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 "
Mehrere interaktive Panoramen lassen sich untereinander zu einer virtuellen Tour verknüpfen.
So können ganze Gebäude Raum für Raum oder eine Landschaft von einem Aussichtspunkt zum nächsten begangen werden.
Verknüpfungen zwischen den einzelnen Panoramen erfolgen über Links (sog. Hot-Spots), eingeblendete Karten oder Auswahlmenüs.
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/carpout fatalsToBrowser/;
use List::Util 'shuffle';
$| = 1; # unbuffer output
my $cube = param('cube'); # Parameter wird mit Link uebergeben
print "Content-type: text/html\n\n";
print <<"EndOfHTML1";
EndOfHTML1
### BEGINN Auswahl an Cubes ###
my @thumbnails = qw/ Pleistermuehle_vtour Wormser Dom_vtour orthoplace_Weinsberg /;
my @randomthumb = shuffle(@thumbnails);
for (0..2) {
unless ( $randomthumb[$_] eq $cube ) {
print "
\n";
print "\n";
print "
\n";
}
}
### ENDE Auswahl an Cubes ###
print <<"EndOfHTML2";
EndOfHTML2
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/carpout fatalsToBrowser/;
use List::Util 'shuffle';
$| = 1; # unbuffer output
my $cube = param('cube'); # Parameter wird mit Link uebergeben
print "Content-type: text/html\n\n";
print <<"EndOfHTML1";