summaryrefslogtreecommitdiffstats
path: root/nisautofs_wizard/Nisautofs.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-01-21 16:28:06 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-01-21 16:28:06 +0000
commit1379898533cc08b5a50c32444ff446a731bcd0d1 (patch)
tree0713f261fd9dcc8cfc6bd077fe820bac7ee8bb0b /nisautofs_wizard/Nisautofs.pm
parent333f23dcb783fe5b121eb9bd82634d4939b34864 (diff)
downloaddrakwizard-1379898533cc08b5a50c32444ff446a731bcd0d1.tar
drakwizard-1379898533cc08b5a50c32444ff446a731bcd0d1.tar.gz
drakwizard-1379898533cc08b5a50c32444ff446a731bcd0d1.tar.bz2
drakwizard-1379898533cc08b5a50c32444ff446a731bcd0d1.tar.xz
drakwizard-1379898533cc08b5a50c32444ff446a731bcd0d1.zip
perl_cehcker recommendation
Diffstat (limited to 'nisautofs_wizard/Nisautofs.pm')
-rw-r--r--nisautofs_wizard/Nisautofs.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/nisautofs_wizard/Nisautofs.pm b/nisautofs_wizard/Nisautofs.pm
index 0396d4bc..a696e362 100644
--- a/nisautofs_wizard/Nisautofs.pm
+++ b/nisautofs_wizard/Nisautofs.pm
@@ -60,7 +60,7 @@ my $o = {
defaultimage => "/usr/share/wizards/dns_wizard/images/NIS.png",
init => sub {
if (member($NISDOMAIN, qw(localdomain (none)))) {
- return (0, N("You need to readjust your NIS domainname. For a NIS server you need a correct NIS domainname, not egal to localdomain or none. Add NISDOMAIN=your_nis_domain in /etc/sysconfig/network file, and do a: nisdomainname your_nis_domain."))
+ return 0, N("You need to readjust your NIS domainname. For a NIS server you need a correct NIS domainname, not egal to localdomain or none. Add NISDOMAIN=your_nis_domain in /etc/sysconfig/network file, and do a: nisdomainname your_nis_domain.")
}
1
},
@@ -75,7 +75,7 @@ $o->{pages} = {
welcome => {
name => N("NIS server with autofs map") . "\n\n" . N("Setup a Nis server with autofs map, auto.home and auto.master files.") . "\n\n" . N("Client can automatically mount their home directory when they log on a NIS client computer network."),
no_back => 1,
- pre => sub { $o->{var}{wiz_level} ||= 1; },
+ pre => sub { $o->{var}{wiz_level} ||= 1 },
post => sub { if ($o->{var}{wiz_level} == 2) {
return 'nis_client'
}
@@ -110,7 +110,7 @@ $o->{pages} = {
{ label => N("Home NIS:"), fixed_val => \$o->{var}{HOMENIS} },
{ label => N("NIS domainname:"), fixed_val => \$o->{var}{NISDOMAIN} },
{ label => N("Nis directory:"), fixed_val => \$o->{var}{NIS_DIRMAKEFILE} },
- { label => N("Network File:"), fixed_val => \$o->{var}{NETWORKFILE}},
+ { label => N("Network File:"), fixed_val => \$o->{var}{NETWORKFILE} },
{ label => N("Nfs exports:"), fixed_val => \$o->{var}{NFSEXPORTS} },
{ label => N("Auto master:"), fixed_val => \$o->{var}{AUTOMASTER} },
{ label => N("Auto home:"), fixed_val => \$o->{var}{AUTOHOME} },
@@ -154,7 +154,7 @@ $o->{pages} = {
sub test_set {
- if (member($o->{var}{NISDOMAIN}, qw(localdomain (none)))) { return 'error_nisd'; }
+ if (member($o->{var}{NISDOMAIN}, qw(localdomain (none)))) { return 'error_nisd' }
!-d $o->{var}{HOMENIS} or return 'error_dir';
!-d $o->{var}{NIS_DIRMAKEFILE} or return 'error_dir';
}
@@ -234,7 +234,7 @@ sub get_nis_users {
my @unwanted = qw(install maui nobody mpi);
my @users;
open(PASS, "ypcat passwd|") || die " cant exec ypcat passwd!";
- while(<PASS>) {
+ while (<PASS>) {
my ($login) = split(':');
if (!member($login, @unwanted)) {
push(@users, $login);
@@ -263,7 +263,7 @@ EOF
}
sub test_autofile {
- map { if (-e $_) { rm_rf($_) } ; $_} $AUTOHOME, $AUTOMASTER;
+ map { if (-e $_) { rm_rf($_) }; $_ } $AUTOHOME, $AUTOMASTER;
}
sub save_config {