My WebCam

[Rolf]

Hallo,

als meinen Spaß der Woche habe ich mir das folgende Script einfallen lassen, mal Hand aufs Herz: "Wozu eine richtige WebCam?"

Erwischt der Betrachter nun mal eine vorbeifliegende Taube oder die "Little Sister" auf dem Weg zum Kühlschrank... ? hmmm. Ich meine, das folgende Script tuts auch... ;-) Rolf (teuflisch)

---wc.cgi---
#!/usr/bin/perl

wc.cgi simuliert eine Web-Cam und schickt ein Tag/Nachtbild zum Browser

Zwischen 6-18Uhr -> Tagbild, sonst Nachtbild

Pfade zu den Bildern

$tagbild = "/home/i-netlab.de/htdocs/wc/dom_tag.jpg";
$nachtbild = "/home/i-netlab.de/htdocs/wc/dom_nacht.jpg";

Je nach Stunde die entsprechende Bilddatei..

if(&stunde >= 6 && &stunde <= 18){
$bilddatei = $tagbild;
}
else{
$bilddatei = $nachtbild;
}

open(BILD, $bilddatei) &fehler;

Den Header senden...

print "Content-type: image/jpeg\n\n";

binmode(BILD); # Hier ist der Knackpunkt!
binmode(STDOUT);

while(read(BILD, $puffer, 1024)) {
print $puffer;
}
close(BILD);

gibt die Stunde zurück

sub stunde{
my (@zeitarray) = localtime(time());
return "$zeitarray[2]";
}

Fehler parieren

sub fehler{
print "content-type:text/html\n\n";
print "Kann Bilddatei nicht öffnen";
exit;
}
---eof---