summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/draksambashare52
1 files changed, 24 insertions, 28 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 78ce7dc29..386aceb41 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -35,29 +35,25 @@ use Libconf::Glueconf::Samba::Smb_conf;
my $in = 'interactive'->vnew('su');
$in->do_pkgs->ensure_is_installed('samba-server', '/usr/sbin/smbd') or return;
-local *FALSE;
-
-use constant FALSE => 0;
-use constant TRUE => 1;
-use constant COLUMN_SHARE_NAME => 0;
-use constant COLUMN_PATH => 1;
-use constant COLUMN_COMMENT => 2;
-use constant COLUMN_BROWSEABLE => 3;
-use constant COLUMN_PUBLIC => 4;
-use constant COLUMN_WRITABLE => 5;
-use constant COLUMN_CREATE_MASK => 6;
-use constant COLUMN_DIRECTORY_MASK => 7;
-use constant COLUMN_READ_LIST => 8;
-use constant COLUMN_WRITE_LIST => 9;
-use constant COLUMN_ADMIN_USERS => 10;
-use constant COLUMN_VALID_USERS => 11;
-use constant COLUMN_HIDE_DOT_FILES => 12;
-use constant COLUMN_HIDE_FILES => 13;
-use constant COLUMN_PRESERVE_CASE => 14;
-use constant COLUMN_FORCE_CREATE_MODE => 15;
-use constant COLUMN_FORCE_GROUP => 16;
-use constant COLUMN_DEFAULT_CASE => 17;
-use constant COLUMN_INHERIT_PERMISSIONS => 18;
+local *COLUMN_SHARE_NAME; use constant COLUMN_SHARE_NAME => 0;
+local *COLUMN_PATH; use constant COLUMN_PATH => 1;
+local *COLUMN_COMMENT; use constant COLUMN_COMMENT => 2;
+local *COLUMN_BROWSEABLE; use constant COLUMN_BROWSEABLE => 3;
+local *COLUMN_PUBLIC; use constant COLUMN_PUBLIC => 4;
+local *COLUMN_WRITABLE; use constant COLUMN_WRITABLE => 5;
+local *COLUMN_CREATE_MASK; use constant COLUMN_CREATE_MASK => 6;
+local *COLUMN_DIRECTORY_MASK; use constant COLUMN_DIRECTORY_MASK => 7;
+local *COLUMN_READ_LIST; use constant COLUMN_READ_LIST => 8;
+local *COLUMN_WRITE_LIST; use constant COLUMN_WRITE_LIST => 9;
+local *COLUMN_ADMIN_USERS; use constant COLUMN_ADMIN_USERS => 10;
+local *COLUMN_VALID_USERS; use constant COLUMN_VALID_USERS => 11;
+local *COLUMN_HIDE_DOT_FILES; use constant COLUMN_HIDE_DOT_FILES => 12;
+local *COLUMN_HIDE_FILES; use constant COLUMN_HIDE_FILES => 13;
+local *COLUMN_PRESERVE_CASE; use constant COLUMN_PRESERVE_CASE => 14;
+local *COLUMN_FORCE_CREATE_MODE; use constant COLUMN_FORCE_CREATE_MODE => 15;
+local *COLUMN_FORCE_GROUP; use constant COLUMN_FORCE_GROUP => 16;
+local *COLUMN_DEFAULT_CASE; use constant COLUMN_DEFAULT_CASE => 17;
+local *COLUMN_INHERIT_PERMISSIONS; use constant COLUMN_INHERIT_PERMISSIONS => 18;
my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf', show_commented_info => 1 });
my (@listshare);
@@ -125,7 +121,7 @@ my $label_and_widgets = sub {
my $fdwidget = sub {
my ($data) = @_;
my $fd = new Gtk2::FileSelection(N("Directory Selection"));
- $fd->set_modal(TRUE);
+ $fd->set_modal(1);
$fd->signal_connect("destroy", sub { $fd->hide });
$fd->ok_button->signal_connect(clicked => sub {
my $file = $fd->get_filename;
@@ -229,7 +225,7 @@ sub help_b {
}
sub add_entry {
- my ($_widget, $treeview) = @_;
+ my ($treeview) = @_;
my $model = $treeview->get_model;
use wizards;
my $w = wizards->new;
@@ -483,7 +479,7 @@ sub create_model() {
# add colum to model
sub add_columns {
my $treeview = shift;
- my $model = $treeview->get_model;
+# my $model = $treeview->get_model;
each_index {
my $renderer = Gtk2::CellRendererText->new;
$renderer->set(editable => 0);
@@ -506,14 +502,14 @@ my $W = $window->{window};
$W->signal_connect(delete_event => sub { ugtk2->exit });
my $treeview = Gtk2::TreeView->new_with_model($model);
-$treeview->set_rules_hint(TRUE);
+$treeview->set_rules_hint(1);
$treeview->get_selection->set_mode('single');
add_columns($treeview);
# double clic and popup modify window
$treeview->signal_connect(button_press_event => sub {
my (undef, $event) = @_;
- my $model = $treeview->get_model;
+ #my $model = $treeview->get_model;
my $selection = $treeview->get_selection;
my $iter = $selection->get_selected;
if ($iter) {