Changeset 21916

Timestamp:

2010-04-20T13:10:05+12:00 (14 years ago)

Author:

kjdon

Message:

made this work with a user specified process_exp so that your metadata files don't have to be named metadata.xml

File:

• main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm

@@ -163 +163 @@
 }
 
+sub get_doctype {
+    my $self = shift(@_);
+    
+    return "(Greenstone)?DirectoryMetadata"
+}
+
+sub can_process_this_file {
+    my $self = shift(@_);
+    my ($filename) = @_;
+
+    if (-f $filename && $self->SUPER::can_process_this_file($filename) && $self->check_doctype($filename)) {
+    return 1; # its a file for us
+    }
+    return 0;
+}
+
+sub check_doctype {
+    my $self = shift (@_);
+    
+    my ($filename) = @_;
+
+    if (open(XMLIN,"<$filename")) {
+    my $doctype = $self->get_doctype();
+    ## check whether the doctype has the same name as the root element tag
+    while (defined (my $line = <XMLIN>)) {
+        ## find the root element
+        if ($line =~ /<([\w\d:]+)[\s>]/){
+        my $root = $1;
+        if ($root !~ $doctype){
+            close(XMLIN);
+            return 0;
+        }
+        else {
+            close(XMLIN); 
+            return 1;
+        }
+        }
+    }
+    close(XMLIN);
+    }
+    
+    return undef; # haven't found a valid line
+    
+}
 
 sub file_block_read {
@@ -168 +212 @@
     my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;
 
-    my $filename = &util::filename_cat($base_dir, $file);
-    if ($filename !~ /metadata\.xml$/ || !-f $filename) {
-        return undef;
-    }
-
-    $block_hash->{'metadata_files'}->{$filename} = 1;
+    my $filename_full_path = &util::filename_cat($base_dir, $file);
+    return undef unless $self->can_process_this_file($filename_full_path);    
+
+    $block_hash->{'metadata_files'}->{$filename_full_path} = 1;
 
     return 1;
@@ -186 +228 @@
 
     my $filename = &util::filename_cat($base_dir, $file);
-    if ($filename !~ /metadata\.xml$/ || !-f $filename) {
-        return undef;
-    }
+    return undef unless $self->can_process_this_file($filename);    
 
     $self->{'metadata-file'} = $file;
     $self->{'metadata-filename'} = $filename;
-
 
     my $outhandle = $self->{'outhandle'};
@@ -328 +367 @@
 }
 
-#sub combine_metadata_structures
-#{
-#    my $self = shift(@_);
-#
-#    my ($mdref1, $mdref2) = @_;
-#    &metadatautil::combine_metadata_structures($mdref1, $mdref2);
-#}