Changeset 1452

Show
Ignore:
Timestamp:
25.08.2000 16:30:00 (19 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Location:
trunk/gsdl/bin/script
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/bin/script/build

    r1438 r1452  
    6060    open (OUT, ">$out") || die "Couldn't open output file $out\n"; 
    6161    $out = "OUT"; 
     62     
     63    # delete any existing .final file 
     64    &util::rm ("$outfile.final") if -e "$outfile.final"; 
     65 
    6266    $use_out = 1; 
    6367} 
  • trunk/gsdl/bin/script/delcol.pl

    r1428 r1452  
    6464    } 
    6565    } 
     66    # delete any temporary files that are laying around 
     67    my $tmpdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp"); 
     68    if (opendir (TMPDIR, $tmpdir)) { 
     69    my @tmpfiles = readdir (TMPDIR); 
     70    closedir TMPDIR; 
     71    map { &util::rm(&util::filename_cat($tmpdir, $_)) if $_ =~ /^$collection/; } @tmpfiles; 
     72    } 
     73 
    6674    &util::rm_r ($ENV{'GSDLCOLLECTDIR'}); 
    6775