#!/usr/bin/perl -- -*-perl-*-
#######################################################
# Copyright 1997 by Oliver Jörns
#######################################################
# params
# title OPTIONAL TITLE
# n OPTIONAL NUMBER
# m MAX NOT OPTIONAL IF pathlocal is 0
# l OPTIONAL LANGUAGE default english
# f OPTIONAL FOLDER
# ad add number, only pass in when folder gets passed in too
@pvFolders = ('Preview-1','Preview-2','Preview-3','Preview-4');
@pvAdNmbrs = (0,6,12,18,24);
$FORM{'m'} = 6;
$picPath = 'http://www.sunbond.de/x-club/feet';
#######################################################
require "ad.pl";
# Parse Form Contents
&parse_form;
# Return HTML Page
&return_html;
sub parse_form {
$buffer=$ENV{'QUERY_STRING'};
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$FORM{$name} = $value;
}
}
sub return_html {
if ($FORM{'l'} eq 'de') {
$lang = 'ger';
} else {
$lang = $FORM{'l'};
}
if ($FORM{'f'} ne '') {
$f=$FORM{'f'};
$ad=$FORM{'ad'};
} else {
srand();
$fH=int(rand(scalar(@pvFolders)));
$f = $pvFolders[$fH];
$ad = $pvAdNmbrs[$fH];
}
$picPath = "$picPath/$f";
if ($FORM{'title'} ne '') {
$title = $FORM{'title'};
} else {
$title = $f;
}
print "Content-type:text/html\n\n"; #Mime-Typ ausgeben
print "\n";
print "\n";
print " x-feet\n";
print "\n";
print "\n";
print "
\n";
if ($lang eq 'ger') {
print "x-feet Vorschaugallery
\n";
} else {
print "X-FEET preview gallery\n";
}
if ($FORM{'n'} ne '') {
$n=$FORM{'n'};
$m=$FORM{'m'};
} else {
if($FORM{'m'} ne '') {
$m=$FORM{'m'};
} else {
# figure out max
$m=1;
while (-e "../$picPath/$m\.jpg") {
$m++;
}
$m--;
}
$n=1;
$FORM{'n'} = 1;
}
if ($n>0 && $n<=$m) {
#not needed
} else {
$n=1;
}
$modelImg="$picPath/$n\.jpg";
$n++;
if ($n<=$m) {
if ($FORM{'l'} eq 'de') {
print "Nächstes Bild oder Mehr Information über x-feet\n";
} elsif ($FORM{'l'} eq 'ger') {
print "Nächstes Bild oder Mehr Information über x-feet\n";
#print "NÄCHTES BILD
\n";
} else {
print "Next image or More about X-FEET\n";
#print "NEXT IMAGE
\n";
}
} else {
$n=1;
if ($FORM{'l'} eq 'de') {
print "Mehr Information über x-feet\n";
} elsif ($FORM{'l'} eq 'ger') {
print "Mehr Information über x-feet\n";
#print "ERSTES BILD
\n";
} else {
print "More about X-FEET\n";
#print "FIRST IMAGE
\n";
}
}
print "\n";
print " \n";
print " ![](\"$modelImg\") | \n";
print "
\n";
print "
\n";
#$n=1;
#while ($n<=$m) {
# print "$n ";
# if ($n<$m) {
# print "- \n";
# }
# $n++;
#}
#&show_ad($FORM{'n'}+$ad,"$FORM{'l'}", 1);
print "\n";
print "\n";
print "\n";
}