From 89fa137b9e90eeac238e43a268fbdeb735418e7f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 21 Nov 2002 08:18:32 +0000
Subject: remove dead code about option managment which is obsoleted by
 standalone

---
 perl-install/standalone/drakbackup | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 50fbdc4bf..1dc69b6c0 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -128,11 +128,6 @@ use common;
 use Time::localtime;
 use detect_devices;
 
-#if ("@ARGV" =~ /--version/) {
-#    print "Drakbackup Version 1.2\n";
-#    exit(0);
-#}
-
 # Backend Options.
 # make this global for status screen      
 my ($window1, $my_win);
@@ -199,11 +194,12 @@ my @tape_devices;
 my $tar_ext = "tar.gz";
 
 # config. FILES -> Default PATH  & Global variables.
+my %config;
 my @sys_files = ("/etc");
 my @user_list;
 my @list_other;
 my $cfg_dir = "/etc/drakxtools/drakbackup/";
-my $save_path = "/var/lib/drakbackup";
+my $config{PATH_TO_SAVE} = "/var/lib/drakbackup";
 my $log_buff;
 my $comp_mode = 0;
 my $backup_sys = 1;
@@ -264,8 +260,8 @@ my $good_restore_path = 1;
 # allow not-root user with own config
 if ($ENV{USER} ne 'root') {
 	$cfg_dir = "$user_home/.drakbackup/";
-	$save_path = $cfg_dir . "backups";
-	-d $save_path or mkdir_p $save_path;
+	$config{PATH_TO_SAVE} = $cfg_dir . "backups";
+	-d $config{PATH_TO_SAVE} or mkdir_p $config{PATH_TO_SAVE};
 	$nonroot_user = 1;
 	$not_warned = 1;
 	$backup_sys = 0;
@@ -514,7 +510,7 @@ sub save_conf_file {
     my @cfg_list = ("SYS_FILES=@sys_files\n",
 		     "HOME_FILES=@user_list\n", 
 		     "OTHER_FILES=@list_other\n",
-		     "PATH_TO_SAVE=$save_path\n",
+		     "PATH_TO_SAVE=$config{PATH_TO_SAVE}\n",
 		     "HOST_PATH=$host_path\n",
 		     "NET_PROTO=$net_proto\n",
 		     "CD_TIME=$cd_time\n",
@@ -606,7 +602,7 @@ sub save_cron_files {
 
 sub read_conf_file {
     if (-e $cfg_file) {
-        open (CONF_FILE, "<". $cfg_file) || print "You must be root to read configuration file. \n";
+        %config = getVarsFromSh($cfg_file) || print "You must be root to read configuration file. \n";
         local $_;
         while (<CONF_FILE>) {
 	    	next unless /\S/;
@@ -615,7 +611,6 @@ sub read_conf_file {
 	    	if (/^SYS_FILES/)		{ s/^SYS_FILES=//gi;    @sys_files = split(' ', $_) }
 	    	if (/^HOME_FILES/)		{ s/^HOME_FILES=//gi;   @user_list = split(' ', $_) }
 	    	if (/^OTHER_FILES/)		{ s/^OTHER_FILES=//gi;  @list_other = split(' ', $_) }
-	    	if (/^PATH_TO_SAVE/)	{ s/^PATH_TO_SAVE=//gi; $save_path = $_ }
 	    	if (/^NO_SYS_FILES/)   { $backup_sys = 0 }
 	    	if (/^NO_USER_FILES/)  { $backup_user = 0 }
 	    	if (/^OPTION_COMP/)    { s/^OPTION_COMP=//gi; /TAR.GZ/ and  $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1 }
@@ -1115,7 +1110,8 @@ sub build_tape {
 		spawn_progress($command, "Running mt to eject tape");
 	}
 }
-	
+
+# share this with logdrake
 sub send_mail {
     my ($result) = @_;
     my $datem = `date`;
-- 
cgit v1.2.1