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