Changeset 6330 for trunk/gsdl/bin/script

Timestamp:

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

Author:

jmt12

Message:

Import.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/import.pl (modified) (5 diffs)

trunk/gsdl/bin/script/import.pl

@@ -242 +242 @@
     $maxdocs, $collection, $configfilename, $collectcfg, 
     $pluginfo, $sortmeta, $archive_info_filename, $statsfile,
-    $archive_info, $processor, $out, $faillog, $collectdir);
+    $archive_info, $processor, $out, $faillog, $collectdir, $gli);
 
     # ***** 11-04-03 - John Thompson *****
@@ -267 +267 @@
              'statsfile/.*/STDERR', \$statsfile,
              'faillog/.*/', \$faillog,
+             'gli', \$gli,
              q^xml^, \$xml)) {
     &print_txt_usage($language);
@@ -386 +387 @@
         $debug = 1;
     }
+    if (defined $collectcfg->{'gli'} && $collectcfg->{'gli'} =~ /^true$/i) {
+        $gli = 1;
+    }
 
     } else {
     die &lookup_string("{import.cannot_find_cfg_file}") . " $configfilename\n";
     }
+
+    $gli = 0 unless defined $gli;
+
+    print STDERR "<Import>\n" if $gli;
     
     # fill in the default import and archives directories if none
@@ -432 +440 @@
 
     # process the import directory
-    &plugin::read ($pluginfo, $importdir, "", {}, $processor, $maxdocs);
+    &plugin::read ($pluginfo, $importdir, "", {}, $processor, $maxdocs, $gli);
     
     &plugin::end($pluginfo, $processor);
@@ -460 +468 @@
     print $out "*********************************************\n";
 
-    &plugin::write_stats($pluginfo, $statsfile, $faillogname);
+    &plugin::write_stats($pluginfo, $statsfile, $faillogname, $gli);
     if ($close_stats) {
     close STATS;