diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:17:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:17:23 +0000 |
| commit | dae67713a6a2f5d1b87433e9dd8fb160afac959d (patch) | |
| tree | 02f6b6e65de8600fde653ad892d5463a5c737c23 /perl-install/standalone/drakups | |
| parent | 6d96b7109f1319b27218ab3ce34b3e150fb42a8a (diff) | |
| download | drakx-backup-do-not-use-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar drakx-backup-do-not-use-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.gz drakx-backup-do-not-use-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.bz2 drakx-backup-do-not-use-dae67713a6a2f5d1b87433e9dd8fb160afac959d.tar.xz drakx-backup-do-not-use-dae67713a6a2f5d1b87433e9dd8fb160afac959d.zip | |
perl_checker compliance
Diffstat (limited to 'perl-install/standalone/drakups')
| -rwxr-xr-x | perl-install/standalone/drakups | 22 |
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(); |