diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-01 12:02:34 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-01 12:02:34 +0000 |
| commit | 4c5a9df2d61a17341a08c8bca6b029357bfc8142 (patch) | |
| tree | 52192d95a97dbe640316e98328c64c61896c292c /samba_wizard/scripts/Smbconf.pm | |
| parent | be4cb79320cd79ac3e29b13a08cb303d8326a707 (diff) | |
| download | drakwizard-4c5a9df2d61a17341a08c8bca6b029357bfc8142.tar drakwizard-4c5a9df2d61a17341a08c8bca6b029357bfc8142.tar.gz drakwizard-4c5a9df2d61a17341a08c8bca6b029357bfc8142.tar.bz2 drakwizard-4c5a9df2d61a17341a08c8bca6b029357bfc8142.tar.xz drakwizard-4c5a9df2d61a17341a08c8bca6b029357bfc8142.zip | |
added explanations and some Pixel shortcuts
Diffstat (limited to 'samba_wizard/scripts/Smbconf.pm')
| -rwxr-xr-x | samba_wizard/scripts/Smbconf.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/samba_wizard/scripts/Smbconf.pm b/samba_wizard/scripts/Smbconf.pm index 385ef2cc..583c8411 100755 --- a/samba_wizard/scripts/Smbconf.pm +++ b/samba_wizard/scripts/Smbconf.pm @@ -72,13 +72,16 @@ sub chg_var { $conf{$menu}{$var}{value} = $str; } + sub file_sharing { + standalone::explanations("Enabling samba file sharing"); comment_menu("homes", ";"); comment_menu("public", ""); chg_var("global", "security", "share"); } sub printer_sharing { + standalone::explanations("Enabling samba printer sharing"); comment_menu("printers", ""); } @@ -92,6 +95,7 @@ sub finish { my %mdk = Vareqval->get($file); foreach (qw(wiz_banner wiz_workgroup wiz_do_printer_sharing wiz_do_file_sharing)) { $mdk{$_} = $ENV{$_} if defined $ENV{$_} or die "$_ not in env"; + print $ENV{$_} . "\n"; } Vareqval->commit($file, \%mdk); chg_var("global", "workgroup", $ENV{wiz_workgroup}); @@ -99,8 +103,8 @@ sub finish { $device = $mdk{wiz_device}; my %mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device); $ip = $mdk{IPADDR}; - ($ENV{wiz_do_file_sharing} eq "true") and file_sharing(); - ($ENV{wiz_do_printer_sharing} eq "enabled") and printer_sharing(); + file_sharing() if $ENV{wiz_do_file_sharing}; + printer_sharing() if $ENV{wiz_do_printer_sharing}; chg_var("global", "hosts allow", $ip); chg_var("global", "security", "share"); write_conf("/etc/samba/smb.conf"); @@ -108,3 +112,4 @@ sub finish { 1; } 1; + |