#!/usr/bin/perl

%nets = (	'9', '-qam 64 -cr 3_4 -bw 7 -tm 8 -f 191625',
		'10', '-qam 64 -cr 3_4 -gi 16 -bw 7 -tm 8 -f 219500',
		'7', '-qam 64 -cr 2_3 -gi 8 -bw 7 -tm 8 -f 177500',
		'28', '-qam 64 -cr 2_3 -gi 8 -bw 7 -tm 8 -f 536625',
		'2', '-qam 64 -cr 3_4 -gi 16 -bw 7 -tm 8 -f 226500');

%pids = (	'7-sd', '769 770',
		'2-sd', '512 650' ,
		'10-sd', '512 650',
		'28-sd', '161 81',
		'9-sd', '513 660');

$net = shift @ARGV;
$time = shift @ARGV;
$filename = shift @ARGV;
$type = "sd";

#print "$time, $net, $type\n";

$cmd = "/usr/local/bin/dvbstream " . $nets{"$net"} . " -n $time -ps -o " . $pids{"$net-$type"};

system qq($cmd > "$filename");