Changeset 1503

Timestamp:

2000-09-06T10:45:00+12:00 (24 years ago)

Author:

davidb

Message:

A bit of extra error checking.

File:

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

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -91 +91 @@
     # save current working directory
     my $cwd = cwd();
-    chdir ($tmpdir) || die;
+    chdir ($tmpdir) || die "Unable to change to $tmpdir";
     &util::cp ($filename, $tmpdir);
     
@@ -104 +104 @@
     }
 
-    chdir ($cwd) || die;
+    chdir ($cwd) || die "Unable to change back to $cwd";
 
     my $numdocs = &plugin::read ($pluginfo, "", $tmpdir, $metadata, $processor, $maxdocs);
@@ -118 +118 @@
     my $self = shift (@_);
     my ($file) = @_;
-    system ("bunzip $file");
+    if (system ("bunzip $file")!=0)
+    {
+    &util::rm ($file);
+    }
 }
 
@@ -138 +141 @@
     my $self = shift (@_);
     my ($file) = @_;
-    system ("gunzip $file");
+    if (system ("gunzip $file")!=0)
+    {
+    &util::rm ($file);
+    };
 }