Changeset 28285 for main/trunk

Timestamp:

2013-09-17T14:14:09+12:00 (11 years ago)

Author:

ak19

Message:

Deprecated util:: subroutines replaced with their FileUtils equivalents

File:

• main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

@@ -190 +190 @@
     my ($file_only) = $file =~ /([^\\\/]*)$/;
     my $tmpdir = &util::get_tmp_filename ();
-    &util::mk_all_dir ($tmpdir);
+    &FileUtils::makeAllDirectories ($tmpdir);
     
     $self->open_document();
@@ -197 +197 @@
     my $cwd = getcwd();
     chdir ($tmpdir) || die "Unable to change to $tmpdir";
-    &util::cp ($filename_full_path, $tmpdir);
+    &FileUtils::copyFiles ($filename_full_path, $tmpdir);
     
     $self->unzip ("\"$file_only\"");
@@ -208 +208 @@
     
     chdir ($cwd) || die "Unable to change back to $cwd";
-    &util::rm_r ($tmpdir);
+    &FileUtils::removeFilesRecursive ($tmpdir);
     
     };
@@ -242 +242 @@
 
     system ("unzip $file");
-    &util::rm ($file) if -e $file;
+    &FileUtils::removeFiles ($file) if -e $file;
 }