Changeset 1754

Timestamp:

2000-12-07T11:44:54+13:00 (23 years ago)

Author:

say1

Message:

added support for jar files (which are actually just fancy zip files)

File:

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

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -30 +30 @@
 # gzip (.gz, .z, .tgz, .taz)
 # bzip (.bz)
-# zip (.zip)
+# zip (.zip .jar)
 # tar (.tar)
 #
@@ -75 +75 @@
     my $outhandle = $self->{'outhandle'};
 
-    if ($file =~ /\.(gz|tgz|z|taz|bz|zip|tar)$/i) {
+    if ($file =~ /\.(gz|tgz|z|taz|bz|zip|jar|tar)$/i) {
 
     my $filename = &util::filename_cat ($base_dir, $file);
@@ -96 +96 @@
     if ($file =~ /\.bz$/i) {
         $self->bunzip ($file_only);
-    } elsif ($file =~ /\.zip$/i) {
+    } elsif ($file =~ /\.(zip|jar)$/i) {
         $self->unzip ($file_only);
     } elsif ($file =~ /\.tar$/i) {