X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=sensor_graph%2Fget_sensor_light.pl;fp=sensor_graph%2Fget_sensor_light.pl;h=85fe63835f03ca83a25f749bd0b4f8718b6cbdd2;hb=206ca77952614d9bfa0925bd3c9287bf88459cae;hp=0000000000000000000000000000000000000000;hpb=2fb32081f6e153dd6529ae581b441a504160d649;p=svn42.git
diff --git a/sensor_graph/get_sensor_light.pl b/sensor_graph/get_sensor_light.pl
new file mode 100644
index 0000000..85fe638
--- /dev/null
+++ b/sensor_graph/get_sensor_light.pl
@@ -0,0 +1,71 @@
+#!/usr/bin/perl -w
+#
+#
+
+use strict;
+use utf8;
+require LWP::UserAgent;
+my $ua = LWP::UserAgent->new(env_proxy => 1,
+ keep_alive => 1,
+ timeout => 30,
+ );
+use HTTP::Cookies;
+use LWP;
+$ua->cookie_jar({});
+
+###############
+$sensor::url_refresh = "http://slug.realraum.at/cgi-bin/sensor-light.cgi";
+$sensor::url_image = "http://slug.realraum.at/light0.png";
+$sensor::localpath = "/tmp/light0.png";
+$sensor::mintime = 0.0015;
+###############
+
+sub output_saved_image
+{
+ return 0 if ( not -e $sensor::localpath);
+ my $fh;
+ print STDOUT "Content-type: image/png\n\n";
+ open($fh,"<$sensor::localpath") or exit;
+ while (<$fh>) {print $_};
+ close($fh);
+ return 1;
+}
+
+sub output_remote_image_and_save
+{
+ my $response;
+ $response = $ua->get($sensor::url_refresh);
+ return 0 unless (defined $response);
+ $response = $ua->get($sensor::url_image);
+ if (defined $response and $response->content =~ /^\x89PNG/)
+ {
+ my $fh;
+ open($fh,">$sensor::localpath");
+ print $fh $response->content;
+ close($fh);
+ print STDOUT "Content-type: image/png\n\n";
+ print $response->content;
+ $response->clear;
+ return 1;
+ }
+ return 0;
+}
+
+sub output_error
+{
+ print STDOUT "Status: 404 Not Found\n";
+ print STDOUT "Content-type: text/html\n\n";
+ print STDOUT "Sorry
The picture you requested could not be found
\n";
+ return 1;
+}
+
+if (-e $sensor::localpath and -M $sensor::localpath < $sensor::mintime)
+{
+ exit if (&output_saved_image);
+}
+else
+{
+ exit if (&output_remote_image_and_save);
+ exit if (&output_saved_image);
+}
+&output_error;