Changeset 6331

Timestamp:

2003-12-19T15:09:34+13:00 (20 years ago)

Author:

jmt12

Message:

Buildcol.pl now takes the undocumented argument -gli which causes script output to include special 'tags' for gli to process. Such takes are language and verbosity level independant

File:

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

trunk/gsdl/bin/script/buildcol.pl

@@ -239 +239 @@
     $debug, $mode, $indexname, $keepold, $allclassifications,
     $create_images, $collectdir, $out, $buildtype, $textindex,
-    $no_strip_html, $no_text, $faillog);
+    $no_strip_html, $no_text, $faillog, $gli);
 
     # ***** 11-04-03 - John Thompson *****
@@ -265 +265 @@
              'no_strip_html', \$no_strip_html,
              'faillog/.*/', \$faillog,
+             'gli', \$gli,
              q^xml^, \$xml)) {
     &print_txt_usage($language);
@@ -371 +372 @@
         $textindex = $collectcfg->{'textcompress'};
     }
+    if (defined $collectcfg->{'gli'} && $collectcfg->{'gli'} =~ /^true$/i) {
+        $gli = 1;
+    }
     
     } else {
     die &lookup_string("{common.cannot_find_cfg_file}") . " $configfilename\n";
     }
+
+    $gli = 0 unless defined $gli;
+
+    print STDERR "<Build>\n" if $gli;
 
     #set the text index
@@ -447 +455 @@
      "\$realarchivedir, \$realbuilddir, \$verbosity, " .
      "\$maxdocs, \$debug, \$keepold, \$allclassifications, " .
-     "\$out, \$no_text, \$faillog)");
+     "\$out, \$no_text, \$faillog, \$gli)");
     die "$@" if $@;