Hallo Jockel!
Der SELFSPEZIAL-Adventskalender 1999 (<>)hatte dieses Script für die Türchensteuerung:
===========cut=================
($sec,$minute,$hour,$mday,$mon,$year) = localtime; # <--(time+7*3600)
$year += 1900;
@months = (1,2,3,4,5,6,7,8,9,10,11,12);
# $Zeit[2] ist der Tag des Datums
# $Zeit[1] ist der Monat des Datums
$DayChoosed = $ENV{'QUERY_STRING'};
@FileName = ("","wop2ic","op389d","se45qa","ym2a2a","e33dfk","cbopq2","p98wkm","r44vbt","wopwic","dfpi09","axc782","r001qw","s0vbgf","mmflk2","fbv091","a2yop5","fj00dc","s4ghbv","orey6a","lvcklp","a9io76","jn7ery","zpnlw2","skmn43");
$Jetztwert = time();
$Jetztwert = $Jetztwert; # + 7*3600;
$Jetztzeit = localtime($Jetztwert);
@Zeit = split(/ +/,$Jetztzeit);
$date="$months[$mon]";
if ($date == 12)
{
if ($DayChoosed <= $Zeit[2])
{
print "Location: $file_url$DayChoosed/$FileName[$DayChoosed].shtml\n\n";
}
else
{
print "Location: $bad_date\n\n";
}
}
elsif ($date > 12)
{
print "Location: $file_url$DayChoosed/$FileName[$DayChoosed].shtml\n\n";
}
else
{
print "Location: $bad_mon\n\n";
}
=================cut=================
Läßt sich mit Siherheit verwenden und anpassen.
Florian Auer hatte das Script damals geschrieben. Die Idee mit den kryptischen Dateinamen kam von Stefan Münz, und sollte verhindern, dass die User einfach versuchen, anderswie an die Tagesinhalte zu kommen. Für jeden Tag gabs einen anderen Ordner, aber das muss nicht sein.
Patrick