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

*** empty log message ***

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • 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