Ignore:
Timestamp:
2013-05-29T20:41:13+12:00 (11 years ago)
Author:
ak19
Message:

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

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.