Changeset 2925 for trunk/gsdl/perllib/plugins/GAPlug.pm

Timestamp:

2002-01-30T14:23:31+13:00 (22 years ago)

Author:

sjboddie

Message:

Altered the format of the GreenstoneArchive and GreenstoneDirectoryMetadata
XML files slightly (they're now called Archive and DirectoryMetadata
respectively).

File:

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

trunk/gsdl/perllib/plugins/GAPlug.pm

@@ -24 +24 @@
 ###########################################################################
 
-# Processes GreenstoneArchive XML documents. Note that this plugin does no
-# syntax checking (though the XML::Parser module tests for
-# well-formedness). It's assumed that the GreenstoneArchive files conform
-# to their DTD.
+# Processes Greenstone Archive XML documents. Note that this plugin does no
+# syntax checking (though the XML::Parser module tests for well-formedness).
+# It's assumed that the Archive files conform to their DTD.
 
 package GAPlug;
@@ -60 +59 @@
     my ($expat, $name, $sysid, $pubid, $internal) = @_;
 
-    die "" if ($name ne "GreenstoneArchive");
+    # allow the short-lived and badly named "GreenstoneArchive" files to be processed
+    # as well as the "Archive" files which should now be created by import.pl
+    die "" if ($name !~ /^(Greenstone)?Archive$/);
+
     my $outhandle = $self->{'outhandle'};
     print $outhandle "GAPLug: processing $self->{'file'}\n";