From 08e10b48c82806fb62a992fce834f9fd2c250fc0 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Mon, 24 May 2004 17:49:16 +0000 Subject: Fix dropped .txt files when running mkisofs. (Anthill #799) --- perl-install/standalone/drakbackup | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index a035c5ba4..4bb5ea1ce 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1041,7 +1041,7 @@ sub build_backup_files() { do_find(undef, $find_args_user, $list_file, $path_name); do_tar($tar_cmd_user, "backup_$incr$user", undef, $path_name); } - push_list("$incr$user") if $incr =~ /_user/; + push_list("list_$incr$user") if $incr =~ /_user/; files_to_results("$incr$user"); } } @@ -1251,7 +1251,7 @@ sub push_list { my $filename = $conf{PATH_TO_SAVE} . "/" . $prefix . $the_time . "."; $filename .= $conf{OPTION_COMP} if $prefix =~ /^backup/; $filename .= "txt" if $prefix =~ /^list/; - push @file_list_to_send_by_ftp, $filename; + push @file_list_to_send_by_ftp, $filename if -e $filename; } sub files_to_results { -- cgit v1.2.1