Changeset 2082

Timestamp:

2001-02-28T15:59:12+13:00 (23 years ago)

Author:

jrm21

Message:

added bzip2 support (untested).

File:

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

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -30 +30 @@
 # gzip (.gz, .z, .tgz, .taz)
 # bzip (.bz)
+# bzip2 (.bz2)
 # zip (.zip .jar)
 # tar (.tar)
@@ -38 +39 @@
 # gunzip (for gzip)
 # bunzip (for bzip)
+# bunzip2 
 # unzip (for zip)
 # tar (for tar) 
@@ -82 +84 @@
     return undef if ($ENV{'GSDLOS'} =~ /^windows$/i);
 
-    if ($file =~ /\.(gz|tgz|z|taz|bz|zip|jar|tar)$/i) {
+    if ($file =~ /\.(gz|tgz|z|taz|bz|bz2|zip|jar|tar)$/i) {
 
     my $filename = &util::filename_cat ($base_dir, $file);
@@ -103 +105 @@
     if ($file =~ /\.bz$/i) {
         $self->bunzip ($file_only);
+    } elsif ($file =~ /\.bz2$/i) {
+        $self->bunzip2 ($file_only);
     } elsif ($file =~ /\.(zip|jar)$/i) {
         $self->unzip ($file_only);
@@ -126 +130 @@
     my ($file) = @_;
     if (system ("bunzip $file")!=0)
+    {
+    &util::rm ($file);
+    }
+}
+
+sub bunzip2 {
+    my $self = shift (@_);
+    my ($file) = @_;
+    if (system ("bunzip2 $file")!=0)
     {
     &util::rm ($file);