summaryrefslogtreecommitdiffstats
path: root/samba_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'samba_wizard')
-rwxr-xr-xsamba_wizard/Samba.pm517
1 files changed, 468 insertions, 49 deletions
diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm
index a72578e0..f310fcb2 100755
--- a/samba_wizard/Samba.pm
+++ b/samba_wizard/Samba.pm
@@ -28,59 +28,203 @@ use MDK::Wizard::Wizcommon;
my $wiz = new MDK::Wizard::Wizcommon;
my $o = {
- name => 'configuration wizard',
+ name => 'Samba wizard',
var => {
- ip1 => '',
- ip2 => ''
- }
+ wiz_box_list => '',
+ wiz_hosts_allow => '',
+ wiz_do_file_sharing => '',
+ wiz_all_printers => '',
+ wiz_level => '',
+ wiz_printers => '',
+ wiz_do_printer_sharing => '',
+ wiz_do_homes => '',
+ wiz_workgroup => '',
+ wiz_dir => '',
+ wiz_banner => '',
+ wiz_write_list => '',
+ wiz_read_list => '',
+ wiz_hosts_deny => '',
+ list_printers => ''
+ },
+ needed_rpm => [ 'samba-server' ],
+ defaultimage => "$ENV{__WIZ_HOME__}samba_wizard/images/samba.png"
};
+my $old = read_conf("/etc/samba/smb.conf");
+
+my %level = (
+ 1 => N('All - No access restriction'),
+ 2 => N('My rules - Ask me allowed and denied hosts')
+);
+
$o->{pages} = {
- welcome => {
- name => N('') . "\n\n" . N('') . "\n\n" . N(''),
- no_back => 1,
- next => 'ip_range'
- },
- confige => {
- name => N('') . "\n\n" . N('') . "\n\n" . N(''),
- pre => sub {
- $o->{var}{ip1} ||= f1();
- $o->{var}{ip2} ||= f2();
- },
- post => \&check,
- data => [
- { label => '' },
- { label => N(''), val => \$o->{var}{ip1} },
- { label => N(''), val => \$o->{var}{ip2} },
- ],
- next => 'summary'
- },
- warning => {
- name => N('Warning.'),
- data => [ { label => N('') } ],
- next => 'summary'
- },
- error => {
- name => N('Error.'),
- data => [ { label => N('') } ],
- next => 'config'
- },
- summary => {
- name => N('') . "\n\n" . N('') . "\n\n" . N(''),
- data => [
- { label => N(''), type => 'field', val => \$o->{var}{ip1} },
- { label => '' },
- { label => N(''), type => 'field', val => \$o->{var}{ip2} },
- ],
- post => \&do_it,
- next => 'end'
- },
- end => {
- name => N('Congratulation'),
- data => [ { label => N('') } ],
- end => 1,
- next => 0
- },
+ 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('This wizard will help you configuring the Samba services of your server.'),
+ no_back => 1,
+ next => 'ask_workgroup'
+ },
+ ask_workgroup => {
+ name => N('Workgroup') . "\n\n" . N('Samba needs to know the Windows Workgroup it will serve.') . "\n\n" . N('Samba needs to know the Windows Workgroup it will serve.'),
+ pre => sub {
+ $o->{var}{wiz_workgroup} ||= get_workgroup()
+ },
+ data => [
+ { label => N('Workgroup:'), val => \$o->{var}{wiz_workgroup} },
+ ],
+ post => \&check_workgroup,
+ next => 'ask_banner'
+ },
+ error_in_workgroup => {
+ name => N('Error.'),
+ data => [
+ { label => N('The Workgroup is wrong') },
+ ],
+ post => \&check_workgroup,
+ next => 'ask_workgroup'
+ },
+ ask_banner => {
+ name => N('Server Banner.') . "\n\n" . N('The banner is the way this server will be described in the Windows workstations.') . "\n\n" . N('The banner is the way this server will be described in the Windows workstations.'),
+ pre => sub {
+ $o->{var}{wiz_banner} ||= get_banner()
+ },
+ post => \&check_banner,
+ data => [
+ { label => N('Banner:'), val => \$o->{var}{wiz_banner} },
+ ],
+ next => 'ask_net'
+ },
+ error_in_banner => {
+ name => N('Error.'),
+ data => [
+ { label => N('The Server Banner is incorrect') },
+ ],
+ next => 'ask_banner'
+ },
+ ask_net => {
+ name => N('Access control') . "\n\n" . N('') . "\n\n" . N(''),
+ pre => sub {
+ $o->{var}{wiz_level} ||= 1
+ },
+ post => sub { return 'ask_netmask' if $o->{var}{wiz_level} == 2 },
+ data => [
+ { label => N('Access level :'), val => \$o->{var}{wiz_level}, list => [ keys %level ], format => sub { $level{$_[0]} } },
+ ],
+ next => 'ask_services'
+ },
+ ask_netmask => {
+ name => N('Access control') . "\n\n" . N('* Example 1: allow all IPs in 150.203.*.*; except one\nhosts allow = 150.203. EXCEPT 150.203.6.66') . "\n\n" . N('* Example 2: allow hosts that match the given network/netmask\nhosts allow = 150.203.15.0/255.255.255.0') . "\n\n" . N('* Example 3: allow a couple of hosts\nhosts allow = lapland, arvidsjaur') . "\n\n" . N('* Example 4: allow only hosts in NIS netgroup \qfoonet\q, but deny access from one particular host\nhosts allow = @foonet\nhosts deny = pirate') . "\n\n" . N('Note that access still requires suitable user-level passwords.'),
+ pre => sub {
+ $o->{var}{wiz_hosts_allow} ||= get_allow_host();
+ $o->{var}{wiz_hosts_allow} ||= get_deny_host()
+ },
+ post => \&check,
+ data => [
+ { label => N('Allow hosts:'), val => \$o->{var}{wiz_allow_host} },
+ { label => N('Deny hosts:'), val => \$o->{var}{wiz_deny_host} },
+ ],
+ next => 'ask_services'
+ },
+ ask_services => {
+ name => N('Enabled Samba Services') . "\n\n" . N('Samba can provide a common file sharing area to your Windows workstation, and can also provide printer sharing for the printers connected to your server.'),
+ pre => sub {
+ $o->{var}{wiz_do_file_sharing} ||= get_file_sharing();
+ $o->{var}{wiz_do_printer_sharing} ||= 1;
+ $o->{var}{wiz_do_homes} ||= get_home_sharing()
+ },
+ post => \&check_services,
+ data => [
+ { text => N('Enable file sharing area'), type => 'bool', val => \$o->{var}{wiz_do_file_sharing} },
+ { text => N('Enable Server Printer Sharing'), type => 'bool', val => \$o->{var}{wiz_do_printer_sharing} },
+ { text => N('Make home directories available for their owners'), type => 'bool', val => \$o->{var}{wiz_do_homes} },
+ ],
+ next => 'ask_dir'
+ },
+ warn_smbpasswd => {
+ name => N('Warning.') . "\n\n" . N('You have selected to allow user access their home directories via samba but you/they must use smbpasswd to set a password.'),
+ post => \&ask_dir,
+ next => 'summary'
+ },
+ ask_dir => {
+ name => N('Shared directory:') . "\n\n" . N('Type the path of the directory you want being shared.'),
+ pre => sub {
+ $o->{var}{wiz_dir} ||= get_dir()
+ },
+ post => \&check_dir,
+ data => [
+ { label => N('Shared directory:'), val => \$o->{var}{wiz_dir} },
+ ],
+ next => 'ask_access'
+ },
+ error_in_dir => {
+ name => N('Error.'),
+ data => [
+ { label => N('The path you entered does not exist.') },
+ ],
+ next => 'ask_dir'
+ },
+ ask_access => {
+ name => N('File permissions') . "\n\n" . N('Type users or group separated by a comma (groups must be preceded by a \'@\') like this :\nroot, fred, @users, @wheel for each kind of permission.') . "\n\n" . N(''),
+ pre => sub {
+ $o->{var}{wiz_read_list} ||= get_read();
+ $o->{var}{wiz_write_list} ||= get_write()
+ },
+ post => \&check_users,
+ data => [
+ { label => N('read list:'), help => N('root, fred, @users, @wheel'), val => \$o->{var}{wiz_read_list} },
+ { label => N('write list:'), help => N('root, fred, @users, @wheel'), val => \$o->{var}{wiz_write_list} },
+ ],
+ next => 'ask_printers'
+ },
+ ask_printers => {
+ name => N('Select which printers you want to be accessible from known users'),
+ pre => sub {
+ $o->{var}{list_printers} ||= [ list_printers() ];
+ $o->{var}{wiz_box_list} ||= []
+ },
+ post => \&check,
+ data => [
+ { text => N('Enable all printers'), type => 'bool', val => \$o->{var}{wiz_all_printers} },
+ { val => \$o->{var}{wiz_box_list}, boolean_list => \$o->{var}{list_printers}, disabled => sub { $o->{var}{wiz_all_printers} and return 1; 0 } },
+ ],
+ next => 'summary'
+ },
+ warning => {
+ name => N('Warning.'),
+ data => [ { label => N('') } ],
+ next => 'summary'
+ },
+ error => {
+ name => N('Error.'),
+ data => [ { label => N('') } ],
+ next => 'config'
+ },
+ summary => {
+ name => N('Configuring Samba') . "\n\n" . N('The wizard collected the following parameters
+configure Samba.') . "\n\n" . N('To accept these values, and configure your server, click the Next button or use the Back button to correct them.'),
+ pre => sub {
+ $o->{var}{printers} = get_printers();
+ $o->{var}{file_sharing} = $o->{var}{wiz_do_file_sharing} ? N("enabled") : N("disabled");
+ $o->{var}{printer_sharing} = $o->{var}{wiz_do_printer_sharing} ? N("enabled") : N("disabled");
+ $o->{var}{shared_homes} = $o->{var}{wiz_do_homes} ? N("enabled") : N("disabled")
+ },
+ data => [
+ { label => N('Workgroup:'), fixed_val => \$o->{var}{wiz_workgroup} },
+ { label => N('Server Banner:'), fixed_val => \$o->{var}{wiz_banner} },
+ { label => N('File Sharing:'), fixed_val => \$o->{var}{file_sharing} },
+ { label => N('Shared directory:'), fixed_val => \$o->{var}{wiz_dir} },
+ { label => N('Print Server:'), fixed_val => \$o->{var}{printer_sharing} },
+ { label => N('Home:'), fixed_val => \$o->{var}{shared_homes} },
+ { label => N('Printers:'), fixed_val => \$o->{var}{printers} },
+ ],
+ post => \&do_it,
+ next => 'end'
+ },
+ end => {
+ name => N('Congratulation'),
+ data => [ { label => N('The wizard successfully configured your Samba server.') } ],
+ end => 1,
+ next => 0
+ },
};
sub new {
@@ -90,4 +234,279 @@ sub new {
}, $class;
}
+sub check {
+ $> and return 1;
+ $o->is_dhcp() and return 2;
+ 0;
+}
+
+sub check_services {
+ $o->{var}{wiz_do_homes} and return 'warn_smbpasswd';
+ $o->{var}{wiz_do_file_sharing} and return 'ask_dir';
+ $o->{var}{wiz_do_printer_sharing} and return 'ask_printers';
+}
+
+sub check_dir {
+ -d ($o->{var}{wiz_dir}) or return 'error_in_dir'
+}
+
+# the "__" before comment is to avoid conflicts with possible "comment" variable
+# for variables value is in value key and comment idem (no risque of conflict)
+
+sub read_conf {
+ my $self = {};
+ my ($file) = @_;
+ my $menu;
+ my @tab;
+ my %conf;
+
+ open(FH, $file) or die "$! ($file)";
+ while (<FH>) {
+ if (/^(\s*\;?\s*)\[(.*)\].*/) {
+ $menu = $2;
+ $conf{$menu}{__comment} = $1;
+ }
+ elsif (/^(?!\#)(\s*\;*\s*)(.*?)\s*=\s*(.*)\s*$/) {
+ $conf{$menu}{$2}{value} = $3;
+ $conf{$menu}{$2}{comment} = $1;
+ }
+ push @tab, $_;
+ }
+ $self->{conf} = \%conf;
+ $self->{tab} = \@tab;
+ bless $self;
+}
+
+# we parse @tab to check for values in the struct.
+
+sub write_conf {
+ my $self = shift;
+ my ($file) = @_;
+ my $menu;
+
+ open(FH, "> $file") or die "$!";
+ foreach (@{$self->{tab}}) {
+ if (/^\s*\;?\s*\[(.*)\].*/) {
+ $menu = $1;
+ print FH "$self->{conf}->{$menu}{__comment}"."[$menu]\n";
+ }
+ elsif (/^(?!\#)\s*\;*\s*(.*?)\s*=/) {
+ print FH "$self->{conf}->{$menu}{$1}{comment}"."$1" ." = ". "$self->{conf}->{$menu}{$1}{value}\n";
+ }
+ else {
+ print FH $_;
+ }
+ }
+}
+
+#section has the name of the printer
+sub add_printer {
+ my $self = shift;
+ my ($printer) = @_;
+
+ if (exists $self->{conf}->{$printer}) {
+ $self->comment_menu($printer, " ");
+ }
+ else {
+ $self->{conf}->{$printer}{printable}{comment} = " ";
+ $self->{conf}->{$printer}{printer}{comment} = " ";
+ push @{$self->{tab}}, "[$printer]\n";
+ push @{$self->{tab}}, "printer = $printer\n";
+ push @{$self->{tab}}, "printable = yes\n";
+ $self->{conf}->{$printer}{printer}{value} = $printer;
+ $self->{conf}->{$printer}{printable}{value} = "yes";
+ }
+}
+
+sub list_printers {
+ my @list if 0;
+
+ return @list if @list;
+ @list = sort grep /^(?!\#).*/, map {
+ my ($printer) = split(':', $_);
+ } cat_("/etc/printcap");
+ @list
+}
+
+
+sub check_users {
+ return 'ask_printers' if $o->{var}{wiz_do_printer_sharing}
+}
+
+sub comment_menu {
+ my $self = shift;
+ my ($menu, $str) = @_;
+
+ return if (!$menu or !exists $self->{conf}->{$menu});
+ $self->{conf}->{$menu}{__comment} = $str;
+ foreach (keys %{$self->{conf}->{$menu}}) {
+ ($_ eq "__comment") and next;
+ $self->{conf}->{$menu}{$_}{comment} = $str;
+ }
+}
+
+sub comment_var {
+ my $self = shift;
+ my ($menu, $var, $str) = @_;
+
+ $self->{conf}->{$menu}{$var}{comment} = $str;
+}
+
+sub chg_var {
+ my $self = shift;
+ my ($menu, $var, $str) = @_;
+
+ $self->{conf}->{$menu}{$var}{value} = $str;
+}
+
+# all or selected printers
+sub printer_sharing {
+ my $self = shift;
+
+ if ($o->{var}{wiz_all_printers}) {
+ $self->comment_menu("printers", " ");
+ foreach my $printer (keys (%::bool)) {
+ $self->comment_menu($printer, ";");
+ }
+ }
+ else {
+ $self->comment_menu("printers", ";");
+ foreach my $printer (keys (%::bool)) {
+ if (int($::bool{$printer})) {
+ $self->comment_menu($printer, " ");
+ $self->add_printer($printer);
+ }
+ else {
+ $self->comment_menu($printer, ";");
+ }
+ }
+ }
+}
+
+sub get_printers {
+ if ($o->{var}{wiz_do_printer_sharing}) {
+ my $string;
+ $o->{var}{wiz_all_printers} and return "all printers";
+ for (my $i; $i < @{$o->{var}{wiz_box_list}}; $i++) {
+ $string .= "$o->{var}{list_printers}[$i]\n" if $o->{var}{wiz_box_list}[$i]
+ }
+ "$string";
+ }
+ else {
+ "disabled";
+ }
+}
+
+sub check_workgroup {
+ $o->{var}{wiz_workgroup} or return 'error_in_workgroup'
+}
+
+sub ask_acces {
+ 10;
+}
+
+sub get_write {
+ $old->{conf}->{public}{"write list"}{value};
+}
+
+sub get_read {
+ $old->{conf}->{public}{"read list"}{value};
+}
+
+sub check_banner {
+ $o->{var}{wiz_banner} or return 'error_in_banner'
+}
+
+sub get_workgroup {
+ $old->{conf}->{global}{workgroup}{value}
+}
+
+sub get_banner {
+ $old->{conf}->{global}{"server string"}{value};
+}
+
+sub ask_dir {
+ return 'ask_dir' if $o->{var}{wiz_do_file_sharing};
+ return 'ask_printers' if $o->{var}{wiz_do_printer_sharing};
+}
+
+sub get_dir {
+ $old->{conf}->{public}{path}{value};
+}
+
+sub get_file_sharing {
+ return 0 if ($old->{conf}->{public}{__comment} =~ /\;|\#/);
+ 1;
+}
+
+sub get_home_sharing {
+ return 0 if ($old->{conf}->{homes}{__comment} =~ /\;|\#/);
+ 1;
+}
+
+sub get_netmask {
+ "192.168.100.1/255.255.255.0";
+}
+
+sub get_allow_host {
+ $old->{conf}->{global}{"hosts allow"}{value};
+}
+
+sub get_deny_host {
+ $old->{conf}->{global}{"hosts deny"}{value};
+}
+
+# remember one variable cannot be commented and not in the same file.
+sub do_it {
+ $::testing and return;
+ my $file = "__WIZ_HOME__/samba_wizard/scripts/smb.conf.default";
+
+ my $conf = read_conf($file);
+ $conf->chg_var("global", "workgroup", $o->{var}{wiz_workgroup});
+ $conf->chg_var("global", "server string", $o->{var}{wiz_banner});
+ $conf->chg_var("public", "write list", $o->{var}{wiz_write_list}) if $o->{var}{wiz_do_file_sharing};
+ $conf->chg_var("public", "read list", $o->{var}{wiz_read_list}) if $o->{var}{wiz_do_file_sharing};
+ my $ip = $o->itf_get("IPADDR");
+ if ($o->{var}{wiz_do_file_sharing}) {
+ standalone->explanations("Enabling $o->{var}{wiz_dir} samba file sharing");
+ $conf->comment_menu("public", " ");
+ $conf->chg_var("public", "path", $o->{var}{wiz_dir});
+ }
+ else {
+ standalone->explanations("Disabling samba file sharing");
+ $conf->comment_menu("public", ";");
+ }
+ if ($o->{var}{wiz_do_homes}) {
+ standalone->explanations("Enabling samba homes sharing");
+ $conf->comment_menu("homes", " ");
+ }
+ else {
+ standalone->explanations("Disabling samba homes sharing");
+ $conf->comment_menu("homes", ";");
+ }
+ standalone->explanations("Samba deny $o->{var}{wiz_hosts_deny}");
+ standalone->explanations("Samba allow $o->{var}{wiz_hosts_allow}");
+# $conf->chg_var("global", "hosts deny", $o->{var}{wiz_hosts_deny});
+# $conf->chg_var("global", "hosts allow", $o->{var}{wiz_hosts_allow});
+
+ if ($o->{var}{wiz_do_printer_sharing}) {
+ standalone->explanations("Enabling printer sharing");
+ $conf->printer_sharing();
+ }
+ else {
+ standalone->explanations("Disabling printer sharing");
+ foreach my $printer (keys (%::bool)) {
+ if (!int($::bool{$printer})) {
+ $conf->comment_menu("$printer", ";");
+ }
+ }
+ $conf->comment_menu("printers", ";");
+ }
+ $conf->write_conf("/etc/samba/smb.conf");
+ if (services::is_service_running('smb')) {
+ services::restart('smb')
+ } else {
+ services::start('smb')
+ }
+}
1;