Changeset 17895

Show
Ignore:
Timestamp:
19.11.2008 13:26:58 (11 years ago)
Author:
ak19
Message:

Added handling of infodbtype setting

Files:
1 modified

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