#!/usr/bin/perl use strict; use vars qw ($file $DELAY); ########## CONFIG $file = "lcd4linux"; # .png is appended $DELAY = 0; # delay in seconds # if delay is zero, file is sent when modified. ################# use CGI qw/:push -nph/; $| = 1; my ($mtime, $nmtime, $size, $nsize); (undef, undef, undef, undef, undef, undef, undef, $size, undef, $mtime) = stat "$file.png"; print multipart_init(-boundary=>'----------------here we go!'); while (1) { print multipart_start(-type=>'image/png'); undef $/; open(IN, "$file.png") or die("Can't read '$file.png'"); $_ = ; print $_; close(IN); print multipart_end; if ($DELAY) { sleep $DELAY; } else { W: while (1) { # sleep(1); (undef, undef, undef, undef, undef, undef, undef, $nsize, undef, $nmtime) = stat "$file.png"; if($mtime != $nmtime || $size != $nsize) { $mtime = $nmtime; $size = $nsize; last W; } } } } tabs'> aboutsummaryrefslogtreecommitdiffstats
path: root/debian/modbuslog-doc.install (unfollow)
AgeCommit message (Collapse)AuthorFilesLines
2012-03-05Refactor codeJonathan McCrohan2-6/+4
No source chances, reindent only.
2012-03-05Add syslog loggingJonathan McCrohan1-24/+57
2012-03-04Remove unused #define statementsJonathan McCrohan1-3/+0
2012-02-20Prune archive after 3 monthsJonathan McCrohan3-0/+7
2012-02-20Update documentationJonathan McCrohan1-3/+5
2012-02-20Add PHP to make installJonathan McCrohan1-0/+3
2012-02-20dh_make initialJonathan McCrohan29-0/+1063
2012-02-20Update MakefileJonathan McCrohan1-0/+17
2012-02-20Move interval.txt to src/Jonathan McCrohan2-1/+1
2012-02-19Remove debug/testing files.Jonathan McCrohan50-4742/+0
2012-02-15Archive files after upload.Jonathan McCrohan1-0/+2
2012-02-12Fix typo in README.Jonathan McCrohan1-1/+1
2012-02-12Add ftp upload function + add documentation.Jonathan McCrohan5-3/+151
2012-01-10Handle 32bit signed overflow.Jonathan McCrohan1-1/+6
2012-01-10Update README.Jonathan McCrohan1-1/+3