Changeset 17895
- Timestamp:
- 2008-11-19T13:26:58+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cfgread4gs3.pm
r17747 r17895 60 60 use XML::Parser; 61 61 62 # A mapping hash to resolve name d escrepency between gs2 and gs3.62 # A mapping hash to resolve name discrepancy between gs2 and gs3. 63 63 my $nameMap = {"key" => "value", 64 64 "creator" => "creator", 65 65 "maintainer" => "maintainer", 66 66 "public" => "public", 67 "infodb" => "infodbtype", 67 68 "defaultIndex" => "defaultindex", 68 69 "defaultLevel" => "defaultlevel", … … 78 79 "index" => "indexes", 79 80 "plugin" => "plugin", 80 81 "plugout" => "plugout", 81 82 "indexOption" => "indexoptions", 82 83 "searchType" => "searchtype", … … 116 117 117 118 # See http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm#Stream 118 # %_ is a hash of all the attributes of this element, we want to store them 119 # %_ is a hash of all the attributes of this element, we want to store them so we can use the attributes 119 120 # when the textnode contents of the element are parsed in the subroutine Text (that's the handler for Text). 120 121 $currentAttrRef = \%_; … … 157 158 $currentLocation = $name; 158 159 } 160 } 161 162 #@ Handling database type: gdbm or gdbm-txtgz, later jdbm. 163 elsif ($element eq "infodb") { 164 $data->{'infodbtype'} = $type; 159 165 } 160 166
Note:
See TracChangeset
for help on using the changeset viewer.