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

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

Files:
1 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