mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-28 17:32:35 +00:00
74aa354dbf
Incoming feature requested by Comcast. Signed-off-by: Ben Greear <greearb@candelatech.com>
34 lines
718 B
Perl
Executable File
34 lines
718 B
Perl
Executable File
#!/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);
|