Changeset 3979

Timestamp:

2003-03-25T10:35:22+12:00 (21 years ago)

Author:

kjdon

Message:

now creates coll config file too

File:

• trunk/gsdl3/bin/script/convert_coll_from_gs2.pl (modified) (11 diffs)

trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

@@ -30 +30 @@
 sub main {
 
+    my $defaultlang = 'en';
     my ($collectdir);
     # note that no defaults are passed for most options as they're set
@@ -61 +62 @@
     
 
-    $buildconfigfilename = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "building", "build.cfg");
+    $buildconfigfilename = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "index", "build.cfg");
     my $buildcfg;
     if (-e $buildconfigfilename) {
@@ -68 +69 @@
     }
 
-    my $outfile = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "building", "buildConfig.xml");
-    if (-e $outfile) {
+     
+    my $colloutfile = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "etc", "collectionConfig.xml");
+    if (-e $colloutfile) {
+    print STDOUT "collectionConfig file already exists! overwriting it!\n";
+    
+    }
+   
+    my $buildoutfile = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "index", "buildConfig.xml");
+    if (-e $buildoutfile) {
     print STDOUT "buildConfig file already exists! overwriting it!\n";
     
@@ -81 +89 @@
     }
 
-    my $output = new IO::File(">$outfile");
-    my $writer = new XML::Writer(OUTPUT => $output);
-
-    $writer->startTag('buildConfig');
-
+    my $buildoutput = new IO::File(">$buildoutfile");
+    my $buildwriter = new XML::Writer(OUTPUT => $buildoutput);
+
+    $buildwriter->startTag('buildConfig');
+    
+    my $colloutput = new IO::File(">$colloutfile");
+    my $collwriter = new XML::Writer(OUTPUT => $colloutput);
+
+    $collwriter->startTag('collectionConfig');
+
+    #output the collection metadata to the collectionConfig file
+    my $collectionmeta = $collectcfg->{'collectionmeta'};
+    $collwriter->startTag('metadataList');
+    
+    %name_map = (
+         'collectionname', 'colName',
+         'collectionextra', 'colDescription',
+         'iconcollection', 'colIcon',
+         'iconcollectionsmall', 'colIconSmall');
+    
+    if (defined $collectionmeta) {
+    print STDOUT "coll meta defined \n";
+    foreach $entry ( keys %$collectionmeta) {
+        print STDOUT "entry=$entry\n";
+        if (defined $name_map{$entry}) {
+        $name= $name_map{$entry};
+        print STDOUT "name=$name\n";
+        foreach $lang (keys %{$collectionmeta->{$entry}}) {
+            print STDOUT "lang=$lang\n";
+            outputmetadata($collwriter, $name, $lang, $collectionmeta->{$entry}->{$lang});
+        }
+        }
+    }
+    } 
+    $collwriter->endTag('metadataList');
+    
 #num docs
     my $numdocs = $buildcfg->{'numdocs'};
-    $writer->startTag('metadataList');
-    $writer->startTag('metadata',  'name'=>'numDocs');
-    $writer->characters($numdocs);
-    $writer->endTag('metadata');
-    $writer->endTag('metadataList');
+    $buildwriter->startTag('metadataList');
+    $buildwriter->startTag('metadata',  'name'=>'numDocs');
+    $buildwriter->characters($numdocs);
+    $buildwriter->endTag('metadata');
+    $buildwriter->endTag('metadataList');
     
     
@@ -115 +154 @@
     
     
-    $writer->startTag('serviceRackList');
+    $buildwriter->startTag('serviceRackList');
     
     my @levels = ('Document');
@@ -132 +171 @@
     }
 
-    $writer->startTag('serviceRack', 'name'=>'GS2MGPPRetrieve');
-    $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
-    $writer->startTag('levelList');
+    $buildwriter->startTag('serviceRack', 'name'=>'GS2MGPPRetrieve');
+    $buildwriter->emptyTag('defaultLevel', 'name'=>$defaultlevel);
+    $buildwriter->startTag('levelList');
     foreach $level (@levels) {
-        $writer->emptyTag('level', 'name'=>$level);
-    }
-    $writer->endTag('levelList');
-    
-    
-    } else {
-    $writer->startTag('serviceRack', 'name'=>'GS2MGRetrieve');
-    $writer->emptyTag('defaultIndex', 'name'=>$defaultindex);
+        $buildwriter->emptyTag('level', 'name'=>$level);
+    }
+    $buildwriter->endTag('levelList');
+    
+    
+    } else {
+    $buildwriter->startTag('serviceRack', 'name'=>'GS2MGRetrieve');
+    $buildwriter->emptyTag('defaultIndex', 'name'=>$defaultindex);
     
     }
@@ -171 +210 @@
         }
         if (not $started_classifiers) {
-        $writer->startTag('classifierList');
+        $buildwriter->startTag('classifierList');
         $started_classifiers = 1;
         }
@@ -184 +223 @@
         }
         
-        $writer->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'orientation'=>$orientation, 'documentInterleave'=>$document_interleave);
+        $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'orientation'=>$orientation, 'documentInterleave'=>$document_interleave);
         
     } #foreach classifier
     if ($started_classifiers) {
         # end the classifiers
-        $writer->endTag('classifierList');
+        $buildwriter->endTag('classifierList');
     }
     
     }
     # close off the Retrieve service
-    $writer->endTag('serviceRack');
+    $buildwriter->endTag('serviceRack');
     
     # the phind classifier is a separate service
     if ($phind) {
     # if phind classifier
-    $writer->emptyTag('serviceRack', 'name'=>'PhindPhraseBrowse');
+    $buildwriter->emptyTag('serviceRack', 'name'=>'PhindPhraseBrowse');
     }
    
@@ -205 +244 @@
     if ($buildtype eq 'mgpp') {
         
-    $writer->startTag('serviceRack', 'name'=>'GS2MGPPSearch');
-    $writer->emptyTag('defaultLevel', 'name'=>$defaultlevel);
-    $writer->startTag('levelList');
+    $buildwriter->startTag('serviceRack', 'name'=>'GS2MGPPSearch');
+    $buildwriter->emptyTag('defaultLevel', 'name'=>$defaultlevel);
+    $buildwriter->startTag('levelList');
     foreach $level (@levels) {
-        $writer->emptyTag('level', 'name'=>$level);
-    }
-    $writer->endTag('levelList');
+        $buildwriter->emptyTag('level', 'name'=>$level);
+    }
+    $buildwriter->endTag('levelList');
     
     #fieldlist
@@ -224 +263 @@
         }
         
-        $writer->startTag('fieldList');
+        $buildwriter->startTag('fieldList');
         foreach $f (keys %$fieldmap) {
         $field = $fieldmap->{$f};
-        $writer->emptyTag('field', 'shortname'=>$field, 'name'=>$f);
+        $buildwriter->emptyTag('field', 'shortname'=>$field, 'name'=>$f);
         }   
-        $writer->endTag('fieldList');
+        $buildwriter->endTag('fieldList');
     } else {
         print STDERR "indexfieldmap not defined";
@@ -235 +274 @@
     
     } elsif ($buildtype eq 'mg') {
-    $writer->startTag('serviceRack', 'name'=>'GS2MGSearch');
-    }
-    
-    
-    $writer->emptyTag('defaultIndex', 'name'=>$defaultindex);
-    $writer->startTag('indexList');
+    $buildwriter->startTag('serviceRack', 'name'=>'GS2MGSearch');
+    }
+    
+    
+    $buildwriter->emptyTag('defaultIndex', 'name'=>$defaultindex);
+    $buildwriter->startTag('indexList');
     #for each index
     foreach $i (keys %$indexmap) {
     $index = $indexmap->{$i};
-    $writer->emptyTag('index', 'name'=>$index);
+    $buildwriter->emptyTag('index', 'name'=>$index);
     }   
-    $writer->endTag('indexList');
-    
-    $writer->endTag('serviceRack');
+    $buildwriter->endTag('indexList');
+    
+    $buildwriter->endTag('serviceRack');
    
-    $writer->endTag('serviceRackList');
-    $writer->endTag('buildConfig');
-    $writer->end();
-    $output->close();
-
+    $buildwriter->endTag('serviceRackList');
+    $buildwriter->endTag('buildConfig');
+    $collwriter->endTag('collectionConfig');
+    $buildwriter->end();
+    $buildoutput->close();
+    $colloutput->close();
+}
+
+
+sub outputmetadata {
+    my ($collwriter, $metaname, $lang, $metavalue) = @_;
+    $lang = 'en' if $lang eq 'default';
+    if ($lang =~ /^\[/) {
+    ($lang) = $lang =~ /\[l=(..)\]/;
+    print STDOUT "new lang = $lang\n";
+    }
+    my $newvalue;
+    if ($name =~ /colIcon/) {
+    #may need to translate the value
+    ($newvalue) = $metavalue =~ /^_httpprefix_\/collect\/.*\/images\/(.*)$/;
+    ($newvalue) = $metavalue =~ /^_httpcollection_\/images\/(.*)$/ if not defined $newvalue;
+    $newvalue = $metavalue if not defined $newvalue;
+    print STDOUT "old value=$metavalue. new value = $newvalue\n";
+    } else {
+    $newvalue = $metavalue;
+    }
+    $collwriter->startTag('metadata',  'name'=>$metaname, 'lang'=>$lang);
+    $collwriter->characters($newvalue);
+    $collwriter->endTag('metadata');
 }