BILDARKIVET ÄR
Kort om och länkar till mina resor:
England, stort scoutläger London
Thailand
2006,
Dykning är
bäst, Live-A-board! En hel del Bangkok / Koh Lanta
Borneo,
vilt & vackert &
Taiwan
kuperat naturskönt
Thailand 03-04,
Dykning är toppen, Live-A-board! Lite Bangkok
Thailand 02-03
Scoutläger dyk mm 2 månader!
Bali 2002
dykning och miljön. Tulamben!!!
Mexico 2000
Scouting, Storstad, STEN & Amerkanska släkten
Thailand 99
Koh Lanta PARADIS!!! Underbara människor och dyk!
Lysekil 99 SeniorScoutläger
Chile 99
MÄKTIG resa, Inka, Cusco, Machu Picchu!
Florida 97
Kapten Slate, Orlando, Ft Lauderdale & Atlanta
Barcelona 96
Tjänstetripp, underbar stad!
Egypten 95
"Resebyrån" och "Dykcentret" njaää,
men DYKEN & Karnak ja stenhögarna dom ROCKade!!!
Dubai 94 Prylbögarnas paradis o soligt, bra mat o
mkt trevligt fôlk!
Europa 94 Campingbuss m STOR Paris via DE DK -> B NL. KUL!
Atlanta 93
kul ställe, tjänsteresa. Jättestenen & 6 Flags bergodalbanor! |
#!/usr/bin/perl
#
# Make sure you put your correct path to Perl!
#
####### RECURRING HOLIDAY IMAGE DISPLAYER (holiday.pl)
# DESC: Automates the display of an external list of images
# related to configurable end dates.
# VERSION: 1.0
# DOC VERSION: 1.1
# REQUIREMENTS: Server-Side Includes (.shtml)
# LAST REVISED: July 14, 1999
#
# COPYRIGHT 1999 - MULTIMEDIA SERVICES & EDUCATION (MUSE)
# ALL RIGHTS RESERVED
# E-MAIL: TPARKER@MUSE-USA.COM WEB: HTTP://WWW.MUSE-USA.COM
#
#######################################################################
# $BASEDIR="$ENV{'DOCUMENT_ROOT'}/cards";
# $BASEURL="http://$ENV{'SERVER_NAME'}/cards";
# $SITEURL="http://$ENV{'SERVER_NAME'}/";
# $imageBase="/home/solstan/www/";
$imageBase="$ENV{'DOCUMENT_ROOT'}/";
$urlBase="http://www.solstan.net/";
$urlDefault="http://www.solstan.net/";
$defComment="Solstan.net";
$imageDefault="http://www.solstan.net/jason/bilder/gusnews.gif";
####### DO NOT EDIT THIS SECTION!
#
($_,$_,$_,$mday, $mon)=localtime();
$currentDate=($mon+1)*100+$mday;
$bool=1;
## STEP TWO : DEFINE 'image_list.txt' UNIX PATH!
#
open(FILE, "$ENV{'DOCUMENT_ROOT'}/jason/image_list.txt") or die "Couldn't open file: $!";
while() {
if($_ ne "\n") {
chomp;
($date,$imageFile,$comment,$url) = split(/:/);
if($currentDate<=$date) {
$bool=0;
if(stat("$imageBase$imageFile")){
print "Content-type: text/html\n\n";
print "\n";
}
else {
print "Content-type: text/html\n\n";
print "\n";
}
last;
}
}
}
if($bool) {
seek(FILE, 0, 0);
chomp(($date,$imageFile,$comment,$url) = split(/:/,));
if(stat("$imageBase$imageFile")) {
print "Content-type: text/html\n\n";
print "\n";
}
else {
print "Content-type: text/html\n\n";
print "\n";
}
}
close(FILE);
|