Changeset 28126 for main/trunk/greenstone2/perllib/dbutil/jdbm.pm

Timestamp:

2013-08-26T13:44:06+12:00 (11 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

File:

• main/trunk/greenstone2/perllib/dbutil/jdbm.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/dbutil/jdbm.pm

@@ -55 +55 @@
   if ((defined $opt_append) && ($opt_append eq "append")) {
       $txt2jdb_cmd .= " -append";
+      print STDERR "Append operation to $infodb_file_path\n";
+  }
+  else {
+      print STDERR "Create database $infodb_file_path\n";
   }
   
@@ -61 +65 @@
 
   $txt2jdb_cmd .= " \"$infodb_file_path\"";
+
+##  print STDERR "**** txt2jdbm cmd = $txt2jdb_cmd\n\n";
 
   if (!open($infodb_file_handle, "| $txt2jdb_cmd"))