Changeset 23166 for main/trunk
- Timestamp:
- 2010-10-19T12:05:12+13:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib/dbutil
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/jdbm.pm
r22076 r23166 68 68 return undef; 69 69 } 70 70 71 binmode($infodb_file_handle,":utf8"); 71 72 return $infodb_file_handle; 72 73 } … … 106 107 107 108 open (PIPEIN, "$jdb2txt_cmd \"$infodb_file_path\" |") || die "couldn't open pipe from db2txt \$infodb_file_path\"\n"; 109 binmode(PIPEIN,":utf8"); 108 110 my $infodb_line = ""; 109 111 my $infodb_key = ""; … … 143 145 144 146 open (PIPEIN, "$jdbkeys_cmd \"$infodb_file_path\" |") || die "couldn't open pipe from jdbmkeys \$infodb_file_path\"\n"; 147 binmode(PIPEIN,":utf8"); 145 148 my $infodb_line = ""; 146 149 my $infodb_key = ""; -
main/trunk/greenstone2/perllib/dbutil/sqlite.pm
r22735 r23166 54 54 } 55 55 56 binmode($infodb_handle,":utf8"); 57 56 58 print $infodb_handle "CREATE TABLE IF NOT EXISTS data (key TEXT PRIMARY KEY, value TEXT);\n"; 57 59 print $infodb_handle "CREATE TABLE IF NOT EXISTS document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n"; … … 99 101 else { 100 102 103 binmode($infodb_handle, ":utf8"); 101 104 my $line; 102 105 while (defined($line=<$infodb_handle>)) {
Note:
See TracChangeset
for help on using the changeset viewer.