diff options
Diffstat (limited to 'samba_wizard/Sambashare.pm')
| -rwxr-xr-x | samba_wizard/Sambashare.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/samba_wizard/Sambashare.pm b/samba_wizard/Sambashare.pm index 5dd305e1..07437fea 100755 --- a/samba_wizard/Sambashare.pm +++ b/samba_wizard/Sambashare.pm @@ -228,6 +228,11 @@ $o->{pages} = { { label => N('default case'), val => \$o->{var}{wiz_share_default_case}, fixed_list => \@scase, help => N('lower or upper') }, { label => N('preserve case'), val => \$o->{var}{wiz_share_preserve_case}, fixed_list => \@yesorno, help => N('This controls if new filenames are created with the case that the client passes, or if they are forced to be the default case') }, ], + complete => sub { + if ($o->{var}{wiz_share_create_mask} and $o->{var}{wiz_share_create_mask} !~ /\d+/) { + $::in->ask_warn(N("Error"), N("Create mask should be a number. ie: 0755.")) and return 1; + } + }, next => 'summary_modify', }, add_share => { @@ -312,6 +317,9 @@ $o->{pages} = { } } } $o->{var}{wiz_addshare_writelist}, $o->{var}{wiz_addshare_readlist}; + if ($o->{var}{wiz_addshare_createmask} and $o->{var}{wiz_addshare_createmask} !~ /\d+/) { + $::in->ask_warn(N("Error"), N("Create mask should be a number. ie: 0755.")) and return 1; + } }, next => 'summary_addshare', }, |