From a3d5079d63d53d7a639162a03a89fa8fdcfbee8a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 30 Nov 2001 17:19:30 +0000 Subject: fileshare should be ok, handle diskdrake --fileshare, fix smb import --- perl-install/standalone/diskdrake | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/diskdrake') diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 4ae662a86..be570dadb 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -43,10 +43,11 @@ if ($::isEmbedded) { local $_ = join '', @ARGV; -/-h/ and die "usage: diskdrake [--expert] [--testing]\n"; +/-h/ and die "usage: diskdrake [--expert] [--testing] [--fileshare]\n"; $::expert = /-expert/; $::testing = /-testing/; +my $fileshare = /-fileshare/; if ($>) { $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; @@ -54,6 +55,12 @@ if ($>) { my $in = 'interactive'->vnew('su'); + +if ($fileshare) { + any::fileshare_config($in); + $in->exit(0); +} + my ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { -- cgit v1.2.1