#!/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; 

 

#!/usr/bin/perl 

 

# die linkblank.txt sieht jetzt so aus 

 

# http://www.google.de 

# http://www.yahooh.de 

 

$day_of_year = (localtime(time()))[7]; 

$week_of_year = int($day_of_year / 7); 

 

open(DAT,"<linkblank.txt"); 

 

$i=0; 

while(<DAT>){ 

 

	if($i>=$week_of_year){ 

		$link = $_; 

		last; 

	} 

	$i++; 

} 

close DAT; 

 

print "Location: $linknn"; 

 

exit;