#!/usr/local/bin/perl
#
# Logfile bplan.banner
# by Peter Rohde (webmaster@kueste.de)
# 

@zeit = localtime(time);

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

if($stunde >= 24)
{ ($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"}


$mainlog = "../log/bplan.log";
open (MAINLOG, ">>$mainlog");
print MAINLOG "---------------------------------------------------------Buesumplan.pl--\n";
print MAINLOG "Zeit: $st:$min:$sek $tag.$mon $zeit[5] ";
print MAINLOG "Host: $ENV{'REMOTE_HOST'}\n ";
print MAINLOG "von: $ENV{'HTTP_REFERER'} ";
print MAINLOG "Browser: $ENV{'HTTP_USER_AGENT'}\n";
close (MAINLOG);

($stunde, $minute, $sekunde) = ($zeit[2], $zeit[1], $zeit[0]);
($stunde) = ($stunde + 0);

if($stunde >= 24)
{ ($stunde) = ($stunde - 24) }
print "Location: ../timer/banner/$stunde.jpg\n\n";