Changeset 8603

Timestamp:

2004-11-19T12:06:43+13:00 (19 years ago)

Author:

chi

Message:

Add the $service option for identifing the import and export functions

File:

• trunk/gsdl/bin/script/import.pl (modified) (9 diffs)

trunk/gsdl/bin/script/import.pl

@@ -169 +169 @@
     'deft' => "2",
     'reqd' => "no",
-    'modegli' => "4" } ];
+    'modegli' => "4" }];
 
 my $options = { 'name' => "import.pl",
@@ -193 +193 @@
     my $xml = 0;
     # ************************************
+    my $service = "import";
 
     # note that no defaults are passed for most options as they're set
@@ -219 +220 @@
     die "\n";
     }
-
     # If $language has been specified, load the appropriate resource bundle
     # (Otherwise, the default resource bundle will be loaded automatically)
@@ -235 +235 @@
     &gsprintf::output_strings_in_UTF8; 
     }
+
     my $close_out = 0;
     if ($out !~ /^(STDERR|STDOUT)$/i) {
@@ -258 +259 @@
     open (FAILLOG, ">$faillog") ||
     (&gsprintf(STDERR, "{import.cannot_open_fail_log}\n", $faillog) && die);
+
     my $faillogname = $faillog;
     $faillog = 'import::FAILLOG';
@@ -274 +276 @@
     unshift (@INC, "$ENV{'GSDLCOLLECTDIR'}/perllib");
     require docsave;
-
 
     # get the list of plugins for this collection and set any options that
@@ -343 +344 @@
         $sortmeta = $collectcfg->{'sortmeta'};
     }
+
     if (defined $collectcfg->{'debug'} && $collectcfg->{'debug'} =~ /^true$/i) {
         $debug = 1;
@@ -354 +356 @@
         push @global_opts, "-separate_cjk";
     }
-    
 
     } else {
@@ -393 +394 @@
 
     # create a docsave object to process the documents
-    $processor = new docsave ($collection, $archive_info, $verbosity, $gzip, $groupsize, $out);
+    $processor = new docsave ($collection, $archive_info, $verbosity, $gzip, $groupsize, $out, $service, $saveas);
     $processor->setarchivedir ($archivedir);
     $processor->set_sortmeta ($sortmeta) if defined $sortmeta;