Changeset 130 for trunk/gsdl/bin/script/gettext.pl

Timestamp:

1999-02-02T22:47:47+13:00 (25 years ago)

Author:

rjmcnab

Message:

Made more configurable.

File:

• trunk/gsdl/bin/script/gettext.pl (modified) (7 diffs)

trunk/gsdl/bin/script/gettext.pl

@@ -13 +13 @@
 use plugin;
 use colcfg;
+use util;
 
 sub print_usage {
     print STDERR "\n  usage: $0 collection-name\n";
     print STDERR "  options:\n";
+    print STDERR "   -archivedir directory Where the archives live\n";
     print STDERR "   -index index   The index to output\n\n";
 }
@@ -26 +28 @@
 
     if (!parsargv::parse(\@ARGV, 
+             'archivedir/.*/', \$archivedir,
              'index/.*/section:text', \$index,
              'mode/.*/text', \$mode)) {
@@ -33 +36 @@
 
     # get and check the collection name
-    ($collection) = @ARGV;
-
-    if (!defined($collection)) {
+   if (($collection = &util::use_collection(@ARGV)) eq "") {
     &print_usage();
     die "\n";
@@ -41 +42 @@
     
     # get the list of plugins for this collection
-    @plugins = ("RecPlug", "HTMLPlug", "TXTPlug");
-    if (-e "$ENV{'GSDLHOME'}/collect/$collection/etc/collect.cfg") {
-    $collectcfg = &colcfg::read_collect_cfg ("$ENV{'GSDLHOME'}/collect/$collection/etc/collect.cfg");
+    @plugins = ();
+    $configfilename = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "etc/collect.cfg");
+    if (-e $configfilename) {
+    $collectcfg = &colcfg::read_collect_cfg ($configfilename);
     if (defined $collectcfg->{'plugins'}) {
         @plugins = @{$collectcfg->{'plugins'}};
     }
+    if (defined $collectcfg->{'archivedir'} && $archivedir eq "") {
+        $archivedir = $collectcfg->{'archivedir'};
+    }
+    } else {
+    die "Couldn't find the configuration file $configfilename\n";
     }
-    
+
+    # fill in the default archives directories if none
+    # was supplied, turn all \ into / and remove trailing /
+    $archivedir = "$ENV{'GSDLCOLLECTDIR'}/archives" if $archivedir eq "";
+    $archivedir =~ s/[\\\/]+/\//g;
+    $archivedir =~ s/\/$//;
 
     # load all the plugins
@@ -60 +72 @@
     # if a buildproc class has been created for this collection, use it
     # otherwise, use the mg buildproc
+    # if a builder class has been created for this collection, use it
+    # otherwise, use the mg builder
+    # load up the document processor for building
+    # if a buildproc class has been created for this collection, use it
+    # otherwise, use the mg buildproc
     my ($buildprocdir, $buildproctype);
-    if (-e "$ENV{'GSDLHOME'}/collect/$collection/perllib/${collection}buildproc.pm") {
-    $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/perllib";
+    if (-e "$ENV{'GSDLCOLLECTDIR'}/perllib/${collection}buildproc.pm") {
+    $buildprocdir = "$ENV{'GSDLCOLLECTDIR'}/perllib";
     $buildproctype = "${collection}buildproc";
     } else {
@@ -70 +87 @@
     require "$buildprocdir/$buildproctype.pm";
 
-    my $source_dir = "$ENV{'GSDLHOME'}/collect/$collection/archives";
-    my $build_dir = "$ENV{'GSDLHOME'}/collect/$collection/building";
-    my $verbosity = 1;
-
     eval("\$buildproc = new $buildproctype(\$collection, " .
-     "\$source_dir, \$build_dir, \$verbosity)");
+     "\$archivedir, \"\$ENV{'GSDLCOLLECTDIR'}/building\", 1)");
     die "$@" if $@;
 
@@ -86 +99 @@
 
     # process the import directory
-    &plugin::read ($pluginfo, $source_dir, 
+    &plugin::read ($pluginfo, $archivedir, 
            "", {}, $buildproc);