summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-04 09:43:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-04 09:43:17 +0000
commitcd24192cee25e087cb642984833523eff12045c0 (patch)
treec209c85c79c850786c4e1bd6bb73d411e264562b /perl-install
parent96e796773dd9a819f49f02da68e9dbedf9aea6e0 (diff)
downloaddrakx-backup-do-not-use-cd24192cee25e087cb642984833523eff12045c0.tar
drakx-backup-do-not-use-cd24192cee25e087cb642984833523eff12045c0.tar.gz
drakx-backup-do-not-use-cd24192cee25e087cb642984833523eff12045c0.tar.bz2
drakx-backup-do-not-use-cd24192cee25e087cb642984833523eff12045c0.tar.xz
drakx-backup-do-not-use-cd24192cee25e087cb642984833523eff12045c0.zip
- fix #1776 part two (do not insert dummy lines)
- restore special lines with current keyword - reuse already defined path
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm47
1 files changed, 27 insertions, 20 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index c1746baa0..c032243b4 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -50,7 +50,7 @@ $combo_perm->entry->set_editable(0);
$combo_perm->set_popdown_strings(sort(keys %perm));
sub add_callback {
- row_setting_dialog($treeModel->append_set(undef, [ 0 => 'new', 1 => '-', 2 => '-', 3 => '-' ]));
+ row_setting_dialog();
$modified++;
}
@@ -165,8 +165,11 @@ sub display_perm {
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 ]);
+ if (m/^([^#]\S+)\s+([^.\s]+)\.(\S+)?\s+(\d+)/) {
+ $treeModel->append_set(undef, [ 0 => $1, 1 => $2, 2 => $3, 3 => $4 ]);
+ } elsif (m/^([^#]\S+)\s+current?\s+(\d+)/) {
+ $treeModel->append_set(undef, [ 0 => $1, 1 => 'current', 2 => '', 3 => $2 ]);
+ }
}
close F;
$up_down_box->set_sensitive($editable);
@@ -179,7 +182,7 @@ sub save_perm {
$modified or return 0;
my $val;
local *F;
- open F, '>'.$local_path.'perm.local' or die("Impssible to process \"", $local_path, "perm.local\"");
+ open F, '>' . $perm{editable} or die("Impssible to process \"", $perm{editable}, "\"");
$treeModel->foreach(sub {
my ($model, $_path, $iter) = @_;
my $module = $model->get($iter, 0);
@@ -288,22 +291,26 @@ sub row_setting_dialog {
});
});
$ok->signal_connect(clicked => sub {
- $treeModel->set($iter, [ 0 => $file->get_text ]);
- if ($usr_check->get_active) {
- $treeModel->set($iter, [ 1 => 'current' ]);
- $treeModel->set($iter, [ 2 => '' ]);
- } else {
- $treeModel->set($iter, [ 1 => $users->entry->get_text ]);
- $treeModel->set($iter, [ 2 => $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, [ 3 => ($s || '') . $user . $group . $other ]);
- $dlg->destroy;
- $modified++;
- });
+ unless ($iter) {
+ $iter = Gtk2::TreeIter->new;
+ $treeModel->append($iter, undef);
+ }
+ $treeModel->set($iter, [ 0 => $file->get_text ]);
+ if ($usr_check->get_active) {
+ $treeModel->set($iter, [ 1 => 'current' ]);
+ $treeModel->set($iter, [ 2 => '' ]);
+ } else {
+ $treeModel->set($iter, [ 1 => $users->entry->get_text ]);
+ $treeModel->set($iter, [ 2 => $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, [ 3 => ($s || '') . $user . $group . $other ]);
+ $dlg->destroy;
+ $modified++;
+ });
$usr_check->signal_connect(clicked => sub {
my $bool = $usr_check->get_active;
$groups->set_sensitive(!$bool);