#!/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 "![\"PANdoradO](\"";)
";
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 "\n";
}
Fast so als wäre man selbst dort - Kugel-Panoramen vermitteln ein Bild vom Aufnahmeort, weit eindrucksvoller als das herkömmliche Fotografien können. Eine Szene lässt sich fast 'erleben', ein Raum oder die Wirkung der Umgebung realitätsnah empfinden.
#!/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');
print "Content-type: text/html\n\n";
print <<"EndOfHTML1";
EndOfHTML2
\n";
print "![](\"../cubes/$randomthumb[$i]/$randomthumb[$i]_button.png\") \n";
print " | \n";
}
### ENDE Auswahl an Cubes ###
print <<"EndOfHTML2";
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/carpout fatalsToBrowser/;
use List::Util 'shuffle';
$| = 1; # unbuffer output
### BEGINN Auswahl an Cubes aus Textfile 'cubenames' ###
open my $handle, '<', "cubenames";
chomp(my @thumbnails = <$handle>);
close $handle;
#my @thumbnails = qw/ Dom_Altar Dom_innen Dom_Nebenraum Tesla_Hirschberg EnglischerGarten2 AllianzArena Pfrimmwehr Bagger WildHorse EttersburgNacht Wedding Lumin_Yachthafen LagoMaggiore_Kirche Lumin_Strandweg boxauto riesenrad /; # vorhandene Cubes
my @randomthumb = shuffle(@thumbnails);
### ENDE Auswahl an Cubes ###
print "Content-type: text/html\n\n";
print <<"EndOfHTML";
EndOfHTML