diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakups | 14 |
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; |