wmwebcam/wmwebcam.pl

   1 #!/usr/bin/perl
   2
   3 # this script checks if the ppp connection is on and then stamps the
   4 # images and sends them to the webserver
   5
   6 # check if the ppp is on before stamping&sending, otherwise don't do
   7 # anything
   8 $areweonline = `grep "ppp" /proc/net/route`;
   9
  10 if (length $areweonline != 0) { # THIS IS JUST MY CONFIGURATION,
  11                                 # CHANGE TO YOUR OWN
  12
  13 system "stamp";    # stamp reads /tmp/wmwebcam.jpg and outputs
  14                    # /tmp/webcam.jpg with some info (has to be
  15                    # configured to do so)
  16 # get stamp from:
  17 # http://sourceforge.net/projects/stamp
  18
  19 # NOTE: stamp has the ability to send the image to server via ftp, but I
  20 # prefer using scp.
  21
  22 system "scp -q /tmp/webcam.jpg SOME_HOST:public_html/webcam.jpg";
  23                    # replace the previous line to suit your needs
  24                    # or disable if you use stamp's own ftpsend
  25 } else {
  26 # don't do anything
  27 }