Add display from webcam to stage controller

diff --git a/stages/index.html b/stages/index.html
index 0bac9ec3f5595b2b87a0a7ed5ff3e2be53040cd0..267acc8b369e6ac9914b63a54e0a12404bd3fb02 100644 (file)
--- a/stages/index.html
+++ b/stages/index.html
@@ -88,7 +88,7 @@ var data;
       case "zero":     commands += "DP 0,0;"; break;
       case "anycommand": commands += val+";";break;
       }
-    commands += "PA?;PA,?;PR?;PR,?;";  
+    commands += "PA?;PA,?;";  
     runcmd(commands);  
     }
     
@@ -109,6 +109,7 @@ var data;
 <div class="position">Last Update:<br><span id="timestamp">--</span></div>
 
 <h2 style="clear:both;">Move</h2>
+<img id="webcam" src="webcam.pl?-1">
 <p>Enter value (in mm) and press Enter to execute command
 <br><label title="rel X">rel X <input type="text" name="MoverelX" value="0" onkeypress="doenter(event,this)"></label>
 <br><label title="rel Y">rel Y <input type="text" name="MoverelY" value="0" onkeypress="doenter(event,this)"></label>
@@ -120,5 +121,11 @@ var data;
 <p>Run any other command
 <br><label title="any command">Command <input type="text" name="anycommand" value="" onkeypress="doenter(event,this)" ></label>
 <h2>Console</h2>
-<div id="errors"></div>
-</body>
+<div id="errors"></div></body>
+
+<script type="text/javascript">
+var i = 0;
+setInterval("document.getElementById('webcam').src = 'webcam.pl?'+i++",10000);
+setInterval("doit(document.getElementsByName('refresh')[0])",9000);
+setTimeout("doit(document.getElementsByName('refresh')[0])",500);
+</script>

diff --git a/stages/style.css b/stages/style.css
index eb546f117715a6cbd2c99fde49d0f9a2a91c1d33..f498e5d52ffe69b768f7175a1c288ca1fe911e2c 100644 (file)
--- a/stages/style.css
+++ b/stages/style.css
@@ -19,3 +19,8 @@ div.position .value{
   text-align:right;
   font-family:monospace;
 }  
+
+img {
+  display:block;
+  float:right;
+}

diff --git a/stages/webcam.pl b/stages/webcam.pl
new file mode 100755 (executable)
index 0000000..4f4d325
--- /dev/null
+++ b/stages/webcam.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl 
+if ($ENV{'SERVER_SOFTWARE'} =~ /HTTP-?i/i) {
+  &htsponse(200, "OK");
+  }
+
+print "Content-Type: image/jpeg;\r\n\r\n";
+
+system("fswebcam -F5 -d /dev/video1 -r 1280x720 --scale 844x475  --jpeg 80 '-' 2>/dev/null");
+return 1;