From 50d68b10d3b25575a58f1ba784263b3be6edb2c3 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Wed, 28 Sep 2005 21:31:04 +0000 Subject: test if /etc/sysconfig/wizard_samba exist (commented) --- perl-install/standalone/draksambashare | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install/standalone/draksambashare') diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index 5ca0ca9e4..54ce32fc6 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -37,6 +37,12 @@ use Libconf::Glueconf::Samba::Smb_conf; my $in = 'interactive'->vnew('su'); $in->do_pkgs->ensure_is_installed('samba-server', '/usr/sbin/smbd') or return; +#if (!-f "/etc/sysconfig/wizard_samba") { +# $in->do_pkgs->ensure_is_installed('drakwizard', '/usr/sbin/drakwizard'); +# err_dialog(N("Error"), N("Please setup a samba server")) and return; +#} + + my $icon_path = "/usr/lib/libDrakX/icons"; my $fileshare_icon = "$icon_path/IC-winacces2-16.png"; my $printershare_icon = "$icon_path/IC-sambaprt-16.png"; -- cgit v1.2.1