#!/usr/bin/perl

use Video::Capture::V4l;
use Video::RTjpeg;

$|=1;
$SIG{PIPE} = 'IGNORE';

$stream = "/tmp/vstream";
require $stream;

my $mode = $channels > 1 ? "s" : "i";
my $br = 192;

$audioencode = "/root/cvt/mpeg_movie-1.6.0/audio_in/encode";
$ENV{MPEGTABLES} = "/root/cvt/mpeg_movie-1.6.0/audio_in/tables";

system "dd", "if=$outprefix.a", "of=$outprefix.pcm", "conv=swab";

open ENC, "| $audioencode" or die;
print ENC <<EOF;
$outprefix.pcm
$outprefix.mp2
$rate
2
$mode
1
$br
n
n
n
n
n
n
EOF
close ENC;

exit;
unlink "$outprefix.pcm";

