/[local]/common.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /common.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by dpavlin, Thu Oct 24 16:32:00 2002 UTC revision 1.12 by dpavlin, Sun Oct 27 21:20:33 2002 UTC
# Line 41  $common::database_cf="/local/search/data Line 41  $common::database_cf="/local/search/data
41  # return: path on filesystem to data dir  # return: path on filesystem to data dir
42    
43  sub open_data_files {  sub open_data_files {
44          my ($db_dir) = @_;          my ($db_dir,$debug) = @_;
45    
46          mkdir "$common::install_dir/$db_dir" if (!-e "$common::install_dir/$db_dir");          mkdir "$common::install_dir/$db_dir" if (!-e "$common::install_dir/$db_dir");
47          mkdir "$common::install_dir/$db_dir/data" if (!-e "$common::install_dir/$db_dir/data");          mkdir "$common::install_dir/$db_dir/data" if (!-e "$common::install_dir/$db_dir/data");
# Line 50  sub open_data_files { Line 50  sub open_data_files {
50    
51          open(S,"> $dir/stream") || die "can't open output $dir/stream: $!";          open(S,"> $dir/stream") || die "can't open output $dir/stream: $!";
52          open(R,"> $dir/bib") || die "can't open output $dir/bib: $!";          open(R,"> $dir/bib") || die "can't open output $dir/bib: $!";
53          open(MPS,"| $common::mpsindex -d $common::install_dir/$db_dir -autokey") || die "can't start MPS indexer $common::mpsindex: $!";          if (! $debug) {
54  #       open(MPS,"> /tmp/mpsindex") || die "mps: $!";                  open(MPS,"| $common::mpsindex -d $common::install_dir/$db_dir -autokey") || die "can't start MPS indexer $common::mpsindex: $!";
55            } else {
56                    open(MPS,"> /tmp/mpsindex") || die "mps: $!";
57            }
58    
59          print S $common::mps_header;          print S $common::mps_header;
60          print MPS $common::mps_header;          print MPS $common::mps_header;
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.26