Changeset 28285

Show
Ignore:
Timestamp:
17.09.2013 14:14:09 (6 years ago)
Author:
ak19
Message:

Deprecated util:: subroutines replaced with their FileUtils? equivalents

Files:
1 modified

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