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

Timestamp:

2004-03-22T13:27:17+12:00 (20 years ago)

Author:

kjdon

Message:

removed the old commented out print usage stuff, added gli arg if it didn't have it, if gli arg is set, output strings in utf-8

File:

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

trunk/gsdl/bin/script/mkcol.pl

@@ -98 +98 @@
 }
 
-
-#  sub print_usage {
-#      print STDOUT "\n";
-#      print STDOUT "mkcol.pl: Creates the directory structure for a new\n";
-#      print STDOUT "          Greenstone collection.\n\n";
-#      print STDOUT "  usage: $0 -creator email [options] collection-name\n\n";
-#      print STDOUT "  options:\n";
-#      print STDOUT "   -optionfile file    Get options from file, useful on systems where\n";
-#      print STDOUT "                       long command lines may cause problems\n";
-#      print STDOUT "   -collectdir         Directory where new collection will be created.\n";
-#      print STDOUT "                       Default is " . 
-#   &util::filename_cat($ENV{'GSDLHOME'}, "collect") . "\n";
-#      print STDOUT "   -maintainer email   The collection maintainer's email address (if\n";
-#      print STDOUT "                       different from the creator)\n";
-#      print STDOUT "   -public true|false  If this collection has anonymous access\n";
-#      print STDOUT "   -title text         The title for the collection\n";
-#      print STDOUT "   -about text         The about text for the collection\n";
-#      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";
-#      print STDOUT "  new collection (it'll be in the \"etc\" directory).\n\n";
-#      print STDOUT "  [Type \"perl -S mkcol.pl | more\" if this help text scrolled off your screen]";
-#      print STDOUT "\n" unless $ENV{'GSDLOS'} =~ /^windows$/i;
-#  }
 
 sub traverse_dir
@@ -200 +174 @@
               'plugin/.+', \@plugin,
               'quiet', \$quiet,
+              'gli', \$gli,
               q^xml^, \$xml
               )) {
@@ -222 +197 @@
     }
 
+    if ($gli) { # the gli wants strings to be in UTF-8
+    &gsprintf::output_strings_in_UTF8; 
+    }
+    
     if ($optionfile =~ /\w/) {
     open (OPTIONS, $optionfile) ||