Changeset 2431 for trunk/gsdl/bin

Timestamp:

2001-05-16T21:10:28+12:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/bin/script/mkcol.pl

@@ -62 +62 @@
     print STDOUT "   -plugin text        perl plugin module to use (there may be multiple\n";
     print STDOUT "                       plugin entries)\n";
+    print STDOUT "   -quiet              Operate quietly\n";
     print STDOUT "  Note that -creator must be specified. You can make changes to all\n";
     print STDOUT "  options later by editing the collect.cfg configuration file for your\n";
@@ -103 +104 @@
         $destfile = &util::filename_cat ($coldir, $destfile);
 
-        print STDOUT "doing replacements for $thisfile\n";
+        print STDOUT "doing replacements for $thisfile\n" unless $quiet;
         open (INFILE, $thisfile) || 
         die "Can't read file $thisfile";
@@ -141 +142 @@
               'title/.+/', \$title,
               'about/.+/', \$about,
-              'plugin/.+', \@plugin
+              'plugin/.+', \@plugin,
+              'quiet', \$quiet,
               )) {
     &print_usage();
@@ -243 +245 @@
 
     # start creating the collection
-    print STDOUT "Creating the collection $collection\n";
+    print STDOUT "Creating the collection $collection\n" unless $quiet;
     &traverse_dir ($mdir, $cdir);
-    print STDOUT "The new collection is in $cdir.\n";
+    print STDOUT "The new collection is in $cdir.\n" unless $quiet;
 }