summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-25 16:34:04 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-25 16:34:04 +0000
commit7f48b119baa54b4bfd3dc1fe82538ced79fc797c (patch)
treed0ba3579f0e93e6de25fa47bca450c9f9b9e4a9b /perl-install
parent9f14eac49d35751642ad0cd49fe6d3c2ab9d9d6f (diff)
downloaddrakx-7f48b119baa54b4bfd3dc1fe82538ced79fc797c.tar
drakx-7f48b119baa54b4bfd3dc1fe82538ced79fc797c.tar.gz
drakx-7f48b119baa54b4bfd3dc1fe82538ced79fc797c.tar.bz2
drakx-7f48b119baa54b4bfd3dc1fe82538ced79fc797c.tar.xz
drakx-7f48b119baa54b4bfd3dc1fe82538ced79fc797c.zip
allow to enable USERCTL
Diffstat (limited to 'perl-install')
-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 {