#!/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 "Location: http://www.kueste.de\n\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/kueste.htm";

open (MAINLOG, ">>$mainlog");
print MAINLOG "$datum $lade ";
print MAINLOG "<a href=http://www.ripe.de/cgi-bin/whois?query=$ENV{'REMOTE_HOST'}> $ENV{'REMOTE_HOST'} </a>";
print MAINLOG " $ENV{'HTTP_USER_AGENT'}<br>\n";
close (MAINLOG);