From 00bd5490a3e762d6319526143eeb0f9acdf93171 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Tue, 19 Jul 2005 08:05:11 +0000 Subject: fix default configuration file, remove BDC, member and ldap support (perhaps will be re-enabled later) --- samba_wizard/Samba.pm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'samba_wizard') diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index 409b5ef5..192290db 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -72,7 +72,7 @@ my $o = { }; # we ask glueconf to give us the structure representing /etc/samba/smb.conf -if (!-f "/etc/samba/smb.conf") { cp_af("/usr/share/wizards/samba_wizard/smb.conf.default", "/etc/samba/smb.conf"); } +if (!-f "/etc/samba/smb.conf") { cp_af("/usr/share/wizards/samba_wizard/scripts/smb.conf.default", "/etc/samba/smb.conf"); } my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf', show_commented_info => 1 }); #debug @@ -80,10 +80,10 @@ use Data::Dumper; print Dumper($samba); my %type = ( - 1 => N('BDC - backup domain controller (need PDC+LDAP)'), + # 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'), + # 4 => N('Member - member of a domain'), ); my @yesorno = qw(yes no); push @yesorno, ""; @@ -118,7 +118,7 @@ $o->{pages} = { ], }, pdc => { - name => N('PDC server: primary domain controller') . "\n\n" . N('Server configured as a PDC is responsible for Windows authentication throughout the domain.') . "\n" . N('Single server installations may use smbpasswd or tdbsam password backends, but large installations should use the LDAP backend to provide centralized management of both Posix users and Windows users.') . "\n" . N('Domain master = yes, causes the server to register the NetBIOS name 1B. This name will be recognized by other servers.'), + name => N('PDC server: primary domain controller') . "\n\n" . N('Server configured as a PDC is responsible for Windows authentication throughout the domain.') . "\n" . N('Single server installations may use smbpasswd or tdbsam password backends') . "\n" . N('Domain master = yes, causes the server to register the NetBIOS name 1B. This name will be recognized by other servers.'), pre => sub { $o->{var}{wiz_domain_master} = "yes"; $o->{var}{wiz_security} = "user"; @@ -133,9 +133,10 @@ $o->{pages} = { $o->{var}{wiz_passdb_backend_yn} = "no"; } }, - post => sub { - $o->{var}{wiz_passdb_backend_yn} =~ /yes/ and return 'ldap_conf'; - }, + next => 'ask_workgroup', +# post => sub { +# $o->{var}{wiz_passdb_backend_yn} =~ /yes/ and return 'ldap_conf'; +# }, data => [ { label => N('Domain logons:'), fixed_val => \$o->{var}{wiz_domain_logons} }, { label => N('Domain master:'), fixed_val => \$o->{var}{wiz_domain_master} }, @@ -143,7 +144,7 @@ $o->{pages} = { { label => N('Wins support:'), val => \$o->{var}{wiz_wins_support}, fixed_list => \@yesorno }, { label => N('admin users:'), val => \$o->{var}{wiz_admin_users}, help => N('root @adm') }, { label => N('Os level:'), fixed_val => \$o->{var}{wiz_oslevel}, help =>N("The global os level option dictates the operating system level at which Samba will masquerade during a browser election. If you wish to have Samba win an election and become the master browser, you can set the level above that of the operating system on your network with the highest current value. ie: os level = 34") }, - { label => N('Use LDAP Passdb backend'), val => \$o->{var}{wiz_passdb_backend_yn}, fixed_list => \@yesorno }, +# { label => N('Use LDAP Passdb backend'), val => \$o->{var}{wiz_passdb_backend_yn}, fixed_list => \@yesorno }, ], complete => sub { if (!$o->{var}{wiz_domain_master}) { @@ -452,15 +453,15 @@ sub do_it { # global section $samba->{global}{workgroup} = $o->{var}{wiz_workgroup}; $samba->{global}{'server string'} = $o->{var}{wiz_banner}; - + # add special global options global_special_options; - + # log level in global section $o->{var}{wiz_log_file} and $samba->{global}{'log file'} = $o->{var}{wiz_log_file}; $o->{var}{wiz_log_level} and $samba->{global}{'log level'} = $o->{var}{wiz_log_level}; $o->{var}{wiz_max_log_size} and $samba->{global}{'max log size'} = $o->{var}{wiz_max_log_size}; - + write_conf_restart_smb(); # remove wait message undef $w; -- cgit v1.2.1