diff options
| -rw-r--r-- | samba_wizard/samba.wiz | 4 | ||||
| -rwxr-xr-x | samba_wizard/scripts/Smbconf.pm | 14 |
2 files changed, 14 insertions, 4 deletions
diff --git a/samba_wizard/samba.wiz b/samba_wizard/samba.wiz index c71a3794..58e91692 100644 --- a/samba_wizard/samba.wiz +++ b/samba_wizard/samba.wiz @@ -153,7 +153,7 @@ <Page helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-samba.html" name="ask_workgroup" - jumpScript="__WIZ_HOME__/samba_wizard/scripts/check_workgroup.sh" + func="check_workgroup" executionLevel="NORMAL" nextFinish="false" canBack="true" @@ -214,7 +214,7 @@ <Page helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-samba.html" name="ask_banner" - jumpScript="__WIZ_HOME__/samba_wizard/scripts/check_banner.sh" + func="check_banner" executionLevel="NORMAL" nextFinish="false" canBack="true" diff --git a/samba_wizard/scripts/Smbconf.pm b/samba_wizard/scripts/Smbconf.pm index 4e91d6c0..78c0bb65 100755 --- a/samba_wizard/scripts/Smbconf.pm +++ b/samba_wizard/scripts/Smbconf.pm @@ -115,13 +115,23 @@ sub printer_sharing { $self->comment_menu("printers", ""); } +sub check_workgroup { + !$ENV{workgroup} and return 1; + 10; +} + +sub check_banner { + !$ENV{banner} and return 1; + 10; +} + +my $old = read_conf("/etc/samba/smb.conf"); + sub get_workgroup { - my $old = read_conf("/etc/samba/smb.conf"); $old->{conf}->{global}{workgroup}{value}; } sub get_banner { - my $old = read_conf("/etc/samba/smb.conf"); $old->{conf}->{global}{"server string"}{value}; } |