Changeset 12355

Timestamp:

2006-07-31T16:21:55+12:00 (18 years ago)

Author:

kjdon

Message:

updated to use plugouts instead of docsave

Location:

trunk/gsdl/bin/script

Files:

• unbuildv1.pl (modified) (3 diffs)
• unbuildv2.pl (modified) (3 diffs)

trunk/gsdl/bin/script/unbuildv1.pl

@@ -54 +54 @@
 
 use doc;
-use docsave;
 use util;
 use parsargv;
@@ -61 +60 @@
 use cfgread;
 use unicode;
+use plugout;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
@@ -144 +144 @@
     my $archive_info = new arcinfo ();
 
-    # create a docsave object to process the documents
-    my $processor = new docsave ("", $archive_info, $verbosity);
-    $processor->setarchivedir ($new_archivedir);
+    my $opts = [];
+    push @$opts,("-output_info",$archive_info); 
+
+    $processor = &plugout::load_plugout("GAPlugout",$opts); 
+    $processor->setoutputdir ($new_archivedir);
 
     my ($doc_obj, $hashref, $children);

trunk/gsdl/bin/script/unbuildv2.pl

@@ -44 +44 @@
 use unbuildutil;
 use doc;
-use docsave;
 use util;
 use parsargv;
@@ -52 +51 @@
 use cfgread;
 use unicode;
+use plugout;
 
 select STDERR; $| = 1;
@@ -152 +152 @@
     my $archive_info = new arcinfo ();
 
-    # create a docsave object to process the documents
-    my $processor = new docsave ("", $archive_info, $verbosity);
-    $processor->setarchivedir ($archivedir);
+    my $opts = [];
+    push @$opts,("-output_info",$archive_info); 
+
+    $processor = &plugout::load_plugout("GAPlugout",$opts); 
+    $processor->setoutputdir ($new_archivedir);
 
     my ($doc_obj, $hashref, $children);