129 lines
3.5 KiB
Plaintext
129 lines
3.5 KiB
Plaintext
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;
|
|
/
|
|
|