Changeset 3947


Ignore:
Timestamp:
2003-03-20T16:17:27+12:00 (21 years ago)
Author:
kjdon
Message:

changes for new config file format

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

    r3872 r3947  
    117117    $writer->startTag('serviceRackList');
    118118   
    119     if ($buildtype =~ /^mg/) {
    120     if ($buildtype eq 'mgpp') {
    121         #for each level
    122         my @levels = ('Document');
    123         my $defaultlevel = 'Document';
    124         if (defined $collectcfg->{'levels'}) {
    125         push @levels, @{$collectcfg->{'levels'}};
    126 
    127         foreach $l(@levels){
    128             $defaultlevel = 'Section' if $l eq 'Section';
    129         }
    130         }
    131        
    132         $writer->startTag('serviceRack', 'name'=>'GS2MGPPRetrieve');
    133         $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
    134         $writer->endTag('serviceRack');
    135        
    136         $writer->startTag('serviceRack', 'name'=>'GS2MGPPSearch');
    137         $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
    138         $writer->startTag('levelList');
    139         foreach $level (@levels) {
    140         $writer->emptyTag('level', 'name'=>$level);
    141         }
    142         $writer->endTag('levelList');
    143        
    144             #fieldlist
    145         print STDOUT "trying fields\n";
    146         my $fieldmap = {};
    147         if (defined $buildcfg->{'indexfieldmap'}) {
    148         print STDOUT "doing fields\n";
    149         $fieldmap_t = $buildcfg->{'indexfieldmap'};
    150         foreach $f (@$fieldmap_t) {
    151             my ($k, $v) = $f =~ /^(.*)\-\>(.*)$/;
    152             $fieldmap->{$k} = $v;
    153         }
    154        
    155         $writer->startTag('fieldList');
    156         foreach $f (keys %$fieldmap) {
    157             $field = $fieldmap->{$f};
    158             $writer->emptyTag('field', 'shortname'=>$field, 'name'=>$f);
    159         }   
    160         $writer->endTag('fieldList');
    161         } else {
    162         print STDERR "indexfieldmap not defined";
    163         }
    164        
    165     } elsif ($buildtype eq 'mg') {
    166         $writer->startTag('serviceRack', 'name'=>'GS2MGRetrieve');
    167         $writer->emptyTag('defaultIndex', 'name'=>$defaultindex);
    168         $writer->endTag('serviceRack');
    169         $writer->startTag('serviceRack', 'name'=>'GS2MGSearch');
    170     }
    171 
    172 
     119    my @levels = ('Document');
     120    my $defaultlevel = 'Document';
     121
     122    #do the retrieve service
     123    # assume mgpp or mg
     124    if ($buildtype eq 'mgpp') {
     125    #for each level
     126    if (defined $collectcfg->{'levels'}) {
     127        push @levels, @{$collectcfg->{'levels'}};
     128       
     129        foreach $l(@levels){
     130        $defaultlevel = 'Section' if $l eq 'Section';
     131        }
     132    }
     133
     134    $writer->startTag('serviceRack', 'name'=>'GS2MGPPRetrieve');
     135    $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
     136    $writer->startTag('levelList');
     137    foreach $level (@levels) {
     138        $writer->emptyTag('level', 'name'=>$level);
     139    }
     140    $writer->endTag('levelList');
     141   
     142   
     143    } else {
     144    $writer->startTag('serviceRack', 'name'=>'GS2MGRetrieve');
    173145    $writer->emptyTag('defaultIndex', 'name'=>$defaultindex);
    174     $writer->startTag('indexList');
    175     #for each index
    176     foreach $i (keys %$indexmap) {
    177         $index = $indexmap->{$i};
    178         $writer->emptyTag('index', 'name'=>$index);
    179     }   
    180     $writer->endTag('indexList');
    181    
    182     $writer->endTag('serviceRack');
    183     }
    184 
    185     #my $classifiers = {};
     146   
     147    }
     148
     149    # add in the classifiers if needed
     150
    186151    my $count = 1;
    187152    my $phind = 0;
    … …  
    199164        }
    200165       
     166        my $document_interleave = "true";
     167        my $orientation = "vertical";
     168        if ($classname eq "AZList") { #there may be others
     169        $document_interleave = "false";
     170        $orientation = "horizontal";
     171        }
    201172        if (not $started_classifiers) {
    202         $writer->startTag('serviceRack', 'name'=>'GS2Browse');
    203173        $writer->startTag('classifierList');
    204174        $started_classifiers = 1;
    … …  
    213183        }
    214184        }
    215 
    216         $writer->emptyTag('classifier', 'name'=>$name, 'content'=>$content);
     185       
     186        $writer->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'orientation'=>$orientation, 'documentInterleave'=>$document_interleave);
    217187       
    218188    } #foreach classifier
    … …  
    220190        # end the classifiers
    221191        $writer->endTag('classifierList');
    222         $writer->endTag('serviceRack');
    223     }
    224     if ($phind) {
    225         # if phind classifier
    226         $writer->emptyTag('serviceRack', 'name'=>'PhindPhraseBrowse');
    227     }
    228    
    229     }
     192    }
     193   
     194    }
     195    # close off the Retrieve service
     196    $writer->endTag('serviceRack');
     197   
     198    # the phind classifier is a separate service
     199    if ($phind) {
     200    # if phind classifier
     201    $writer->emptyTag('serviceRack', 'name'=>'PhindPhraseBrowse');
     202    }
     203   
     204    # do the search service
     205    if ($buildtype eq 'mgpp') {
     206       
     207    $writer->startTag('serviceRack', 'name'=>'GS2MGPPSearch');
     208    $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
     209    $writer->startTag('levelList');
     210    foreach $level (@levels) {
     211        $writer->emptyTag('level', 'name'=>$level);
     212    }
     213    $writer->endTag('levelList');
     214   
     215    #fieldlist
     216    print STDOUT "trying fields\n";
     217    my $fieldmap = {};
     218    if (defined $buildcfg->{'indexfieldmap'}) {
     219        print STDOUT "doing fields\n";
     220        $fieldmap_t = $buildcfg->{'indexfieldmap'};
     221        foreach $f (@$fieldmap_t) {
     222        my ($k, $v) = $f =~ /^(.*)\-\>(.*)$/;
     223        $fieldmap->{$k} = $v;
     224        }
     225       
     226        $writer->startTag('fieldList');
     227        foreach $f (keys %$fieldmap) {
     228        $field = $fieldmap->{$f};
     229        $writer->emptyTag('field', 'shortname'=>$field, 'name'=>$f);
     230        }   
     231        $writer->endTag('fieldList');
     232    } else {
     233        print STDERR "indexfieldmap not defined";
     234    }
     235   
     236    } elsif ($buildtype eq 'mg') {
     237    $writer->startTag('serviceRack', 'name'=>'GS2MGSearch');
     238    }
     239   
     240   
     241    $writer->emptyTag('defaultIndex', 'name'=>$defaultindex);
     242    $writer->startTag('indexList');
     243    #for each index
     244    foreach $i (keys %$indexmap) {
     245    $index = $indexmap->{$i};
     246    $writer->emptyTag('index', 'name'=>$index);
     247    }   
     248    $writer->endTag('indexList');
     249   
     250    $writer->endTag('serviceRack');
     251   
    230252    $writer->endTag('serviceRackList');
    231253    $writer->endTag('buildConfig');
Note: See TracChangeset for help on using the changeset viewer.