Changeset 28126

Show
Ignore:
Timestamp:
26.08.2013 13:44:06 (6 years ago)
Author:
davidb
Message:

Print statement added to Perl to make better sense of the standard-output messages generated by Txt2Jdb. Better still is this (and the output from JDBM) was controlled by 'verbosity' ... but leaving that for now

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/dbutil/jdbm.pm

    r28108 r28126  
    5555  if ((defined $opt_append) && ($opt_append eq "append")) { 
    5656      $txt2jdb_cmd .= " -append"; 
     57      print STDERR "Append operation to $infodb_file_path\n"; 
     58  } 
     59  else { 
     60      print STDERR "Create database $infodb_file_path\n"; 
    5761  } 
    5862   
     
    6165 
    6266  $txt2jdb_cmd .= " \"$infodb_file_path\""; 
     67 
     68##  print STDERR "**** txt2jdbm cmd = $txt2jdb_cmd\n\n"; 
    6369 
    6470  if (!open($infodb_file_handle, "| $txt2jdb_cmd"))