Ignore:
Timestamp:
2008-11-19T13:26:58+13:00 (15 years ago)
Author:
ak19
Message:

Added handling of infodbtype setting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/cfgread4gs3.pm

    r17747 r17895  
    6060use XML::Parser;
    6161
    62 # A mapping hash to resolve name descrepency between gs2 and gs3.
     62# A mapping hash to resolve name discrepancy between gs2 and gs3.
    6363my $nameMap = {"key" => "value",
    6464           "creator" => "creator",
    6565           "maintainer" => "maintainer",
    6666           "public" => "public",
     67           "infodb" => "infodbtype",
    6768           "defaultIndex" => "defaultindex",
    6869           "defaultLevel" => "defaultlevel",
     
    7879           "index" => "indexes",
    7980           "plugin" => "plugin",
    80            "plugout" => "plugout",
     81           "plugout" => "plugout",
    8182           "indexOption" => "indexoptions",
    8283           "searchType" => "searchtype",
     
    116117   
    117118    # 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  so we can use the attributes
     119    # %_ is a hash of all the attributes of this element, we want to store them so we can use the attributes
    119120    # when the textnode contents of the element are parsed in the subroutine Text (that's the handler for Text).
    120121    $currentAttrRef = \%_;
     
    157158        $currentLocation = $name;
    158159    }
     160    }
     161
     162    #@ Handling database type: gdbm or gdbm-txtgz, later jdbm.
     163    elsif ($element eq "infodb") {
     164      $data->{'infodbtype'} = $type;
    159165    }
    160166   
Note: See TracChangeset for help on using the changeset viewer.