Changeset 21291 for main/trunk/greenstone2

Timestamp:

2009-12-07T14:41:20+13:00 (14 years ago)

Author:

kjdon

Message:

extended extensions mechanism to include gs3 extensions. added code to call plugin::removeold

File:

• main/trunk/greenstone2/bin/script/import.pl (modified) (3 diffs)

main/trunk/greenstone2/bin/script/import.pl

@@ -51 +51 @@
     }
     }
+    if (defined $ENV{'GSDL3EXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+        unshift (@INC, "$ext_prefix/perllib/plugins");
+        unshift (@INC, "$ext_prefix/perllib/plugouts");
+    }
+    }
 }
 
@@ -510 +521 @@
     }
     }
+
     # create the archives dir if needed
     &util::mk_all_dir($archivedir);
@@ -562 +574 @@
     
     &plugin::begin($pluginfo, $importdir, $processor, $maxdocs, $gli);
-
+    
+    if ($removeold) {
+    print STDERR "calling plugin::removeold\n";
+        # occasionally, plugins may want to do something on remove old, eg pharos image indexing
+    &plugin::removeold($pluginfo, $importdir, $processor, $maxdocs, $gli);
+    }
     if ($manifest eq "") {
     # process the import directory