#!/usr/bin/perl
#
# Camzeitsteuerung 
# Peter Rohde 31.10.00

@zeit = localtime(time);

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

$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)        # Minutenspeicher vorbereitet
# {$min="$null$minute"}

$pic=".jpg";
$thumb="thumb";

#if($st >= 22) { # CAM ab 22:00 aus
#$st = 22 ;
#}

#if($st <= 7) { # CAM ab 4:00 wieder ein!
#$st = 22 ;
#}

print "Location: http://www.buesum-live/allee$st$thumb$pic\n\n";