Changeset 2785 for trunk/gsdl/bin/script/build

Timestamp:

2001-10-09T17:21:29+13:00 (23 years ago)

Author:

sjboddie

Message:

The build process now creates a summary of how many files were included,
which were rejected, etc. A link to a page containing this summary is
provided from the final page of the collector (once the collection is built
successfully) and from the default "about this collection" text for
collections built by the collector.

Also did a little bit of tidying in a couple of places

File:

• trunk/gsdl/bin/script/build (modified) (4 diffs)

trunk/gsdl/bin/script/build

@@ -132 +132 @@
 &main();
 
-close OUT if $use_out;
+if ($use_out) {
+    close OUT;
+
+    # if we've created a build log we'll copy it to the collection's etc
+    # directory
+    my ($etcdir);
+    if ($dontinstall) {
+    $etcdir = &util::filename_cat($collectdir, "etc", "build.log");
+    } else {
+    $etcdir = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "etc", "build.log");
+    }
+    
+    &util::cp($outfile, $etcdir);
+}
 
 sub print_usage {
@@ -168 +181 @@
     print STDOUT "   -out                    Filename or handle to print output status to.\n";
     print STDOUT "                           The default is STDERR\n";
+    print STDOUT "   -statsfile name         Filename or handle to print import statistics to.\n";
+    print STDOUT "                           The default is STDERR\n";
     print STDOUT "   -make_writable          If set build will make the collection and any\n";
     print STDOUT "                           temporary files it created globally writable after\n";
@@ -373 +388 @@
     $import_cmd .= " -removeold" unless $append;
     $import_cmd .= " -collectdir \"$collectdir\"" if $collectdir =~ /\w/;
+    $import_cmd .= " -statsfile \"$statsfile\"" if $statsfile =~ /\w/;
     $import_cmd .= " $maxdocs $collection";
+
+    print STDERR "\n**import_cmd: $import_cmd\n";
+
     system ($import_cmd);
     # if using output directory append the import output to it
@@ -558 +577 @@
              'email_events/.*/', \$email_events,
              'mail_server/.*/', \$mail_server,
+             'statsfile/.*/STDERR', \$statsfile,
              'event_header/.*/', \$event_header)) {