diff options
Diffstat (limited to 'samba_wizard')
| -rwxr-xr-x | samba_wizard/Sambaprint.pm | 27 |
1 files changed, 7 insertions, 20 deletions
diff --git a/samba_wizard/Sambaprint.pm b/samba_wizard/Sambaprint.pm index 2e2cfa38..32170c67 100755 --- a/samba_wizard/Sambaprint.pm +++ b/samba_wizard/Sambaprint.pm @@ -65,28 +65,15 @@ $o->{pages} = { name => N('Samba printers Wizard') . "\n\n" . N(''), no_back => 1, pre => sub { - if (-f $wiz_samba_etc) { - $::in->ask_warn(N("Information"), N("It seems you previously setup a Samba server. This wizard will re-read your old configuration, and show you the Samba server type you choose")); - my $data = cat_($wiz_samba_etc); - # detect old Samba type - my ($old_type) = $data =~ /type=(\d)/; - $o->{var}{wiz_type} = chomp_($old_type); - } else { $o->{var}{wiz_type} = 2 } + if (! -f $wiz_samba_etc) { + $::in->ask_warn(N("Information"), N("It seems that you don\'t setup a Samba server. Please setup a Samba server with Samba wizard before manage your share.")); + exit(1); + } }, - next => 'ask_type', - post => sub { - if ($o->{var}{wiz_type} == 2) { - return 'pdc' } - elsif ($o->{var}{wiz_type} == 1) { - return 'bdc' } - elsif ($o->{var}{wiz_type} == 3) { - return 'ask_workgroup' } - elsif ($o->{var}{wiz_type} == 4) { - return 'member' } - }, - data => [ - { label => N("Wich type of Samba server do you you want:"), val => \$o->{var}{wiz_type}, list => [ keys %type ], format => sub { $type{$_[0]} } }, + data => [ + { label => N("? :"), val => \$o->{var}{wiz_todo}, list => [ keys %cprint ], format => sub { $cprint{$_[0]} } }, ], + next => 'ask_services', }, ask_printers => { name => N('Select which printers you want to be accessible from known users'), |