Browse Source

clean up some of the POD formatting

master
Zane C. B-H 11 months ago
parent
commit
e46562448e

+ 3
- 0
Net-Wireless-802_11-WPA-CLI/Changes View File

@@ -1,5 +1,8 @@
1 1
 Revision history for Net-Wireless-802_11-WPA-CLI
2 2
 
3
+2.1.0	2018-?-?/?:?
4
+	    - POD formatting cleanup.
5
+
3 6
 2.1.0	 2011-08-19/06:00
4 7
 		 -Add missing dependency to Makefile.PL.
5 8
 		 -POD cleanup.

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

@@ -33,7 +33,7 @@ This initializes the object to be used for making use of wpa_cli.
33 33
 
34 34
     my $foo->Net::Wireless::802_11::WPA::CLI->new();
35 35
     if( $foo->error ){
36
-	    warn('Error:'.$foo->error.': '.$foo->errorString);
36
+        warn('Error:'.$foo->error.': '.$foo->errorString);
37 37
     }
38 38
 
39 39
 =cut
@@ -92,7 +92,7 @@ No arguments are taken.
92 92
 
93 93
 The returned value is a the new network ID.
94 94
 
95
-	$newNetworkID=$foo->add_network;
95
+    $newNetworkID=$foo->add_network;
96 96
     if( $foo->error ){
97 97
         warn('Error:'.$foo->error.': '.$foo->errorString);
98 98
     }
@@ -185,9 +185,9 @@ This is the SSID for the for AP in question.
185 185
 
186 186
     my %status=$foo->bss($bssid);
187 187
     if( $foo->error ){
188
-	    warn('Error:'.$foo->error.': '.$foo->errorString);
188
+        warn('Error:'.$foo->error.': '.$foo->errorString);
189 189
     }
190
-    
190
+
191 191
 =cut
192 192
 
193 193
 sub bss{
@@ -254,7 +254,7 @@ Disconnect and wait for a reassosiate command.
254 254
 
255 255
 No arguments are taken.
256 256
 
257
-	$return=$foo->disconnect;
257
+    $return=$foo->disconnect;
258 258
     if( $foo->error ){
259 259
         warn('Error:'.$foo->error.': '.$foo->errorString);
260 260
     }
@@ -277,7 +277,7 @@ This disables a network ID.
277 277
 
278 278
 One argument is required and that is the network ID in question.
279 279
 
280
-	$foo->disable_network($networkID)
280
+    $foo->disable_network($networkID)
281 281
     if( $foo->error ){
282 282
         warn('Error:'.$foo->error.': '.$foo->errorString);
283 283
     }
@@ -309,7 +309,7 @@ This enables a network ID.
309 309
 
310 310
 One argument is required and that is the network ID to enable.
311 311
 
312
-	$foo->enable_network($networkID)
312
+    $foo->enable_network($networkID)
313 313
     if( $foo->error ){
314 314
         warn('Error:'.$foo->error.': '.$foo->errorString);
315 315
     }
@@ -348,7 +348,7 @@ that can be requested are as below.
348 348
 
349 349
 No arguments are taken.
350 350
 
351
-	my @capabilities=$foo->get_capability('eap');
351
+    my @capabilities=$foo->get_capability('eap');
352 352
     if( $foo->error ){
353 353
         warn('Error:'.$foo->error.': '.$foo->errorString);
354 354
     }
@@ -408,7 +408,7 @@ This gets a variable for for a specific network ID.
408 408
 
409 409
 Two arguments are taken and that is the network ID and variable.
410 410
 
411
-	$value=$foo->get_network($networkID, $variable);
411
+    $value=$foo->get_network($networkID, $variable);
412 412
     if( $foo->error ){
413 413
         warn('Error:'.$foo->error.': '.$foo->errorString);
414 414
     }
@@ -474,7 +474,7 @@ it will be set to 'any'.
474 474
 
475 475
 This is the flags for the network. This key may not be defined.
476 476
 
477
-	%return=$foo->list_networks;
477
+    %return=$foo->list_networks;
478 478
     if( $foo->error ){
479 479
         warn('Error:'.$foo->error.': '.$foo->errorString);
480 480
     }
@@ -538,7 +538,7 @@ This sets a new password for a network.
538 538
 Two arguments are taken. The first is the network ID and
539 539
 the second is the new password.
540 540
 
541
-	$return=$foo->new_password($networkID, $newpass);
541
+    $return=$foo->new_password($networkID, $newpass);
542 542
     if( $foo->error ){
543 543
         warn('Error:'.$foo->error.': '.$foo->errorString);
544 544
     }
@@ -569,7 +569,7 @@ This sets the pin for a network.
569 569
 
570 570
 Two arguments are taken. The first is the network ID and the second is the pin.
571 571
 
572
-	$foo->pin($networkID, $newpin);
572
+    $foo->pin($networkID, $newpin);
573 573
     if( $foo->error ){
574 574
         warn('Error:'.$foo->error.': '.$foo->errorString);
575 575
     }
@@ -600,7 +600,7 @@ Force preauthentication for a BSSID.
600 600
 
601 601
 One argument is accepted and the is the BSSID in question.
602 602
 
603
-	$foo->preauthenticate($BSSID);
603
+    $foo->preauthenticate($BSSID);
604 604
     if( $foo->error ){
605 605
         warn('Error:'.$foo->error.': '.$foo->errorString);
606 606
     }
@@ -647,7 +647,7 @@ This causes wpa_supplicant to reread it's configuration file.
647 647
 
648 648
 No arguments are taken.
649 649
 
650
-	$return=$obj->reconfigure;
650
+    $return=$obj->reconfigure;
651 651
     if( $foo->error ){
652 652
         warn('Error:'.$foo->error.': '.$foo->errorString);
653 653
     }
@@ -670,7 +670,7 @@ This removes the specified network.
670 670
 
671 671
 One argument is accepted and it the network ID.
672 672
 
673
-	$return=$foo->remove_network($networkID)
673
+    $return=$foo->remove_network($networkID)
674 674
     if( $foo->error ){
675 675
         warn('Error:'.$foo->error.': '.$foo->errorString);
676 676
     }
@@ -702,7 +702,7 @@ does not need write permissions to file being used
702 702
 
703 703
 No arguments are taken.
704 704
 
705
-	my $returned=$foo->save_config;
705
+    my $returned=$foo->save_config;
706 706
     if( $foo->error ){
707 707
         warn('Error:'.$foo->error.': '.$foo->errorString);
708 708
     }
@@ -725,7 +725,7 @@ This requests a new BSS scan.
725 725
 
726 726
 No arguments are taken.
727 727
 
728
-	my $returned=$foo->scan;
728
+    my $returned=$foo->scan;
729 729
     if( $foo->error ){
730 730
         warn('Error:'.$foo->error.': '.$foo->errorString);
731 731
     }
@@ -771,13 +771,13 @@ This is the signal level of the seen AP.
771 771
 
772 772
 This is the flags for the AP.
773 773
 
774
-	my %scan=$foo->scan_results;
774
+    my %scan=$foo->scan_results;
775 775
     if( $foo->error ){
776 776
         warn('Error:'.$foo->error.': '.$foo->errorString);
777 777
     }else{
778
-        
778
+
779 779
         print "BSSID, SSID, FREQ, SIGNAL, FLAGS\n";
780
-        
780
+
781 781
         my @keys=keys(%scan);
782 782
         my $int=0;
783 783
         while( defined( $keys[$int] ) ){
@@ -785,7 +785,7 @@ This is the flags for the AP.
785 785
                 $scan{$keys[$int]}{frequency}.', '
786 786
                 .$scan{$keys[$int]}{signal}.', '
787 787
                 .$scan{$keys[$int]}{flags};
788
-            
788
+
789 789
             $int++;
790 790
         }
791 791
     }
@@ -848,7 +848,7 @@ This is the network ID to select, while disabling the others.
848 848
 
849 849
 One argument is accepted and it is the network ID to select.
850 850
 
851
-	$return=$foo->select_network($networkID)
851
+    $return=$foo->select_network($networkID)
852 852
     if( $foo->error ){
853 853
         warn('Error:'.$foo->error.': '.$foo->errorString);
854 854
     }
@@ -881,7 +881,7 @@ Three arguments are taken. The first is the network ID,
881 881
 the second is the variable to set, and the third is the
882 882
 value to set it to.
883 883
 
884
-	$foo->set_network($networkID, $variable, $value);
884
+    $foo->set_network($networkID, $variable, $value);
885 885
     if( $foo->error ){
886 886
         warn('Error:'.$foo->error.': '.$foo->errorString);
887 887
     }
@@ -914,9 +914,9 @@ No arguments are taken.
914 914
 
915 915
     my %status=$foo->status;
916 916
     if( $foo->error ){
917
-	    warn('Error:'.$foo->error.': '.$foo->errorString);
917
+        warn('Error:'.$foo->error.': '.$foo->errorString);
918 918
     }
919
-    
919
+
920 920
 =cut
921 921
 
922 922
 sub status{
@@ -956,10 +956,10 @@ sub status{
956 956
 
957 957
 This gets the MIB variables (dot1x, dot11).
958 958
 
959
-	%return=$foo->mib;
959
+    %return=$foo->mib;
960 960
     if( $foo->error ){
961
-	    warn('error:'.$foo->error.': '.$foo->errorString);
962
-	}
961
+        warn('error:'.$foo->error.': '.$foo->errorString);
962
+    }
963 963
 
964 964
 =cut
965 965
 
@@ -1001,10 +1001,10 @@ A status of 'FAIL' will also set a error of 5.
1001 1001
 
1002 1002
 A unknown status will also set a error of 6.
1003 1003
 
1004
-	$returned=$foo->run_TF_command($command, 0);
1004
+    $returned=$foo->run_TF_command($command, 0);
1005 1005
     if( $foo->error ){
1006
-	    warn('error:'.$foo->error.': '.$foo->errorString);
1007
-	}
1006
+        warn('error:'.$foo->error.': '.$foo->errorString);
1007
+    }
1008 1008
 
1009 1009
 =cut
1010 1010
 
@@ -1054,7 +1054,7 @@ arguments for it.
1054 1054
 UNDEF is returned upon with running wpa_cli. Otherwise the return is the return
1055 1055
 from executed command.
1056 1056
 
1057
-	$returned=$foo->run_command($command)
1057
+    $returned=$foo->run_command($command)
1058 1058
     if( $foo->error ){
1059 1059
         warn('Error:'.$foo->error.': '.$foo->errorString);
1060 1060
     }
@@ -1204,7 +1204,7 @@ L<http://search.cpan.org/dist/Net-Wireless-802_11-WPA-CLI>
1204 1204
 
1205 1205
 =head1 COPYRIGHT & LICENSE
1206 1206
 
1207
-Copyright 2011 Zane C. Bowers-Hadley, all rights reserved.
1207
+Copyright 2018 Zane C. Bowers-Hadley, all rights reserved.
1208 1208
 
1209 1209
 This program is free software; you can redistribute it and/or modify it
1210 1210
 under the same terms as Perl itself.

Loading…
Cancel
Save