Changeset 27501 for main/trunk/greenstone2/perllib/plugouts
- Timestamp:
- 2013-05-28T13:47:46+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r27500 r27501 522 522 # only if opening new file 523 523 my $output_dir = $self->get_output_dir(); 524 & util::mk_all_dir($output_dir) unless -e $output_dir;524 &FileUtils::makeAllDirectories($output_dir) unless -e $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"); … … 661 661 return if (!defined $output_dir); 662 662 663 & util::mk_all_dir($output_dir) unless -e $output_dir;663 &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir; 664 664 665 665 my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir); 666 & util::mk_all_dir($working_dir) unless -e $working_dir;666 &FileUtils::makeAllDirectories($working_dir) unless -e $working_dir; 667 667 668 668 my @assoc_files = (); … … 837 837 838 838 my $rss_filename = &FileUtils::filenameConcatenate($output_dir,"rss-items.rdf"); 839 if (open(RSSOUT,">>$rss_filename")) { 840 print RSSOUT "<item>\n"; 841 print RSSOUT " <title>$dc_title</title>\n"; 842 print RSSOUT " <link>_httpdomain__httpcollection_/document/$oid</link>\n"; 843 print RSSOUT "</item>\n"; 844 close(RSSOUT); 839 my $rss_fh; 840 if (&FileUtils::openFileHandle($rss_filename, '>>', \$rss_fh)) { 841 print $rss_fh "<item>\n"; 842 print $rss_fh " <title>$dc_title</title>\n"; 843 print $rss_fh " <link>_httpdomain__httpcollection_/document/$oid</link>\n"; 844 print $rss_fh "</item>\n"; 845 &FileUtils::closeFileHandle($rss_fh); 845 846 } 846 847 else {
Note:
See TracChangeset
for help on using the changeset viewer.