Changeset 28285
- Timestamp:
- 2013-09-17T14:14:09+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm
r24225 r28285 190 190 my ($file_only) = $file =~ /([^\\\/]*)$/; 191 191 my $tmpdir = &util::get_tmp_filename (); 192 & util::mk_all_dir($tmpdir);192 &FileUtils::makeAllDirectories ($tmpdir); 193 193 194 194 $self->open_document(); … … 197 197 my $cwd = getcwd(); 198 198 chdir ($tmpdir) || die "Unable to change to $tmpdir"; 199 & util::cp($filename_full_path, $tmpdir);199 &FileUtils::copyFiles ($filename_full_path, $tmpdir); 200 200 201 201 $self->unzip ("\"$file_only\""); … … 208 208 209 209 chdir ($cwd) || die "Unable to change back to $cwd"; 210 & util::rm_r($tmpdir);210 &FileUtils::removeFilesRecursive ($tmpdir); 211 211 212 212 }; … … 242 242 243 243 system ("unzip $file"); 244 & util::rm($file) if -e $file;244 &FileUtils::removeFiles ($file) if -e $file; 245 245 } 246 246
Note:
See TracChangeset
for help on using the changeset viewer.