Changeset 7101 for trunk/gsdl/bin/script/import.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/import.pl (modified) (2 diffs)

trunk/gsdl/bin/script/import.pl

@@ -165 +165 @@
 }
 
-
-#  sub print_usage {
-#      print STDOUT "\n";
-#      print STDOUT "import.pl: Converts documents in collections -importdir directory into\n";
-#      print STDOUT "           xml documents which are written to the -archivedir directory.\n\n";
-#      print STDOUT "  usage: $0 [options] collection-name\n\n";
-#      print STDOUT "  options:\n";
-#      print STDOUT "   -verbosity number      0=none, 3=lots\n";
-#      print STDOUT "   -importdir directory   Where the original material lives\n";
-#      print STDOUT "   -archivedir directory  Where the converted material ends up\n";
-#      print STDOUT "   -keepold               Will not destroy the current contents of the\n";
-#      print STDOUT "                          archives directory (the default)\n";
-#      print STDOUT "   -removeold             Will remove the old contents of the archives\n";
-#      print STDOUT "                          directory -- use with care\n";
-#      print STDOUT "   -gzip                  Use gzip to compress resulting xml documents\n";
-#      print STDOUT "                          (don't forget to include ZIPPlug in your plugin\n";
-#      print STDOUT "                          list when building from compressed documents)\n";
-#      print STDOUT "   -maxdocs number        Maximum number of documents to import\n";
-#      print STDOUT "   -groupsize number      Number of import documents to group into one XML file\n";
-#      print STDOUT "   -OIDtype hash|incremental The method to use when generating unique\n";
-#      print STDOUT "                          identifiers for each document. \"hash\" (the\n";
-#      print STDOUT "                          default) hashes the contents of the file and so\n";
-#      print STDOUT "                          will be the same every time the collection is\n";
-#      print STDOUT "                          imported. \"incremental\" is a simple document\n";
-#      print STDOUT "                          count and so will be significantly faster than\n";
-#      print STDOUT "                          \"hash\". It is not guaranteed to always assign\n";
-#      print STDOUT "                          the same identifier to a given document though\n";
-#      print STDOUT "                          and does not allow further documents to be added\n";
-#      print STDOUT "                          to existing xml archives\n";
-#      print STDOUT "   -sortmeta metadata     Sort documents alphabetically by metadata for\n";
-#      print STDOUT "                          building. This will be disabled if groupsize > 1\n";
-#      print STDOUT "   -debug                 Print imported text to STDOUT\n";
-#      print STDOUT "   -collectdir directory  Collection directory (defaults to " .
-#   &util::filename_cat ($ENV{'GSDLHOME'}, "collect") . ")\n";
-#      print STDOUT "   -out name              Filename or handle to print output status to.\n";
-#      print STDOUT "                          The default is STDERR\n";
-#      print STDOUT "   -statsfile name        Filename or handle to print import statistics to.\n";
-#      print STDOUT "                          The default is STDERR\n";
-#      print STDOUT "   -faillog name          Fail log filename. This log receives the filenames\n";
-#      print STDOUT "                          of any files which fail to be processed (defaults\n";
-#      print STDOUT "                          to " . 
-#   &util::filename_cat("<collectdir>", "colname", "etc", "fail.log") . ")\n";
-#      print STDOUT "  [Type \"perl -S import.pl | more\" if this help text scrolled off your screen]";
-#      print STDOUT "\n" unless $ENV{'GSDLOS'} =~ /^windows$/i;
-#  }
 
 &main();
@@ -260 +215 @@
     }
 
+    if ($gli) { # the gli wants strings to be in UTF-8
+    &gsprintf::output_strings_in_UTF8; 
+    }
     my $close_out = 0;
     if ($out !~ /^(STDERR|STDOUT)$/i) {