Changeset 3540 for trunk/gsdl/perllib/plugins/ZIPPlug.pm

Timestamp:

2002-11-18T17:43:56+13:00 (22 years ago)

Author:

kjdon

Message:

added John T's changes into CVS - added info to enable retrieval of usage info in xml

File:

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

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -43 +43 @@
 # tar (for tar) 
 
+# 12/05/02 Added usage datastructure - John Thompson
+
 package ZIPPlug;
 
@@ -55 +57 @@
 }
 
+my $options = { 'name'     => "ZIPPlug",
+                 'desc'     => "Plugin which handles compressed and/or archived input formats currently handled formats and file extensions are:\ngzip (.gz, .z, .tgz, .taz)\nbzip (.bz)\nbzip2 (.bz2)\nzip (.zip .jar)\ntar (.tar)\n\nThis plugin relies on the following utilities being present (if trying to process the corresponding formats):\ngunzip (for gzip)\nbunzip (for bzip)\nbunzip2 \nunzip (for zip)\ntar (for tar)",
+                     'inherits' => "yes" };
+
 sub new {
     my ($class) = @_;
     my $self = new BasPlug ("ZIPPlug", @_);
+
+     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+     my $option_list = $self->{'option_list'};
+     push( @{$option_list}, $options );
 
     return bless $self, $class;