Changeset 27505 for main/trunk
- Timestamp:
- 2013-05-29T09:51:07+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r27504 r27505 522 522 # only if opening new file 523 523 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); 525 525 my $doc_file = &FileUtils::filenameConcatenate($output_dir, $doc_dir, "doc.xml"); 526 526 my $short_doc_file = &FileUtils::filenameConcatenate($doc_dir, "doc.xml"); … … 675 675 return if (!defined $output_dir); 676 676 677 &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir;677 &FileUtils::makeAllDirectories($output_dir) unless &FileUtils::directoryExists($output_dir); 678 678 679 679 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); 681 681 682 682 my @assoc_files = (); … … 719 719 $real_filename = &util::downgrade_if_dos_filename($real_filename); 720 720 721 if ( -e $real_filename) {721 if (&FileUtils::fileExists($real_filename)) { 722 722 723 723 $filename = &FileUtils::filenameConcatenate($working_dir, $afile); … … 766 766 my $raw_filename = &util::downgrade_if_dos_filename($real_filename); 767 767 768 if ( -e $raw_filename) {768 if (&FileUtils::fileExists($raw_filename)) { 769 769 770 770 # if (defined $collect_dir) { … … 909 909 my ($output_file_name, $xslt_file)=@_; 910 910 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); 912 912 913 913 my $java_class_path = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"bin","java","ApplyXSLT.jar"); … … 983 983 $doc_file .= ".gz"; 984 984 $short_doc_file .= ".gz"; 985 if (! -e $doc_file) {985 if (!&FileUtils::fileExists($doc_file)) { 986 986 my $outhandle = $self->{'output_handle'}; 987 987 print $outhandle "error while gzipping: $doc_file doesn't exist\n";
Note:
See TracChangeset
for help on using the changeset viewer.