Changeset 28285


Ignore:
Timestamp:
09/17/13 14:14:09 (8 years ago)
Author:
ak19
Message:

Deprecated util:: subroutines replaced with their FileUtils equivalents

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

    r24225 r28285  
    190190    my ($file_only) = $file =~ /([^\\\/]*)$/;
    191191    my $tmpdir = &util::get_tmp_filename ();
    192     &util::mk_all_dir ($tmpdir);
     192    &FileUtils::makeAllDirectories ($tmpdir);
    193193   
    194194    $self->open_document();
     
    197197    my $cwd = getcwd();
    198198    chdir ($tmpdir) || die "Unable to change to $tmpdir";
    199     &util::cp ($filename_full_path, $tmpdir);
     199    &FileUtils::copyFiles ($filename_full_path, $tmpdir);
    200200   
    201201    $self->unzip ("\"$file_only\"");
     
    208208   
    209209    chdir ($cwd) || die "Unable to change back to $cwd";
    210     &util::rm_r ($tmpdir);
     210    &FileUtils::removeFilesRecursive ($tmpdir);
    211211   
    212212    };
     
    242242
    243243    system ("unzip $file");
    244     &util::rm ($file) if -e $file;
     244    &FileUtils::removeFiles ($file) if -e $file;
    245245}
    246246
Note: See TracChangeset for help on using the changeset viewer.