From 74aa354dbfd0c8b279efcfbf2becd4cd430d456d Mon Sep 17 00:00:00 2001
From: Ben Greear <greearb@candelatech.com>
Date: Wed, 18 Aug 2021 15:33:06 -0700
Subject: [PATCH] rvr-helper:  Add example helper script for GUI RvR callout.

Incoming feature requested by Comcast.

Signed-off-by: Ben Greear <greearb@candelatech.com>
---
 rvr-helper.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 rvr-helper.pl

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);