Changeset 1503 for trunk/gsdl/perllib/plugins/ZIPPlug.pm
- Timestamp:
- 2000-09-06T10:45:00+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ZIPPlug.pm
r1424 r1503 91 91 # save current working directory 92 92 my $cwd = cwd(); 93 chdir ($tmpdir) || die ;93 chdir ($tmpdir) || die "Unable to change to $tmpdir"; 94 94 &util::cp ($filename, $tmpdir); 95 95 … … 104 104 } 105 105 106 chdir ($cwd) || die ;106 chdir ($cwd) || die "Unable to change back to $cwd"; 107 107 108 108 my $numdocs = &plugin::read ($pluginfo, "", $tmpdir, $metadata, $processor, $maxdocs); … … 118 118 my $self = shift (@_); 119 119 my ($file) = @_; 120 system ("bunzip $file"); 120 if (system ("bunzip $file")!=0) 121 { 122 &util::rm ($file); 123 } 121 124 } 122 125 … … 138 141 my $self = shift (@_); 139 142 my ($file) = @_; 140 system ("gunzip $file"); 143 if (system ("gunzip $file")!=0) 144 { 145 &util::rm ($file); 146 }; 141 147 } 142 148
Note:
See TracChangeset
for help on using the changeset viewer.