summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-17 07:10:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-17 07:10:00 +0000
commitedcae50903b421a9904edec463f9afb7a3923c8e (patch)
treec2a6fec14549cdac354126caf83db1bd65d1d8df /perl-install
parent01fe410ec375b8bf08ad9b5d6743a493fc8f213e (diff)
downloaddrakx-backup-do-not-use-edcae50903b421a9904edec463f9afb7a3923c8e.tar
drakx-backup-do-not-use-edcae50903b421a9904edec463f9afb7a3923c8e.tar.gz
drakx-backup-do-not-use-edcae50903b421a9904edec463f9afb7a3923c8e.tar.bz2
drakx-backup-do-not-use-edcae50903b421a9904edec463f9afb7a3923c8e.tar.xz
drakx-backup-do-not-use-edcae50903b421a9904edec463f9afb7a3923c8e.zip
refresh UPS list when adding a new UPS though the add wizard
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakups14
1 files changed, 11 insertions, 3 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index ea6edd1b2..1770dca08 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -48,6 +48,8 @@ sub readDriversList() {
\%ups, \@ups;
}
+my %models;
+
sub add_device_wizard {
my ($in, $config) = @_;
my ($ups_models, $model_list) = readDriversList();
@@ -98,8 +100,8 @@ Do you want to autodetect UPS devices connected to this machine or to manually s
$name = $str;
if (!exists $struct->{$str}) {
- $struct->{$str}{port} = $ups_device->{port} || $ups_device->{DEVICE};
- $struct->{$str}{driver} = $ups_device->{driver};
+ $port = $struct->{$str}{port} = $ups_device->{port} || $ups_device->{DEVICE};
+ $driver = $struct->{$str}{driver} = $ups_device->{driver};
push @new_devices, $str;
}
}
@@ -247,6 +249,7 @@ my @pages = (
$struct = Libconf::Glueconf::NUT::Ups_conf->new($files{devices});
map { [ $_, @{$struct->{$_}}{qw(driver port)} ] } keys %$struct;
},
+ id => "ups",
},
{ name => N("UPS users"),
columns => [ N("Name") ],
@@ -262,6 +265,7 @@ my @pages = (
$users = Libconf::Glueconf::NUT::Ups_conf->new($files{users});
map { [ $_ ] } keys %$users;
},
+ id => "users",
},
{ name => N("Access Control Lists"),
columns => [ N("Name"), N("IP address"), N("IP mask") ],
@@ -274,6 +278,7 @@ my @pages = (
load_access_conf();
@acls;
},
+ id => "acls",
},
{ name => N("Rules"),
columns => [ N("Action"), N("Level"), N("ACL name"), N("Password") ],
@@ -284,6 +289,7 @@ my @pages = (
},
load => sub { @rules }, # already loaded when we loaded acls
+ id => "rules",
},
);
@@ -333,7 +339,7 @@ my %labels = (
);
foreach my $i (@pages) {
- my $model = Gtk2::ListStore->new("Glib::Int", ("Glib::String") x listlength(@{$i->{columns}}));
+ my $model = $models{$i->{id}} = Gtk2::ListStore->new("Glib::Int", ("Glib::String") x listlength(@{$i->{columns}}));
my (%buttons, $list);
$indexes{$i->{name}} = 0;
my $idx = \$indexes{$i->{name}};
@@ -379,6 +385,8 @@ foreach my $i (@pages) {
});
}
+ $models{ups}->append_set(1 => "toto", 2 => "tata", 3 => "titi");
+
#------------------------------------------------------------------
# let's start the show:
$in->do_pkgs->ensure_binary_is_installed('nut-server', 'upsd') if !$::testing;