mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-28 17:32:35 +00:00
rvr-helper: Add example helper script for GUI RvR callout.
Incoming feature requested by Comcast. Signed-off-by: Ben Greear <greearb@candelatech.com>
This commit is contained in:
33
rvr-helper.pl
Executable file
33
rvr-helper.pl
Executable file
@@ -0,0 +1,33 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
# Example (fake) rvr-helper script. The Rate-vs-Range test can be made to call out
|
||||
# to scripts/programs, with goal that this script can return some additional info in csv format.
|
||||
# The output will then be incorporated into the RvR report.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use diagnostics;
|
||||
use Getopt::Long;
|
||||
|
||||
our $usage = qq($0: Rate vs Range DUT callout example
|
||||
--headers Output headers.
|
||||
);
|
||||
|
||||
my $headers = undef;
|
||||
|
||||
GetOptions(
|
||||
'headers' => \$headers,
|
||||
) || die("$usage");
|
||||
|
||||
if ($headers) {
|
||||
# A real script might query AP for its view of MCS, RSSI, etc.
|
||||
print "date,user\n";
|
||||
exit(0);
|
||||
}
|
||||
|
||||
my $dt = `date`;
|
||||
chomp($dt);
|
||||
my $me = `whoami`;
|
||||
chomp($me);
|
||||
print($dt . "," . $me . "\n");
|
||||
exit(0);
|
||||
Reference in New Issue
Block a user