Changeset 27501 for main

Timestamp:

2013-05-28T13:47:46+12:00 (11 years ago)

Author:

jmt12

Message:

Missed (another) old style file open that instead needs to go through FileUtils::openFileHandle() - this time for the doomed RSS file (which won't work properly in the HDFS collections due to the current lack of proper file append)

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -522 +522 @@
             # only if opening new file
         my $output_dir = $self->get_output_dir();
-        &util::mk_all_dir ($output_dir) unless -e $output_dir;
+        &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir;
         my $doc_file = &FileUtils::filenameConcatenate($output_dir, $doc_dir, "doc.xml");
         my $short_doc_file = &FileUtils::filenameConcatenate($doc_dir, "doc.xml");
@@ -661 +661 @@
     return if (!defined $output_dir);
 
-    &util::mk_all_dir ($output_dir) unless -e $output_dir;
+    &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir;
       
     my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir);
-    &util::mk_all_dir ($working_dir) unless -e $working_dir;
+    &FileUtils::makeAllDirectories($working_dir) unless -e $working_dir;
 
     my @assoc_files = ();
@@ -837 +837 @@
 
     my $rss_filename = &FileUtils::filenameConcatenate($output_dir,"rss-items.rdf");
-    if (open(RSSOUT,">>$rss_filename")) {
-        print RSSOUT "<item>\n";
-        print RSSOUT "   <title>$dc_title</title>\n";
-        print RSSOUT "   <link>_httpdomain__httpcollection_/document/$oid</link>\n";
-        print RSSOUT "</item>\n";
-        close(RSSOUT);
+        my $rss_fh;
+    if (&FileUtils::openFileHandle($rss_filename, '>>', \$rss_fh)) {
+        print $rss_fh "<item>\n";
+        print $rss_fh "   <title>$dc_title</title>\n";
+        print $rss_fh "   <link>_httpdomain__httpcollection_/document/$oid</link>\n";
+        print $rss_fh "</item>\n";
+        &FileUtils::closeFileHandle($rss_fh);
     }
     else {