Changeset 13169 for trunk/gsdl/bin/script/export.pl

Timestamp:

2006-10-27T13:31:13+13:00 (18 years ago)

Author:

kjdon

Message:

debug mode now passes debug flag to plugout rather than using docprint, which is no longer a docproc.

File:

• trunk/gsdl/bin/script/export.pl (modified) (3 diffs)

trunk/gsdl/bin/script/export.pl

@@ -50 +50 @@
 use plugin;
 use plugout;
-use docprint;
 use util;
 use scriptutil;
@@ -459 +458 @@
         
         # read the export information file
-        if (!$debug) {
-        # Export to DSpace Archive format or METs format
-        # If saveas=DSpace, a "contents" file will be created, otherwise "export.inf"
+        
+        # Export to DSpace Archive format or METs format
+        # If saveas=DSpace, a "contents" file will be created, otherwise "export.inf"
         
-        if ($saveas eq "DSpace"){
-            $export_info_filename = &util::filename_cat ($exportdir, "contents");
-        } elsif ($saveas eq "METS" || $saveas eq "GA" || $saveas eq "MARC" ) {
-            $export_info_filename = &util::filename_cat ($exportdir, "export.inf");
-        }
-        
-        $export_info = new arcinfo();
-        $export_info -> load_info ($export_info_filename);  
-                    
-                if ($saveas !~ /^(GA|METS|DSpace|MARCXML)$/) {
-            if (defined $collectcfg->{'plugout'} && $collectcfg->{'plugout'}[0] =~ /^(GAPlugout|METSPlugout)$/) {
-            $saveas = $collectcfg->{'plugout'}[0];
-            } else {
-            $saveas ="GAPlugout";
-            }
-        }
-
-                    
-            ####Use Plugout####
-        my ($plugout_name);
-        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)Plugout$/  ){      
-            $plugout_name = $saveas."Plugout";
-        }
-        else{
-            $plugout_name = $saveas;
-        } 
-        
-        my $opts=[];
-        
-        
-        push @$opts,("-output_info",$export_info) if (defined $export_info); 
-
-            push @$opts,("-verbosity",$verbosity) if (defined $verbosity);
-        
-        push @$opts,("-gzip_output",$gzip) if (defined $gzip);
-        push @$opts,("-group_size",$groupsize) if (defined $groupsize);
-        push @$opts,("-output_handle",$out) if (defined $out);
-                push @$opts,("-xslt_file",$xsltfile) if (defined $xsltfile);
-                push @$opts,("-group") if ($group_marc && $plugout_name =~ /^MARCXMLPlugout$/);
-        push @$opts,("-mapping_file",$mapping_file) if (defined $mapping_file && $plugout_name =~ /^MARCXMLPlugout$/);
-        push @$opts,("-saveas_version",$saveas_version) if (defined $saveas_version && $plugout_name =~ /^METSPlugout$/);
-                push @$opts,("-xslt_mets",$xslt_mets) if (defined $xslt_mets && $plugout_name =~ /^METSPlugout$/);
-                push @$opts,("-xslt_txt",$xslt_txt) if (defined $xslt_txt && $plugout_name =~ /^METSPlugout$/);
-            $processor = &plugout::load_plugout($plugout_name,$opts);    
-
-        $processor->setoutputdir ($exportdir);
-        
-        $processor->set_sortmeta ($sortmeta) if defined $sortmeta;
-        $processor->set_OIDtype ($OIDtype, $OIDmetadata);
-    
-        } else {
-        $processor = new docprint ();
-        }
+        # the plugouts should be doing this!!
+        if ($saveas eq "DSpace"){
+        $export_info_filename = &util::filename_cat ($exportdir, "contents");
+        } elsif ($saveas eq "METS" || $saveas eq "GA" || $saveas eq "MARC" ) {
+        $export_info_filename = &util::filename_cat ($exportdir, "export.inf");
+        }
+        
+        $export_info = new arcinfo();
+        $export_info -> load_info ($export_info_filename);  
+        
+        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)$/) {
+        if (defined $collectcfg->{'plugout'} && $collectcfg->{'plugout'}[0] =~ /^(GAPlugout|METSPlugout)$/) {
+            $saveas = $collectcfg->{'plugout'}[0];
+        } else {
+            $saveas ="GAPlugout";
+        }
+        }
+        
+        
+        ####Use Plugout####
+        my ($plugout_name);
+        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)Plugout$/  ){      
+        $plugout_name = $saveas."Plugout";
+        }
+        else {
+        $plugout_name = $saveas;
+        } 
+        
+        my $opts=[];
+        
+        push @$opts,("-output_info",$export_info) if (defined $export_info); 
+        push @$opts,("-verbosity",$verbosity) if (defined $verbosity);
+        push @$opts,("-debug") if ($debug);
+        push @$opts,("-gzip_output",$gzip) if (defined $gzip);
+        push @$opts,("-group_size",$groupsize) if (defined $groupsize);
+        push @$opts,("-output_handle",$out) if (defined $out);
+        push @$opts,("-xslt_file",$xsltfile) if (defined $xsltfile);
+        push @$opts,("-group") if ($group_marc && $plugout_name =~ /^MARCXMLPlugout$/);
+        push @$opts,("-mapping_file",$mapping_file) if (defined $mapping_file && $plugout_name =~ /^MARCXMLPlugout$/);
+        push @$opts,("-saveas_version",$saveas_version) if (defined $saveas_version && $plugout_name =~ /^METSPlugout$/);
+        push @$opts,("-xslt_mets",$xslt_mets) if (defined $xslt_mets && $plugout_name =~ /^METSPlugout$/);
+        push @$opts,("-xslt_txt",$xslt_txt) if (defined $xslt_txt && $plugout_name =~ /^METSPlugout$/);
+        $processor = &plugout::load_plugout($plugout_name,$opts);    
+        
+        $processor->setoutputdir ($exportdir);
+        
+        $processor->set_sortmeta ($sortmeta) if defined $sortmeta;
+        $processor->set_OIDtype ($OIDtype, $OIDmetadata);
         
         &plugin::begin($pluginfo, $importdir, $processor, $maxdocs);
@@ -527 +521 @@
         
         # write out the export information file
-        if (!$debug) {
-        $processor->close_file_output() if $groupsize > 1;
-                $processor->close_group_output() if $processor->is_group();
-        if ($saveas eq "METS") {
-            $export_info->save_info($export_info_filename);
-        }
+        $processor->close_file_output() if $groupsize > 1;
+        $processor->close_group_output() if $processor->is_group();
+        if ($saveas eq "METS") {
+        $export_info->save_info($export_info_filename);
         }