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;
/