[4] | 1 | #!/usr/local/bin/perl5 -w
|
---|
| 2 |
|
---|
| 3 | # This program will output the text for a particular index
|
---|
| 4 |
|
---|
| 5 | BEGIN {
|
---|
| 6 | die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
|
---|
| 7 | die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
|
---|
[9] | 8 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
|
---|
| 9 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
|
---|
[4] | 10 | }
|
---|
| 11 |
|
---|
| 12 | use parsargv;
|
---|
| 13 | use plugin;
|
---|
| 14 | use colcfg;
|
---|
| 15 |
|
---|
| 16 | sub print_usage {
|
---|
| 17 | print STDERR "\n usage: $0 collection-name\n";
|
---|
| 18 | print STDERR " options:\n";
|
---|
| 19 | print STDERR " -index index The index to output\n\n";
|
---|
| 20 | }
|
---|
| 21 |
|
---|
| 22 |
|
---|
| 23 | &main ();
|
---|
| 24 |
|
---|
| 25 | sub main {
|
---|
| 26 |
|
---|
| 27 | if (!parsargv::parse(\@ARGV,
|
---|
| 28 | 'index/.*/section:text', \$index,
|
---|
| 29 | 'mode/.*/text', \$mode)) {
|
---|
| 30 | &print_usage();
|
---|
| 31 | die "\n";
|
---|
| 32 | }
|
---|
| 33 |
|
---|
| 34 | # get and check the collection name
|
---|
| 35 | ($collection) = @ARGV;
|
---|
| 36 |
|
---|
| 37 | if (!defined($collection)) {
|
---|
| 38 | &print_usage();
|
---|
| 39 | die "\n";
|
---|
| 40 | }
|
---|
| 41 |
|
---|
| 42 | # get the list of plugins for this collection
|
---|
| 43 | @plugins = ("RecPlug", "HTMLPlug", "TXTPlug");
|
---|
| 44 | if (-e "$ENV{'GSDLHOME'}/collect/$collection/collect.cfg") {
|
---|
| 45 | $collectcfg = &colcfg::read_collect_cfg ("$ENV{'GSDLHOME'}/collect/$collection/collect.cfg");
|
---|
| 46 | if (defined $collectcfg->{'plugins'}) {
|
---|
| 47 | @plugins = @{$collectcfg->{'plugins'}};
|
---|
| 48 | }
|
---|
| 49 | }
|
---|
| 50 |
|
---|
| 51 |
|
---|
| 52 | # load all the plugins
|
---|
| 53 | $pluginfo = &plugin::load_plugins ($collection, \@plugins);
|
---|
| 54 | if (scalar(@$pluginfo) == 0) {
|
---|
| 55 | print STDERR "No plugins were loaded.\n";
|
---|
| 56 | die "\n";
|
---|
| 57 | }
|
---|
| 58 |
|
---|
| 59 | # load up the document processor for building
|
---|
| 60 | # if a buildproc class has been created for this collection, use it
|
---|
| 61 | # otherwise, use the mg buildproc
|
---|
| 62 | my ($buildprocdir, $buildproctype);
|
---|
[9] | 63 | if (-e "$ENV{'GSDLHOME'}/collect/$collection/perllib/${collection}buildproc.pm") {
|
---|
| 64 | $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/perllib";
|
---|
[4] | 65 | $buildproctype = "${collection}buildproc";
|
---|
| 66 | } else {
|
---|
[9] | 67 | $buildprocdir = "$ENV{'GSDLHOME'}/perllib";
|
---|
[4] | 68 | $buildproctype = "mgbuildproc";
|
---|
| 69 | }
|
---|
| 70 | require "$buildprocdir/$buildproctype.pm";
|
---|
| 71 |
|
---|
| 72 | my $source_dir = "$ENV{'GSDLHOME'}/collect/$collection/archives";
|
---|
| 73 | my $build_dir = "$ENV{'GSDLHOME'}/collect/$collection/building";
|
---|
| 74 | my $verbosity = 1;
|
---|
| 75 |
|
---|
| 76 | eval("\$buildproc = new $buildproctype(\$collection, " .
|
---|
| 77 | "\$source_dir, \$build_dir, \$verbosity)");
|
---|
| 78 | die "$@" if $@;
|
---|
| 79 |
|
---|
| 80 | # set up the document processor
|
---|
| 81 | $buildproc->set_output_handle ('STDOUT');
|
---|
| 82 | $buildproc->set_mode ($mode);
|
---|
| 83 | $buildproc->set_index ($index);
|
---|
| 84 |
|
---|
| 85 | $buildproc->reset();
|
---|
| 86 |
|
---|
| 87 | # process the import directory
|
---|
| 88 | &plugin::read ($pluginfo, $source_dir,
|
---|
| 89 | "", {}, $buildproc);
|
---|
| 90 |
|
---|
| 91 | }
|
---|