Subversion Repositories DevTools

Rev

Rev 227 | Rev 335 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 227 Rev 229
Line 408... Line 408...
408 
        {
 408 
        {
409 
            print  "Cache $opr: $_ -> $cache\n";
 409 
            print  "Cache $opr: $_ -> $cache\n";
410 
            Verbose ( "Remove: $_" );
 410 
            Verbose ( "Remove: $_" );
411 
            rmtree( "$cache/$_", $opt_debug );
 411 
            rmtree( "$cache/$_", $opt_debug );
412 
            Verbose ( "Remove Complete: $_" );
 412 
            Verbose ( "Remove Complete: $_" );
- 
 
 413 
 
- 
 
 414 
            #
- 
 
 415 
            #   Force transfer, but without the status message
- 
 
 416 
            #
413 
            $dir_found = 0;
 417 
            $dir_found = 0;
- 
 
 418 
            $opr = '';
414 
        }
 419 
        }
415 
 
 420 
 
416 
        #
 421 
        #
417 
        #   If its not in the cache then copy it in
 422 
        #   If its not in the cache then copy it in
418 
        #
 423 
        #
419 
        unless ( $dir_found )
 424 
        unless ( $dir_found )
420 
        {
 425 
        {
- 
 
 426 
            print "Cache $opr: $_ -> $cache\n" if $opr;
421 
            mkpath( "$cache/$_", $opt_debug, 0777);
 427 
            mkpath( "$cache/$_", $opt_debug, 0777);
422 
            TouchFile ( "$cache/$_/built.cache", "Marks the cache copy as incomplete");
 428 
            TouchFile ( "$cache/$_/built.cache", "Marks the cache copy as incomplete");
423 
            Verbose ( "Copy in: $_" );
 429 
            Verbose ( "Copy in: $_" );
424 
            $copyFind_dst = "$cache/$_";
 430 
            $copyFind_dst = "$cache/$_";
425 
            $copyFind_src = $parchive;
 431 
            $copyFind_src = $parchive;