Changeset 17895

Timestamp:

2008-11-19T13:26:58+13:00 (15 years ago)

Author:

ak19

Message:

Added handling of infodbtype setting

File:

• gsdl/trunk/perllib/cfgread4gs3.pm (modified) (4 diffs)

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -60 +60 @@
 use XML::Parser;
 
-# A mapping hash to resolve name descrepency between gs2 and gs3.
+# A mapping hash to resolve name discrepancy between gs2 and gs3.
 my $nameMap = {"key" => "value",
            "creator" => "creator",
            "maintainer" => "maintainer",
            "public" => "public",
+           "infodb" => "infodbtype",
            "defaultIndex" => "defaultindex",
            "defaultLevel" => "defaultlevel",
@@ -78 +79 @@
            "index" => "indexes",
            "plugin" => "plugin",
-           "plugout" => "plugout",
+           "plugout" => "plugout",
            "indexOption" => "indexoptions",
            "searchType" => "searchtype",
@@ -116 +117 @@
     
     # See http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm#Stream
-    # %_ is a hash of all the attributes of this element, we want to store them  so we can use the attributes
+    # %_ is a hash of all the attributes of this element, we want to store them so we can use the attributes
     # when the textnode contents of the element are parsed in the subroutine Text (that's the handler for Text). 
     $currentAttrRef = \%_; 
@@ -157 +158 @@
         $currentLocation = $name;
     }
+    }
+
+    #@ Handling database type: gdbm or gdbm-txtgz, later jdbm.
+    elsif ($element eq "infodb") {
+      $data->{'infodbtype'} = $type;
     }