Changeset 303 for trunk/gsdl/bin/script/mkcol.pl

Timestamp:

1999-06-28T14:09:43+12:00 (25 years ago)

Author:

sjboddie

Message:

altered mkcol.pl so that it doesn't copy CVS directories from modelcol

File:

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

trunk/gsdl/bin/script/mkcol.pl

@@ -36 +36 @@
 
     opendir(DIR, $modeldir) || die "Can't read $modeldir";
-    my @files = grep(!/^\.\.?$/, readdir(DIR));
+    my @files = grep(!/^(\.\.?|CVS)$/, readdir(DIR));
     closedir(DIR);
 
@@ -113 +113 @@
 }
 
+if ($collection eq "CVS") {
+    print STDERR "No collection can be named CVS as this may interfere\n";
+    print STDERR "with directories created by the CVS versioning system\n";
+    die "\n";
+}
+
 if (!defined($creator) || $creator eq "") {
     print STDERR "The creator was not defined. This variable is\n";