From ef85643cd8fe0ce9c7ffba731d964d4e94485f8b Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Mon, 26 Jan 2004 18:38:36 +0000 Subject: Another cron issue reported on Anthill. --- perl-install/standalone/drakbackup | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakbackup') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 2644fb10b..9900d7f7b 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -150,7 +150,6 @@ my $use_expect = 0; my $xfer_keys = 0; my $user_keys = 1; my $user_home = $ENV{HOME}; -my $backup_key = $user_home . "/.ssh/identity-drakbackup"; my $nonroot_user = 0; my $media_problem = 0; my $vol_name = 'Drakbackup'; @@ -174,8 +173,11 @@ if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') { $nonroot_user = 1; $backup_sys = 0; @user_list = $ENV{USER}; +} else { + $user_home = "/root"; } $cfg_file = $cfg_dir . "drakbackup.conf"; +my $backup_key = $user_home . "/.ssh/identity-drakbackup"; foreach (@ARGV) { @@ -3351,7 +3353,6 @@ sub restore_step_sys() { gtkpack($advanced_box, $restore_step_sys = gtkpack_(new Gtk2::VBox(0,10), 1, new Gtk2::VBox(0,10), - 0, new Gtk2::CheckButton(N("Backup the system files before:")), 0, gtkpack_(new Gtk2::HBox(0,10), 1, N("please choose the date to restore"), 0, $combo_restore_step_sys, -- cgit v1.2.1