git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493

2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions
--- a/Data/BulkLoad/EFT/Nominations/plsql/lico_rss.bdy
+++ b/Data/BulkLoad/EFT/Nominations/plsql/lico_rss.bdy
@@ -0,0 +1,128 @@
+CREATE OR REPLACE PACKAGE BODY EFT_NOM.lico_rss IS
+
+  g_header   CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/lico_rss.pck 1     7/01/05 12:54 Gilberta $';
+  g_revision CONSTANT VARCHAR2(160) := '$Revision: 1 $';
+
+  --
+  -- Private Procedures
+  --
+  PROCEDURE htp_p (p_item IN VARCHAR2) IS
+  BEGIN
+    --
+    htp.p(p_item||'
+');
+    --
+  END;
+  --
+  PROCEDURE rss_head IS
+  BEGIN
+    --
+    owa_util.mime_header(ccontent_type => 'text/xml');
+    htp_p('<rss version="0.91">');
+    htp_p('<channel>');
+    htp_p('<title>'||caco_utilities.get_system_name||'</title>');
+    htp_p('<link>');
+    htp_p(owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME'));
+    htp_p('</link>');
+    htp_p('	<description>');
+    htp_p('RSS Feed from '||owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME'));
+    htp_p('</description>');
+    htp_p('<language>en-gb</language>');
+    htp_p('<lastBuildDate>'||TO_CHAR(SYSDATE, 'DD/MM/YYYY HH24:MI:SS')||'</lastBuildDate>');
+    htp_p('<copyright>');
+    htp_p('Copyright: (C) ');
+    htp_p('</copyright>');
+    htp_p('<docs>'||owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME')||'</docs>');
+    htp_p('	<image>');
+    htp_p('<title>'||owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME')||'</title>');
+    htp_p('<url>');
+    htp_p(owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME')||'/images/grainlng_logo.gif');
+    htp_p('</url>');
+    htp_p('<link>'||owa_util.get_cgi_env('REQUEST_PROTOCOL')||'://'||owa_util.get_cgi_env('SERVER_NAME')||'</link>');
+    htp_p('</image>');
+    --
+  END rss_head;
+  --
+  PROCEDURE rss_foot IS
+  BEGIN
+    --
+    htp_p('</channel>');
+    htp_p('</rss>');
+    --
+  END rss_foot;
+  --
+  PROCEDURE rss_item ( p_title IN VARCHAR2
+                     , p_descr IN VARCHAR2
+                     , p_link  IN VARCHAR2 ) IS
+  BEGIN
+    --
+    htp_p('<item>');
+    htp_p('<title>'||p_title||'</title>');
+    htp_p('<description>');
+    htp_p(p_descr);
+    htp_p('</description>');
+    htp_p('<link>');
+    htp_p(p_link);
+    htp_p('</link>');
+    htp_p('</item>');
+    --
+  END rss_item;
+  --
+  -- Public Procedures
+  --
+  PROCEDURE sec_feed IS
+    --
+    --
+  BEGIN
+    --
+    IF cout_system_configuration.get_configuration_item('ALLOW_SEC_RSS') = 'YES' THEN
+      --
+      IF caco_utilities.get_syus_id = caco_utilities.get_system_user THEN
+        --
+        RETURN;
+        --
+      END IF;
+      --
+      rss_head;
+      --
+      FOR i IN (SELECT bb.subject, bb.message_text, bb.bubm_id FROM bulletin_board_messages bb WHERE SYSDATE BETWEEN bb.active_from AND NVL(bb.active_to,SYSDATE) ORDER BY bb.active_from desc) LOOP
+        --
+        rss_item(i.subject
+                ,i.message_text
+                ,'http://unix143/pls/lngimp/libbw015$bubm.QueryViewByKey?P_BUBM_ID='||i.bubm_id);
+        --
+      END LOOP;
+      --
+      rss_foot;
+      --
+    END IF;
+    --
+  END sec_feed;
+  --
+  PROCEDURE feed IS
+    --
+    --
+  BEGIN
+    --
+    IF cout_system_configuration.get_configuration_item('ALLOW_UNSEC_RSS') = 'YES' THEN
+      --
+      rss_head;
+      --
+      rss_item('Subject '||TO_CHAR(SYSDATE,'HH24:MI')
+              ,'Description'
+              ,'http://unix143');
+      --
+      rss_foot;
+      --
+    END IF;
+    --
+  END feed;
+  --
+BEGIN
+  --
+  -- Initialisation
+  --
+  NULL;
+END lico_rss;
+/
+