diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-11 15:54:03 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-11 15:54:03 +0000 |
commit | ad0ed375d4dc655074444e9d67f5899585cb4d99 (patch) | |
tree | 37909bc3bed4971eeecf24ac6b1f44063281ae54 /perl-install | |
parent | 4f23b0bde6cb4adeedafa421b407a1d6b17419da (diff) | |
download | drakx-backup-do-not-use-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar drakx-backup-do-not-use-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.gz drakx-backup-do-not-use-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.bz2 drakx-backup-do-not-use-ad0ed375d4dc655074444e9d67f5899585cb4d99.tar.xz drakx-backup-do-not-use-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-x | perl-install/standalone/drakperm | 515 |
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; } |