Changeset 1252

Timestamp:

2000-06-29T11:28:17+12:00 (24 years ago)

Author:

sjboddie

Message:

Building code now extracts a couple more statistics from mg and inserts
them in the build.cfg file (i.e. number of sections and number of words
in collection).

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -654 +654 @@
     $build_cfg->{'numbytes'} = $self->{'buildproc'}->get_num_bytes();
 
+    # get additional stats from mg
+    my $exedir = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}";
+    my $exe = &util::get_os_exe ();
+    my $mgstat_exe = &util::filename_cat($exedir, "mgstat$exe");
+    my $input_file = &util::filename_cat ("text", $self->{'collection'});
+    if (!-e "$mgstat_exe" || !open (PIPEIN, "$mgstat_exe -d $self->{'build_dir'} -f $input_file |")) {
+    print STDERR "Warning: Couldn't open pipe to $mgstat_exe to get additional stats\n";
+    } else {
+    my $line = "";
+    while (defined ($line = <PIPEIN>)) {
+        if ($line =~ /^Words in collection \[dict\]\s+:\s+(\d+)/) {
+        ($build_cfg->{'numwords'}) = $1;
+        } elsif ($line =~ /^Documents\s+:\s+(\d+)/) {
+        ($build_cfg->{'numsections'}) = $1;
+        }
+    }
+    close PIPEIN;
+    }
+
     # store the mapping between the index names and the directory names
     my @indexmap = ();
@@ -679 +698 @@
     # write out the build information
     &cfgread::write_cfg_file("$self->{'build_dir'}/build.cfg", $build_cfg,
-                 '^(builddate|numdocs|numbytes)$', 
+                 '^(builddate|numdocs|numbytes|numwords|numsections)$', 
                              '^(indexmap|subcollectionmap|languagemap|notbuilt)$');