Changeset 27509


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.

Location:
main/trunk/greenstone2
Files:
5 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

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