Changeset 10218 for trunk/gsdl/perllib/plugins/ZIPPlug.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/ZIPPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -43 +43 @@
 # tar (for tar) 
 
-# 12/05/02 Added usage datastructure - John Thompson
 
 package ZIPPlug;
@@ -51 +50 @@
 use util;
 use Cwd;
+#$%^
+use parse2;
 
 
@@ -71 +72 @@
 
 sub new {
-    my ($class) = @_;
-    my $self = new BasPlug ("ZIPPlug", @_);
-    $self->{'plugin_type'} = "ZIPPlug";
-
-    # 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^process_exp/.*/^, \$self->{'process_exp'},
-             "allow_extra_options")) {
-    print STDERR "\nIncorrect options passed to ZIPPlug, check your collect.cfg configuration file\n";
-    $self->print_txt_usage("");  # Use default resource bundle
-        die "\n";
-    }
+
+    my ($class) = shift (@_);
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+
+    my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
 
     # BasPlug is explicitly set not to set process_exp if recursive plugin
     # Not sure of this reasoning.  Want it to be set in ZIPPlug, so explicitly
     # pass it in as default value
+    
+    ## do we need this???? --kjdon
     if (!$self->{'process_exp'}) {
     $self->{'process_exp'} = get_default_process_exp();