Changeset 27505

Show
Ignore:
Timestamp:
29.05.2013 09:51:07 (6 years ago)
Author:
jmt12
Message:

Closing the RSS filehandle with the new function in FileUtils? too

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r27504 r27505  
    522522            # only if opening new file 
    523523        my $output_dir = $self->get_output_dir(); 
    524         &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir; 
     524        &FileUtils::makeAllDirectories($output_dir) unless &FileUtils::directoryExists($output_dir); 
    525525        my $doc_file = &FileUtils::filenameConcatenate($output_dir, $doc_dir, "doc.xml"); 
    526526        my $short_doc_file = &FileUtils::filenameConcatenate($doc_dir, "doc.xml"); 
     
    675675    return if (!defined $output_dir); 
    676676 
    677     &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir; 
     677    &FileUtils::makeAllDirectories($output_dir) unless &FileUtils::directoryExists($output_dir); 
    678678       
    679679    my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir); 
    680     &FileUtils::makeAllDirectories($working_dir) unless -e $working_dir; 
     680    &FileUtils::makeAllDirectories($working_dir) unless &FileUtils::directoryExists($working_dir); 
    681681 
    682682    my @assoc_files = (); 
     
    719719    $real_filename = &util::downgrade_if_dos_filename($real_filename); 
    720720 
    721     if (-e $real_filename) { 
     721    if (&FileUtils::fileExists($real_filename)) { 
    722722 
    723723        $filename = &FileUtils::filenameConcatenate($working_dir, $afile); 
     
    766766    my $raw_filename = &util::downgrade_if_dos_filename($real_filename); 
    767767 
    768     if (-e $raw_filename) { 
     768    if (&FileUtils::fileExists($raw_filename)) { 
    769769 
    770770#       if (defined $collect_dir) { 
     
    909909    my ($output_file_name, $xslt_file)=@_; 
    910910 
    911     return unless defined $xslt_file and $xslt_file ne "" and -e $xslt_file; 
     911    return unless defined $xslt_file and $xslt_file ne "" and &FileUtils::fileExists($xslt_file); 
    912912     
    913913    my $java_class_path =  &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"bin","java","ApplyXSLT.jar"); 
     
    983983    $doc_file .= ".gz"; 
    984984    $short_doc_file .= ".gz"; 
    985     if (!-e $doc_file) { 
     985    if (!&FileUtils::fileExists($doc_file)) { 
    986986         my $outhandle = $self->{'output_handle'}; 
    987987        print $outhandle "error while gzipping: $doc_file doesn't exist\n";