vvelox
/
Net-Wireless-802_11-WPA-CLI
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Various documentation updates and fix the cleaned up list_networks method. 

git-svn-id: svn://127.0.0.1/Perl/Net::Wireless::802_11::WPA::CLI/trunk@534 0c1c3402-1be1-de11-8092-0022686faf23
This commit is contained in:
Zane C. B-H 2011-08-19 10:41:42 +00:00
parent 773c7bcfc0
commit 4306a00ae6
1 changed files with 54 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
Net-Wireless-802_11-WPA-CLI/lib/Net/Wireless/802_11/WPA/CLI.pm
View File

@ -130,11 +130,60 @@ sub add_network{
=head2 bss
This requests additional information about a AP found in
scan_results.
A single argument is required and it is the BSSID.
No arguments are taken.
The returned value is a hash.
my %status=$foo->bss;
=head3 returned hash
=head4 bssid
This is the BSSID in for the base station ID.
=head4 freq
This is the frequency in Mhz.
=head4 beacon_int
This is the beacon interval.
=head4 capabilities
This is the AP capabilities.
=head4 qual
This is the signal quality.
=head4 noise
This is the signal noise level.
=head4 level
This is the RSSI.
=head4 tsf
This is the timing syncronization function.
=head4 ie
This is what ever the ie value is.
=head4 flags
This is the flags for the AP.
=head4 ssid
This is the SSID for the for AP in question.
my %status=$foo->bss($bssid);
if( $foo->error ){
warn('Error:'.$foo->error.': '.$foo->errorString);
}
@ -462,20 +511,12 @@ sub list_networks{
$hash{$nid}={};
if(defined( $linesplit[3] )){
$hash{$nid}{flags}=$linesplit[4];
$hash{$nid}{flags}=$linesplit[3];
}
$hash{$nid}{bssid}=$linesplit[3];
$hash{$nid}{bssid}=$linesplit[2];
$hash{$nid}{ssid}=$linesplit[2];
# my $ssidIntMax=$#linesplit-2;
# my $ssidInt=1;
# while( $ssidInt <= $ssidIntMax ){
# $hash{$nid}{ssid}=$hash{$nid}{ssid}.' '.$linesplit[$ssidInt];
#
# $ssidInt++;
# }
$hash{$nid}{ssid}=$linesplit[1];
$returnedAint++;
}