Changeset 10218 for trunk/gsdl/perllib/plugins/XMLPlug.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

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

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -28 +28 @@
 use BasPlug;
 use doc;
+#$%^
+use parse2;
 
 sub BEGIN {
@@ -57 +59 @@
 our ($self);
 sub new {
-    my $class = shift (@_);
-
+    my ($class) = shift (@_);
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    
     # $self is global for use within subroutines called by XML::Parser
-    $self = new BasPlug ($class, @_);
-    $self->{'plugin_type'} = "XMLPlug";
-    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
-    my $option_list = $self->{'option_list'};
-    push( @{$option_list}, $options );
-    
-    if (!parsargv::parse(\@_, 
-             q^xslt/.*/^, \$self->{'xslt'},
-             "allow_extra_options")) {
-
-    print STDERR "\nIncorrect options passed to XSLTPlug, check your collect.cfg configuration file\n";
-    $self->print_txt_usage("");  # Use default resource bundle
-    die "\n";
-    }
-
+    $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
 
     my $parser = new XML::Parser('Style' => 'Stream',
@@ -82 +75 @@
                         'Doctype' => \&Doctype,
                         'Default' => \&Default
-                        });
-
-    
-                
+                        });  
     $self->{'parser'} = $parser;