Changeset 2925 for trunk/gsdl/perllib/plugins/GAPlug.pm
- Timestamp:
- 2002-01-30T14:23:31+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GAPlug.pm
r2812 r2925 24 24 ########################################################################### 25 25 26 # Processes GreenstoneArchive XML documents. Note that this plugin does no 27 # syntax checking (though the XML::Parser module tests for 28 # well-formedness). It's assumed that the GreenstoneArchive files conform 29 # to their DTD. 26 # Processes Greenstone Archive XML documents. Note that this plugin does no 27 # syntax checking (though the XML::Parser module tests for well-formedness). 28 # It's assumed that the Archive files conform to their DTD. 30 29 31 30 package GAPlug; … … 60 59 my ($expat, $name, $sysid, $pubid, $internal) = @_; 61 60 62 die "" if ($name ne "GreenstoneArchive"); 61 # allow the short-lived and badly named "GreenstoneArchive" files to be processed 62 # as well as the "Archive" files which should now be created by import.pl 63 die "" if ($name !~ /^(Greenstone)?Archive$/); 64 63 65 my $outhandle = $self->{'outhandle'}; 64 66 print $outhandle "GAPLug: processing $self->{'file'}\n";
Note:
See TracChangeset
for help on using the changeset viewer.