summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/netconnect.pm17
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 {