X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=sensor_graph%2Fget_sensor_light.pl;fp=sensor_graph%2Fget_sensor_light.pl;h=0000000000000000000000000000000000000000;hp=85fe63835f03ca83a25f749bd0b4f8718b6cbdd2;hb=ff9137d257207a3a4b03c4f453cc1b7ce1e3cf17;hpb=a34e51d757fe52cb19de2937ae1b211894167524
diff --git a/sensor_graph/get_sensor_light.pl b/sensor_graph/get_sensor_light.pl
deleted file mode 100755
index 85fe638..0000000
--- a/sensor_graph/get_sensor_light.pl
+++ /dev/null
@@ -1,71 +0,0 @@
-#!/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;