Changeset 2530

Timestamp:

2001-06-13T10:36:45+12:00 (23 years ago)

Author:

sjboddie

Message:

altered the output of mkcol.pl a little so that it now hopefully looks
less like an error message when it succeeds

File:

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

trunk/gsdl/bin/script/mkcol.pl

@@ -102 +102 @@
         $destfile =~ s/^modelcol/$collection/;
         $destfile =~ s/^MODELCOL/$capcollection/;
+        print STDOUT "  doing replacements for $destfile\n" unless $quiet;
         $destfile = &util::filename_cat ($coldir, $destfile);
-
-        print STDOUT "doing replacements for $thisfile\n" unless $quiet;
+        
         open (INFILE, $thisfile) || 
-        die "Can't read file $thisfile";
+        die "ERROR: Can't read file $thisfile";
         open (OUTFILE, ">$destfile") ||
-        die "Can't create file $destfile";
+        die "ERROR: Can't create file $destfile";
 
         while (defined ($line = <INFILE>)) {
@@ -173 +173 @@
     ($collection) = @ARGV;
     if (!defined($collection)) {
-    print STDOUT "no collection name was specified\n";
+    print STDOUT "ERROR: no collection name was specified\n";
     &print_usage();
     die "\n";
@@ -179 +179 @@
 
     if (length($collection) > 8) {
-    print STDOUT "The collection name must be less than 8 characters\n";
-    print STDOUT "so compatibility with earlier filesystems can be\n";
-    print STDOUT "maintained.\n";
+    print STDOUT "ERROR: The collection name must be less than 8 characters\n";
+    print STDOUT "       so compatibility with earlier filesystems can be\n";
+    print STDOUT "       maintained.\n";
     die "\n";
     }
 
     if ($collection eq "modelcol") {
-    print STDOUT "No collection can be named modelcol as this is the\n";
-    print STDOUT "name of the model collection.\n";
+    print STDOUT "ERROR: No collection can be named modelcol as this is the\n";
+    print STDOUT "       name of the model collection.\n";
     die "\n";
     }
 
     if ($collection eq "CVS") {
-    print STDOUT "No collection can be named CVS as this may interfere\n";
-    print STDOUT "with directories created by the CVS versioning system\n";
+    print STDOUT "ERROR: No collection can be named CVS as this may interfere\n";
+    print STDOUT "       with directories created by the CVS versioning system\n";
     die "\n";
     }
 
     if (!defined($creator) || $creator eq "") {
-    print STDOUT "The creator was not defined. This variable is\n";
-    print STDOUT "needed to recognise duplicate collection names.\n";
+    print STDOUT "ERROR: The creator was not defined. This variable is\n";
+    print STDOUT "       needed to recognise duplicate collection names.\n";
     die "\n";
     }
@@ -236 +236 @@
 
     # make sure the model collection exists
-    die "Cannot find the model collection $mdir" unless (-d $mdir);
+    die "ERROR: Cannot find the model collection $mdir" unless (-d $mdir);
 
     # make sure this collection does not already exist
     if (-e $cdir) {
-    print STDOUT "This collection already exists\n";
+    print STDOUT "ERROR: This collection already exists\n";
     die "\n";
     }
 
     # start creating the collection
-    print STDOUT "Creating the collection $collection\n" unless $quiet;
+    print STDOUT "\nCreating the collection $collection...\n" unless $quiet;
     &traverse_dir ($mdir, $cdir);
-    print STDOUT "The new collection is in $cdir.\n" unless $quiet;
+    print STDOUT "\nThe new collection was created successfully at\n" unless $quiet;
+    print STDOUT "$cdir\n" unless $quiet;
 }