Changeset 14101 for trunk

Timestamp:

2007-05-28T08:58:01+12:00 (17 years ago)

Author:

xiao

Message:

add a wrapper to ensure the right version of XML::Parser is loaded given the version of Perl being used.

File:

• trunk/gsdl/perllib/cfgread4gs3.pm (modified) (3 diffs)

trunk/gsdl/perllib/cfgread4gs3.pm

@@ -30 +30 @@
 no strict 'refs';
 no strict 'subs';
+
+# Wrapper that ensures the right version of XML::Parser is loaded given
+# the version of Perl being used.  Need to distinguish between Perl 5.6 and
+# Perl 5.8
+sub BEGIN {
+    my $perl_dir;
+
+    # Note: $] encodes the version number of perl
+    if ($]>5.008) { 
+    # perl 5.8.1 or above
+    $perl_dir = "perl-5.8";
+    }
+    elsif ($]<5.008) {
+    # assume perl 5.6
+    $perl_dir = "perl-5.6";
+    }
+    else {
+    print STDERR "Warning: Perl 5.8.0 is not a maintained release.\n";
+    print STDERR "         Please upgrade to a newer version of Perl.\n";
+    $perl_dir = "perl-5.8";
+    }
+
+    if ($ENV{'GSDLOS'} !~ /^windows$/i) {
+    # Use push to put this on the end, so an existing XML::Parser will be used by default
+    push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir");
+    }
+}
+
 use XML::Parser;
-  
+
 # A mapping hash to resolve name descrepency between gs2 and gs3.
 my $nameMap = {"key" => "value",
@@ -321 +349 @@
 }
 
+# Create the buildConfig.xml file for a specific collection
 sub write_cfg_file {
-    # information needed from $collectcfg: defaultindex, defaultlevel, classifiers, 
+    # information needed from $collectcfg include: defaultindex, defaultlevel, classifiers, 
     # the rest is from $buildcfg
     my ($buildoutfile, $buildcfg, $collectcfg) = @_;
@@ -360 +389 @@
     &write_line('COLCFG', ["<serviceRackList>"]);
 
+    # This serviceRack enables the collection to provide the oai metadata retrieve service, which is served by the OAIMetadataRetrieve.java class
+    # For each collection, we write the following serviceRack in the collection's buildConfig.xml file as follows and also specify the metadata format this oai service provides in the rack. But whether this service is going to be put in use depends on its name appearing in the OAIConfig.xml.
+    &write_line('COLCFG', ["<serviceRack name=\"OAIPMH\">"]);
+
+    # What metadata sets to support is collection specific and is specified in each collection's buildConfig.xml file. To support other metadata schema, simply add an OAIMetadataFormat element here.
+    # The support of unqualified Dublin Core metadata set is mendatory in the oai specification.
+    &write_line('COLCFG', ["<OAIMetadataFormat name=\"Dublin Core\">"]);
+    &write_line('COLCFG', ["<metadataPrefix>oai_dc</metadataPrefix>"]);
+    &write_line('COLCFG', ["<metadataNamespace>dc</metadataNamespace>"]);
+    &write_line('COLCFG', ["</OAIMetadataFormat>"]);
+    
+    &write_line('COLCFG', ["</serviceRack>"]);
+        
     # do the search service 
     &write_line('COLCFG', ["<serviceRack name=\"GS2", $service_type, "Search\">"]);