#!/usr/local/bin/perl
#
# linkloader by pr 99
# 29.5.99
#

$lade = $ENV{'QUERY_STRING'};
$lade =~ tr/+/ /;
$lade =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "Content-Type: text/html\n\n";


$f= "<frameset border=0 frameborder=0 framespacing=0 rows=50,*><frame src=../buesum/links/index.htm name=buesum.de scrolling=no target=buesumlinks ><frame src=$lade name=buesumlinks>";

if ("$lade" =~ "kueste.de") {
$f= "<script language=JavaScript>var frame_on=1</script><frameset border=0 frameborder=0 framespacing=0 rows=30,*><frame src=../buesum/links/index2.htm name=buesum.de scrolling=no target=buesumlinks ><frame src=$lade name=buesumlinks>";
}


print"$f</frameset></html>\n";

@zeit = localtime(time);

($stunde, $minute, $sekunde) = ($zeit[2], $zeit[1], $zeit[0]);
($stunde) = ($stunde - 0);
$null="0";
$st=$stunde;
$min=$minute;
$sek=$sekunde;
$tag = $zeit[3];

if($stunde <= 0)
{ ($stunde) = ($stunde + 24); 
($tag) =($tag-1)}

if ($stunde < 10)
{$st="$null$stunde"}

if ($minute < 10)
{$min="$null$minute"}

if ($sekunde < 10)
{$sek="$null$sekunde"}

if ($zeit[4] eq 0)
{$mon="Januar"}
if ($zeit[4] eq 1)
{$mon="Februar"}
if ($zeit[4] eq 2)
{$mon="Maerz"}
if ($zeit[4] eq 3)
{$mon="April"}
if ($zeit[4] eq 4)
{$mon="Mai"}
if ($zeit[4] eq 5)
{$mon="Juni"}
if ($zeit[4] eq 6)
{$mon="Juli"}
if ($zeit[4] eq 7)
{$mon="August"}
if ($zeit[4] eq 8)
{$mon="September"}
if ($zeit[4] eq 9)
{$mon="Oktober"}
if ($zeit[4] eq 10)
{$mon="November"}
if ($zeit[4] eq 11)
{$mon="Dezember"}

$jahr=$zeit[5]+1900;
$datum = "$tag.$mon $jahr $st:$min:$sek";

$mainlog = "../log/buesumdownlinks.$mon";
open (MAINLOG, ">>$mainlog");
print MAINLOG "$lade $datum\n";
close (MAINLOG);

	