summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakups
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2004-04-07 20:41:09 +0000
committerdamien <damien@mandriva.com>2004-04-07 20:41:09 +0000
commit50fa3dfb78344f6b18f67a36d3816fa7a1811160 (patch)
tree8678ac33e94ac6d26f0e7b9339d510eb4792556b /perl-install/standalone/drakups
parent8c9b705052afa77db5bd3e3ad35a152bd0eca0ba (diff)
downloaddrakx-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar
drakx-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.gz
drakx-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.bz2
drakx-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.xz
drakx-50fa3dfb78344f6b18f67a36d3816fa7a1811160.zip
corrected drakups against new libconf 0.32
Diffstat (limited to 'perl-install/standalone/drakups')
-rwxr-xr-xperl-install/standalone/drakups6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index bba576929..9f55af292 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -9,7 +9,7 @@ use detect_devices;
use ugtk2 qw(:create :dialogs :helpers :wrappers);
use interactive;
use Libconf qw(:functions);
-use Libconf::Glueconf::Ups;
+use Libconf::Glueconf::NUT::Ups_conf;
# config files:
my %files = (devices => "/etc/ups/ups.conf",
@@ -243,7 +243,7 @@ my @pages = (
remove => sub { },
},
load => sub {
- $struct = Libconf::Glueconf::Ups->new($files{devices});
+ $struct = Libconf::Glueconf::NUT::Ups_conf->new($files{devices});
map { [ $_, @{$struct->{$_}}{qw(driver port)} ] } keys %$struct;
},
},
@@ -258,7 +258,7 @@ my @pages = (
remove => sub { },
},
load => sub {
- $users = Libconf::Glueconf::Ups->new($files{users});
+ $users = Libconf::Glueconf::NUT::Ups_conf->new($files{users});
map { [ $_ ] } keys %$users;
},
},