diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 6b4163cae..305efd78e 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -118,7 +118,7 @@ my $exec_string = "export USER=$ENV{USER}; /usr/sbin/drakbackup --daemon > /dev/ my $ignore_files_list; my @list_of_rpm_to_install; my @other_files; -my @sys_files; +my @sys_files = "/etc"; # allow not-root user with own config if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') { @@ -128,12 +128,12 @@ if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') { $cfg_dir = "$user_home/.drakbackup/"; $conf{PATH_TO_SAVE} = $cfg_dir . "backups"; $log_file = $cfg_dir . "drakbackup.log"; - -d $conf{PATH_TO_SAVE} or mkdir_p $conf{PATH_TO_SAVE}; $nonroot_user = 1; $conf{NO_SYS_FILES} = 1; @user_list = $ENV{USER}; } else { $user_home = "/root"; + $conf{PATH_TO_SAVE} = "/var/lib/drakbackup"; } $cfg_file = $cfg_dir . "drakbackup.conf"; my $backup_key = $user_home . "/.ssh/identity-drakbackup"; @@ -506,11 +506,8 @@ sub read_conf_file() { %conf = getVarsFromSh($cfg_file); @other_files = conf_to_list($conf{OTHER_FILES}); @user_list = conf_to_list($conf{HOME_FILES}); - @sys_files = conf_to_list($conf{SYS_FILES}); + @sys_files = conf_to_list($conf{SYS_FILES}) if exists($conf{SYS_FILES}); $backup_daemon = 1 if exists($conf{DAEMON_TIME_SPACE}); - $conf{SMTP_SERVER} = "localhost" if !exists($conf{SMTP_SERVER}); - $conf{MAX_SPACE} = 1000.0 if !exists($conf{MAX_SPACE}); - $conf{PATH_TO_SAVE} = "/var/lib/drakbackup" if !exists($conf{PATH_TO_SAVE}); read_cron_files(); $cfg_file_exist = 1; } else { @@ -518,8 +515,12 @@ sub read_conf_file() { #- these were 1 by default, but that made it so the user could never save the #- inverse behavior. this allows incremental as the default if not configured $conf{SYS_INCREMENTAL_BACKUPS} = 1; - $conf{USER_INCREMENTAL_BACKUPS} = 1; + $conf{USER_INCREMENTAL_BACKUPS} = 1; } + # some basic defaults + $conf{SMTP_SERVER} = "localhost" if !exists($conf{SMTP_SERVER}); + $conf{MAX_SPACE} = 1000.0 if !exists($conf{MAX_SPACE}); + $conf{USE_HD} = 1 if !exists($conf{USE_HD}); # deal with users that may have been deleted from the system check_valid_users() if $cfg_file_exist; $use_hd = !($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET}); @@ -1701,6 +1702,7 @@ sub advanced_what() { new Gtk2::Label(N("Other")), new Gtk2::HBox(0, 5) )); + gtkset_sensitive($button_what_sys, !$conf{NO_SYS_FILES}); fonction_env(\$box_what, \&advanced_what, \&advanced_box); $up_box->show_all; } |