summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-10-14 06:17:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-10-14 06:17:23 +0000
commitdae67713a6a2f5d1b87433e9dd8fb160afac959d (patch)
tree02f6b6e65de8600fde653ad892d5463a5c737c23 /perl-install/standalone
parent6d96b7109f1319b27218ab3ce34b3e150fb42a8a (diff)
downloaddrakx-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar
drakx-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.gz
drakx-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.bz2
drakx-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.xz
drakx-dae67713a6a2f5d1b87433e9dd8fb160afac959d.zip
perl_checker compliance
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakups22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 6e12956f8..ee6aeedb1 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -253,8 +253,8 @@ my @pages = (
$::WizardWindow->destroy if defined $::WizardWindow;
undef $::WizardWindow;
},
- edit => sub { },
- remove => sub { },
+ edit => sub {},
+ remove => sub {},
},
load => sub {
read_nut_config();
@@ -269,8 +269,8 @@ my @pages = (
my ($name) = @_;
$users->{$name} = {};
},
- edit => sub { },
- remove => sub { },
+ edit => sub {},
+ remove => sub {},
},
load => sub {
$users = Libconf::Glueconf::NUT::Ups_conf->new($files{users});
@@ -281,9 +281,9 @@ my @pages = (
{ name => N("Access Control Lists"),
columns => [ N("Name"), N("IP address"), N("IP mask") ],
callbacks => {
- add => sub { },
- edit => sub { },
- remove => sub { },
+ add => sub {},
+ edit => sub {},
+ remove => sub {},
},
load => sub {
load_access_conf();
@@ -294,9 +294,9 @@ my @pages = (
{ name => N("Rules"),
columns => [ N("Action"), N("Level"), N("ACL name"), N("Password") ],
callbacks => {
- N("Add") => sub { },
- N("Edit") => sub { },
- N("Remove") => sub { },
+ N("Add") => sub {},
+ N("Edit") => sub {},
+ N("Remove") => sub {},
},
load => sub { @rules }, # already loaded when we loaded acls
@@ -315,7 +315,7 @@ $ugtk2::wm_icon = "drakups";
$in->do_pkgs->ensure_is_installed('nut-server', '/etc/rc.d/init.d/upsd') if !$::testing;
-if (any { $_ eq '--wizard' } @ARGV) {
+if (member('--wizard', @ARGV)) {
read_nut_config();
add_device_wizard($in, $struct);
writeconf();