#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
my $READING = "82771892";
my $PICURL = "http://192.168.188.22/Bilder/FritzCallFaces/" . $READING . ".png";
my $TEMPDIR = "/home/user/tmp";
sub savePic {
my $filecontent = shift;
my $filename = "$TEMPDIR/$READING.png";
my $fh;
open($fh, ">", $filename);
binmode($fh);
print $fh $filecontent;
close($fh);
}
sub getPicFromServer {
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $PICURL);
my $res = $ua->request($req);
if ($res->is_success()) {
savePic($res->decoded_content());
return "Ok";
} else {
return "Error";
}
}
sub createWebSite {
my $t1 = '
';
my $t2 = '
';
my $t3 = '
';
my $filename = "$TEMPDIR/$READING.html";
my $fh;
open($fh, ">", $filename);
print $fh $t1;
print $fh "$READING.png";
print $fh $t2;
print $fh "\n![](\"$READING.png\")
\n";
print $fh $t3;
close($fh);
}
sub pointFirefox {
my $fname = shift;
my $execstr = "firefox -remote \"openURL(";
$execstr .= "$TEMPDIR/$fname.html)\"";
system($execstr);
}
sub createDefault {
my $htmlname = "$TEMPDIR/default.html";
if (-e $htmlname) {
return;
}
my $t = '
Default-Picture
';
my $fh;
open($fh, ">", $htmlname);
print $fh $t;
close($fh);
}
my $res = getPicFromServer();
if ($res eq "Ok") {
createWebSite();
pointFirefox($READING);
} else {
createDefault();
pointFirefox("default");
}