diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 98cf34770..1b313c827 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -215,7 +215,7 @@ sub real_main { require Data::Dumper; output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); } - return $goto_start_on_boot_ifneeded->(); + return "allow_user_ctl"; }; my $handle_multiple_cnx = sub { @@ -1294,6 +1294,21 @@ It is not necessary on most networks."), }, + allow_user_ctl => + { + name => N("Do you want to allow users to start the connection?"), + type => "yesorno", + default => sub { bool2yesno(text2bool($intf->{$netc->{NET_INTERFACE}}{USERCTL})) }, + post => sub { + my ($res) = @_; + use Data::Dumper; + print Dumper($intf, $netc); + $intf->{$netc->{NET_INTERFACE}}{USERCTL} = bool2yesno($res); + return $goto_start_on_boot_ifneeded->(); + }, + }, + + network_on_boot => { pre => sub { |