Changeset 2785 for trunk/gsdl/bin/script/buildcol.pl
- Timestamp:
- 2001-10-09T17:21:29+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/buildcol.pl
r2524 r2785 76 76 print STDOUT " -no_strip_html Do not strip the html tags from the indexed text\n"; 77 77 print STDOUT " (only used for mgpp collections).\n\n"; 78 print STDOUT " -faillog name Fail log filename. This log receives the filenames\n"; 79 print STDOUT " of any files which fail to be processed (defaults.\n"; 80 print STDOUT " to " . 81 &util::filename_cat("<collectdir>", "colname", "etc", "fail.log") . ")\n"; 78 82 print STDOUT " [Type \"perl -S buildcol.pl | more\" if this help text scrolled off your screen]"; 79 83 print STDOUT "\n" unless $ENV{'GSDLOS'} =~ /^windows$/i; … … 86 90 $debug, $mode, $indexname, $keepold, $allclassifications, 87 91 $create_images, $collectdir, $out, $buildtype, $textindex, 88 $no_strip_html, $no_text );92 $no_strip_html, $no_text, $faillog); 89 93 90 94 # note that no defaults are passed for most options as they're set … … 106 110 'out/.*/STDERR', \$out, 107 111 'no_strip_html', \$no_strip_html, 108 'buildtype/^(mg|mgpp)$/', \$buildtype)) { 112 'buildtype/^(mg|mgpp)$/', \$buildtype, 113 'faillog/.*/', \$faillog)) { 109 114 &print_usage(); 110 115 die "\n"; … … 125 130 die "\n"; 126 131 } 132 133 if ($faillog eq "") { 134 $faillog = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "etc", "fail.log"); 135 } 136 # note that we're appending to the faillog here (import.pl clears it each time) 137 # this could potentially create a situation where the faillog keeps being added 138 # to over multiple builds (if the import process is being skipped) 139 open (FAILLOG, ">>$faillog") || die "Couldn't open fail log $faillog\n"; 140 $faillog = 'buildcol::FAILLOG'; 141 $faillog->autoflush(1); 127 142 128 143 # read the configuration file … … 268 283 "\$realarchivedir, \$realbuilddir, \$verbosity, " . 269 284 "\$maxdocs, \$debug, \$keepold, \$allclassifications, " . 270 "\$out, \$no_text )");285 "\$out, \$no_text, \$faillog)"); 271 286 die "$@" if $@; 272 287 … … 301 316 302 317 close OUT if $close_out; 318 close FAILLOG; 303 319 } 304 320
Note:
See TracChangeset
for help on using the changeset viewer.