diff --git a/rvr-helper.pl b/rvr-helper.pl new file mode 100755 index 00000000..f7b61d44 --- /dev/null +++ b/rvr-helper.pl @@ -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);