stream.pl

Nemesis a complete Linux video security system. It s idea is a cheap replacement for your commercia

#!/usr/bin/perl -w 

# The image directories
@dirs = ("/mnt/a/1", "/mnt/a/2", "/mnt/a/3", "/mnt/b/1", "/mnt/b/2", "/mnt/b/3", "/mnt/c/1", "mnt/c/2", "/mnt/c/3", "/mnt/d/1", "/mnt/d/2", "/mnt/d/3", "/mnt/e/1", "/mnt/e/2", "/mnt/e/3", "/mnt/f/1", "/mnt/f/2", "/mnt/f/3", "/mnt/g/1", "/mnt/g/2", "/mnt/h", "/mnt/i", "/mnt/j", "/mnt/k");

# Constants
$input = 1;		# Compositr input source
$fps = 5;	
$frames_in_hour = 60*60*$fps;

# Command line arguments
$hour = $ARGV[0];
$minute = $ARGV[1];
$second = $ARGV[2];

$start = ($minute*60 + $second)*$fps;

$frames = $frames_in_hour - $start - 10;

$start = sprintf "%05d", $start;



$ENV{"DISPLAY"}=":0";

$x = system("/usr/X11/bin/xdpyinfo 2>/dev/null >/dev/null");
if ($x == 0) {
	$xcom = "-x";
} else {
	$xcom = "";
}

chdir $dirs[$hour] or die "couldn't cd";

system "/usr/local/bin/streamer -q $xcom -r $fps -t $frames -o $start.jpg -i $input"; 

exit;