From c3a56db954023550258c3e962c12c68572a4b7eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 29 Jan 2002 13:26:57 +0000
Subject: handle the case where samba and/or nfs-utils are not installed

---
 perl-install/any.pm                  | 27 +++++++++++++++++++++++++--
 perl-install/diskdrake/smbnfs_gtk.pm |  2 +-
 2 files changed, 26 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2b64cef7c..53f58f1b0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -913,14 +913,37 @@ sub devfssymlinkf {
 }
 
 sub fileshare_config {
-    my ($in) = @_;
-    
+    my ($in, $type) = @_; #- $type is 'nfs', 'smb' or ''
+
     my $file = '/etc/security/fileshare.conf';
     my %conf = getVarsFromSh($file);
 
     my @l = (__("No sharing"), __("Allow all users"), __("Custom"));
     my $restrict = exists $conf{RESTRICT} ? text2bool($conf{RESTRICT}) : 1;
 
+    if ($restrict) {
+	#- verify we can export in $type
+	my %type2file = (nfs => [ '/etc/init.d/nfs', 'nfs-utils' ], smb => [ '/etc/init.d/smb', 'samba' ]);
+	my @wanted = $type ? $type : keys %type2file;
+	my @have = grep { -e $type2file{$_}[0] } @wanted;
+	if (!@have) {
+	    if (@wanted == 1) {
+		$in->ask_okcancel('', _("The package %s needs to be installed. Do you want to install it?", $type2file{$wanted[0]}[1]), 1) or return;
+	    } else {
+		my %choices;
+		my $wanted = $in->ask_many_from_list('', _("You can export using NFS or Samba. Which one do you want"),
+						  { list => \@wanted }) or return;
+		@wanted = @$wanted or return;
+	    }
+	    $in->do_pkgs->install(map { $type2file{$_}[1] } @wanted);
+	    @have = grep { -e $type2file{$_}[0] } @wanted;
+	}
+	if (!@have) {
+	    $in->ask_warn('', _("Mandatory package %s is missing", $wanted[0]));
+	    return;
+	}
+    }
+
     my $r = $in->ask_from_list_('fileshare',
 'Do you want to allow users to export some directories in their home?
 Allowing this will permit users to simply click on "Share" in konqueror and nautilus.
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index f5e90a5fb..f9fed7f78 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -78,7 +78,7 @@ sub per_entry_action_box {
     my @l = (
 	     if_($entry, __("Mount point") => \&raw_hd_mount_point),
 	     if_($entry && $entry->{mntpoint}, __("Options") => \&raw_hd_options),
-	     __("Export") => \&any::fileshare_config,
+	     __("Export") => sub { any::fileshare_config($in, $kind->{type}) },
 	     __("Done") => \&done,
 	    );
     push @buttons, map {
-- 
cgit v1.2.1