#!/usr/bin/perl
use warnings;
use strict;
use Rcam;

my $rcam;
my $retval;

print "compiled\n";

$rcam = Rcam->new(host_name => 'tricam');
#print "creation, rcam:$rcam\n";
$rcam->init();


#print "rcam local status:" . $rcam->local . "\n";
#print "rcam hostname:" . $rcam->host_name ."\n"; # doesn't interpolate function
#print "command path:" . $rcam->cmd_path . "\n";
#print "media base path:" . $rcam->media_base_path . "\n";


print "starting capture\n";
$rcam->start_cap();
sleep(3);
$rcam->end_cap();
print "capture ended\n";
sleep 3;
$retval = $rcam->copy_vid();
print "copy returned $retval\n";

