scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-30 02:12:38 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
62c32e5a5a3b328e4c63cb8b4a1f415a73c3863d
wlan-lanforge-scripts/l3_video_em.pl
Jed Reynolds 62c32e5a5a l3_video: fixes parse error
2020-01-28 18:40:57 -08:00

233 lines
9.1 KiB
Perl
Executable File
Raw Blame History

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
# Un-buffer output
$| = 1;
if ( -f "LANforge/Endpoint.pm" ) {
use lib "./";
}
else {
use lib '/home/lanforge/scripts';
}
use LANforge::Endpoint;
use LANforge::Port;
use LANforge::Utils;
use Net::Telnet ();
use Getopt::Long;
our $resource = 1;
our $quiet = "yes";
our $endp_name = "";
our $speed = "-1";
our $action = "";
our $do_cmd = "NA";
our $lfmgr_host = "localhost";
our $lfmgr_port = 4001;
our $tx_style = "";
our $cx_name = "";
our $tx_side = "B";
our $min_tx = undef;
our $max_tx = -1;
our $est_buf_size = -1;
our $log_cli = 0;
our $stream_res = undef;
our @frame_rates = ( 10, 12, 15, 24, 25, 29.97, 30, 50, 59.94, 60);
our $frame_rates_desc = join(", ", @::frame_rates);
our $frame_rate = 30;
our $audio_rate = 32000; # 128k is used on Blueray DVDs
our @audio_rates = 128000; # 128k
# https://en.wikipedia.org/wiki/Standard-definition_television
# https://www.adobe.com/devnet/adobe-media-server/articles/dynstream_live/popup.html
# https://en.wikipedia.org/wiki/ISDB-T_International
# https://en.wikipedia.org/wiki/Frame_rate
# https://en.wikipedia.org/wiki/List_of_broadcast_video_formats
# https://blog.forret.com/2006/09/27/hd-720p-1080i-and-1080p/
# Framerate is highly subjective in digital formats, because there are
# variable frame rates dictated by min- and max-frame rate.
our %avail_stream_res = (
# nicname w, h, interlaced, audio, vid bps, tt bps framerate
"sqvga-4:3" => [ 160, 120, 0, 16000, 32000, 48000, 30],
"sqvga-16:9" => [ 160, 90, 0, 16000, 32000, 48000, 30],
"qvga-4:3" => [ 320, 240, 0, 16000, 32000, 48000, 30],
"qvga-16:9" => [ 320, 180, 0, 16000, 32000, 48000, 30],
"qcif-48k-4:3" => [ 144, 108, 0, 16000, 32000, 48000, 30],
"qcif-48k-16:9" => [ 192, 108, 0, 16000, 32000, 48000, 30],
"qcif-96k-4:3" => [ 192, 144, 0, 16000, 80000, 96000, 30],
"qcif-96k-16:9" => [ 256, 144, 0, 16000, 80000, 96000, 30],
"cif" => [ 352, 288, 0, 32000, 268000, 300000, 30],
"cif-300k-4:3" => [ 288, 216, 0, 32000, 268000, 300000, 30],
"cif-300k-16:9" => [ 384, 216, 0, 32000, 268000, 300000, 30],
"cif-500k-4:3" => [ 320, 240, 0, 32000, 468000, 500000, 30],
"cif-500k-16:9" => [ 384, 216, 0, 32000, 468000, 500000, 30],
"d1-800k-4:3" => [ 640, 480, 0, 32000, 768000, 800000, 30],
"d1-800k-16:9" => [ 852, 480, 0, 32000, 768000, 800000, 30],
"d1-1200k-4:3" => [ 640, 480, 0, 32000, 1168000, 1200000, 30],
"d1-1200k-16:9" => [ 852, 480, 0, 32000, 1168000, 1200000, 30],
"hd-1800k-16:9" => [ 1280, 720, 0, 64000, 1736000, 1800000, 59.94],
"hd-2400k-16:9" => [ 1280, 720, 0, 64000, 2272000, 2400000, 59.94],
"108p4:3" => [ 144, 108, 0, 16000, 32000, 48000, 30],
"144p16:9" => [ 192, 144, 0, 16000, 80000, 96000, 30],
"216p4:3" => [ 288, 216, 0, 32000, 268000, 300000, 30],
"216p16:9" => [ 384, 216, 0, 32000, 268000, 300000, 30],
"240p4:3" => [ 320, 240, 0, 32000, 468000, 500000, 30],
"360p4:3" => [ 480, 360, 0, 32000, 768000, 800000, 30],
"480i4:3" => [ 640, 480, 1, 32000, 768000, 800000, 30],
"480p4:3" => [ 640, 480, 0, 32000, 768000, 800000, 30],
"480p16:9" => [ 852, 480, 0, 32000, 1168000, 1200000, 30],
# unadopted standard
#"720i" => [ 1280, 720, 1, 64000, 1736000, 1800000, 30],
# 0.92 megapixels, 2.76MB per frame
"720p" => [ 1280, 720, 0, 64000, 1736000, 1800000, 59.94],
# https://support.google.com/youtube/answer/1722171?hl=en
# h.264 stream rates, SDR quality
"yt-sdr-360p30" => [ 640, 360, 0, 128000, 1000000, 1800000, 30],
"yt-sdr-480p30" => [ 852, 480, 0, 128000, 2500000, 1800000, 30],
"yt-sdr-720p30" => [ 1280, 720, 0, 384000, 5000000, 1800000, 30],
"yt-sdr-1080p30" => [ 1920, 1080, 0, 384000, 8000000, 1800000, 30],
"yt-sdr-1440p30" => [ 2560, 1440, 0, 512000, 16000000, 1800000, 30],
"yt-sdr-2160p30" => [ 3840, 2160, 0, 512000, 40000000, 1800000, 30],
"yt-sdr-360p60" => [ 640, 360, 0, 128000, 1500000, 1800000, 60],
"yt-sdr-480p60" => [ 852, 480, 0, 128000, 4000000, 1800000, 60],
"yt-sdr-720p60" => [ 1280, 720, 0, 384000, 7500000, 1800000, 60],
"yt-sdr-1080p60" => [ 1920, 1080, 0, 384000, 12000000, 1800000, 60],
"yt-sdr-1440p60" => [ 2560, 1440, 0, 512000, 24000000, 1800000, 60],
"yt-sdr-2160p60" => [ 3840, 2160, 0, 512000, 61000000, 1800000, 60],
#"yt-hdr-360p60" => [ 1280, 720, 0, 32000, 1000000, 1800000, 60], # yt unsupported
#"yt-hdr-480p60" => [ 1280, 720, 0, 32000, 1000000, 1800000, 60], # yt unsupported
"yt-hdr-720p30" => [ 1280, 720, 0, 384000, 6500000, 1800000, 30],
"yt-hdr-1080p30" => [ 1920, 1080, 0, 384000, 10000000, 1800000, 30],
"yt-hdr-1440p30" => [ 2560, 1440, 0, 512000, 20000000, 1800000, 30],
"yt-hdr-2160p30" => [ 3840, 2160, 0, 512000, 50000000, 1800000, 30],
"yt-hdr-720p60" => [ 1280, 720, 0, 384000, 9500000, 1800000, 60],
"yt-hdr-1080p60" => [ 1920, 1080, 0, 384000, 15000000, 1800000, 60],
"yt-hdr-1440p60" => [ 2560, 1440, 0, 512000, 30000000, 1800000, 60],
"yt-hdr-2160p60" => [ 3840, 2160, 0, 512000, 75500000, 1800000, 60],
"raw720p30" => [ 1280, 720, 0, 64000, 1736000, 221184000, 30],
"raw720p60" => [ 1280, 720, 0, 64000, 1736000, 442368000, 60],
# frame size 6.2MB
# 1080i60 1920x1080 186MBps
"raw1080i" => [ 1920, 540, 1, 128000, 1736000, 1486512000, 59.94],
"raw1080i30" => [ 1920, 540, 1, 128000, 1736000, 1488000000, 30],
"raw1080i60" => [ 1920, 540, 1, 128000, 1736000, 1488000000, 60],
# 1080p60 1920x1080 373MBps, 6.2Mbps frame size
"raw1080p" => [ 1920, 1080, 0, 128000, 1736000, 2976000000, 60],
);
our $avail_stream_desc = join(", ", keys(%avail_stream_res));
our $resolution = "720p";
our $usage = "$0 # modulates a Layer 3 CX to emulate a video server
--mgr {hostname | IP}
--mgr_port {ip port}
--tx_style { constant | bufferfill }
--cx_name {name}
--set_tx {A|B} # which side is emulating the server,
# default $tx_side
--min_tx {speed in bps}
--max_tx {speed in bps|SAME}
--est_buf_size {kilobytes} # fill a buffer at max_tx for this long
--frame_rate {$frame_rates_desc}
# default $frame_rate
--stream_res {$avail_stream_desc}
# default $resolution
";
my $show_help = 0;
if (@ARGV < 2) {
print $usage;
exit 0;
}
GetOptions
(
'help|h' => \$show_help,
'cx_name|e=s' => \$::cx_name,
'set_tx|side|s=s' => \$::tx_side,
'mgr|m=s' => \$::lfmgr_host,
'mgr_port|p=i' => \$::lfmgr_port,
'tx_style|style=s' => \$::tx_style,
'est_buf_size|buf=i' => \$::est_buf_size,
) || die($::usage);
if ($show_help) {
print $usage;
exit 0;
}
if ($::quiet eq "0") {
$::quiet = "no";
}
elsif ($::quiet eq "1") {
$::quiet = "yes";
}
if (defined $log_cli) {
if ($log_cli ne "unset") {
# here is how we reset the variable if it was used as a flag
if ($log_cli eq "") {
$ENV{'LOG_CLI'} = 1;
}
else {
$ENV{'LOG_CLI'} = $log_cli;
}
}
}
if ($::quiet eq "1" ) {
$::quiet = "yes";
}
# Wait up to 60 seconds when requesting info from LANforge.
my $t = new Net::Telnet(Prompt => '/default\@btbits\>\>/',
Timeout => 60);
$t->open(Host => $::lfmgr_host,
Port => $::lfmgr_port,
Timeout => 10);
$t->max_buffer_length(16 * 1024 * 1000); # 16 MB buffer
$t->waitfor("/btbits\>\>/");
# Configure our utils.
our $utils = new LANforge::Utils();
$::utils->telnet($t); # Set our telnet object.
if ($::utils->isQuiet()) {
if (defined $ENV{'LOG_CLI'} && $ENV{'LOG_CLI'} ne "") {
$::utils->cli_send_silent(0);
}
else {
$::utils->cli_send_silent(1); # Do not show input to telnet
}
$::utils->cli_rcv_silent(1); # Repress output from telnet
}
else {
$::utils->cli_send_silent(0); # Show input to telnet
$::utils->cli_rcv_silent(0); # Show output from telnet
}
$::utils->log_cli("# $0 ".`date "+%Y-%m-%d %H:%M:%S"`);
# print out choices for now
Reference in New Issue View Git Blame Copy Permalink