View | Details | Raw Unified
Collapse All | Expand All

(-) flexbackup (-3 / +24 lines)
 Lines 269-274    Link Here  
    untie(%::index);
    untie(%::index);
}
}

            

              
              
system ('rm', '-rf', $cfg::tmpdir);

            

        
exit(0);
exit(0);

        

        
######################################################################
######################################################################

  

    

    

       Lines 811-816
       
    
  Link Here 
    

  

        
	($remove, @cmds) = &backup_filelist($label, $localdir, $title, $level, $remote);
	($remove, @cmds) = &backup_filelist($label, $localdir, $title, $level, $remote);

        
    }
    }

        

            

              
              
	if(defined($remote)) {

            

            

              
              
		# create our temporary directory as first remote command

            

            

              
              
		unshift(@cmds, &maybe_remote_cmd("$::path{mkdir} -p $cfg::tmpdir", $remote));

            

            

              
              
	}

            

            

              
              

            

        
    # Nuke any tmp files used in the above routines
    # Nuke any tmp files used in the above routines

        
    if ($remove ne '') {
    if ($remove ne '') {

        
	push(@cmds, &maybe_remote_cmd("$::path{rm} -f $remove", $remote));
	push(@cmds, &maybe_remote_cmd("$::path{rm} -f $remove", $remote));

  

    

    

       Lines 827-832
       
    
  Link Here 
    

  

        
	    push(@cmds, &maybe_remote_cmd("$::path{rm} -f $pkglist", $remote));
	    push(@cmds, &maybe_remote_cmd("$::path{rm} -f $pkglist", $remote));

        
	}
	}

        
    }
    }

            

              
              
	

            

            

              
              
	if(defined($remote)) {

            

            

              
              
		# remove temporary directory as our last remote command

            

            

              
              
		push(@cmds, &maybe_remote_cmd("$::path{rm} -rf $cfg::tmpdir", $remote));

            

            

              
              
	}

            

        

        
    # Strip multiple spaces
    # Strip multiple spaces

        
    foreach my $cmd (@cmds) {
    foreach my $cmd (@cmds) {

  

    

    

       Lines 2750-2757
       
    
  Link Here 
    

  

        
    $::path{'find'} = &checkinpath('find');
    $::path{'find'} = &checkinpath('find');

        
    $::path{'dd'} = &checkinpath('dd');
    $::path{'dd'} = &checkinpath('dd');

        
    $::path{'printf'} = &checkinpath('printf');
    $::path{'printf'} = &checkinpath('printf');

            

              
              
    $::path{'mkdir'} = &checkinpath('mkdir');

            

        

            

              
    push(@::remoteprogs,($::path{'touch'},$::path{'rm'},$::path{'find'},$::path{'printf'}));

              
    push(@::remoteprogs,($::path{'touch'},$::path{'rm'},$::path{'find'},$::path{'printf'},$::path{'mkdir'}));

            

        

        
    # Check device (or dir)
    # Check device (or dir)

        
    $::ftape = 0;
    $::ftape = 0;

  

    

    

       Lines 3442-3447
       
    
  Link Here 
    

  

        
	push(@::errors,"\$tmpdir $cfg::tmpdir is not writable");
	push(@::errors,"\$tmpdir $cfg::tmpdir is not writable");

        
    }
    }

        

            

              
              
	$cfg::hostname = `hostname`;

            

            

              
              
	chomp($cfg::hostname);

            

            

              
              

            

            

              
              
	# Use a subdirectory of the user-specified directory as our tmpdir

            

            

              
              
	# Also note that we make it closer to globally unique as we sometimes

            

            

              
              
	# use this variable for remote systems, so PID isn't enough

            

            

              
              
    $cfg::tmpdir = $cfg::tmpdir .'/flexbackup.'.$$.'.'.$cfg::hostname;

            

            

              
              
    mkdir ($cfg::tmpdir) || die "Can't create temporary directory, $!";

            

            

              
              

            

        
    # Levels
    # Levels

        
    if (defined($::opt{'level'}) and
    if (defined($::opt{'level'}) and

        
	(defined($::opt{'incremental'}) or
	(defined($::opt{'incremental'}) or

  

    

    

       Lines 5236-5243
       
    
  Link Here 
    

  

        
    # Create a script which tests the buffer program
    # Create a script which tests the buffer program

        
    open(SCR,"> $tmp_script") || die;
    open(SCR,"> $tmp_script") || die;

        
    print SCR "#!/bin/sh\n";
    print SCR "#!/bin/sh\n";

            

              
    print SCR "tmp_data=/tmp/bufftest\$\$.txt\n";

              
    print SCR "tmp_data=\`tempfile\`\n";

            

            

              
    print SCR "tmp_err=/tmp/bufftest\$\$.err\n";

              
    print SCR "tmp_err=\`tempfile\`\n";

            

        
    print SCR "echo testme > \$tmp_data\n";
    print SCR "echo testme > \$tmp_data\n";

        
    print SCR "$buffer_cmd > /dev/null 2> \$tmp_err < \$tmp_data\n";
    print SCR "$buffer_cmd > /dev/null 2> \$tmp_err < \$tmp_data\n";

        
    print SCR "res=\$?\n";
    print SCR "res=\$?\n";