#!/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; } } } } V scan tablesJonathan McCrohan
aboutsummaryrefslogtreecommitdiffstats
path: root/dvb-t/se-Sarna_Mickeltemplet (unfollow)
AgeCommit message (Expand)AuthorFilesLines
2010-06-24update scan files for sk-*Christoph Pfister11-11/+78
2010-06-24update scan file for ch-AllChristoph Pfister1-0/+1
2010-06-24update scan file for au-BrisbaneChristoph Pfister1-0/+2
2010-06-05update scan file for fr-BoulogneChristoph Pfister1-10/+7
2010-06-01update scan file for de-SachsenChristoph Pfister1-1/+1
2010-06-01update scan files for de-*Christoph Pfister10-32/+32
2010-05-24update scan file for fr-ChamberyChristoph Pfister1-24/+18
2010-05-23update scan file for fr-NantesChristoph Pfister1-6/+7
2010-05-23update scan file for fr-Lille-BouvignyChristoph Pfister3-43/+26
2010-05-19update scan file for fr-LavalChristoph Pfister1-6/+6
2010-05-19update scan file for fr-NantesChristoph Pfister1-6/+6
2010-05-16update scan file for de-HamburgChristoph Pfister1-0/+1
2010-05-09update scan file for de-UnitymediaChristoph Pfister1-8/+9
2010-05-02update scan file for hr-AllChristoph Pfister1-1/+1
2010-04-29update scan file for de-PrimacomChristoph Pfister1-0/+5
2010-04-29update scan file for dk-AllChristoph Pfister1-5/+11
2010-04-29update scan file for fi-TurkuChristoph Pfister1-1/+7
2010-04-29update scan file for uk-AberdareChristoph Pfister1-10/+15
2010-04-29update scan file for fr-NantesChristoph Pfister1-6/+6