Changeset 27509

Show
Ignore:
Timestamp:
29.05.2013 20:41:13 (6 years ago)
Author:
ak19
Message:

Using the recommended FileUtils?.pm methods in place of the deprecated utils.pm methods.

Location:
main/trunk/greenstone2
Files:
5 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/gsConvert.pl

    r25798 r27509  
    5353use parsargv; 
    5454use util; 
     55use FileUtils; 
    5556use Cwd; 
    5657 
     
    149150    my ($tailname,$dirname,$suffix)  
    150151    = File::Basename::fileparse($input_filename, "\\.[^\\.]+\$"); 
    151     my $output_filestem = &util::filename_cat($dirname, "$tailname"); 
     152    my $output_filestem = &FileUtils::filenameConcatenate($dirname, "$tailname"); 
    152153 
    153154    if ($input_type eq "") 
     
    383384        $ppt_convert_type = "-p"; 
    384385    } 
    385     my $vbScript = &util::filename_cat($ENV{'GSDLHOME'}, "bin", 
     386    my $vbScript = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "bin", 
    386387                       $ENV{'GSDLOS'}, "pptextract"); 
    387388    $vbScript = "pptextract" if ($ENV{'GSDLOS'} =~ m/^windows$/i); 
     
    539540 
    540541    # build up the path to the doc-to-html conversion tool we're going to use 
    541     my $vbScript = &util::filename_cat($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}); 
     542    my $vbScript = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}); 
    542543 
    543544    if ($ENV{'GSDLOS'} =~ m/^windows$/i) { 
     
    547548        if($input_filename =~ m/docx$/i) {  # need to use full path to docx2html script,  
    548549                                            # else script launch fails when there are error msgs 
    549             $vbScript = &util::filename_cat($vbScript, "docx2html.vbs");  
     550            $vbScript = &FileUtils::filenameConcatenate($vbScript, "docx2html.vbs");  
    550551            $vbScript = "CScript //Nologo \"$vbScript\"";   # launche with CScript for error output in STDERR 
    551552                                    # //Nologo flag avoids Microsoft's opening/logo msgs 
     
    555556        else {  # old doc versions. use the usual VB executable word2html for the 
    556557                # conversion. Doesn't need full path, since bin\windows is on PATH           
    557             $vbScript = "word2html"; #$vbScript = "\"".&util::filename_cat($vbScript, "word2html")."\""; 
     558            $vbScript = "word2html"; #$vbScript = "\"".&FileUtils::filenameConcatenate($vbScript, "word2html")."\""; 
    558559        } 
    559560    }  
    560561    else { # not windows 
    561         $vbScript = "\"".&util::filename_cat($vbScript, "word2html")."\""; 
     562        $vbScript = "\"".&FileUtils::filenameConcatenate($vbScript, "word2html")."\""; 
    562563    } 
    563564 
     
    616617    close(TMP); 
    617618    if ($line && $line =~ m/html/i) { 
    618         &util::rm("$output_filestem.err") if -e "$output_filestem.err"; 
     619        &FileUtils::removeFiles("$output_filestem.err") if -e "$output_filestem.err"; 
    619620        return 1; 
    620621    } 
     
    622623     
    623624    # If here, an error of some sort occurred 
    624     &util::rm("$output_filestem.html") if -e "$output_filestem.html"; 
     625    &FileUtils::removeFiles("$output_filestem.html") if -e "$output_filestem.html"; 
    625626    if (-e "$output_filestem.err") { 
    626627    if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile"))) { 
     
    630631        close ERRLOG; 
    631632    } 
    632     &util::rm("$output_filestem.err"); 
     633    &FileUtils::removeFiles("$output_filestem.err"); 
    633634    } 
    634635    return 0; 
     
    684685 
    685686    if ($was_successful) { 
    686     &util::rm("$output_filestem.err") 
     687    &FileUtils::removeFiles("$output_filestem.err") 
    687688        if (-e "$output_filestem.err"); 
    688689    # insert the (modified) table of contents, if it exists. 
    689690    if (-e "${output_filestem}_ToC.html") { 
    690         &util::mv("$output_filestem.html","$output_filestem.src"); 
     691        &FileUtils::moveFiles("$output_filestem.html","$output_filestem.src"); 
    691692        my $open_failed=0; 
    692693        open HTMLSRC, "$output_filestem.src" || ++$open_failed; 
     
    698699        close TOC; 
    699700        close HTML; 
    700         &util::mv("$output_filestem.src","$output_filestem.html"); 
     701        &FileUtils::moveFiles("$output_filestem.src","$output_filestem.html"); 
    701702        return 1; 
    702703        } 
     
    726727        close HTML; 
    727728 
    728         &util::rm("${output_filestem}_ToC.html"); 
    729         &util::rm("${output_filestem}.src"); 
     729        &FileUtils::removeFiles("${output_filestem}_ToC.html"); 
     730        &FileUtils::removeFiles("${output_filestem}.src"); 
    730731    } 
    731732    # we don't yet do anything with footnotes ($output_filestem_fn.html) :( 
     
    744745        close FAILLOG; 
    745746    } 
    746     &util::rm("$output_filestem.err"); 
    747     } 
    748  
    749     &util::rm("$output_filestem.html") if (-e "$output_filestem.html"); 
     747    &FileUtils::removeFiles("$output_filestem.err"); 
     748    } 
     749 
     750    &FileUtils::removeFiles("$output_filestem.html") if (-e "$output_filestem.html"); 
    750751 
    751752    return 0; 
     
    787788    if ($retval!=0 || ! -s "$output_filestem.html") 
    788789    { 
    789     &util::rm("$output_filestem.out") if (-e "$output_filestem.out"); 
     790    &FileUtils::removeFiles("$output_filestem.out") if (-e "$output_filestem.out"); 
    790791    # print out the converter's std err, if any 
    791792    if (-s "$output_filestem.err") { 
     
    798799    } 
    799800    #print STDERR "***********output filestem $output_filestem.html\n"; 
    800     &util::rm("$output_filestem.html") if (-e "$output_filestem.html"); 
     801    &FileUtils::removeFiles("$output_filestem.html") if (-e "$output_filestem.html"); 
    801802    if (-e "$output_filestem.err") { 
    802803        if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile"))) 
     
    807808        close FAILLOG; 
    808809        }    
    809         &util::rm("$output_filestem.err"); 
     810        &FileUtils::removeFiles("$output_filestem.err"); 
    810811    } 
    811812    return 0; 
    812813    } 
    813814 
    814     &util::rm("$output_filestem.err") if (-e "$output_filestem.err"); 
    815     &util::rm("$output_filestem.out") if (-e "$output_filestem.out"); 
     815    &FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 
     816    &FileUtils::removeFiles("$output_filestem.out") if (-e "$output_filestem.out"); 
    816817    return 1; 
    817818} 
     
    873874    if ($retval !=0)  
    874875    { 
    875     &util::rm("$output_filestem.out") if (-e "$output_filestem.out"); 
     876    &FileUtils::removeFiles("$output_filestem.out") if (-e "$output_filestem.out"); 
    876877    #print out the converter's std err, if any 
    877878    if (-s "$output_filestem.err") { 
     
    883884        close ERRLOG; 
    884885    } 
    885     #&util::rm("$output_filestem.html") if (-e "$output_filestem.html"); 
     886    #&FileUtils::removeFiles("$output_filestem.html") if (-e "$output_filestem.html"); 
    886887    if (-e "$output_filestem.err") { 
    887888        if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile"))) 
     
    892893        close FAILLOG; 
    893894       }     
    894         &util::rm("$output_filestem.err"); 
     895        &FileUtils::removeFiles("$output_filestem.err"); 
    895896    } 
    896897    return 0; 
    897898    } 
    898     &util::rm("$output_filestem.err") if (-e "$output_filestem.err"); 
    899     &util::rm("$output_filestem.out") if (-e "$output_filestem.out"); 
     899    &FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 
     900    &FileUtils::removeFiles("$output_filestem.out") if (-e "$output_filestem.out"); 
    900901    return 1; 
    901902} 
     
    917918    { 
    918919    print STDERR "Error executing $cmd: $!\n"; 
    919     &util::rm("$output_filestem.text") if (-e "$output_filestem.text"); 
     920    &FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text"); 
    920921    } 
    921922 
     
    932933    if ($seen_text==0) { # no text was extracted 
    933934        print STDERR "Error: pdftotext found no text\n"; 
    934         &util::rm("$output_filestem.text"); 
     935        &FileUtils::removeFiles("$output_filestem.text"); 
    935936    } 
    936937    } 
     
    949950    } 
    950951    # does this converter create a .out file? 
    951     &util::rm("$output_filestem.out") if (-e "$output_filestem.out"); 
    952     &util::rm("$output_filestem.text") if (-e "$output_filestem.text"); 
     952    &FileUtils::removeFiles("$output_filestem.out") if (-e "$output_filestem.out"); 
     953    &FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text"); 
    953954    if (-e "$output_filestem.err") { 
    954955        if ($faillogfile ne "" && defined(open(FAILLOG,">>$faillogfile"))) 
     
    959960        close FAILLOG; 
    960961        } 
    961         &util::rm("$output_filestem.err"); 
     962        &FileUtils::removeFiles("$output_filestem.err"); 
    962963    } 
    963964    return 0; 
    964965    } 
    965     &util::rm("$output_filestem.err") if (-e "$output_filestem.err"); 
     966    &FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 
    966967    return 1; 
    967968} 
     
    10131014    { 
    10141015    print STDERR "Warning: Error executing gs: $error\n"; 
    1015     &util::rm("$output_filestem.text") if (-e "$output_filestem.text"); 
     1016    &FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text"); 
    10161017 
    10171018    if ("$faillogfile" ne "" && defined(open (FAILLOG, ">>$faillogfile"))) 
     
    10251026        close FAILLOG; 
    10261027    } 
    1027     &util::rm("$output_filestem.err") if (-e "$output_filestem.err"); 
     1028    &FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 
    10281029 
    10291030 
     
    11121113    # wrap the text - use a minimum length. ie, first space after this length. 
    11131114    my $wrap_length=72; 
    1114     &util::mv("$output_filestem.text", "$output_filestem.text.tmp"); 
     1115    &FileUtils::moveFiles("$output_filestem.text", "$output_filestem.text.tmp"); 
    11151116    open INFILE, "$output_filestem.text.tmp" || 
    11161117    die "Couldn't open file: $!"; 
     
    11311132    close INFILE; 
    11321133    close OUTFILE; 
    1133     &util::rm("$output_filestem.text.tmp"); 
    1134  
    1135     &util::rm("$output_filestem.err") if (-e "$output_filestem.err"); 
     1134    &FileUtils::removeFiles("$output_filestem.text.tmp"); 
     1135 
     1136    &FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 
    11361137    return 1; 
    11371138} 
     
    11711172    close TEXT; 
    11721173 
    1173     &util::rm("$output_filestem.text") if (-e "$output_filestem.text"); 
     1174    &FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text"); 
    11741175    return 1; 
    11751176} 
     
    12241225    } 
    12251226 
    1226     &util::rm("$output_filestem.text"); 
     1227    &FileUtils::removeFiles("$output_filestem.text"); 
    12271228    return 0; 
    12281229 
  • main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm

    r24350 r27509  
    117117    } 
    118118 
    119     my $base_output_dir = &util::filename_cat($collect_dir,"cached",$dirname); 
     119    my $base_output_dir = &FileUtils::filenameConcatenate($collect_dir,"cached",$dirname); 
    120120 
    121121    if (!-e $base_output_dir ) { 
     
    123123        if ($verbosity>2); 
    124124 
    125     &util::mk_all_dir($base_output_dir); 
    126     } 
    127  
    128     my $output_dir = &util::filename_cat($base_output_dir,$file_root); 
     125    &FileUtils::makeAllDirectories($base_output_dir); 
     126    } 
     127 
     128    my $output_dir = &FileUtils::filenameConcatenate($base_output_dir,$file_root); 
    129129 
    130130    if (!-e $output_dir) { 
     
    132132        if ($verbosity>2); 
    133133 
    134     &util::mk_dir($output_dir); 
     134    &FileUtils::makeAllDirectories($output_dir); 
    135135    } 
    136136 
  • main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm

    r26893 r27509  
    4545no strict 'subs'; 
    4646use util; 
     47use FileUtils; 
    4748 
    4849 
     
    108109    my $colplugname = undef; 
    109110    if (defined $ENV{'GSDLCOLLECTDIR'}) { 
    110         $colplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 
     111        $colplugname = &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'}, 
    111112                           "perllib","plugins",  
    112113                           $plugin_package); 
    113114    } 
    114115 
    115     my $mainplugname = &util::filename_cat($ENV{'GSDLHOME'}, 
     116    my $mainplugname = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, 
    116117                           "perllib","plugins",  
    117118                           $plugin_package); 
     
    255256 
    256257    my $lc_suffix = lc($suffix); 
    257     my $tmp_filename = &util::filename_cat($tmp_dirname, "$utf8_tailname$lc_suffix"); 
     258    my $tmp_filename = &FileUtils::filenameConcatenate($tmp_dirname, "$utf8_tailname$lc_suffix"); 
    258259     
    259260    # If gsdl is remote, we're given relative path to input file, of the form import/tailname.suffix 
     
    261262    # the input_filename is the absolute path, see http://perldoc.perl.org/File/Spec.html 
    262263    my $ensure_path_absolute = 1; # true 
    263     &util::soft_link($input_filename, $tmp_filename, $ensure_path_absolute); 
     264    &FileUtils::softLink($input_filename, $tmp_filename, $ensure_path_absolute); 
    264265    my $verbosity = $self->{'verbosity'}; 
    265266    if ($verbosity > 0) { 
     
    267268    } 
    268269 
    269     my $errlog = &util::filename_cat($tmp_dirname, "err.log"); 
     270    my $errlog = &FileUtils::filenameConcatenate($tmp_dirname, "err.log"); 
    270271     
    271272    # Execute the conversion command and get the type of the result, 
     
    290291     
    291292    # remove symbolic link to original file 
    292     &util::rm($tmp_filename); 
     293    &FileUtils::removeFiles($tmp_filename); 
    293294     
    294295    # Check STDERR here 
     
    307308        close ERRLOG; 
    308309    } 
    309     &util::rm("$errlog") if (-e "$errlog"); 
     310    &FileUtils::removeFiles("$errlog") if (-e "$errlog"); 
    310311    return ""; 
    311312    } 
     
    364365    } 
    365366    else { 
    366         &util::mv("${conv_filename}.tmp", $conv_filename); 
     367        &FileUtils::moveFiles("${conv_filename}.tmp", $conv_filename); 
    367368    }    
    368369    } 
     
    460461    # associate original file with doc object 
    461462    my $cursection = $doc_obj->get_top_section(); 
    462     my $filename = &util::filename_cat($base_dir, $file); 
     463    my $filename = &FileUtils::filenameConcatenate($base_dir, $file); 
    463464    my $assocfilename = "doc.$doc_ext"; 
    464465    if ($self->{'keep_original_filename'} == 1) { 
     
    489490     if (defined $tmp_dir && -d $tmp_dir) { 
    490491     ##print STDERR "**** Suppressing clean up of tmp dir\n"; 
    491      &util::rm_r($tmp_dir); 
     492     &FileUtils::removeFilesRecursive($tmp_dir); 
    492493     $self->{'tmp_dir'} = undef; 
    493494     } 
  • main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

    r26222 r27509  
    425425    close BACKUP; 
    426426    &File::Copy::copy ($backup_filename, $filename); 
    427     &util::rm($backup_filename); 
     427    &FileUtils::removeFiles($backup_filename); 
    428428 
    429429} 
     
    643643 
    644644    if ($line =~ /imgfile=\"([^\"]+)\"/) { 
    645         &util::block_filename($block_hash,&util::filename_cat($dir,$1)); 
     645        &util::block_filename($block_hash,&FileUtils::filenameConcatenate($dir,$1)); 
    646646    } 
    647647    if ($line =~ /txtfile=\"([^\"]+)\"/) { 
    648         &util::block_filename($block_hash,&util::filename_cat($dir,$1)); 
     648        &util::block_filename($block_hash,&FileUtils::filenameConcatenate($dir,$1)); 
    649649    } 
    650650    } 
     
    672672    # find the image file if there is one 
    673673    if (defined $imgname && $imgname ne "") { 
    674         &util::block_filename($block_hash, &util::filename_cat( $dir,$imgname)); 
     674        &util::block_filename($block_hash, &FileUtils::filenameConcatenate( $dir,$imgname)); 
    675675    } 
    676676    # find the text file if there is one 
    677677    if (defined $txtname && $txtname ne "") { 
    678         &util::block_filename($block_hash, &util::filename_cat($dir,$txtname)); 
     678        &util::block_filename($block_hash, &FileUtils::filenameConcatenate($dir,$txtname)); 
    679679    } 
    680680    } 
  • main/trunk/greenstone2/perllib/util.pm

    r27374 r27509  
    2727 
    2828use strict; 
     29use FileUtils; 
    2930 
    3031use Encode; 
     
    238239 
    239240    $tmp_dirname = &FileUtils::filenameConcatenate($tmp_dirname, "tmp"); 
    240     &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 
     241    &FileUtils::makeDirectory($tmp_dirname) if (!-e $tmp_dirname); 
    241242 
    242243    # add the timestamp into the path otherwise we can run into problems  
     
    250251    $i++; 
    251252    } 
    252     &util::mk_dir($tmp_dirname); 
     253    &FileUtils::makeDirectory($tmp_dirname); 
    253254  
    254255    return $tmp_dirname;