Changeset 13148

Timestamp:

2006-10-20T12:37:50+13:00 (18 years ago)

Author:

shaoqun

Message:

added code to check whether its subclass can parse a doc type before parsing

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -79 +79 @@
                         'Entity' => \&Entity,
                         'Doctype' => \&Doctype,
-                        'Default' => \&Default
-                        });  
+                        'Default' => \&Default,
+                        });  
+
     $self->{'parser'} = $parser;
 
@@ -168 +169 @@
     $self->{'processor'} = $processor;
     $self->{'metadata'} = $metadata;
+
+
+    ##call the inheriting plugin's get_doctype method to decide whether to carry on the parsing
+    if (open(XMLIN,"<$filename")) {
+    my $doctype = $self->get_doctype();
+    ## check whether the doctype have the same name as the root element tag
+    while (defined (my $line = <XMLIN>)) {
+        ## find the root element
+         if ($line =~ /<(\w+)[\s>]/){
+        my $root = $1;
+        if ($root !~ $doctype){
+            close(XMLIN);
+            return undef;
+        }
+        else{
+            close(XMLIN); 
+            last;
+        }
+        }
+    }
+}
+
 
     eval {
@@ -275 +298 @@
 sub xml_doctype {
     my $self = shift(@_);
+
     my ($expat, $name, $sysid, $pubid, $internal) = @_;
     die "XMLPlug Cannot process XML document with DOCTYPE of $name";
 }
+
+# the inheriting class must implement this method to tell whether to parse this doc type
+sub get_doctype {
+    my $self = shift(@_);
+    die "The inheriting class must implement this method";
+}
+
+
 
 # Called for every start tag. The $_ variable will contain a copy of the