mirror of
				https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
				synced 2025-10-31 02:38:03 +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
	 Ben Greear
					Ben Greear