summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare56
1 files changed, 28 insertions, 28 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 365b5c491..41c2a683a 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -180,27 +180,6 @@ sub create_smbuser {
}
sub write_conf {
- foreach my $clef (@listshare) {
- $samba->{$clef};
- $samba->{$clef}{path};
- $samba->{$clef}{comment};
- $samba->{$clef}{browseable};
- $samba->{$clef}{public};
- $samba->{$clef}{writable};
- $samba->{$clef}{'create mask'};
- $samba->{$clef}{'directory mask'};
- $samba->{$clef}{'read list'};
- $samba->{$clef}{'write list'};
- $samba->{$clef}{'admin users'};
- $samba->{$clef}{'valid users'};
- $samba->{$clef}{'hide dot files'};
- $samba->{$clef}{'hide files'};
- $samba->{$clef}{'preserve case'};
- $samba->{$clef}{'force create mode'};
- $samba->{$clef}{'force group'};
- $samba->{$clef}{'default case'};
- $samba->{$clef}{'inherit permissions'};
- }
$samba->write_conf("/etc/samba/smb.conf");
}
@@ -282,7 +261,8 @@ sub modify_entry {
my ($dir, $i, $path, $comment, $create_mask, $directory_mask, $read_list, $write_list, $admin_users, $valid_users, $force_group, $browseable, $public, $writable, $hide_files, $hide_dot_files, $force_create_mode, $preserve_case, $default_case, $inherit_permissions, $share_name);
- $_ = Gtk2::Entry->new foreach $share_name, $dir, $path, $comment, $create_mask, $directory_mask;
+ $share_name = Gtk2::Label->new;
+ $_ = Gtk2::Entry->new foreach $dir, $path, $comment, $create_mask, $directory_mask;
$_ = Gtk2::Entry->new foreach $read_list, $write_list, $admin_users, $valid_users, $force_group, $force_create_mode;
$_ = Gtk2::OptionMenu->new foreach $browseable, $public, $writable, $default_case, $preserve_case, $hide_files, $hide_dot_files, $inherit_permissions;
@@ -322,7 +302,7 @@ sub modify_entry {
$hide_dot_files->set_text($listshare[$i]{hide_dot_files});
$inherit_permissions->set_text($listshare[$i]{inherit_permissions});
- my $expander_user = Gtk2::Expander->new('User options');
+ my $expander_user = Gtk2::Expander->new('User options (user access, mask option, force mode)');
$expander_user->add(gtkpack_(Gtk2::HBox->new,
# 0, $label_and_widgets->($adv_options{sync}, $lsync, help_b(N_("Advanced Options Help"), $help_global)),
0, gtkadd(Gtk2::Frame->new(N("Samba user access")),
@@ -345,7 +325,7 @@ sub modify_entry {
),
);
- my $expander_file = Gtk2::Expander->new('File options');
+ my $expander_file = Gtk2::Expander->new('File options (hide files, case)');
$expander_file->add(gtkpack_(Gtk2::VBox->new,
0, gtkadd(Gtk2::Frame->new(N("Display options")),
gtkpack_(gtkset_border_width(Gtk2::HBox->new, 1),
@@ -387,12 +367,14 @@ sub modify_entry {
gtkadd(Gtk2::Frame->new("Advanced options"),
gtkpack_(gtkset_border_width(Gtk2::VBox->new, 1),
0, $expander_user,
+ 0, Gtk2::HSeparator->new,
0, $expander_file,
),
),
create_okcancel({
cancel_clicked => sub { $w->destroy },
ok_clicked => sub {
+ my $share = $share_name->get_text;
# update gui treeview
$model->set($iter,
COLUMN_SHARE_NAME, $share_name->get_text,
@@ -416,11 +398,29 @@ sub modify_entry {
COLUMN_INHERIT_PERMISSIONS, $inherit_permissions->get_text,
);
# update $samba with the new value
-
- $w->destroy;
+ $samba->{$share};
+ $samba->{$share}{path} = $dir->get_text;
+ $samba->{$share}{comment} = $comment->get_text;
+ $samba->{$share}{browseable} = $browseable->get_text;
+ $samba->{$share}{public} = $public->get_text;
+ $samba->{$share}{writable} = $writable->get_text;
+ $samba->{$share}{'create mask'} = $create_mask->get_text;
+ $samba->{$share}{'directory mask'} = $directory_mask->get_text;
+ $samba->{$share}{'read list'} = $read_list->get_text;
+ $samba->{$share}{'write list'} = $write_list->get_text;
+ $samba->{$share}{'admin users'} = $admin_users->get_text;
+ $samba->{$share}{'valid users'} = $valid_users->get_text;
+ $samba->{$share}{'hide dot files'} = $hide_dot_files->get_text;
+ $samba->{$share}{'hide files'} = $hide_files->get_text;
+ $samba->{$share}{'preserve case'} = $preserve_case->get_text;
+ $samba->{$share}{'force create mode'} = $force_create_mode->get_text;
+ $samba->{$share}{'force group'} = $force_group->get_text;
+ $samba->{$share}{'default case'} = $default_case->get_text;
+ $samba->{$share}{'inherit permissions'} = $inherit_permissions->get_text;
+ $w->destroy;
},
- },
- ),
+ },
+ ),
]
),
);