Changeset 15710 for gsdl/trunk/perllib/basebuilder.pm
- Timestamp:
- 2008-05-27T12:06:29+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuilder.pm
r15709 r15710 320 320 &util::mk_all_dir ($assocdir); 321 321 322 # get db name 323 my $dbext = ".bdb"; 324 $dbext = ".ldb" if &util::is_little_endian(); 325 my $dbname = &util::get_dirsep_tail($self->{'collection'}).$dbext; 326 my $fulldbname = &util::filename_cat ($textdir, $dbname); 327 $fulldbname =~ s/\//\\/g if ($ENV{'GSDLOS'} =~ /^windows$/i); 328 329 my $exedir = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}"; 330 my $exe = &util::get_os_exe (); 331 my $txt2db_exe = &util::filename_cat($exedir, "txt2db$exe"); 322 # Get info database file path 323 my $infodb_file_path = &dbutil::get_infodb_file_path($self->{'collection'}, $textdir); 332 324 333 325 print $outhandle "\n*** creating the info database and processing associated files\n" … … 338 330 &classify::init_classifiers ($self->{'classifiers'}); 339 331 340 341 332 my $reconstructed_docs = undef; 342 333 if ($self->{'keepold'}) { 343 334 # reconstruct doc_obj metadata from database for all docs 344 $reconstructed_docs = &classify::reconstruct_doc_objs_metadata($ fulldbname);335 $reconstructed_docs = &classify::reconstruct_doc_objs_metadata($infodb_file_path); 345 336 } 346 337 … … 349 340 if ($self->{'debug'}) { 350 341 $infodb_handle = *STDOUT; 351 } else { 352 if (!-e "$txt2db_exe" || !open (PIPEOUT, "| txt2db$exe \"$fulldbname\"")) { 342 } 343 else { 344 my $exedir = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}"; 345 my $exe = &util::get_os_exe (); 346 my $txt2db_exe = &util::filename_cat($exedir, "txt2db$exe"); 347 348 if (!-e "$txt2db_exe" || !open (PIPEOUT, "| txt2db$exe \"$infodb_file_path\"")) { 353 349 print STDERR "<FatalError name='NoRunText2DB'/>\n</Stage>\n" if $self->{'gli'}; 354 350 die "builder::make_infodatabase - couldn't run $txt2db_exe\n";
Note:
See TracChangeset
for help on using the changeset viewer.