From 7f48b119baa54b4bfd3dc1fe82538ced79fc797c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 25 Feb 2005 16:34:04 +0000
Subject: allow to enable USERCTL

---
 perl-install/network/netconnect.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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 {
-- 
cgit v1.2.1