Changeset 21544 for main/trunk/greenstone2/perllib/dbutil.pm
- Timestamp:
- 2010-01-20T15:46:19+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil.pm
r21411 r21544 29 29 30 30 31 use dbutil::gdbmtxtgz;32 use dbutil::gdbm;33 use dbutil::jdbm;34 use dbutil::sqlite;35 use dbutil::mssql;36 37 31 sub open_infodb_write_handle 38 32 { … … 42 36 if ($infodb_type eq "sqlite") 43 37 { 38 require dbutil::sqlite; 44 39 return &dbutil::sqlite::open_infodb_write_handle($infodb_file_path); 45 40 } 46 41 elsif ($infodb_type eq "gdbm-txtgz") 47 42 { 43 require dbutil::gdbmtxtgz; 48 44 return &dbutil::gdbmtxtgz::open_infodb_write_handle($infodb_file_path); 49 45 } 50 46 elsif ($infodb_type eq "jdbm") 51 47 { 48 require dbutil::jdbm; 52 49 return &dbutil::jdbm::open_infodb_write_handle($infodb_file_path); 53 50 } 54 51 elsif ($infodb_type eq "mssql") 55 52 { 53 require dbutil::mssql; 56 54 return &dbutil::mssql::open_infodb_write_handle($infodb_file_path); 57 55 } 58 56 59 57 # Use GDBM if the infodb type is empty or not one of the values above 58 require dbutil::gdbm; 60 59 return &dbutil::gdbm::open_infodb_write_handle($infodb_file_path); 61 60 } … … 69 68 if ($infodb_type eq "sqlite") 70 69 { 70 require dbutil::sqlite; 71 71 return &dbutil::sqlite::close_infodb_write_handle($infodb_handle); 72 72 } 73 73 elsif ($infodb_type eq "gdbm-txtgz") 74 74 { 75 require dbutil::gdbmtxtgz; 75 76 return &dbutil::gdbmtxtgz::close_infodb_write_handle($infodb_handle); 76 77 } 77 78 elsif ($infodb_type eq "jdbm") 78 79 { 80 require dbutil::jdbm; 79 81 return &dbutil::jdbm::close_infodb_write_handle($infodb_handle); 80 82 } 81 83 elsif ($infodb_type eq "mssql") 82 84 { 85 require dbutil::mssql; 83 86 return &dbutil::mssql::close_infodb_write_handle($infodb_handle); 84 87 } 85 88 86 89 # Use GDBM if the infodb type is empty or not one of the values above 90 require dbutil::gdbm; 87 91 return &dbutil::gdbm::close_infodb_write_handle($infodb_handle); 88 92 } … … 105 109 if ($infodb_type eq "sqlite") 106 110 { 111 require dbutil::sqlite; 107 112 return &dbutil::sqlite::get_infodb_file_path($collection_name, $infodb_directory_path); 108 113 } 109 114 elsif ($infodb_type eq "gdbm-txtgz") 110 115 { 116 require dbutil::gdbmtxtgz; 111 117 return &dbutil::gdbmtxtgz::get_infodb_file_path($collection_name, $infodb_directory_path); 112 118 } 113 119 elsif ($infodb_type eq "jdbm") 114 120 { 121 require dbutil::jdbm; 115 122 return &dbutil::jdbm::get_infodb_file_path($collection_name, $infodb_directory_path); 116 123 } … … 128 135 # the this might need some tidy up sometime. 129 136 #==================================================================================================# 137 require dbutil::mssql; 130 138 return &dbutil::mssql::get_infodb_file_path($collection_name, $infodb_directory_path); 131 139 } 132 140 133 141 # Use GDBM if the infodb type is empty or not one of the values above 142 require dbutil::gdbm; 134 143 return &dbutil::gdbm::get_infodb_file_path($collection_name, $infodb_directory_path); 135 144 } … … 144 153 if ($infodb_type eq "sqlite") 145 154 { 155 require dbutil::sqlite; 146 156 return &dbutil::sqlite::read_infodb_file($infodb_file_path, $infodb_map); 147 157 } 148 158 elsif ($infodb_type eq "gdbm-txtgz") 149 159 { 160 require dbutil::gdbmtxtgz; 150 161 return &dbutil::gdbmtxtgz::read_infodb_file($infodb_file_path, $infodb_map); 151 162 } 152 163 elsif ($infodb_type eq "jdbm") 153 164 { 165 require dbutil::jdbm; 154 166 return &dbutil::jdbm::read_infodb_file($infodb_file_path, $infodb_map); 155 167 } 156 168 elsif ($infodb_type eq "mssql") 157 169 { 170 require dbutil::mssql; 158 171 return &dbutil::mssql::read_infodb_file($infodb_file_path, $infodb_map); 159 172 } 160 173 161 174 # Use GDBM if the infodb type is empty or not one of the values above 175 require dbutil::gdbm; 162 176 return &dbutil::gdbm::read_infodb_file($infodb_file_path, $infodb_map); 163 177 } … … 173 187 if ($infodb_type eq "sqlite") 174 188 { 189 require dbutil::sqlite; 175 190 return &dbutil::sqlite::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map); 176 191 } 177 192 elsif ($infodb_type eq "gdbm-txtgz") 178 193 { 194 require dbutil::gdbmtxtgz; 179 195 return &dbutil::gdbmtxtgz::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map); 180 196 } 181 197 elsif ($infodb_type eq "jdbm") 182 198 { 199 require dbutil::jdbm; 183 200 return &dbutil::jdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map); 184 201 } 185 202 elsif ($infodb_type eq "mssql") 186 203 { 204 require dbutil::mssql; 187 205 return &dbutil::mssql::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map); 188 206 } 189 207 190 208 # Use GDBM if the infodb type is empty or not one of the values above 209 require dbutil::gdbm; 191 210 return &dbutil::gdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map); 192 211 } … … 201 220 if ($infodb_type eq "sqlite") 202 221 { 222 require dbutil::sqlite; 203 223 return &dbutil::sqlite::delete_infodb_entry($infodb_handle, $infodb_key); 204 224 } 205 225 elsif ($infodb_type eq "gdbm-txtgz") 206 226 { 227 require dbutil::gdbmtxtgz; 207 228 return &dbutil::gdbmtxtgz::delete_infodb_entry($infodb_handle, $infodb_key); 208 229 } 209 230 elsif ($infodb_type eq "jdbm") 210 231 { 232 require dbutil::jdbm; 211 233 return &dbutil::jdbm::delete_infodb_entry($infodb_handle, $infodb_key); 212 234 } 213 235 elsif ($infodb_type eq "mssql") 214 236 { 237 require dbutil::mssql; 215 238 return &dbutil::mssql::delete_infodb_entry($infodb_handle, $infodb_key); 216 239 } 217 240 218 241 # Use GDBM if the infodb type is empty or not one of the values above 242 require dbutil::gdbm; 219 243 return &dbutil::gdbm::delete_infodb_entry($infodb_handle, $infodb_key); 220 244 }
Note:
See TracChangeset
for help on using the changeset viewer.