summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-11 15:54:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-11 15:54:03 +0000
commitad0ed375d4dc655074444e9d67f5899585cb4d99 (patch)
tree37909bc3bed4971eeecf24ac6b1f44063281ae54 /perl-install
parent4f23b0bde6cb4adeedafa421b407a1d6b17419da (diff)
downloaddrakx-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar
drakx-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.gz
drakx-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.bz2
drakx-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.xz
drakx-ad0ed375d4dc655074444e9d67f5899585cb4d99.zip
- gtk2 port of dialogs (poulpy)
- one callback cleanup (me): o enforce strict mode (aka kill jonathanries) and introuce a permission data structure. o no need to keep global references on widget we pack through symbolic references; this is only namespace pollution
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm515
1 files changed, 257 insertions, 258 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index b054a6e59..ae5663bb4 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -1,11 +1,12 @@
#!/usr/bin/perl
use strict;
+
use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:helpers );
+use ugtk2 qw(:helpers :wrappers);
use interactive;
my $in = 'interactive'->vnew('su', 'default');
@@ -32,37 +33,38 @@ my $prec_txt = $default_perm_level;
my $w = ugtk2->new('drakperm');
my $W = $w->{window};
$W->signal_connect(delete_event => sub { ugtk2->exit });
-my $scroll = new Gtk2::ScrolledWindow;
-my $tree_model = Gtk2::TreeStore->new(map { Gtk2::GType->STRING } 1..4);
-my $Perm_list = Gtk2::TreeView->new_with_model($tree_model);
+my $scroll = new Gtk2::ScrolledWindow;
+my $treeModel = Gtk2::TreeStore->new((Gtk2::GType->STRING) x 4);
+my $permList = Gtk2::TreeView->new_with_model($treeModel);
my @column_sizes = (150, 100, 100, 15, -1);
each_index {
my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i);
$col->set_min_width($column_sizes[$::i]);
- $Perm_list->append_column($col);
+ $permList->append_column($col);
} (N("path"), N("user"), N("group"), N("permissions"));
-#TV $Perm_list->set_shadow_type('out');
+#TV $permList->set_shadow_type('out');
-my $vb = new Gtk2::VBox(0,5);
+my $vb = new Gtk2::VBox(0,5);
my $select_box = new Gtk2::HBox(0,5);
my $action_box = new Gtk2::HBox(0,5);
my $up_down_box = new Gtk2::HBox(0,5);
-my $B_quit = new Gtk2::Button('quit');
-my $B_sav = new Gtk2::Button('save');
-my $B_up = new Gtk2::Button(N("Up"));
-my $B_del = new Gtk2::Button(N("delete"));
-my $B_edit = new Gtk2::Button(N("edit"));
-my $B_down = new Gtk2::Button(N("Down"));
-my $B_add = new Gtk2::Button(N("add a rule"));
+my $B_quit = new Gtk2::Button(N("quit"));
+my $B_sav = new Gtk2::Button(N("save"));
+my $B_up = new Gtk2::Button(N("Up"));
+my $B_del = new Gtk2::Button(N("delete"));
+my $B_edit = new Gtk2::Button(N("edit"));
+my $B_down = new Gtk2::Button(N("Down"));
+my $B_add = new Gtk2::Button(N("add a rule"));
my $label_perm = new Gtk2::Label(N("select perm file to see/edit"));
my $combo_perm = new Gtk2::Combo;
-my $tips = new Gtk2::Tooltips;
-my $pres = new Gtk2::Label(N("Drakperm is used to see files to use in order to fix permissions, owners, and groups via msec.\nYou can also edit your own rules which will owerwrite the default rules."));
-my $F = new Gtk2::Frame;
+my $tips = new Gtk2::Tooltips;
+my $pres = new Gtk2::Label(N("Drakperm is used to see files to use in order to fix permissions, owners, and groups via msec.\nYou can also edit your own rules which will owerwrite the default rules."));
+my $F = new Gtk2::Frame;
+
#- widgets settings
$combo_perm->set_popdown_strings(sort(keys %perm));
@@ -74,52 +76,51 @@ $tips->set_tip($B_del, N("Delete selected rule"));
#- signal management
$W->signal_connect(delete_event => sub { ugtk2->exit });
-$Perm_list->signal_connect( select_row => \&row_setting_data);
-#$Perm_list->signal_connect( unselect_row => sub { undef(%CURENT)});
-$B_sav->signal_connect( clicked => \&save_perm);
-$B_quit->signal_connect( clicked => sub { ugtk2->exit });
-$B_edit->signal_connect( clicked => \&row_setting_dialog);
-$B_add->signal_connect( clicked => sub {
- use Data::Dumper; print Dumper($rows_cnt);
-
- $Perm_list->insert( $rows_cnt , '');
- $tree_model->append_set(undef, [ 0 => $1, 1 => $2, 2 => $4, 3 => $5 ]);
- $Perm_list->select_row($rows_cnt , 0);
- &row_setting_dialog;
- $rows_cnt++;
- });
-$B_del->signal_connect( clicked => sub {
- $Perm_list->remove(${$CURENT{clicked}}{row});
- $rows_cnt--;
- $modified++;
- });
-$B_down->signal_connect( clicked => sub {
- my $row = ${$CURENT{clicked}}{row};
- $Perm_list->row_move($row, $row+1);
- $Perm_list->unselect_all;
- $Perm_list->select_row($row+1,0);
- $CURENT{clicked}{row} = $row+1;
- });
-$B_up->signal_connect( clicked => sub {
- my $row = ${$CURENT{clicked}}{row};
- $Perm_list->row_move($row, $row-1);
- $Perm_list->unselect_all;
- $Perm_list->select_row($row-1,0);
- $CURENT{clicked}{row} = $row-1;
- });
+$permList->signal_connect(select_row => \&row_setting_data);
+#$permList->signal_connect( unselect_row => sub { undef(%CURENT)});
+$B_sav->signal_connect(clicked => \&save_perm);
+$B_quit->signal_connect(clicked => sub { ugtk2->exit });
+$B_edit->signal_connect(clicked => \&row_setting_dialog);
+$B_add->signal_connect(clicked => sub {
+ #$permList->insert( $rows_cnt , '');
+ $treeModel->append_set(undef, [ 0 => 'NEW', 1 => '-', 2 => '-', 3 => '-' ]);
+ #$permList->($rows_cnt , 0);
+ &row_setting_dialog;
+ $rows_cnt++;
+ });
+$B_del->signal_connect(clicked => sub {
+
+ $permList->remove(${$CURENT{clicked}}{row});
+ $rows_cnt--;
+ $modified++;
+ });
+$B_down->signal_connect(clicked => sub {
+ my $row = ${$CURENT{clicked}}{row};
+ $permList->row_move($row, $row+1);
+ $permList->unselect_all;
+ $permList->select_row($row+1,0);
+ $CURENT{clicked}{row} = $row+1;
+ });
+$B_up->signal_connect(clicked => sub {
+ my $row = ${$CURENT{clicked}}{row};
+ $permList->row_move($row, $row-1);
+ $permList->unselect_all;
+ $permList->select_row($row-1,0);
+ $CURENT{clicked}{row} = $row-1;
+ });
my $combo_sig = $combo_perm->entry->signal_connect( changed => sub { &display_perm($combo_perm->entry->get_text , @_) });
-$Perm_list->signal_connect( button_press_event => sub {
- $editable or return 0;
- my (undef, $event) = @_;
- &row_setting_dialog if $event->type eq '2button_press';
- });
+$permList->signal_connect( button_press_event => sub {
+ $editable or return 0;
+ my (undef, $event) = @_;
+ &row_setting_dialog if $event->type eq '2button_press';
+ });
#Viewing management
$select_box->add($label_perm);
$select_box->add($combo_perm);
-$scroll->add($Perm_list);
-$scroll->set_policy('automatic', 'automatic');
+$scroll->add($permList);
+#$scroll->set_policy('automatic', 'automatic');
foreach ($B_up, $B_down, $B_add, $B_del, $B_edit) {
@@ -143,7 +144,7 @@ $W->add($vb_);
$W->show_all;
$w->{rwindow}->set_position('center') unless $::isEmbedded;
-&display_perm($default_perm_level);
+display_perm($default_perm_level);
$combo_perm->entry->set_text($default_perm_level);
#- Gtk loop start here
@@ -155,247 +156,245 @@ ugtk2->exit;
#- Built in functions
sub check_save {
- $modified or return 0;
- my $sav_ = $in->ask_okcancel('Warning', 'your changed will be lost do you wish to continue?');
- $sav_
- and $modified = 0;
- return $sav_;
+ $modified or return 0;
+ my $sav_ = $in->ask_okcancel('Warning', 'your changed will be lost do you wish to continue?');
+ $sav_
+ and $modified = 0;
+ return $sav_;
}
-#- Desc => set the Perm_list CList with the appropriate value
+#- Desc => set the permList CList with the appropriate value
sub display_perm {
- my $perm_level = shift @_;
- my $file = $perm{$perm_level};
- my $sav_ = &check_save;
- my $i = 0;
- if ($modified && ! $sav_) {
- $combo_perm->entry->signal_handler_block($combo_sig);
- $combo_perm->entry->set_text($prec_txt);
- $combo_perm->entry->signal_handler_unblock($combo_sig);
- return 0;
- }
-
- $editable = $perm_level =~ /^level \d/ ? 0 : 1;
+ my $perm_level = shift @_;
+ my $file = $perm{$perm_level};
+ my $sav_ = &check_save;
+ my $i = 0;
+ if ($modified && ! $sav_) {
+ $combo_perm->entry->signal_handler_block($combo_sig);
+ $combo_perm->entry->set_text($prec_txt);
+ $combo_perm->entry->signal_handler_unblock($combo_sig);
+ return 0;
+ }
+
+ $editable = $perm_level =~ /^level \d/ ? 0 : 1;
- $tree_model->clear();
- local *F;
- open F, $file;
- local $_;
- while (<F>) {
- next unless m/^([^#]\S+)\s+([^.\s]+)(\.(\S+))?\s+(\d+)/;
- $tree_model->append_set(undef, [ 0 => $1, 1 => $2, 2 => $4, 3 => $5 ]);
- }
- close F;
- $up_down_box->set_sensitive($editable);
+ $treeModel->clear();
+ local *F;
+ open F, $file;
+ local $_;
+ while (<F>) {
+ next unless m/^([^#]\S+)\s+([^.\s]+)(\.(\S+))?\s+(\d+)/;
+ $treeModel->append_set(undef, [ 0 => $1, 1 => $2, 2 => $4, 3 => $5 ]);
+ }
+ close F;
+ $up_down_box->set_sensitive($editable);
- $rows_cnt = $i;
- $prec_txt = $perm_level;
- undef(%CURENT);
+ $rows_cnt = $i;
+ $prec_txt = $perm_level;
+ undef(%CURENT);
}
#- Desc => save the perm.local file if modification made
sub save_perm {
- $modified or return 0;
- local *F;
- open F, '>'.$local_path.'perm.local' or die("F CHIER BORDEL");
- foreach my $i (0..$rows_cnt) {
- my $line = $Perm_list->get_text($i, 0) . "\t" . $Perm_list->get_text($i,1) . ($Perm_list->get_text($i,2) ? "." . $Perm_list->get_text($i,2) : "") . "\t" . $Perm_list->get_text($i,3) . "\n";
- print F $line;
- }
- close F;
- $modified = 0;
+ $modified or return 0;
+ local *F;
+ open F, '>'.$local_path.'perm.local' or die("F CHIER BORDEL");
+ foreach my $i (0..$rows_cnt) {
+ my $line = $permList->get_text($i, 0) . "\t" . $permList->get_text($i,1) . ($permList->get_text($i,2) ? "." . $permList->get_text($i,2) : "") . "\t" . $permList->get_text($i,3) . "\n";
+ print F $line;
+ }
+ close F;
+ $modified = 0;
}
#- on list selection we get all data concerning the current selection
sub row_setting_data {
- my (undef, $row, $column, undef ) = @_;
- %CURENT = ('clicked' => {'row' => $row,
- 'col' => $column
- },
- 'data' => [ $Perm_list->get_text($row,0),
- $Perm_list->get_text( $row,1),
- $Perm_list->get_text( $row,2),
- $Perm_list->get_text( $row,3),
- ]);
- #print(%{$CURENT{'clicked'}});print("\n");
+ my (undef, $row, $column, undef ) = @_;
+ %CURENT = ('clicked' => {'row' => $row,
+ 'col' => $column
+ },
+ 'data' => [ $permList->get_text($row,0),
+ $permList->get_text( $row,1),
+ $permList->get_text( $row,2),
+ $permList->get_text( $row,3),
+ ]);
+ #print(%{$CURENT{'clicked'}});print("\n");
}
+my %perms;
#- Desc => Here is the complete subwindow for rule settings
sub row_setting_dialog {
-
- $editable or return 0;
-
- my $row = ${$CURENT{clicked}}{row};
-
- #- dlg widgets declaration
- my $dlg = new Gtk2::Dialog();
- my $ok = new Gtk2::Button('ok');
- my $cancel = new Gtk2::Button('cancel');
- my $browse = new Gtk2::Button(N("browse"));
- my $users = new Gtk2::Combo;
- my $groups = new Gtk2::Combo;
- my $file = new Gtk2::Entry;
- my $file_hbox = new Gtk2::HBox(0,5);
- my $usr_hbox = new Gtk2::HBox(0,5);
- my $usr_vbox = new Gtk2::VBox(0,5);
- my $usr_check = new Gtk2::CheckButton(N("Current user"));
- my @rights = ('user', 'group', 'other');
- my @check = ('', 'read', 'write', 'execute');
- my $hb_rights = new Gtk2::HBox(0,15);
- my $vb_rights = new Gtk2::VBox(0,15);
- my $F_rights = new Gtk2::Frame(N("Permissions"));
- my $F_path = new Gtk2::Frame(N("Path"));
- my $F_usr = new Gtk2::Frame(N("Property"));
- my $vb_specials = new Gtk2::VBox(0,5);
- my $sticky = new Gtk2::CheckButton(N("sticky-bit"));
- my $suid = new Gtk2::CheckButton(N("Set-UID"));
- my $gid = new Gtk2::CheckButton(N("Set-GID"));
- my $rght = ${$CURENT{data}}[3];
- my $s = length($rght) == 4 ? substr($rght,0,1) : 0;
- my $user = $s ? substr($rght,1,1) : substr($rght,0,1);
- my $group = $s ? substr($rght,2,1) : substr($rght,1,1);
- my $other = $s ? substr($rght,3,1) : substr($rght,2,1);
- foreach (@check) {
- $vb_rights->add(new Gtk2::Label($_));
- }
- $hb_rights->add($vb_rights);
- foreach my $r (@rights) {
- %{$r} = &get_right(${$r});
- ${'_vb'.$r} = new Gtk2::VBox(0,5);
- ${'_vb'.$r}->add(new Gtk2::Label($r));
- foreach my $c (@check) {
- $c eq '' and next;
- ${ $r . "_$c" } = Gtk2::CheckButton->new;
- ${$r}{$c} and ${ $r . "_$c" }->set_active(1);
- ${"_vb$r"}->add(${ $r . "_$c" });
- }
- $hb_rights->add(${'_vb'.$r});
+ $editable or return 0;
+
+ my ($treeStore, $iter) = $permList->get_selection->get_selected;
+
+ #- dlg widgets declaration
+ my $dlg = new Gtk2::Dialog();
+ my $ok = new Gtk2::Button('ok');
+ my $cancel = new Gtk2::Button('cancel');
+ my $browse = new Gtk2::Button(N("browse"));
+ my $users = new Gtk2::Combo;
+ my $groups = new Gtk2::Combo;
+ my $file = new Gtk2::Entry;
+ my $file_hbox = new Gtk2::HBox(0,5);
+ my $usr_hbox = new Gtk2::HBox(0,5);
+ my $usr_vbox = new Gtk2::VBox(0,5);
+ my $usr_check = new Gtk2::CheckButton(N("Current user"));
+ my $hb_rights = new Gtk2::HBox(0,15);
+ my $vb_rights = new Gtk2::VBox(0,15);
+ my $F_rights = new Gtk2::Frame(N("Permissions"));
+ my $F_path = new Gtk2::Frame(N("Path"));
+ my $F_usr = new Gtk2::Frame(N("Property"));
+ my $vb_specials = new Gtk2::VBox(0,5);
+ my $sticky = new Gtk2::CheckButton(N("sticky-bit"));
+ my $suid = new Gtk2::CheckButton(N("Set-UID"));
+ my $gid = new Gtk2::CheckButton(N("Set-GID"));
+ my $rght = ${$CURENT{data}}[3];
+ my $s = length($rght) == 4 ? substr($rght,0,1) : 0;
+ my $user = $s ? substr($rght,1,1) : substr($rght,0,1);
+ my $group = $s ? substr($rght,2,1) : substr($rght,1,1);
+ my $other = $s ? substr($rght,3,1) : substr($rght,2,1);
+
+ my %rights = (user => $user, group => $group, other => $other);
+ my @check = ('', 'read', 'write', 'execute');
+
+ $vb_rights->add(new Gtk2::Label($_)) foreach @check;
+ $hb_rights->add($vb_rights);
+
+ foreach my $r (keys %rights) {
+ $perms{$r} = get_right($rights{$r});
+ my $vbox = gtkadd(Gtk2::VBox->new(0,5), Gtk2::Label->new($r));
+ foreach my $c (@check) {
+ $c eq '' and next;
+ my $check = Gtk2::CheckButton->new;
+ $perms{$r}{$c} and $check->set_active(1);
+ $vbox->add($check);
}
+ $hb_rights->add($vbox);
+ }
+
+ $vb_specials->add(new Gtk2::Label(' '));
+ $vb_specials->add($suid);
+ $vb_specials->add($gid);
+ $vb_specials->add($sticky);
+ $hb_rights->add($vb_specials);
- $vb_specials->add(new Gtk2::Label(' '));
- $vb_specials->add($suid);
- $vb_specials->add($gid);
- $vb_specials->add($sticky);
- $hb_rights->add($vb_specials);
-
- #- dlg widgets settings
- my %s_right = &get_right($s);
- $s_right{execute} and $sticky->set_active(1);
- $s_right{write} and $gid->set_active(1);
- $s_right{read} and $suid->set_active(1);
+ #- dlg widgets settings
+ my %s_right = &get_right($s);
+ $s_right{execute} and $sticky->set_active(1);
+ $s_right{write} and $gid->set_active(1);
+ $s_right{read} and $suid->set_active(1);
- $file->set_text(${$CURENT{data}}[0]);
+ $file->set_text(${$CURENT{data}}[0]);
- $users->set_popdown_strings(&get_user_or_group('users'));
- $users->entry->set_text(${$CURENT{data}}[1]);
- $users->entry->set_editable(0);
+ $users->set_popdown_strings(&get_user_or_group('users'));
+ $users->entry->set_text(${$CURENT{data}}[1]);
+ $users->entry->set_editable(0);
- $groups->set_popdown_strings(&get_user_or_group);
- $groups->entry->set_text(${$CURENT{data}}[2]);
- $groups->entry->set_editable(0);
- $dlg->set_policy(0,0,1);
- $dlg->set_modal(1);
+ $groups->set_popdown_strings(&get_user_or_group);
+ $groups->entry->set_text(${$CURENT{data}}[2]);
+ $groups->entry->set_editable(0);
+# $dlg->set_policy(0,0,1);
+ $dlg->set_modal(1);
- if (${$CURENT{data}}[1] eq 'current') {
- $usr_check->set_active(1);
- $groups->set_sensitive(0);
- $users->set_sensitive(0);
- }
+ if (${$CURENT{data}}[1] eq 'current') {
+ $usr_check->set_active(1);
+ $groups->set_sensitive(0);
+ $users->set_sensitive(0);
+ }
- $tips->set_tip($sticky, N("Used for directory:\n only owner of directory or file in this directory can delete it"));
- $tips->set_tip($suid, N("Use owner id for execution"));
- $tips->set_tip($gid, N("Use group id for execution"));
- $tips->set_tip($usr_check, N("when checked, owner and group won't be changed"));
+ $tips->set_tip($sticky, N("Used for directory:\n only owner of directory or file in this directory can delete it"));
+ $tips->set_tip($suid, N("Use owner id for execution"));
+ $tips->set_tip($gid, N("Use group id for execution"));
+ $tips->set_tip($usr_check, N("when checked, owner and group won't be changed"));
- #- event management
- $cancel->signal_connect( clicked => sub { $dlg->destroy });
- $browse->signal_connect( clicked => sub {
- my $file_dlg = new Gtk2::FileSelection(N("Path selection"));
- $file_dlg->set_modal(1);
- $file_dlg->show;
- $file_dlg->set_filename($file->get_text);
- $file_dlg->cancel_button->signal_connect( clicked => sub { $file_dlg->destroy });
- $file_dlg->ok_button->signal_connect( clicked => sub {
- $file->set_text($file_dlg->get_filename);
- $file_dlg->destroy;
- });
+ #- event management
+ $cancel->signal_connect( clicked => sub { $dlg->destroy });
+ $browse->signal_connect( clicked => sub {
+ my $file_dlg = new Gtk2::FileSelection(N("Path selection"));
+ $file_dlg->set_modal(1);
+ $file_dlg->show;
+ $file_dlg->set_filename($file->get_text);
+ $file_dlg->cancel_button->signal_connect( clicked => sub { $file_dlg->destroy });
+ $file_dlg->ok_button->signal_connect( clicked => sub {
+ $file->set_text($file_dlg->get_filename);
+ $file_dlg->destroy;
+ });
- });
- $ok->signal_connect( clicked => sub {
- $Perm_list->set_text($row, 0, $file->get_text);
- if ($usr_check->get_active) {
- $Perm_list->set_text($row, 1, 'current');
- $Perm_list->set_text($row, 2, '');
- } else {
- $Perm_list->set_text($row, 1, $users->entry->get_text);
- $Perm_list->set_text($row, 2, $groups->entry->get_text);
- }
- #- mod calculation
- #$user = ($user_read->get_active ? 4 : 0)+($user_write->get_active ? 2 : 0)+($user_execute->get_active ? 1 : 0);
- #$group = ($group_read->get_active ? 4 : 0)+($group_write->get_active ? 2 : 0)+($group_execute->get_active ? 1 : 0);
- #$other = ($other_read->get_active ? 4 : 0)+($other_write->get_active ? 2 : 0)+($other_execute->get_active ? 1 : 0);
- my $s = ($sticky->get_active ? 1 : 0) + ($suid->get_active ? 4 : 0) + ($gid->get_active ? 2 : 0);
- $Perm_list->set_text($row,3, ($s || '') . $user . $group . $other);
- $dlg->destroy;
- $modified++;
- });
- $usr_check->signal_connect( clicked => sub {
- my $bool = $usr_check->get_active;
- $groups->set_sensitive($bool);
- $users->set_sensitive($bool);
- });
+ });
+ $ok->signal_connect( clicked => sub {
+ $treeModel->append_set($iter, [ 0 => $file->get_text ]);
+ if ($usr_check->get_active) {
+ $treeModel->append_set($iter, [ 1 => 'current' ]);
+ $treeModel->append_set($iter, [ 2 => '' ]);
+ } else {
+ $treeModel->append_set($iter, [ 1 => $users->entry->get_text ]);
+ $treeModel->append_set($iter, [ 2 => $groups->entry->get_text ]);
+ }
+ #- mod calculation
+ #$user = ($perms{user}{read}->get_active ? 4 : 0)+($perms{user}{write}->get_active ? 2 : 0)+($perms{user}{execute}->get_active ? 1 : 0);
+ #$group = ($perms{group}{read}->get_active ? 4 : 0)+($perms{group}{write}->get_active ? 2 : 0)+($perms{group}{execute}->get_active ? 1 : 0);
+ #$other = ($perms{other}{read}->get_active ? 4 : 0)+($perms{other}{write}->get_active ? 2 : 0)+($perms{other}{execute}->get_active ? 1 : 0);
+ my $s = ($sticky->get_active ? 1 : 0) + ($suid->get_active ? 4 : 0) + ($gid->get_active ? 2 : 0);
+ $treeModel->append_set($iter, [ 3 => ($s || '') . $user . $group . $other ]);
+ $dlg->destroy;
+ $modified++;
+ });
+ $usr_check->signal_connect( clicked => sub {
+ my $bool = $usr_check->get_active;
+ $groups->set_sensitive($bool);
+ $users->set_sensitive($bool);
+ });
- #- dlg widgets placement
- $file_hbox->add($file);
- $file_hbox->add($browse);
+ #- dlg widgets placement
+ $file_hbox->add($file);
+ $file_hbox->add($browse);
- $usr_vbox->add($usr_check);
- $usr_vbox->add($usr_hbox);
+ $usr_vbox->add($usr_check);
+ $usr_vbox->add($usr_hbox);
- $usr_hbox->add(new Gtk2::Label(N("user :")));
- $usr_hbox->add($users);
- $usr_hbox->add(new Gtk2::Label(N("group :")));
- $usr_hbox->add($groups);
+ $usr_hbox->add(new Gtk2::Label(N("user :")));
+ $usr_hbox->add($users);
+ $usr_hbox->add(new Gtk2::Label(N("group :")));
+ $usr_hbox->add($groups);
- $F_path->add($file_hbox);
- $F_rights->add($hb_rights);
- $F_usr->add($usr_vbox);
+ $F_path->add($file_hbox);
+ $F_rights->add($hb_rights);
+ $F_usr->add($usr_vbox);
- $dlg->vbox->add($F_path);
- $dlg->vbox->add($F_usr);
- $dlg->vbox->add($F_rights);
+ $dlg->vbox->add($F_path);
+ $dlg->vbox->add($F_usr);
+ $dlg->vbox->add($F_rights);
- $dlg->action_area->add($ok);
- $dlg->action_area->add($cancel);
+ $dlg->action_area->add($ok);
+ $dlg->action_area->add($cancel);
- $dlg->show_all;
+ $dlg->show_all;
}
#- Desc => return an array of the available users on the machine
sub get_user_or_group {
- my $what = @_;
- my @users;
- local *F;
- $what eq 'users'
- and open F, '/etc/passwd'
- or open F, '/etc/group';
+ my $what = @_;
+ my @users;
+ local *F;
+ open F, $what eq 'users' ? '/etc/passwd': '/etc/group';
- local $_;
- while (<F>) {
- m/^([^#:]+):[^:]+:[^:]+:/ or next;
- push @users, $1;
- }
- close F;
- return sort(@users);
+ local $_;
+ while (<F>) {
+ m/^([^#:]+):[^:]+:[^:]+:/ or next;
+ push @users, $1;
+ }
+ close F;
+ return sort(@users);
}
#- Desc => return hash of boolean value for read write and execution permission from a value between 0 - 7
sub get_right {
- my $right = shift @_;
- my %rght = ('read' => 0, 'write' => 0, 'execute' => 0);
- $right - 4 >= 0 and $rght{read}=1 and $right = $right-4;
- $right - 2 >= 0 and $rght{write}=1 and $right = $right-2;
- $right - 1 >= 0 and $rght{execute}=1 and $right = $right-1;
- return %rght;
+ my $right = shift @_;
+ my %rght = ('read' => 0, 'write' => 0, 'execute' => 0);
+ $right - 4 >= 0 and $rght{read}=1 and $right = $right-4;
+ $right - 2 >= 0 and $rght{write}=1 and $right = $right-2;
+ $right - 1 >= 0 and $rght{execute}=1 and $right = $right-1;
+ return %rght;
}