Naja, warum wegen 52 Zeilen gleich den Datenbankserver anwerfen. So gehts mit Perl:
Code:
|
#!/usr/bin/perl
# die link.txt sieht so aus
# <a href="http://www.google.de">Hier gehts zu google</a>
# <a href="http://www.yahooh.de">Hier gehts zu yahoo</a>
print "Content-type: text/htmlnn";
$day_of_year = (localtime(time()))[7];
$week_of_year = int($day_of_year / 7);
open(DAT,"<link.txt");
$i=0;
while(<DAT>){
if($i>=$week_of_year){
$link = $_;
last;
}
$i++;
}
close DAT;
print qq|$link<br>|;
exit;
|
|
Demo hier:
http://sperner.50free.net/forum/wochenlink/wochenlink.pl
Hier steht jetzt jede Woche ein neuer Link.
[ Diese Nachricht wurde geändert von: SabineP am 2002-04-29 20:33 ]