#!/usr/bin/perl use diagnostics; use strict; use lib qw(/usr/bin/perl-install .); use common; use commands; my $progname = basename($0); eval { # hack as some functions are defined by perl... so chmod -> chmod_ &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0; }; die formatError($@) . "\n"; sub err { die "$0: unknown program (unimplemented)\n" } ository'/>
summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-17 16:27:20 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-17 16:27:20 +0000
commit9903085aef52689c28ae0cf15828f520a7ec0604 (patch)
treea45dac14c92aac6a38642878438c18ba62333124 /perl-install/standalone/drakconnect
parentf0fff720ff6ddb95e072edd784ac8d767080d1a6 (diff)
downloaddrakx-9903085aef52689c28ae0cf15828f520a7ec0604.tar
drakx-9903085aef52689c28ae0cf15828f520a7ec0604.tar.gz
drakx-9903085aef52689c28ae0cf15828f520a7ec0604.tar.bz2
drakx-9903085aef52689c28ae0cf15828f520a7ec0604.tar.xz
drakx-9903085aef52689c28ae0cf15828f520a7ec0604.zip
allow to modify non configured devices in manage interface
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index da754b98d..20d40292a 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -253,6 +253,7 @@ sub manage {
each_index {
my ($name, $interface, $protocol) = ($_, $p->{$_}{name}, $p->{$_}{protocol});
$p->{$name}{gui}{index} = $::i;
+ $p->{$name}{intf} ||= {};
build_tree($netc, $p->{$name}{intf}, $name, $interface, $protocol);
build_notebook($netc, $p->{$name}{intf}, $p->{$name}{gui}, $apply_button, $name, $interface);
$notebook->append_page(gtkpack(Gtk2::VBox->new(0,0), $p->{$name}{gui}{notebook}));