Changeset 7906

Timestamp:

2004-08-06T16:43:08+12:00 (20 years ago)

Author:

chi

Message:

Introduction of '-saveas' flag for controlling the generation of
the archive format. Can now be GreenstoneArchive (GA) or METS.

File:

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

trunk/gsdl/bin/script/import.pl

@@ -56 +56 @@
         'desc' => "{import.OIDtype.incremental}" } ];
 
+#** define to use the original GA format or METS format
+my $saveas_list = 
+    [ { 'name' => "GA",
+        'desc' => "{import.saveas.GA}" },
+      { 'name' => "METS",
+        'desc' => "{import.saveas.METS}" } ];
+
+
 # Possible attributes for each argument
 # name: The name of the argument
@@ -137 +145 @@
     'reqd' => "no",
     'modegli' => "3" },
+      { 'name' => "saveas",
+    'desc' => "{import.saveas}",
+    'type' => "enum",
+    'list' => $saveas_list,
+    'deft' => "GA",
+    'reqd' => "no",
+    'modegli' => "3" },      
       { 'name' => "sortmeta",
     'desc' => "{import.sortmeta}",
@@ -170 +185 @@
 sub main {
     my ($verbosity, $importdir, $archivedir, $keepold, 
-    $removeold, $gzip, $groupsize, $OIDtype, $debug, 
+    $removeold, $saveas, $gzip, $groupsize, $OIDtype, $debug, 
     $maxdocs, $collection, $configfilename, $collectcfg, 
     $pluginfo, $sortmeta, $archive_info_filename, $statsfile,
@@ -188 +203 @@
              'keepold', \$keepold, 
              'removeold', \$removeold, 
+             'saveas/^(GA|METS)$/GA', \$saveas,
              'gzip', \$gzip, 
              'groupsize/\d+/1', \$groupsize, 
@@ -380 +396 @@
     $processor->set_sortmeta ($sortmeta) if defined $sortmeta;
     $processor->set_OIDtype ($OIDtype);
+    $processor->set_saveas ($saveas);
     } else {
     $processor = new docprint ();