Changeset 24958 for main/trunk/greenstone2/perllib/plugouts

Timestamp:

2012-01-20T16:22:35+13:00 (12 years ago)

Author:

ak19

Message:

First commit to do with Greenstone's support for RSS. Committing Dr Bainbridge's code which was already working for windows. This has now been tested on Linux, where it can be got to work with changes to zextra.dm and base.dm and if the rss-items.rdf file generated by the update to BasePlugout is moved to the index folder). The next set of commits will make the way rssaction.cpp accesses the rss-items.rdf file independent of where the GS server is located, with changes to the protocol class.

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

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

@@ -805 +805 @@
     ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";
 
+    if (($oid_files->{'index-status'} eq "I") || ($oid_files->{'index-status'} eq "R")) {
+    my $top_section = $doc_obj->get_top_section();
+
+    my $dc_titles = $doc_obj->get_metadata($top_section,"dls.Title");
+    my $dc_title = join("; ", @$dc_titles);
+
+    if ($oid_files->{'index-status'} eq "R") {
+        $dc_title .= " (Updated)";
+    }
+
+    my $rss_filename = &util::filename_cat($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);
+    }
+    else {
+        print STDERR "**** Failed to open $rss_filename\n!$\n";
+    }
+
+
+    }
+
     $oid_files->{'doc-file'} = [ $oid_files->{'doc-file'} ];
     $oid_files->{'index-status'} = [ $oid_files->{'index-status'} ];