Changeset 21544

Timestamp:

2010-01-20T15:46:19+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed dbutil.pm so instead of doing "use dbutil::gdbm", "use dbutil::sqlite" etc. at the top of the file, the sub-modules are "require"d as necessary when they are used. This means only the modules that are used will be loaded, and the whole thing doesn't fall over if some of the sub-modules don't exist (e.g for gs2-core).

File:

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

main/trunk/greenstone2/perllib/dbutil.pm

@@ -29 +29 @@
 
 
-use dbutil::gdbmtxtgz;
-use dbutil::gdbm;
-use dbutil::jdbm;
-use dbutil::sqlite;
-use dbutil::mssql;
-
 sub open_infodb_write_handle
 {
@@ -42 +36 @@
   if ($infodb_type eq "sqlite") 
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::open_infodb_write_handle($infodb_file_path);
   } 
   elsif ($infodb_type eq "gdbm-txtgz") 
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::open_infodb_write_handle($infodb_file_path);
   } 
   elsif ($infodb_type eq "jdbm") 
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::open_infodb_write_handle($infodb_file_path);
   } 
   elsif ($infodb_type eq "mssql") 
   {
+    require dbutil::mssql;
     return &dbutil::mssql::open_infodb_write_handle($infodb_file_path);
   } 
 
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::open_infodb_write_handle($infodb_file_path);
 }
@@ -69 +68 @@
   if ($infodb_type eq "sqlite")
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::close_infodb_write_handle($infodb_handle);
   }
   elsif ($infodb_type eq "gdbm-txtgz")
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::close_infodb_write_handle($infodb_handle);
   }
   elsif ($infodb_type eq "jdbm")
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::close_infodb_write_handle($infodb_handle);
   }
   elsif ($infodb_type eq "mssql")
   {
+    require dbutil::mssql;
     return &dbutil::mssql::close_infodb_write_handle($infodb_handle);
   }
     
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::close_infodb_write_handle($infodb_handle);
 }
@@ -105 +109 @@
   if ($infodb_type eq "sqlite")
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::get_infodb_file_path($collection_name, $infodb_directory_path);
   }
   elsif ($infodb_type eq "gdbm-txtgz")
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::get_infodb_file_path($collection_name, $infodb_directory_path);
   }
   elsif ($infodb_type eq "jdbm")
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::get_infodb_file_path($collection_name, $infodb_directory_path);
   }
@@ -128 +135 @@
     # the this might need some tidy up sometime.
     #==================================================================================================#
+    require dbutil::mssql;
     return &dbutil::mssql::get_infodb_file_path($collection_name, $infodb_directory_path); 
   }
   
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::get_infodb_file_path($collection_name, $infodb_directory_path);
 }
@@ -144 +153 @@
   if ($infodb_type eq "sqlite")
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::read_infodb_file($infodb_file_path, $infodb_map);
   }
   elsif ($infodb_type eq "gdbm-txtgz")
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::read_infodb_file($infodb_file_path, $infodb_map);
   }
   elsif ($infodb_type eq "jdbm")
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::read_infodb_file($infodb_file_path, $infodb_map);
   }
   elsif ($infodb_type eq "mssql")
   {
+    require dbutil::mssql;
     return &dbutil::mssql::read_infodb_file($infodb_file_path, $infodb_map);
   }
   
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::read_infodb_file($infodb_file_path, $infodb_map);
 }
@@ -173 +187 @@
   if ($infodb_type eq "sqlite")
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map);
   }
   elsif ($infodb_type eq "gdbm-txtgz")
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map);
   }
   elsif ($infodb_type eq "jdbm")
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map);
   }
   elsif ($infodb_type eq "mssql")
   {
+    require dbutil::mssql;
     return &dbutil::mssql::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map);
   }
 
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::write_infodb_entry($infodb_handle, $infodb_key, $infodb_map);
 }
@@ -201 +220 @@
   if ($infodb_type eq "sqlite")
   {
+    require dbutil::sqlite;
     return &dbutil::sqlite::delete_infodb_entry($infodb_handle, $infodb_key);
   }
   elsif ($infodb_type eq "gdbm-txtgz")
   {
+    require dbutil::gdbmtxtgz;
     return &dbutil::gdbmtxtgz::delete_infodb_entry($infodb_handle, $infodb_key);
   }
   elsif ($infodb_type eq "jdbm")
   {
+    require dbutil::jdbm;
     return &dbutil::jdbm::delete_infodb_entry($infodb_handle, $infodb_key);
   }
   elsif ($infodb_type eq "mssql")
   {
+    require dbutil::mssql;
     return &dbutil::mssql::delete_infodb_entry($infodb_handle, $infodb_key);
   }
 
   # Use GDBM if the infodb type is empty or not one of the values above
+  require dbutil::gdbm;
   return &dbutil::gdbm::delete_infodb_entry($infodb_handle, $infodb_key);
 }