summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2003-08-07 15:17:09 +0000
committerStew Benedict <stewb@mandriva.org>2003-08-07 15:17:09 +0000
commitc08e20c722f3e277d90da0b76d5fca462b15e5f9 (patch)
tree6a73859e74e92a3b6b9b10847ef0515b96bd61c4 /perl-install
parent8e3139d22db2f5276ccbab0f0a2731e177433640 (diff)
downloaddrakx-backup-do-not-use-c08e20c722f3e277d90da0b76d5fca462b15e5f9.tar
drakx-backup-do-not-use-c08e20c722f3e277d90da0b76d5fca462b15e5f9.tar.gz
drakx-backup-do-not-use-c08e20c722f3e277d90da0b76d5fca462b15e5f9.tar.bz2
drakx-backup-do-not-use-c08e20c722f3e277d90da0b76d5fca462b15e5f9.tar.xz
drakx-backup-do-not-use-c08e20c722f3e277d90da0b76d5fca462b15e5f9.zip
Deal with users that are deleted from the system [Bug 4541].
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup33
1 files changed, 27 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 5e5530c6d..ff2258946 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -138,7 +138,7 @@ my $up_box;
my $advanced_box;
my $box2;
my $cfg_file_exist = 0;
-my @all_user_list;
+my @user_list_all;
my $list_other;
my $DEBUG = 0;
my $restore_sys = 1;
@@ -416,7 +416,7 @@ sub all_user_list() {
my $passwdfile = "/etc/passwd";
my $user;
my $uid;
- @all_user_list = ();
+ @user_list_all = ();
local *PASSWD;
open(PASSWD, $passwdfile) or exit 1;
@@ -424,13 +424,13 @@ sub all_user_list() {
chomp($line);
($user, $uid) = (split(/:/, $line))[0, 2];
if ($uid >= 500 || $uid == 0) {
- push @all_user_list, $user;
+ push @user_list_all, $user;
}
}
close(PASSWD);
if ($DEBUG) {
print "/-- User list --/ \n";
- print " -> $_\n" foreach @all_user_list;
+ print " -> $_\n" foreach @user_list_all;
print "\n";
}
}
@@ -760,7 +760,28 @@ sub read_conf_file() {
#- inverse behavior. this allows incremental as the default if not configured
$backup_sys_versions = 1;
$backup_user_versions = 1;
- }
+ }
+ # deal with users that may have been deleted from the system
+ check_valid_users() if $cfg_file_exist;
+}
+
+sub check_valid_users() {
+ my @new_user_list;
+ all_user_list();
+ foreach my $user (@user_list) {
+ push @new_user_list, $user if any { /$user/ } @user_list_all;
+ }
+ if (@user_list != @new_user_list) {
+ log::l(N("Valid user list changed, rewriting config file."));
+ if ($DEBUG) {
+ print N("Old user list:\n");
+ print "@user_list\n";
+ print N("New user list:\n");
+ print "@new_user_list\n";
+ }
+ @user_list = @new_user_list;
+ save_conf_file();
+ }
}
sub write_sitecopyrc() {
@@ -1769,7 +1790,7 @@ sub advanced_what_user {
if (!member($name, @user_list)) { push @user_list, $name }
}
});
- $b } (@all_user_list)
+ $b } (@user_list_all)
),
),
0, my $check_what_browser = new Gtk2::CheckButton(N("Do not include the browser cache")),