Changeset 313 for trunk/gsdl/bin

Timestamp:

1999-06-30T15:30:10+12:00 (25 years ago)

Author:

sjboddie

Message:

added maxdocs and allclassifications command line options

File:

• trunk/gsdl/bin/script/buildcol.pl (modified) (4 diffs)

trunk/gsdl/bin/script/buildcol.pl

@@ -22 +22 @@
     print STDERR "   -archivedir directory Where the archives live\n";
     print STDERR "   -cachedir directory   Where to cache the archives\n";
-    print STDERR "   -builddir directory   Where to put the built indexes\n\n";
+    print STDERR "   -builddir directory   Where to put the built indexes\n";
+    print STDERR "   -maxdocs number       Maximum number of documents to build\n";
+    print STDERR "   -allclassifications   Don't remove empty classifications\n\n";
 }
 
@@ -29 +31 @@
 {
     if (!parsargv::parse(\@ARGV, 
-             'newgdbm', \$newgdbm,
              'verbosity/\d+/2', \$verbosity,
              'archivedir/.*/', \$archivedir,
              'cachedir/.*/', \$cachedir,
-             'builddir/.*/', \$builddir)) {
+             'builddir/.*/', \$builddir,
+             'maxdocs/\d+/', \$maxdocs,
+             'allclassifications', \$allclassifications)) {
     &print_usage();
     die "\n";
     }
-
-    $newgdbm = 0 unless $newgdbm;
 
     # get and check the collection
@@ -45 +46 @@
     die "\n";
     }
+
+    # only here to prevent a perl warning
+    $maxdocs = "" if $maxdocs !~ /\d/; 
+    $allclassifications = 0 unless $allclassifications == 1;
 
     # read the configuration file
@@ -112 +117 @@
 
     eval("\$builder = new $buildertype(\$collection, " .
-     "\$realarchivedir, \$realbuilddir, \$verbosity, \$newgdbm)");
+     "\$realarchivedir, \$realbuilddir, \$verbosity, " .
+     "\$maxdocs, \$allclassifications)");
     die "$@" if $@;