Changeset 27299 for main/trunk/greenstone2/perllib/manifest.pm

Timestamp:

2013-05-06T14:59:03+12:00 (11 years ago)

Author:

jmt12

Message:

Extending manifest parsing with the idea of a manifest having a version number as an attribute on the <Manifest> element. Mainfest version 2 is expected to be followed verbatim - i.e. disable global file scan and metadata search

File:

• main/trunk/greenstone2/perllib/manifest.pm (modified) (6 diffs)

main/trunk/greenstone2/perllib/manifest.pm

@@ -25 +25 @@
 ###########################################################################
 
-
 package manifest;
 
@@ -41 +40 @@
 
     $self = {} ;
-
+    # we can now mark a manifest with a version number
+    $self->{'version'} = 1;
     $self->{'index'} = {};
     $self->{'reindex'} = {};
@@ -64 +64 @@
     return bless $self, $class;
 }
+
+# /** @function get_version()
+#  */
+sub get_version
+{
+  my $self = shift(@_);
+  return $self->{'version'};
+}
+# /** get_version() **/
 
 sub parse
@@ -134 +143 @@
     my $self = shift(@_);
     my ($expat, $element) = @_;
+    my $attributes = \%_;
 
     if (($element eq "Filename") || ($element eq "OID"))
@@ -139 +149 @@
     $self->{'item-val'} = "";
     }
-    elsif ($element eq "Manifest") {
+    elsif ($element eq "Manifest")
+    {
+      if (defined $attributes->{'version'})
+      {
+        $self->{'version'} = $attributes->{'version'};
+      }
     }
     else
@@ -148 +163 @@
         print STDERR "         Unrecognized element $element nested inside " . $self->{'file-type'} . ".\n";
     }
-    else {
+    else
+        {
         my $filetype = lc($element);
         $self->{'file-type'} = $filetype;
-        if (!defined $self->{$filetype}) {
+        if (!defined $self->{$filetype})
+            {
         print STDERR "Warning: <$element> is not one of the registered tags for manifest format.\n";
         }