diff options
| -rwxr-xr-x | samba_wizard/Samba.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index d9cb56a1..9e566088 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -80,7 +80,7 @@ use Data::Dumper; print Dumper($samba); my %type = ( - 1 => N('BDC - backup domain controller'), + 1 => N('BDC - backup domain controller (need PDC+LDAP)'), 2 => N('PDC - primary domain controller'), 3 => N('Standalone - standalone server'), 4 => N('Member - member of a domain'), @@ -91,7 +91,7 @@ my @loglevel = qw(0 1 2 3 4 5 6 7 8 9); $o->{pages} = { welcome => { - name => N('Samba Configuration Wizard') . "\n\n" . N('Samba allows your server to behave as a file and print server for workstations running non-Linux systems.') . "\n\n" . N('PDC: primary domain controller') . "\n" . N('BDC: backup domain controller') . "\n" . N('standalone: standalone server') . "\n" . N('Member: member of a domain'), + name => N('Samba server configuration Wizard') . "\n\n" . N('Samba allows your server to behave as a file and print server for workstations running non-Linux systems.'), no_back => 1, pre => sub { if (-f $wiz_samba_etc) { @@ -114,7 +114,7 @@ $o->{pages} = { return 'member' } }, data => [ - { label => N("Wich type of Samba server do you you want:") . " ", val => \$o->{var}{wiz_type}, type => 'list', list => [ keys %type ], format => sub { $type{$_[0]} } }, + { label => "", val => \$o->{var}{wiz_type}, type => 'list', list => [ keys %type ], format => sub { $type{$_[0]} } }, ], }, pdc => { @@ -195,7 +195,7 @@ $o->{pages} = { { label => N('Domain logons'), fixed_val => \$o->{var}{wiz_domain_logons} }, { label => N('admin users:'), val => \$o->{var}{wiz_admin_users}, help => N('root @adm') }, ], - next => 'ask_workgroup', + next => 'ldap_conf', }, member => { name => N('Member of a domain') . "\n\n" . ('Share data, users home or printers.') . "\n" . N('Please enter the domain you want to join.'), |