diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakperm | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index ab7324504..b5d25b0fb 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -32,8 +32,8 @@ my $w = ugtk2->new('drakperm'); $w->{rwindow}->set_size_request(550, 400) unless $::isEmbedded; my $W = $w->{window}; $W->signal_connect(delete_event => sub { ugtk2->exit }); -my $treeModel = Gtk2::ListStore->new("Gtk2::Gdk::Pixbuf", ("Glib::String") x 4); -my $permList = Gtk2::TreeView->new_with_model($treeModel); +my $model = Gtk2::ListStore->new("Gtk2::Gdk::Pixbuf", ("Glib::String") x 4); +my $permList = Gtk2::TreeView->new_with_model($model); my $pixbuf = gtkcreate_pixbuf('non-editable'); @@ -137,10 +137,10 @@ $permList->get_selection->signal_connect('changed' => sub { my ($select) = @_; my (undef, $iter) = $select->get_selected; return if !$iter; - my $locked = $treeModel->get($iter, 0); + my $locked = $model->get($iter, 0); sensitive_buttons($iter ? $editable && !$locked : 0); return if $locked; - my $curr_path = $treeModel->get_path($iter); + my $curr_path = $model->get_path($iter); hide_up_button_iffirst_item($curr_path); hide_down_button_iflast_item($curr_path); }); @@ -151,15 +151,15 @@ ugtk2->exit; sub hide_up_button_iffirst_item { my ($curr_path) = @_; - my $first_path = $treeModel->get_path($treeModel->get_iter_first); + my $first_path = $model->get_path($model->get_iter_first); $buttons[0]->set_sensitive($first_path && $first_path->compare($curr_path)); } sub hide_down_button_iflast_item { my ($curr_path) = @_; $curr_path->next; - my $next_item = $treeModel->get_iter($curr_path); - $buttons[1]->set_sensitive($next_item && !$treeModel->get($next_item, 0)); + my $next_item = $model->get_iter($curr_path); + $buttons[1]->set_sensitive($next_item && !$model->get($next_item, 0)); } sub check_save() { @@ -183,7 +183,7 @@ sub display_perm { $editable = $perm_level =~ /^level \d/ ? 0 : 1; - $treeModel->clear; + $model->clear; foreach my $file (@files) { local *F; open F, $file; @@ -192,9 +192,9 @@ sub display_perm { my $is_uneditable = $file ne $perm_files{editable}; while (<F>) { if (m/^([^#]\S+)\s+([^.\s]+)\.(\S+)?\s+(\d+)/) { - $treeModel->append_set(if_($is_uneditable, 0 => $pixbuf), 1 => $1, 2 => $2, 3 => $3, 4 => $4); + $model->append_set(if_($is_uneditable, 0 => $pixbuf), 1 => $1, 2 => $2, 3 => $3, 4 => $4); } elsif (m/^([^#]\S+)\s+current?\s+(\d+)/) { - $treeModel->append_set(if_($is_uneditable, 0 => $pixbuf), 1 => $1, 2 => 'current', 3 => '', 4 => $2); + $model->append_set(if_($is_uneditable, 0 => $pixbuf), 1 => $1, 2 => 'current', 3 => '', 4 => $2); } } close F; @@ -210,13 +210,13 @@ sub save_perm() { if ($modified) { local *F; open F, '>' . $perm_files{editable} or die("Impossible to process \"", $perm_files{editable}, "\""); - $treeModel->foreach(sub { - my ($model, $_path, $iter) = @_; - return 0 if $model->get($iter, 0); - my $line = $model->get($iter, 1) . "\t" . $model->get($iter, 2) . ($model->get($iter, 3) ? "." . $model->get($iter, 3) : "") . "\t" . $model->get($iter, 4) . "\n"; - print F $line; - return 0; - }, $val); + $model->foreach(sub { + my ($model, $_path, $iter) = @_; + return 0 if $model->get($iter, 0); + my $line = $model->get($iter, 1) . "\t" . $model->get($iter, 2) . ($model->get($iter, 3) ? "." . $model->get($iter, 3) : "") . "\t" . $model->get($iter, 4) . "\n"; + print F $line; + return 0; + }, $val); close F; } $modified = 0; @@ -238,7 +238,7 @@ sub row_setting_dialog { 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 = $treeModel->get($iter, 4) if $iter; + my $rght = $model->get($iter, 4) if $iter; 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); @@ -273,17 +273,17 @@ sub row_setting_dialog { $gid->set_active($s_right{write}); $suid->set_active($s_right{read}); - $file->set_text($treeModel->get($iter, 1)) if $iter; + $file->set_text($model->get($iter, 1)) if $iter; my $users = Gtk2::OptionMenu->new; $users->set_popdown_strings(&get_user_or_group('users')); - $users->entry->set_text($treeModel->get($iter, 2)) if $iter; + $users->entry->set_text($model->get($iter, 2)) if $iter; my $groups = Gtk2::OptionMenu->new; $groups->set_popdown_strings(&get_user_or_group); - $groups->entry->set_text($treeModel->get($iter, 3)) if $iter; + $groups->entry->set_text($model->get($iter, 3)) if $iter; - if ($iter && $treeModel->get($iter, 2) eq 'current') { + if ($iter && $model->get($iter, 2) eq 'current') { $usr_check->set_active(1); $groups->set_sensitive(0); $users->set_sensitive(0); @@ -310,26 +310,26 @@ sub row_setting_dialog { my %perms; $ok->signal_connect(clicked => sub { if (!$iter) { # create new item when adding a new one - $iter = $treeModel->append; - my $first_iter = $treeModel->get_iter_first; + $iter = $model->append; + my $first_iter = $model->get_iter_first; if ($first_iter) { - $treeModel->move_after($iter, $first_iter); - $treeModel->swap($iter, $first_iter); + $model->move_after($iter, $first_iter); + $model->swap($iter, $first_iter); } } - $treeModel->set($iter, 1 => $file->get_text); + $model->set($iter, 1 => $file->get_text); if ($usr_check->get_active) { - $treeModel->set($iter, 2 => 'current'); - $treeModel->set($iter, 3 => ''); + $model->set($iter, 2 => 'current'); + $model->set($iter, 3 => ''); } else { - $treeModel->set($iter, 2 => $users->entry->get_text); - $treeModel->set($iter, 3 => $groups->entry->get_text); + $model->set($iter, 2 => $users->entry->get_text); + $model->set($iter, 3 => $groups->entry->get_text); } $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->set($iter, 4 => ($s || '') . $user . $group . $other); + $model->set($iter, 4 => ($s || '') . $user . $group . $other); $dlg->destroy; $modified++; }); |