#!/usr/bin/perl
#
# check /proc/video/dev/video0 to see if it's attached
# to usb camera or Hauppauge card

$DEVFILE = "/proc/video/dev/video0";
open(VIDEO0, "$DEVFILE") or die "Can't open $DEVFILE\n";
$VIDLINE = <VIDEO0>;
close(VIDEO0);
@VIDLINE = split / :/, $VIDLINE;
if(grep /USB/, @VIDLINE) {
  $GARAGE_CAM = "/dev/video0";
  }
else {
  $GARAGE_CAM = "/dev/video1";
  }
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;
$date = sprintf "%02d%02d%4d_%02d%02d", $mon, $mday, $year, $hour,$min;
$basename = "/home/hac/";
$filename = "/tmp/garage" . $date . ".jpg";
$webname = $basename . "mh/web/ia5/security/captures/garage_latest.jpg";
system("v4lctl -c $GARAGE_CAM setinput Camera >/dev/null 2>&1");
system("v4lctl -c $GARAGE_CAM snap jpeg 640x480 $webname >/dev/null 2>&1");
if($#ARGV == 0 && $ARGV[0] eq "mail") {
  system("cp $webname $filename");
  }

