Changeset 21291
- Timestamp:
- 2009-12-07T14:41:20+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/import.pl
r20807 r21291 51 51 } 52 52 } 53 if (defined $ENV{'GSDL3EXTS'}) { 54 my @extensions = split(/:/,$ENV{'GSDL3EXTS'}); 55 foreach my $e (@extensions) { 56 my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e"; 57 58 unshift (@INC, "$ext_prefix/perllib"); 59 unshift (@INC, "$ext_prefix/perllib/cpan"); 60 unshift (@INC, "$ext_prefix/perllib/plugins"); 61 unshift (@INC, "$ext_prefix/perllib/plugouts"); 62 } 63 } 53 64 } 54 65 … … 510 521 } 511 522 } 523 512 524 # create the archives dir if needed 513 525 &util::mk_all_dir($archivedir); … … 562 574 563 575 &plugin::begin($pluginfo, $importdir, $processor, $maxdocs, $gli); 564 576 577 if ($removeold) { 578 print STDERR "calling plugin::removeold\n"; 579 # occasionally, plugins may want to do something on remove old, eg pharos image indexing 580 &plugin::removeold($pluginfo, $importdir, $processor, $maxdocs, $gli); 581 } 565 582 if ($manifest eq "") { 566 583 # process the import directory
Note:
See TracChangeset
for help on using the changeset viewer.