diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-01 08:30:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-01 08:30:01 +0000 |
| commit | 98e1106cdce63a01eac3ef3c6867f8ee98680996 (patch) | |
| tree | 88474f9c08a928051623418c767dcaf500173aa0 /perl-install | |
| parent | 6d34064e0f7f9793501f44dbbaa8834fbeef46a1 (diff) | |
| download | drakx-backup-do-not-use-98e1106cdce63a01eac3ef3c6867f8ee98680996.tar drakx-backup-do-not-use-98e1106cdce63a01eac3ef3c6867f8ee98680996.tar.gz drakx-backup-do-not-use-98e1106cdce63a01eac3ef3c6867f8ee98680996.tar.bz2 drakx-backup-do-not-use-98e1106cdce63a01eac3ef3c6867f8ee98680996.tar.xz drakx-backup-do-not-use-98e1106cdce63a01eac3ef3c6867f8ee98680996.zip | |
handle the nfs/smb service disabled (enhancement given by Olivier Blin)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index e1191ebb0..44a3a4caa 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -843,20 +843,20 @@ Allowing this will permit users to simply click on \"Share\" in konqueror and na $restrict = $r ne $l[1]; my $custom = $r eq $l[2]; if ($r ne $l[0]) { + require services; #- verify we can export in $type my %type2service = (nfs => [ 'nfs-utils', 'nfs' ], smb => [ 'samba-server', 'smb' ]); my %l; if ($type) { %l = ($type => 1); } else { - %l = map_each { $::a => -e $::b->[1] } %type2service; + %l = map_each { $::a => services::starts_on_boot($::b->[1]) } %type2service; $in->ask_from('', N("You can export using NFS or Samba. Please select which you'd like to use."), [ map { { text => $_, val => \$l{$_}, type => 'bool' } } keys %l ]) or return; } foreach (keys %l) { my ($pkg, $service) = @{$type2service{$_}} or die "unknown type $_\n"; my $file = "/etc/init.d/$service"; - require services; if ($l{$_}) { $in->do_pkgs->ensure_is_installed($pkg, $file) or return; services::start($service); |