Changeset 2137

Timestamp:

2001-03-08T15:04:16+13:00 (23 years ago)

Author:

sjboddie

Message:

Fixed a minor bug in the collector

File:

• trunk/gsdl/bin/script/filecopy.pl (modified) (2 diffs)

trunk/gsdl/bin/script/filecopy.pl

@@ -37 +37 @@
 use parsargv;
 use File::stat;
+use File::Basename;
 use FileHandle;
 
@@ -109 +110 @@
         if ($do_copy eq "yes")
         {
+        my $dst_dir = &File::Basename::dirname($dst_file);
+        &util::mk_all_dir($dst_dir) unless -d $dst_dir;
         print $out "Copying $src_file-->$dst_file\n";
         &util::cp($src_file,$dst_file);