Changeset 1452 for trunk/gsdl/bin/script/delcol.pl

Timestamp:

2000-08-25T16:30:00+12:00 (24 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/delcol.pl (modified) (1 diff)

trunk/gsdl/bin/script/delcol.pl

@@ -64 +64 @@
     }
     }
+    # delete any temporary files that are laying around
+    my $tmpdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp");
+    if (opendir (TMPDIR, $tmpdir)) {
+    my @tmpfiles = readdir (TMPDIR);
+    closedir TMPDIR;
+    map { &util::rm(&util::filename_cat($tmpdir, $_)) if $_ =~ /^$collection/; } @tmpfiles;
+    }
+
     &util::rm_r ($ENV{'GSDLCOLLECTDIR'});