Changeset 15003 for gsdl/trunk/perllib/mgbuilder.pm
- Timestamp:
- 2008-02-22T11:29:52+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgbuilder.pm
r12971 r15003 127 127 128 128 &util::mk_all_dir (&util::filename_cat($self->{'build_dir'}, "text")); 129 my $basefilename = "text/$self->{'collection'}"; 129 130 my $collect_tail = &util::get_dirsep_tail($self->{'collection'}); 131 my $basefilename = &util::filename_cat("text",$collect_tail); 130 132 my $fulltextprefix = &util::filename_cat ($self->{'build_dir'}, $basefilename); 131 133 … … 315 317 my $indexdir = $self->{'index_mapping'}->{$index}; 316 318 &util::mk_all_dir (&util::filename_cat($self->{'build_dir'}, $indexdir)); 319 320 my $collect_tail = &util::get_dirsep_tail($self->{'collection'}); 317 321 my $fullindexprefix = &util::filename_cat ($self->{'build_dir'}, $indexdir, 318 $ self->{'collection'});322 $collect_tail); 319 323 my $fulltextprefix = &util::filename_cat ($self->{'build_dir'}, "text", 320 $ self->{'collection'});324 $collect_tail); 321 325 322 326 # get any os specific stuff … … 522 526 my $exe = &util::get_os_exe (); 523 527 my $mgstat_exe = &util::filename_cat($exedir, "mgstat$exe"); 524 my $input_file = &util::filename_cat ("text", $self->{'collection'}); 528 529 my $collect_tail = &util::get_dirsep_tail($self->{'collection'}); 530 my $input_file = &util::filename_cat ("text", $collect_tail); 525 531 if (!-e "$mgstat_exe" || !open (PIPEIN, "mgstat$exe -d \"$self->{'build_dir'}\" -f \"$input_file\" |")) { 526 532 print $outhandle "Warning: Couldn't open pipe to $mgstat_exe to get additional stats\n";
Note:
See TracChangeset
for help on using the changeset viewer.