From c63c946d6f4162306f302b413e8173779e1bff4e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 27 Mar 2008 16:55:56 +0000 Subject: update comments --- lib/network/connection/wireless.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm index ccb4592..27fde27 100644 --- a/lib/network/connection/wireless.pm +++ b/lib/network/connection/wireless.pm @@ -667,6 +667,7 @@ sub need_rt2x00_iwpriv { sub get_hex_key { my ($key) = @_; + #- odd number or non-hexa characters, consider the key as ASCII and prepend "s:" if ($key =~ /^([[:xdigit:]]{4}[\:-]?)+[[:xdigit:]]{2,}$/) { $key =~ s/[\:-]//g; return lc($key); @@ -674,9 +675,6 @@ sub get_hex_key { } sub convert_wep_key_for_iwconfig { - #- 5 or 13 characters, consider the key as ASCII and prepend "s:" - #- else consider the key as hexadecimal, do not strip dashes - #- always quote the key as string my ($real_key, $restricted) = @_; my $key = get_hex_key($real_key) || "s:$real_key"; $restricted ? "restricted $key" : "open $key"; @@ -688,8 +686,6 @@ sub convert_wep_key_for_wpa_supplicant { } sub get_wep_key_from_iwconfig { - #- strip "s:" if the key is 5 or 13 characters (ASCII) - #- else the key as hexadecimal, do not modify my ($key) = @_; my ($mode, $real_key) = $key =~ /^(?:(open|restricted)\s+)?(.*)$/; $real_key =~ s/^s://; -- cgit v1.2.1