#!/usr/bin/perl -w
#grabs one additional picture, e.g. if exist v0000000.jpg and v0000001.jpg
#would grab v0000002.jpg
#
#example usage ./seatsafety.pl 95   grabs next image at quality 95
#              ./seatsafety.pl      grabs next image at default quality
#
#all images go into images/ directory

if (defined($ARGV[0])) {
  $jpegq = $ARGV[0]; # that's like ARGV[1] in C.
}
else {
  $jpegq = 50;
}

#$lastframenumber = system("./lastv.pl");
$lastframenumber = `./lastv.pl`;
chomp $lastframenumber;
$nextframenumber = $lastframenumber+1;
#print "lastframe = ".$lastframenumber."\n";
#print "nextframe = ".$nextframenumber."\n";

system("streamer -opork_jpg -n1 -i1 -fjpeg -j$jpegq -s640x480 &> /dev/null");

$commandstr = sprintf("mv pork_jpg images/v%07d.jpg",$nextframenumber);
#print $commandstr."\n";
system($commandstr);
#system(sprintf("mv pork_jpg images/v%07d.jpg",$nextframenumber));