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

trunk/gsdl/bin/script/buildcol.pl

@@ -156 +156 @@
     return &gsprintf::gsprintf(@_);
 }
-
-
-#  sub print_usage {
-#      print STDOUT "\n";
-#      print STDOUT "buildcol.pl: Builds the indexes of a Greenstone collection.\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 "   -archivedir directory Where the archives live\n";
-#      print STDOUT "   -builddir directory   Where to put the built indexes\n";
-#      print STDOUT "   -maxdocs number       Maximum number of documents to build\n";
-#      print STDOUT "   -debug                Print output to STDOUT\n";
-#      print STDOUT "   -mode all|compress_text|build_index|infodb\n";
-#      print STDOUT "   -index indexname      Index to build (will build all in\n"; 
-#      print STDOUT "                         config file if not set)\n";
-#      print STDOUT "   -keepold              will not destroy the current contents of the\n";
-#      print STDOUT "                         building directory\n";
-#      print STDOUT "   -no_text              Don't store compressed text. This option is\n";
-#      print STDOUT "                         useful for minimizing the size of the built\n";
-#      print STDOUT "                         indexes if you intend always to display the\n";
-#      print STDOUT "                         original documents at run time (i.e. you won't\n";
-#      print STDOUT "                         be able to retrieve the compressed text version)\n";
-#      print STDOUT "   -allclassifications   Don't remove empty classifications\n";
-#      print STDOUT "   -create_images        Attempt to create default images for new\n";
-#      print STDOUT "                         collection. This relies on the Gimp being\n";
-#      print STDOUT "                         installed along with relevant perl modules\n";
-#      print STDOUT "                         to allow scripting from perl\n";
-#      print STDOUT "   -collectdir directory Collection directory (defaults to " .
-#   &util::filename_cat ($ENV{'GSDLHOME'}, "collect") . ")\n";
-#      print STDOUT "   -out                  Filename or handle to print output status to.\n";
-#      print STDOUT "                         The default is STDERR\n";
-#      print STDOUT "   -no_strip_html        Do not strip the html tags from the indexed text\n";
-#      print STDOUT "                         (only used for mgpp collections).\n\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 buildcol.pl | more\" if this help text scrolled off your screen]";
-#      print STDOUT "\n" unless $ENV{'GSDLOS'} =~ /^windows$/i;
-#  }
 
 
@@ -249 +209 @@
     }
 
+    if ($gli) { # the gli wants strings to be in UTF-8
+    &gsprintf::output_strings_in_UTF8; 
+    }
+
     $textindex = "";
     my $close_out = 0;