diff options
Diffstat (limited to 'samba_wizard/Sambasharing.pm')
| -rwxr-xr-x | samba_wizard/Sambasharing.pm | 506 |
1 files changed, 506 insertions, 0 deletions
diff --git a/samba_wizard/Sambasharing.pm b/samba_wizard/Sambasharing.pm new file mode 100755 index 00000000..e7e674db --- /dev/null +++ b/samba_wizard/Sambasharing.pm @@ -0,0 +1,506 @@ +#!/usr/bin/perl + +# Drakwizard +# Copyright (C) 2005 Mandriva +# +# Authors: antoine Ginies <aginies @ mandriva> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +package MDK::Wizard::Sambasharing; +use strict; + +use common; +use services; +use MDK::Wizard::Wizcommon; + +use Libconf::Templates; +use Libconf::Glueconf::Samba::Smb_conf; + +my $wiz = new MDK::Wizard::Wizcommon; + +my @listshare; + +my $o = { + name => 'Samba wizard', + var => { + wiz_do_homes => '', + wiz_dir => '', + wiz_share_comment => '', wiz_share_browseable => '', wiz_share_writable => '', + wiz_write_list => '', + wiz_read_list => '', + wiz_hosts_deny => '', + wiz_home_writable => '', wiz_home_browseable => '', wiz_home_createmode => '', + wiz_home_comment => '', + wiz_addshare_comment => '', wiz_addshare_browseable => '', wiz_addshare_writable => '', + wiz_addshare_createmode => '', wiz_addshare_dotfiles => '', + wiz_selected_share => '', + wiz_selected_share_comment => '', + }, + needed_rpm => [ 'samba-server' ], + defaultimage => "/usr/share/wizards/samba_wizard/images/samba.png" + }; + +# we ask glueconf to give us the structure representing /etc/samba/smb.conf +my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf', show_commented_info => 1 }); + +use Data::Dumper; +#print Dumper($samba); + +my %level = ( + 1 => N('All - No access restriction'), + 2 => N('My rules - Ask me allowed and denied hosts') +); + +my %share = ( + 1 => N('Add - add a share'), + 2 => N('Remove - remove a share'), + 3 => N('Modify - modify a share'), + 4 => N('CDrom - share a CDrom'), + 5 => N('Homes - share home user dir'), + ); + +my @yesorno = qw(yes no);# push @yesorno, " "; + +$o->{pages} = { + welcome => { + name => N('What do you want todo with your share ?') . "\n\n" . N('add/remove/modify a share'), + data => [ + { label => N("what do you want:"), val => \$o->{var}{wiz_share}, list => [ keys %share ], format => sub { $share{$_[0]} } }, + ], + post => sub { + if ($o->{var}{wiz_share} == 1) { + return 'add_share' } + elsif ($o->{var}{wiz_share} == 2) { + return 'choose_share' } + elsif ($o->{var}{wiz_share} == 3) { + return 'choose_share' } + elsif ($o->{var}{wiz_share} == 4) { + return 'add_cdrom_share' } + elsif ($o->{var}{wiz_share} == 5) { + return 'ask_homes' } + }, + no_back => 1, + }, + choose_share => { + name => N('Manage wich share ?') . "\n\n" . N('Please choose the share you want to manage.'), + pre => \&list_all_shares, + post => sub { + if ($o->{var}{wiz_share} == 2) { + return 'delete_share'; + } else { + return 'modify_share'; + } + }, + data => [ + { label => N('Choose share you want to manage:'), val => \$o->{var}{wiz_selected_share}, fixed_list => \@listshare }, + ], + complete => sub { + if ($o->{var}{wiz_selected_share} =~ /cdrom/ || $o->{var}{wiz_share} == 2) { + $::in->ask_warn(N('Error'), N('Can\'t modify cdrom share, please choose another share.')); + return 1; + } + if ($o->{var}{wiz_selected_share} =~ /homes/ || $o->{var}{wiz_share} == 2) { + $::in->ask_warn(N('Error'), N('Can\'t modify homes share, please choose another share.')); + return 1; + } + }, + }, + delete_share => { + name => N('Remove a share'), + pre => sub { + my $dshare = $o->{var}{wiz_selected_share}; + $o->{var}{wiz_selected_share_comment} = $samba->{$dshare}{comment}; + }, + data => [ + { label => N('Delete this share:'), fixed_val => \$o->{var}{wiz_selected_share} }, + { label => N('Comment for this share:'), fixed_val => \$o->{var}{wiz_selected_share_comment} }, + ], + next => 'summary_delete', + }, + modify_share => { + name => N('Modify a share'), + pre => sub { + my $share = $o->{var}{wiz_selected_share}; + $o->{var}{wiz_share_comment} = $samba->{$share}{comment}; + $o->{var}{wiz_add_share_writable} = $samba->{$share}{writable}; + $o->{var}{wiz_share_browseable} = $samba->{$share}{browseable}; + $o->{var}{wiz_share_path} = $samba->{$share}{path}; + $o->{var}{wiz_share_public} = $samba->{$share}{public}; + }, + complete => sub { + if (!($o->{var}{wiz_share_comment})) { + $::in->ask_warn(N('Error'), N('Please enter a share comment.')); + return 1; + } + }, + data => [ + { label => N('Name of the share:'), fixed_val => \$o->{var}{wiz_selected_share} }, + { label => N('Comment:'), val => \$o->{var}{wiz_share_comment} }, + { label => N('Path:'), val => \$o->{var}{wiz_share_path} }, + { label => N('Browseable:'), val => \$o->{var}{wiz_share_browseable}, fixed_list => \@yesorno, help => N("Allows share to be displayed in list of share.") }, + { label => N('Writable:'), val => \$o->{var}{wiz_share_writable}, fixed_list => \@yesorno }, + { label => N('Public:'), val => \$o->{var}{wiz_share_public}, fixed_list => \@yesorno }, + ], + next => 'modify_share_options', + }, + modify_share_options => { + name => N('Modify a share') . "\n\n" . N('Advanced options, use them if you know what you are doing.'), + pre => sub { + my $share = $o->{var}{wiz_selected_share}; + $o->{var}{wiz_share_createmode} = $samba->{$share}{'create mode'}; + $o->{var}{wiz_share_readlist} = exists $samba->{$share}{'read list'}; + $o->{var}{wiz_share_writelist} = exists $samba->{$share}{'write list'}; + $o->{var}{wiz_share_dotfiles} = exists $samba->{$share}{'hide dot files'}; + }, + data => [ + { label => N('Create mode:'), val => \$o->{var}{wiz_share_createmode} }, + { label => N('Read list:'), val => \$o->{var}{wiz_share_readlist}, help => N('Specifies a list of users that have read-only access to a writable share. ie: root fred @users @wheel') }, + { label => N('Write list:'), val => \$o->{var}{wiz_share_writelist}, help => N('Specifies a list of users that have read-write access to a read-only share. ie: root fred @users @wheel') }, + { label => N('Show dot files:'), val => \$o->{var}{wiz_share_dotfiles}, fixed_list => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") }, + { label => N('Hide files:'), val => \$o->{var}{wiz_share_hidefiles}, help => N("The hide files option provides one or more directory or filename patterns to Samba. Any file matching this pattern will be treated as a hidden file from the perspective of the client. ie: /.icewm/") }, + ], + next => 'summary_modify', + }, + add_share => { + name => N('Add a share') . "\n" . N('Comment: description of the share') . "\n" . N('Browseable: view share') . "\n" . N('Writable: user can write in the share'), + data => [ + { label => N('Name of the share:'), val => \$o->{var}{wiz_addshare_name} }, + { label => N('Comment:'), val => \$o->{var}{wiz_addshare_comment} }, + { label => N('Path:'), val => \$o->{var}{wiz_addshare_path} }, + { label => N('Browseable:'), val => \$o->{var}{wiz_addshare_browseable}, fixed_list => \@yesorno, help => N("Allows share to be displayed in list of share.") }, + { label => N('Public:'), val => \$o->{var}{wiz_addshare_public}, fixed_list => \@yesorno }, + ], + complete => sub { + foreach my $clef (keys %$samba) { + if ($clef =~ /$o->{var}{wiz_addshare_name}/) { + $::in->ask_warn(N("Error"), N("Share with the same name already exist, please choose another name.")); + return 1 + } + } + }, + next => 'add_share_options', + }, + add_cdrom_share => { + name => N('Add a CDROM share'), + pre => sub { + if ($samba->{cdrom}{comment}) { + $o->{var}{wiz_cdrom_comment} = $samba->{cdrom}{comment}; + } else { + $o->{var}{wiz_cdrom_comment} = "%L CDrom"; + } + if ($samba->{cdrom}{path}) { + $o->{var}{wiz_cdrom_path} = $samba->{cdrom}{path} + } else { + $o->{var}{wiz_cdrom_path} = "/mnt/cdrom"; + } + $o->{var}{wiz_cdrom_browseable} = "yes"; + $o->{var}{wiz_cdrom_pre} = "/bin/mount /mnt/cdrom"; + $o->{var}{wiz_cdrom_post} = "/bin/umount /mnt/cdrom"; + $o->{var}{wiz_cdrom_public} = "yes"; + }, + data => [ + { label => N('Comment:'), fixed_val => \$o->{var}{wiz_cdrom_comment} }, + { label => N('CDrom path:'), fixed_val => \$o->{var}{wiz_cdrom_path} }, + { label => N('Browseable:'), fixed_val => \$o->{var}{wiz_cdrom_browseable} }, + { label => N('Root preexec:'), fixed_val => \$o->{var}{wiz_cdrom_pre} }, + { label => N('Root postexec:'), fixed_val => \$o->{var}{wiz_cdrom_post} }, + { label => N('Public:'), fixed_val => \$o->{var}{wiz_cdrom_public} }, + ], + next => 'summary_addcdromshare', + }, + add_share_options => { + name => N('Add a share') . "\n" . N('If you doesn\'t want to use one of this options, leave it blanck.'), + pre => sub { + $o->{var}{wiz_addshare_createmode} = "0700"; + $o->{var}{wiz_addshare_public} = "no"; + }, + data => [ + { label => N('Writable:'), val => \$o->{var}{wiz_addshare_writable}, fixed_list => \@yesorno }, + { label => N('Create mode:'), val => \$o->{var}{wiz_addshare_createmode} }, + { label => N('Read list:'), val => \$o->{var}{wiz_addshare_readlist}, help => N('Specifies a list \of users that have read-only access to a writable share. ie: root fred @users @wheel') }, + { label => N('Write list:'), val => \$o->{var}{wiz_addshare_writelist}, help => N('Specifies a lis\t of users that have read-write access to a read-only share. ie: root fred @users @wheel') }, + { label => N('Show dot files:'), val => \$o->{var}{wiz_addshare_dotfiles}, fixed_list => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") }, + { label => N('Hide files:'), val => \$o->{var}{wiz_addshare_hidefiles}, help => N("The hide files option provides one or more directory or filename patterns to Samba. Any file matching this pattern will be treated as a hidden file from the perspective of the client. ie: /.icewm/") }, + ], + next => 'summary_addshare', + }, + ask_homes => { + name => N('Users home options') . "\n" . N('You have selected to allow user access their home directories via samba but you/they must use smbpasswd to set a password.') . "\n" . N('Comment: description of users home directory') . "\n" . N('Browseable: view share') . "\n" . N('Writable: user can write in their home') . "\n" . N('Create mode: man chmod for more info'), + pre => sub { + if ($samba->{homes}{comment}) { + $o->{var}{wiz_home_comment} ||= $samba->{homes}{comment}; + } else { + $o->{var}{wiz_home_comment} = "Home Directories"; + } + $o->{var}{wiz_home_browseable} ||= $samba->{homes}{browseable}; + $o->{var}{wiz_home_writable} ||= $samba->{homes}{writable}; + if ($samba->{homes}{'create mode'}) { + $o->{var}{wiz_home_createmode} ||= $samba->{homes}{'create mode'}; + } else { + $o->{var}{wiz_home_createmode} = "0755"; + } + }, + data => [ + { label => N('Comment:'), val => \$o->{var}{wiz_home_comment} }, + { label => N('Browseable:'), val => \$o->{var}{wiz_home_browseable}, fixed_list => \@yesorno }, + { label => N('Writable:'), val => \$o->{var}{wiz_home_writable}, fixed_list => \@yesorno }, + { label => N('Create mode:'), val => \$o->{var}{wiz_home_createmode} }, + ], + next => 'summary_homeshare', + }, + summary_homeshare => { + name => N('Summary add home share') . "\n\n" . N('If you really want to add this this share, click the Next button or use the Back button.'), + post => \&do_it_add_homeshare, + data => [ + { label => N('Comment:'), fixed_val => \$o->{var}{wiz_home_comment} }, + { label => N('Browseable:'), fixed_val => \$o->{var}{wiz_home_browseable}, }, + { label => N('Writable:'), fixed_val => \$o->{var}{wiz_home_writable}, }, + { label => N('Create mode:'), fixed_val => \$o->{var}{wiz_home_createmode} }, + ], + next => 'end_add_share', + }, + summary_modify => { + name => N('Summary modify a share') . "\n\n" . N('If you really want to modify this share, click the Next button or use the Back button.'), + data => [ + { label => N('Name of the share:'), fixed_val => \$o->{var}{wiz_share_name} }, + { label => N('Comment:'), fixed_val => \$o->{var}{wiz_share_comment} }, + { label => N('Browseable:'), fixed_val => \$o->{var}{wiz_share_browseable} }, + { label => N('Writable:'), fixed_val => \$o->{var}{wiz_share_writable} }, + { label => N('Public:'), fixed_val => \$o->{var}{wiz_share_public} }, + { label => N('Create mode:'), fixed_val => \$o->{var}{wiz_share_createmode} }, + { label => N('Read list:'), fixed_val => \$o->{var}{wiz_share_readlist} }, + { label => N('Write list:'), fixed_val => \$o->{var}{wiz_share_writelist} }, + { label => N('Show dot files:'), fixed_val => \$o->{var}{wiz_share_dotfiles} }, + { label => N('Hide files:'), fixed_val => \$o->{var}{wiz_share_hidefiles} }, + ], + post => \&do_it_modify_share, + next => 'end_modify_share', + }, + summary_addcdromshare => { + name => N('CDROM') . "\n\n" . N('If you really want to share a CDROM, click the Next button or use the Back button.'), + post => \&do_it_add_cdromshare, + data => [ + { label => N('Comment:'), fixed_val => \$o->{var}{wiz_cdrom_comment} }, + { label => N('Cdrom path:'), fixed_val => \$o->{var}{wiz_cdrom_path} }, + { label => N('Browseable:'), fixed_val => \$o->{var}{wiz_cdrom_browseable} }, + { label => N('Root preexec:'), fixed_val => \$o->{var}{wiz_cdrom_pre} }, + { label => N('Root postexec:'), fixed_val => \$o->{var}{wiz_cdrom_post} }, + { label => N('Public:'), fixed_val => \$o->{var}{wiz_cdrom_public} }, + ], + next => 'end_add_share', + }, + summary_addshare => { + name => N('Summary add share') . "\n\n" . N('If you really want to add this this share, click the Next button or use the Back button.'), + post => \&do_it_add_share, + data => [ + { label => N('Name of the share:'), fixed_val => \$o->{var}{wiz_addshare_name} }, + { label => N('Comment:'), fixed_val => \$o->{var}{wiz_addshare_comment} }, + { label => N('Browseable:'), fixed_val => \$o->{var}{wiz_addshare_browseable} }, + { label => N('Writable:'), fixed_val => \$o->{var}{wiz_addshare_writable} }, + { label => N('Public:'), fixed_val => \$o->{var}{wiz_addshare_public} }, + { label => N('Create mode:'), fixed_val => \$o->{var}{wiz_addshare_createmode} }, + { label => N('Read list:'), fixed_val => \$o->{var}{wiz_addshare_readlist} }, + { label => N('Write list:'), fixed_val => \$o->{var}{wiz_addshare_writelist} }, + { label => N('Show dot files:'), fixed_val => \$o->{var}{wiz_addshare_dotfiles} }, + ], + next => 'end_add_share', + }, + summary_delete => { + name => N('Summary remove a share') . "\n\n" . N('If you really want to remove this share, click the Next button or use the Back button.'), + data => [ + { label => N('Name of the share to delete:'), fixed_val => \$o->{var}{wiz_selected_share} }, + ], + post => \&do_it_remove_share, + next => 'end_delete_share', + }, + end => { + name => N('Congratulations') . "\n\n" . N('The wizard successfully configured your Samba server.'), + post => sub { + store_samba_type($o->{var}{wiz_type}); + }, + end => 1, + next => 0 + }, + end_modify_share => { + name => N('Congratulations') . "\n\n" . N('The wizard successfully modify your share.'), + end => 1, + next => 0 + }, + end_add_share => { + name => N('Congratulations') . "\n\n" . N('The wizard successfully add your share.'), + end => 1, + next => 0 + }, + end_delete_share => { + name => N('Congratulations') . "\n\n" . N('The wizard successfully remove your share.'), + end => 1, + next => 0 + }, + error_end => { + name => N("Failed"), + data => [ { label => N("Please relaunch drakwizard, and try to change some parameters.") } ], + no_back => 1, + end => 1, + next => 0, + }, + }; + +sub new { + my ($class, $conf) = @_; + bless { + o => $o, + }, $class; +} + +sub wiz_mkdir_p { + my ($dir) = @_; + if (-d $dir) { + # Do nothing, directory exists + } elsif (-e $dir) { + # Directory is file, we are not going to delete it + return 0; + } else { + # Create parent directory + wiz_mkdir_p(dirname($dir)) or return 0; + # Create our directory + mkdir($dir, 0755) or return 0; + chown "nobody", "users", $dir; + } + 1; +} + +sub check() { + $> and return 1; + $wiz->{net}->is_dhcp() and return 2; + 0; +} + +sub remove_share { + my ($share) = @_; + delete $samba->{$share}; +} + +sub list_all_shares() { + undef @listshare; + foreach my $clef (keys %$samba) { + if ($samba->{$clef}{printable} =~ /yes/i) { + print "$clef is a printer\n"; + } elsif ($clef =~ /global/ or $clef =~ /print\$/) { + print "unwanted\n"; + } else { + push @listshare, $clef; + } + } + return @listshare; +} + +sub write_conf_restart_smb { + $samba->write_conf("/etc/samba/smb.conf"); + if (services::is_service_running('smb')) { + services::restart('smb') + } else { services::start('smb') } +} + +sub do_it_remove_share { + $::testing and return; + my $in = 'interactive'->vnew('su', 'Samba'); + my $w = $in->wait_message(N("Samba server"), N("Configuring your Samba server...")); + my $share = $o->{var}{wiz_selected_share}; + delete $samba->{$share}; + + write_conf_restart_smb(); + undef $w; + check_started('smbd'); +} + +sub do_it_modify_share { + $::testing and return; + my $in = 'interactive'->vnew('su', 'Samba'); + my $w = $in->wait_message(N("Samba server"), N("Configuring your Samba server...")); + my $share = $o->{var}{wiz_selected_share}; + $samba->{$share}; + $samba->{$share}{comment} = $o->{var}{wiz_share_comment}; + $samba->{$share}{browseable} = $o->{var}{wiz_share_browseable}; + $samba->{$share}{writable} = $o->{var}{wiz_share_writable}; + $samba->{$share}{public} = $o->{var}{wiz_share_public}; + $o->{var}{wiz_share_hidefiles} and $samba->{$share}{'hide files'} = $o->{var}{wiz_share_hidefiles}; + $o->{var}{wiz_share_dotfiles} and $samba->{$share}{'hide dot files'} = $o->{var}{wiz_share_dotfiles}; + $o->{var}{wiz_share_readlist} and $samba->{$share}{'read list'} = $o->{var}{wiz_share_readlist}; + $o->{var}{wiz_share_writelist} and $samba->{$share}{'write list'} = $o->{var}{wiz_share_writelist}; + $o->{var}{wiz_share_createmode} and $samba->{$share}{'create mode'} = $o->{var}{wiz_share_createmode}; + + write_conf_restart_smb(); + undef $w; + check_started('smbd'); +} + +sub do_it_add_cdromshare { + $::testing and return; + my $in = 'interactive'->vnew('su', 'Samba'); + my $w = $in->wait_message(N("Samba server"), N("Configuring your Samba server...")); + $samba->{cdrom}{comment} = $o->{var}{wiz_cdrom_comment}; + $samba->{cdrom}{path} = $o->{var}{wiz_cdrom_path}; + $samba->{cdrom}{path} = $o->{var}{wiz_cdrom_path}; + $samba->{cdrom}{browseable} = $o->{var}{wiz_cdrom_browseable}; + $samba->{cdrom}{'root preexec'} = $o->{var}{wiz_cdrom_pre}; + $samba->{cdrom}{'root postexec'} = $o->{var}{wiz_cdrom_post}; + $samba->{cdrom}{public} = $o->{var}{wiz_cdrom_public}; + + write_conf_restart_smb(); + undef $w; + check_started('smbd'); +} + +sub do_it_add_homeshare { + $::testing and return; + my $in = 'interactive'->vnew('su', 'Samba'); + my $w = $in->wait_message(N("Samba server"), N("Configuring your Samba server...")); + $samba->{homes}; + $samba->{homes}{comment} = $o->{var}{wiz_home_comment}; + $samba->{homes}{browseable} = $o->{var}{wiz_home_browseable}; + $samba->{homes}{writable} = $o->{var}{wiz_home_writable}; + $samba->{homes}{'create mode'} = $o->{var}{wiz_home_createmode}; + + write_conf_restart_smb(); + undef $w; + check_started('smbd'); +} + + +sub do_it_add_share { + $::testing and return; + my $in = 'interactive'->vnew('su', 'Samba'); + my $w = $in->wait_message(N("Samba server"), N("Configuring your Samba server...")); + + my $share = $o->{var}{wiz_addshare_name}; + $samba->{$share}; + $samba->{$share}{comment} = $o->{var}{wiz_addshare_comment}; + $samba->{$share}{path} = $o->{var}{wiz_addshare_path}; + $samba->{$share}{browseable} = $o->{var}{wiz_addshare_browseable}; + $samba->{$share}{writable} = $o->{var}{wiz_addshare_writable}; + $samba->{$share}{public} = $o->{var}{wiz_addshare_public}; + $o->{var}{wiz_addshare_dotfiles} and $samba->{$share}{'hide dot files'} = $o->{var}{wiz_addshare_dotfiles}; + $o->{var}{wiz_addshare_hidefiles} and $samba->{$share}{'hide files'} = $o->{var}{wiz_addshare_hidefiles}; + $o->{var}{wiz_addshare_readlist} and $samba->{$share}{'read list'} = $o->{var}{wiz_addshare_readlist}; + $o->{var}{wiz_addshare_writelist} and $samba->{$share}{'write list'} = $o->{var}{wiz_addshare_writelist}; + $o->{var}{wiz_addshare_createmode} and $samba->{$share}{'create mode'} = $o->{var}{wiz_addshare_createmode}; + + write_conf_restart_smb(); + undef $w; + check_started('smbd'); +} + +1; |