summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare151
1 files changed, 88 insertions, 63 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 118627b4f..7faadf6ec 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -36,18 +36,28 @@ use Libconf::Glueconf::Samba::Smb_conf;
my $in = 'interactive'->vnew('su');
$in->do_pkgs->ensure_is_installed('samba-server', '/usr/sbin/smbd') or return;
+my $icon_path = "/usr/lib/libDrakX/icons";
+my $fileshare_icon = "$icon_path/smbnfs_server.png";
+my $printershare_icon = "$icon_path/printerdrake.png";
+my $sambauser_icon = "$icon_path/ic82-users-40.png";
+my $pixbuf_file = Gtk2::Gdk::Pixbuf->new_from_file($fileshare_icon);
+my $pixbuf_printer = Gtk2::Gdk::Pixbuf->new_from_file($printershare_icon);
+my $pixbuf_user = Gtk2::Gdk::Pixbuf->new_from_file($sambauser_icon);
+
my $printer_list = create_printer_list();
my $share_list = create_share_list();
my $user_list = create_user_list();
sub create_user_list() {
- my $user_list = Gtk2::SimpleList->new(N("User name") => 'text',
+ my $user_list = Gtk2::SimpleList->new('' => 'pixbuf',
+ N("User name") => 'text',
);
$user_list;
}
sub create_share_list() {
- my $share_list = Gtk2::SimpleList->new(N("Share name") => 'text',
+ my $share_list = Gtk2::SimpleList->new('' => 'pixbuf',
+ N("Share name") => 'text',
N("Share directory") => 'text',
N("Comment") => 'text',
N("Browseable") => 'text',
@@ -68,7 +78,10 @@ sub create_share_list() {
N("Default case") => 'text',
);
$share_list->set_headers_clickable(1);
- foreach (0, 1, 2, 3) {
+ foreach ($share_list->get_columns()) {
+ $_->set_resizable(1);
+ }
+ foreach (1, 2, 3) {
$share_list->get_column($_)->signal_connect('clicked', \&sort_by_column, $share_list->get_model);
$share_list->get_column($_)->set_sort_column_id($_ == 0 ? 1 : $_ + 2);
}
@@ -76,23 +89,24 @@ sub create_share_list() {
}
sub create_printer_list() {
- my $printer_list = Gtk2::SimpleList->new(N("Printer name") => 'text',
- N("Path") => 'text',
- N("Comment") => 'text',
- N("Browseable") => 'text',
- N("Printable") => 'text',
- N("Print Command") => 'text',
- N("LPQ command") => 'text',
- N("Guest ok") => 'text',
- N("Writable") => 'text',
- N("Write list") => 'text',
- N("Inherit permissions") => 'text',
- N("Printing") => 'text',
- N("Create mode") => 'text',
- N("Use client driver") => 'text',
- );
+ my $printer_list = Gtk2::SimpleList->new('' => 'pixbuf',
+ N("Printer name") => 'text',
+ N("Path") => 'text',
+ N("Comment") => 'text',
+ N("Browseable") => 'text',
+ N("Printable") => 'text',
+ N("Print Command") => 'text',
+ N("LPQ command") => 'text',
+ N("Guest ok") => 'text',
+ N("Writable") => 'text',
+ N("Write list") => 'text',
+ N("Inherit permissions") => 'text',
+ N("Printing") => 'text',
+ N("Create mode") => 'text',
+ N("Use client driver") => 'text',
+ );
$printer_list->set_headers_clickable(1);
- foreach (0, 1, 2, 3) {
+ foreach (1, 2, 3) {
$printer_list->get_column($_)->signal_connect('clicked', \&sort_by_column, $printer_list->get_model);
$printer_list->get_column($_)->set_sort_column_id($_ == 0 ? 1 : $_ + 2);
}
@@ -370,7 +384,8 @@ sub add_entry() {
}
},
post => sub {
- push @{$printer_list->{data}}, [
+ push @{$share_list->{data}}, [
+ $pixbuf_file,
$wiz_addshare_name,
$wiz_addshare_path,
$wiz_addshare_comment,
@@ -428,6 +443,7 @@ sub add_printers_entry() {
exists $samba->{'pdf-gen'} and err_dialog(N("Error"), N("A pdf gnerator already exist.")) and return 'welcome';
&pdf_section;
push @{$printer_list->{data}}, [
+ $pixbuf_printer,
'pdf-gen',
$samba->{'pdf-gen'}{path},
$samba->{'pdf-gen'}{comment}, "",
@@ -452,6 +468,7 @@ sub add_printers_entry() {
&printdollar_section;
&printers_section;
push @{$printer_list->{data}}, [
+ $pixbuf_printer,
'print$',
$samba->{'print$'}{path}, "",
$samba->{'print$'}{browseable}, "", "", "",
@@ -460,6 +477,7 @@ sub add_printers_entry() {
$samba->{'print$'}{'inherit permissions'},
];
push @{$printer_list->{data}}, [
+ $pixbuf_printer,
'printers',
$samba->{printers}{path},
$samba->{printers}{comment},
@@ -519,21 +537,21 @@ sub modify_printers_entry {
$_->set_popdown_strings(@yesno) foreach $browseable, $printable, $guest_ok, $writable, $use_client_driver, $inherit_permissions;
- my $s = $printer_list->{data}[$selected][0];
+ my $s = $printer_list->{data}[$selected][1];
$s or info_dialog(N("Error"), N("Please add or select a Samba printer share to be able to modify it.")) and return; $share_name->set_text($s);
- $dir->set_text($printer_list->{data}[$selected][1]);
- $comment->set_text($printer_list->{data}[$selected][2]);
- $browseable->set_text($printer_list->{data}[$selected][3]);
- $printable->set_text($printer_list->{data}[$selected][4]);
- $print_command->set_text($printer_list->{data}[$selected][5]);
- $lpq_command->set_text($printer_list->{data}[$selected][6]);
- $guest_ok->set_text($printer_list->{data}[$selected][7]);
- $writable->set_text($printer_list->{data}[$selected][8]);
- $write_list->set_text($printer_list->{data}[$selected][9]);
- $inherit_permissions->set_text($printer_list->{data}[$selected][10]);
- $printing->set_text($printer_list->{data}[$selected][11]);
- $create_mode->set_text($printer_list->{data}[$selected][12]);
- $use_client_driver->set_text($printer_list->{data}[$selected][13]);
+ $dir->set_text($printer_list->{data}[$selected][2]);
+ $comment->set_text($printer_list->{data}[$selected][3]);
+ $browseable->set_text($printer_list->{data}[$selected][4]);
+ $printable->set_text($printer_list->{data}[$selected][5]);
+ $print_command->set_text($printer_list->{data}[$selected][6]);
+ $lpq_command->set_text($printer_list->{data}[$selected][7]);
+ $guest_ok->set_text($printer_list->{data}[$selected][8]);
+ $writable->set_text($printer_list->{data}[$selected][9]);
+ $write_list->set_text($printer_list->{data}[$selected][10]);
+ $inherit_permissions->set_text($printer_list->{data}[$selected][11]);
+ $printing->set_text($printer_list->{data}[$selected][12]);
+ $create_mode->set_text($printer_list->{data}[$selected][13]);
+ $use_client_driver->set_text($printer_list->{data}[$selected][14]);
my $file_dialog = $fdwidget->($dir, "");
my $button = Gtk2::Button->new_from_stock('gtk-open');
@@ -609,6 +627,7 @@ sub modify_printers_entry {
remove_entry($selected, $printer_list);
my $share = $share_name->get_text;
push @{$printer_list->{data}}, [
+ $pixbuf_printer,
$share,
$dir->get_text,
$comment->get_text,
@@ -668,27 +687,27 @@ sub modify_entry {
$w->{window}->set_modal(1);
$w->{window}->set_position('center');
- my $s = $share_list->{data}[$selected][0];
+ my $s = $share_list->{data}[$selected][1];
$s or info_dialog(N("Error"), N("Please add or select a Samba share to be able to modify it.")) and return;
$share_name->set_text($s);
- $dir->set_text($share_list->{data}[$selected][1]);
- $comment->set_text($share_list->{data}[$selected][2]);
- $browseable->set_text($share_list->{data}[$selected][3]);
- $public->set_text($share_list->{data}[$selected][4]);
- $writable->set_text($share_list->{data}[$selected][5]);
- $create_mask->set_text($share_list->{data}[$selected][6]);
- $directory_mask->set_text($share_list->{data}[$selected][7]);
- $read_list->set_text($share_list->{data}[$selected][8]);
- $write_list->set_text($share_list->{data}[$selected][9]);
- $admin_users->set_text($share_list->{data}[$selected][10]);
- $valid_users->set_text($share_list->{data}[$selected][11]);
- $inherit_permissions->set_text($share_list->{data}[$selected][12]);
- $hide_dot_files->set_text($share_list->{data}[$selected][13]);
- $hide_files->set_text($share_list->{data}[$selected][14]);
- $preserve_case->set_text($share_list->{data}[$selected][15]);
- $force_create_mode->set_text($share_list->{data}[$selected][16]);
- $force_group->set_text($share_list->{data}[$selected][17]);
- $default_case->set_text($share_list->{data}[$selected][18]);
+ $dir->set_text($share_list->{data}[$selected][2]);
+ $comment->set_text($share_list->{data}[$selected][3]);
+ $browseable->set_text($share_list->{data}[$selected][4]);
+ $public->set_text($share_list->{data}[$selected][5]);
+ $writable->set_text($share_list->{data}[$selected][6]);
+ $create_mask->set_text($share_list->{data}[$selected][7]);
+ $directory_mask->set_text($share_list->{data}[$selected][8]);
+ $read_list->set_text($share_list->{data}[$selected][9]);
+ $write_list->set_text($share_list->{data}[$selected][10]);
+ $admin_users->set_text($share_list->{data}[$selected][11]);
+ $valid_users->set_text($share_list->{data}[$selected][12]);
+ $inherit_permissions->set_text($share_list->{data}[$selected][13]);
+ $hide_dot_files->set_text($share_list->{data}[$selected][14]);
+ $hide_files->set_text($share_list->{data}[$selected][15]);
+ $preserve_case->set_text($share_list->{data}[$selected][16]);
+ $force_create_mode->set_text($share_list->{data}[$selected][17]);
+ $force_group->set_text($share_list->{data}[$selected][18]);
+ $default_case->set_text($share_list->{data}[$selected][19]);
my $expander_user = Gtk2::Expander->new('User options (user access, mask option, force mode)');
$expander_user->add(gtkpack_(Gtk2::HBox->new,
@@ -783,6 +802,7 @@ sub modify_entry {
# update gui SimpleList
remove_entry($selected, $share_list);
push @{$share_list->{data}}, [
+ $pixbuf_file,
$share_name->get_text,
$dir->get_text,
$comment->get_text,
@@ -858,7 +878,7 @@ sub modify_entry {
sub remove_entry {
my ($selected, $list) = @_;
- my $share_name = $list->{data}[$selected][0];
+ my $share_name = $list->{data}[$selected][1];
splice @{$list->{data}}, $selected, 1;
delete $samba->{$share_name};
}
@@ -914,6 +934,7 @@ sub modify_user_info {
}
system("smbpasswd -a $user_selected -n");
push @{$user_list->{data}}, [
+ $pixbuf_user,
$user_selected,
];
push @listusers, {
@@ -942,8 +963,10 @@ sub set_user_passwd {
sub add_data_share_list {
my ($share_list) = @_;
get_samba_share();
+
foreach my $data (@listshare) {
push @{$share_list->{data}}, [
+ $pixbuf_file,
$data->{share_name},
$data->{path},
$data->{comment},
@@ -972,6 +995,7 @@ sub add_data_user_list {
get_samba_user();
foreach my $data (@listusers) {
push @{$user_list->{data}}, [
+ $pixbuf_user,
$data->{user_name},
];
}
@@ -982,6 +1006,7 @@ sub add_data_printer_list {
get_samba_printers();
foreach my $data (@listprinters) {
push @{$printer_list->{data}}, [
+ $pixbuf_printer,
$data->{share_name},
$data->{path},
$data->{comment},
@@ -1020,19 +1045,19 @@ $W->signal_connect(delete_event => sub { ugtk2->exit });
$share_list->signal_connect(button_press_event => sub {
my (undef, $event) = @_;
my ($selected) = $share_list->get_selected_indices;
- $share_list->{data}[$selected][0] and modify_entry($selected) if $event->type eq '2button-press';
+ $share_list->{data}[$selected][1] and modify_entry($selected) if $event->type eq '2button-press';
});
$printer_list->signal_connect(button_press_event => sub {
my (undef, $event) = @_;
my ($selected) = $printer_list->get_selected_indices;
- $printer_list->{data}[$selected][0] and modify_printers_entry($selected) if $event->type eq '2button-press';
+ $printer_list->{data}[$selected][1] and modify_printers_entry($selected) if $event->type eq '2button-press';
});
$user_list->signal_connect(button_press_event => sub {
my (undef, $event) = @_;
my ($selected) = $user_list->get_selected_indices;
- $user_list->{data}[$selected][0] and modify_user_info($user_list->{data}[$selected][0], "", "change") if $event->type eq '2button-press';
+ $user_list->{data}[$selected][1] and modify_user_info($user_list->{data}[$selected][1], "", "change") if $event->type eq '2button-press';
});
# create menu
@@ -1070,7 +1095,7 @@ gtkappend_page(my $nb = Gtk2::Notebook->new, gtkpack_(gtkset_border_width(Gtk2::
}),
0, gtksignal_connect(Gtk2::Button->new(N("Remove")), clicked => sub {
my ($selected) = $share_list->get_selected_indices;
- ask_okcancel("Remove entry ?", "Remove $share_list->{data}[$selected][0]") or return;
+ ask_okcancel("Remove entry ?", "Remove $share_list->{data}[$selected][1]") or return;
eval { remove_entry($selected, $share_list) };
my $err = $@;
if ($err) {
@@ -1105,7 +1130,7 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
}),
0, gtksignal_connect(Gtk2::Button->new(N("Remove")), clicked => sub {
my ($selected) = $printer_list->get_selected_indices;
- ask_okcancel("Remove entry ?", "Remove $printer_list->{data}[$selected][0]") or return;
+ ask_okcancel("Remove entry ?", "Remove $printer_list->{data}[$selected][1]") or return;
eval { remove_entry($selected, $printer_list) };
my $err = $@;
if ($err) {
@@ -1122,7 +1147,7 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
0, gtkpack_(create_vbox('start'),
0, gtksignal_connect(Gtk2::Button->new(N("Change password")), clicked => sub {
my ($selected) = $user_list->get_selected_indices;
- eval { modify_user_info($user_list->{data}[$selected][0], "", "change") };
+ eval { modify_user_info($user_list->{data}[$selected][1], "", "change") };
my $err = $@;
if ($err) {
err_dialog(N("Error"), N("Failed to change user password.") . "\n\n" . $err);
@@ -1138,9 +1163,9 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
}),
0, gtksignal_connect(Gtk2::Button->new(N("Delete user")), clicked => sub {
my ($selected) = $user_list->get_selected_indices;
- ask_okcancel("Remove entry ?", "Remove $user_list->{data}[$selected][0]") or return;
+ ask_okcancel("Remove entry ?", "Remove $user_list->{data}[$selected][1]") or return;
eval {
- remove_user($user_list->{data}[$selected][0]);
+ remove_user($user_list->{data}[$selected][1]);
remove_entry($selected, $user_list);
};
my $err = $@;
@@ -1163,7 +1188,7 @@ $nb->set_show_border(0);
# main interface
$W->add(gtkpack_(Gtk2::VBox->new(0,0),
0, $menu,
- if_(!$::isEmbedded, 0, Gtk2::Banner->new('drakgw', N("DrakSamba manage Samba shares"))),
+ if_(!$::isEmbedded, 0, Gtk2::Banner->new('IC-winacces1-48', N("DrakSamba manage Samba shares"))),
if_($::isEmbedded, 0, Gtk2::Label->new("Here you can add, remove and alter Samba shares.")),
1, $nb,
0, $okcancel,