summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-18 14:26:28 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-18 14:26:28 +0000
commitdbd09b09f267654d104c66c31b6f32d026c8d23e (patch)
tree2316a4b675c669119bdcb0f2643d1a9a627c7af4 /perl-install/network/network.pm
parent2dde219f0709122cd8b2df78feff759e3cf0ce72 (diff)
downloaddrakx-dbd09b09f267654d104c66c31b6f32d026c8d23e.tar
drakx-dbd09b09f267654d104c66c31b6f32d026c8d23e.tar.gz
drakx-dbd09b09f267654d104c66c31b6f32d026c8d23e.tar.bz2
drakx-dbd09b09f267654d104c66c31b6f32d026c8d23e.tar.xz
drakx-dbd09b09f267654d104c66c31b6f32d026c8d23e.zip
configure wpa driver in drakconnect, wpa_supplicant init script is dropped
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm27
1 files changed, 16 insertions, 11 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index eb12ba63a..cfd40b9a5 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -163,7 +163,7 @@ sub write_interface_conf {
}
setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST ONBOOT HWADDR METRIC MII_NOT_SUPPORTED TYPE USERCTL ATM_ADDR),
- qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV),
+ qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV WIRELESS_WPA_DRIVER),
if_($intf->{BOOTPROTO} eq "dhcp", qw(DHCP_CLIENT DHCP_HOSTNAME NEEDHOSTNAME PEERDNS PEERYP PEERNTPD DHCP_TIMEOUT)),
if_($intf->{DEVICE} =~ /^ippp\d+$/, qw(DIAL_ON_IFUP))
);
@@ -527,22 +527,27 @@ sub wlan_ng_configure {
services::restart($module eq 'prism2_cs' ? 'pcmcia' : 'wlan');
}
+sub wpa_supplicant_get_driver {
+ my ($module) = @_;
+ $module =~ /^hostap_/ ? "hostap" :
+ $module eq "prism54" ? "prism54" :
+ $module =~ /^ath_/ ? "madwifi" :
+ $module =~ /^at76c50|atmel_/ ? "atmel" :
+ $module eq "ndiswrapper" ? "ndiswrapper" :
+ $module =~ /^ipw2[12]00$/ ? "ipw" :
+ "wext";
+}
+
sub wpa_supplicant_configure {
my ($in, $ethntf) = @_;
require services;
- if (delete $ethntf->{WIRELESS_USE_WPA}) {
- $in->do_pkgs->install('wpa_supplicant');
- wpa_supplicant_add_network({
+ $in->do_pkgs->install('wpa_supplicant');
+
+ wpa_supplicant_add_network({
ssid => qq("$ethntf->{WIRELESS_ESSID}"),
psk => network::tools::convert_key_for_wpa_supplicant($ethntf->{WIRELESS_ENC_KEY}),
scan_ssid => 1,
- });
- services::start_service_on_boot('wpa_supplicant');
- services::restart('wpa_supplicant');
- } else {
- services::stop('wpa_supplicant');
- services::do_not_start_service_on_boot('wpa_supplicant');
- }
+ });
}
sub wpa_supplicant_add_network {