Changeset 23102
- Timestamp:
- 2010-10-12T11:05:10+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/gdbm.pm
r22076 r23102 56 56 if(!open($infodb_file_handle, "| $cmd")) 57 57 { 58 58 59 print STDERR "Error: Failed to open pipe to $cmd\n"; 59 60 print STDERR " $!\n"; 60 61 return undef; 61 62 } 63 64 binmode($infodb_file_handle,":utf8"); 62 65 63 66 return $infodb_file_handle; … … 90 93 my $infodb_map = shift(@_); 91 94 92 open (PIPEIN, "db2txt \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt \$infodb_file_path\"\n"; 95 open (PIPEIN, "db2txt \"$infodb_file_path\" |") 96 || die "couldn't open pipe from db2txt \$infodb_file_path\"\n"; 97 98 binmode(PIPEIN,":utf8"); 99 93 100 my $infodb_line = ""; 94 101 my $infodb_key = ""; … … 120 127 my $infodb_map = shift(@_); 121 128 122 open (PIPEIN, "gdbmkeys \"$infodb_file_path\" |") || die "couldn't open pipe from gdbmkeys \$infodb_file_path\"\n"; 129 open (PIPEIN, "gdbmkeys \"$infodb_file_path\" |") 130 || die "couldn't open pipe from gdbmkeys \$infodb_file_path\"\n"; 131 132 binmode(PIPEIN,":utf8"); 133 123 134 my $infodb_line = ""; 124 135 my $infodb_key = "";
Note:
See TracChangeset
for help on using the changeset viewer.