From d0c7529cb9833ede3595051df5599a11fe03be48 Mon Sep 17 00:00:00 2001
From: Reinhard Tartler <siretart@tauware.de>
Date: Thu, 5 Apr 2007 15:25:19 +0200
Subject: import new upstream

---
 nph-png | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100755 nph-png

(limited to 'nph-png')

diff --git a/nph-png b/nph-png
deleted file mode 100755
index 0240b64..0000000
--- a/nph-png
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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'");
-  $_ = <IN>;
-  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;
-      }	
-    }	 
-  }	
-}
-
-- 
cgit v1.2.3