From 4fc086f0344fc736863f64cfa2c68f3e3b5c673b Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 5 Oct 2007 13:58:34 +0000 Subject: drakconnect: check that network access settings are valid (i.e. check wireless key) --- lib/network/netconnect.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm index ee47c56..097bc77 100644 --- a/lib/network/netconnect.pm +++ b/lib/network/netconnect.pm @@ -230,6 +230,14 @@ sub real_main { }, name => sub { $net->{type}->get_type_name . "\n\n" . $connection->get_network_access_settings_label }, data => sub { $network_access_settings }, + complete => sub { + if ($connection->can('check_network_access_settings') && !$connection->check_network_access_settings) { + $in->ask_warn(N("Error"), $connection->{network_access}{error}{message}); + my $index = eval { find_index { $_->{val} eq $connection->{network_access}{error}{field} } @$network_access_settings }; + return 1, $index; + } + return 0; + }, post => sub { $get_next->("configure_network_access") }, }, -- cgit v1.2.1