Changeset 19751

Timestamp:

2009-06-08T12:37:56+12:00 (15 years ago)

Author:

davidb

Message:

Added new function read_collection_cfg() which uses the argument passed in (gs2 or gs3) to work out which read function to use

File:

• gsdl/trunk/perllib/colcfg.pm (modified) (2 diffs)

gsdl/trunk/perllib/colcfg.pm

@@ -93 +93 @@
                     q/^(collectionmeta)$/);
 }
+
 sub read_collection_cfg_xml {
     my ($filename) = @_;
@@ -98 +99 @@
     return &cfgread4gs3::read_cfg_file ($filename);
 }
+
+sub read_collection_cfg {
+    my ($filename,$gs_mode) = @_;
+    
+    my $collectcfg = undef;
+
+    if ($gs_mode eq "gs2") {
+    $collectcfg = &colcfg::read_collect_cfg ($filename);
+    } elsif ($gs_mode eq "gs3") {
+    $collectcfg = &colcfg::read_collection_cfg_xml ($filename);
+    }
+    else {
+    print STDERR "Failed to read collection configuration file\n";
+    print STDERR "  Unrecognized mode: $gs_mode\n";
+    }
+
+    return $collectcfg;
+}
+
+
+
 sub write_collection_cfg_xml {
  
 }
+
 sub write_build_cfg_xml {
     my ($buildoutfile, $buildcfg, $collectcfg, $disable_OAI) = @_;