Changeset 1452 for trunk

Timestamp:

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

Author:

sjboddie

Message:

* empty log message *

Location:

trunk/gsdl/bin/script

Files:

• build (modified) (1 diff)
• delcol.pl (modified) (1 diff)

trunk/gsdl/bin/script/build

@@ -60 +60 @@
     open (OUT, ">$out") || die "Couldn't open output file $out\n";
     $out = "OUT";
+    
+    # delete any existing .final file
+    &util::rm ("$outfile.final") if -e "$outfile.final";
+
     $use_out = 1;
 }

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'});