create or replace package body odwa_mgt is

/*****************************************************************************************
Purpose         Web interface for the creation of Static HTML files

Usage           procedure Static_Wizard  is called from the browser directly
                procedure generate_Files is called from the Static_Wizard web page

Remarks         procedure generate_files calls package cdwp_static_files

Revision history
When        Who                                Construct
  Revision  What
------------------------------------------------------------------------------------------
$REVISION_HISTORY$
10-Dec-2002   Kannan Parthasarathy
              - B2701948 : Fixed.
14-Nov-2002   Kannan Parthasarathy
              - Fixed OAC P1 violations.
15-oct-2002   Kannan Parthasarathy
              - Added New Preferences page
              - Preferences and session data page are available only to REPOS owner
02-feb-2001   Lucas Jellema
  1.6         Remove Static HTML generation option
12-jan-2001   Peter Ebell
  1.5         - Added self service header
22-sep-2000   Lucas Jellema
  1.4         - Temporarily disable link to odwa_wsf
15-sep-2000   Lucas Jellema
  1.3         - reduce dependencies on Echo objects
11-aug-2000   Lucas Jellema
  1.2         - Add link to Graphics Manager
24-may-2000   Lucas Jellema                      procedure cleanse_process_data, package specification
  1.1         - Added Cleanse_Process_data
23-may-2000   Lucas Jellema                      package body
  1.0         - Creation
*****************************************************************************************/

--
-- private constants
--
REVISION_LABEL        constant varchar2(30) := '$x.y1.6 $';
PACKAGE_NAME          constant varchar2(30) := 'ODWA_MGT';


--
-- public procedures and functions
--

function get_revision_label
return varchar2
is
begin
  return REVISION_LABEL;
end; -- revision_label

 procedure js_goMgtFac
 is
  l_js_and varchar2(2):= chr(38)||chr(38); -- double ampsersand = AND in JavaScript; chr(38) because the ampsersand is interpreted by SQL*Plus
 begin
  htp.p(' <SCRIPT LANGUAGE="JavaScript"><!--
  function goMgtFac()
  {
  document.location="odwa_mgt.mgt_home";
  }
  //--></SCRIPT>
  ');
end; -- js_goMgtFac

-- this procedure will give a brief overview of how much redundant process data there is
-- and will allow the user to get rid of this data
procedure cleanse_process_data
( p_date_before in varchar2 default to_char(sysdate - (1/48),'DDMMYYYYHH24MI') -- half hour ago
) is

 procedure js_runRemove
 is
  l_js_and varchar2(2):= chr(38)||chr(38); -- double ampsersand = AND in JavaScript; chr(38) because the ampsersand is interpreted by SQL*Plus
 begin
  htp.p(' <SCRIPT LANGUAGE="JavaScript"><!--
  function runRemove()
  {
  document.location="odwa_mgt.cleanse?p_date_before="
  +
  document.dateBeforeSelector.p_before.options[document.dateBeforeSelector.p_before.selectedIndex].value
  ;
  }
  //--></SCRIPT>
  ');
end; -- js_runRemove

 procedure js_loadCleanse
 is
  l_js_and varchar2(2):= chr(38)||chr(38); -- double ampsersand = AND in JavaScript; chr(38) because the ampsersand is interpreted by SQL*Plus
 begin
  htp.p(' <SCRIPT LANGUAGE="JavaScript"><!--
  function loadCleanse()
  {
  document.location="odwa_mgt.cleanse_process_data?p_date_before="+
  document.dateBeforeSelector.p_before.options[document.dateBeforeSelector.p_before.selectedIndex].value
  ;
  }
  //--></SCRIPT>
  ');
end; -- js_loadCleanse


procedure cleanse_statistics
( p_date_before in varchar2
) is
 l_date_before date := to_date (p_date_before, 'DDMMYYYYHH24MI');
 l_events      number(10);
 l_num_rows    number(20);
 l_sum_rows    number(20);

 procedure add_date_option
 ( p_before_date in date
 , p_date_label  in varchar2
 ) is
 begin
   htp.p
   ( '<OPTION '
   ||cdwpbase.ifThenElse( p_before_date = l_date_before, 'SELECTED ')
   ||'VALUE="'
   ||to_char( p_before_date, 'DDMMYYYYHH24MI')
   ||'">'
   ||p_date_label
   );
end; -- add_date_option

begin
  select count(id)
  into   l_events
  from   odwa_sessions
  where  timestamp_creation<= l_date_before
  ;
  htp.tableRowOpen;
  cdwp.TableDataHeading('<B>' || Rob_msg.GetMsg(Rob_msg.DSP185_ODWA_SESSDATA,'','','','') || '</B>');
  htp.p('<TD>');
  htp.formopen
  ( curl => 'onzin'
  , cmethod => 'GET'
  , cattributes=> 'NAME="dateBeforeSelector"
     onChange="javascript:alert(''changed'')"' -- loadCleanse();return true"'
  );
  htp.formselectopen(cname => 'p_before',cprompt => '');
  add_date_option( sysdate - (1/48), Rob_msg.GetMsg(Rob_msg.DSP186_ODWA_HALFHOUR,'','','','') );
  add_date_option( sysdate - (1/24), Rob_msg.GetMsg(Rob_msg.DSP187_ODWA_ONEHOUR,'','','','') );
  add_date_option( sysdate - 1     , Rob_msg.GetMsg(Rob_msg.DSP188_ODWA_ONEDAY,'','','','') );
  add_date_option( sysdate - 2     , Rob_msg.GetMsg(Rob_msg.DSP189_ODWA_TWODAYS,'','','','') );
  add_date_option( sysdate - 7     , Rob_msg.GetMsg(Rob_msg.DSP190_ODWA_ONEWEEK,'','','','') );
  add_date_option( sysdate - 14    , Rob_msg.GetMsg(Rob_msg.DSP191_ODWA_TWOWEEKS,'','','','') );
  add_date_option( sysdate - 30    , Rob_msg.GetMsg(Rob_msg.DSP192_ODWA_ONEMONTH,'','','','') );
  add_date_option( sysdate - 61    , Rob_msg.GetMsg(Rob_msg.DSP193_ODWA_TWOMONTHS,'','','','') );
  add_date_option( sysdate - 178   , Rob_msg.GetMsg(Rob_msg.DSP194_ODWA_HALFYEAR,'','','','') );
  htp.formselectclose;
  htp.formclose;
  htp.p('</TD>');
  htp.p(' </TR>');
  htp.tableRowClose;
  htp.tableRowOpen;
  cdwp.TableDataHeading('<B>'|| Rob_msg.GetMsg(Rob_msg.DSP195_ODWA_NOOFSESS,'','','','') ||'</B>');
  cdwp.TableDataValue( to_char(l_events));
  htp.tableRowClose;
end; -- cleanse_statistics

begin
  odwactxt.update_context
  ( p_session_id    => null
  , p_package_name  => PACKAGE_NAME
  , p_procedure_name=> 'cleanse_process_data'
  );
  htp.htmlopen;
  htp.headopen;
  cdwp.write_about
  ( p_package_name   => PACKAGE_NAME
  , p_revision_label => REVISION_LABEL
  );
  js_runRemove;
  js_goMgtFac;
  js_loadCleanse;
  htp.title(Rob_msg.GetMsg(Rob_msg.DSP170_ROB,'','','','') || '- ' || Rob_msg.GetMsg(Rob_msg.DSP196_ODWA_CLEANSE,'','','',''));
  cdwp.include_stnd_styles;
  htp.headclose;
  htp.bodyopen;
--  cdwp.heading(2, false);
--  hwsp.fontOpen(HWS.BOOK_ANTIQUA, 5);
--  htp.bold('Cleanse Redundant Session Data ');
--  cdwp.menu_bar
--   ( p_level => 2
--   , p_el_id        => null
--   );
--  hwsp.fontClose;
--  htp.nl;
--  htp.nl;
--  htp.nl;
--  htp.nl;
  cdwp.tool_header('purge');
  cdwp.tableopen;
  htp.tableRowOpen;
  cdwp.TableDataHeading('<B>'||Rob_msg.Getmsg(Rob_msg.CAP327_ODWAMGT_SESSDATA,'','','','')||'</B>');
  cdwp.TableDataValue(Rob_msg.GetMsg(Rob_msg.MSG153_ODWA_SESSDATA,'<BR>','','',''));
  htp.tableRowClose;
  htp.tableRowOpen;
  cleanse_statistics( p_date_before);
  htp.tableRowOpen;
  htp.tableRowClose;
  htp.tableRowOpen;
  htp.tableRowClose;
  htp.tableRowOpen;
  cdwp.TableDataHeading('');
  htp.tabledata
  ( cvalue =>  '<FORM> <INPUT type="button" value="'|| Rob_msg.GetMsg(Rob_msg.CAP050_ODWA_SESSDATA,'<BR>','','','')
               ||'" name="RemoveButton" onClick="javascript:runRemove();return true"> </FORM>'
  );
  /*
  htp.tabledata
  ( cvalue =>  '<FORM>
               <INPUT type="button" value="Rescan" name="RescanButton"
               onClick="javascript:loadCleanse();return true">
               </FORM>
                '
  );
  */
  /*
  htp.tabledata
  ( cvalue =>  '<FORM>
               <INPUT type="button" value="Return to Management Facility" name="goMgtFacButton"
               onClick="javascript:goMgtFac();return true">
               </FORM>
                '
  );
  */
  htp.tableRowClose;

  htp.tableClose;
  htp.bodyclose;
  htp.htmlclose;

end; -- cleanse_process_data

procedure cleanse
( p_date_before in varchar2 default to_char(sysdate - (1/48),'DDMMYYYYHH24MI') -- half hour ago
) is


 l_date_before date := to_date (p_date_before, 'DDMMYYYYHH24MI');

 cursor c_evt( b_date_before in date)
 is
   select id
   from   odwa_sessions
   where  timestamp_creation <= b_date_before
   ;


begin
  odwactxt.update_context
  ( p_session_id    => null
  , p_package_name  => PACKAGE_NAME
  , p_procedure_name=> 'cleanse'
  );
  delete odwa_sessions
  where  timestamp_creation <= l_date_before
  ;
  htp.htmlopen;
  htp.headopen;
  cdwp.write_about
  ( p_package_name   => PACKAGE_NAME
  , p_revision_label => REVISION_LABEL
  );
  js_goMgtFac;
  htp.title(Rob_msg.GetMsg(Rob_msg.DSP170_ROB,'','','','') || '- ' || Rob_msg.GetMsg(Rob_msg.DSP198_ODWA_CLEANED,'','','',''));
  htp.headclose;
  htp.bodyopen;
  cdwp.heading(2, false);
  hwsp.fontOpen(HWS.BOOK_ANTIQUA, 5);
  htp.bold(Rob_msg.GetMsg(Rob_msg.DSP197_ODWA_AFTERPURGE,'','','',''));
  cdwp.menu_bar
   ( p_level => 2
   , p_el_id        => null
   );
  hwsp.fontClose;
  htp.nl;
  htp.nl;
  htp.nl;
  htp.nl;
  cdwp.tableopen;
  htp.tableRowOpen;
  cdwp.TableDataHeading(Rob_msg.GetMsg(Rob_msg.DSP198_ODWA_CLEANED,'','','',''));
  cdwp.TableDataValue( Rob_msg.GetMsg(Rob_msg.DSP199_ODWA_CLEANDETAIL,to_char( l_date_before, 'HH24:MI DD-MM-YYYY'),'','','') );
  htp.tableRowClose;
  htp.tableRowOpen;
  cdwp.TableDataHeading('');
  htp.tabledata
  ( cvalue =>  '<FORM> <INPUT type="button" value="'||Rob_msg.GetMsg(Rob_msg.CAP051_ODWA_BUTMANAGE,'','','','')
               ||'" name="goMgtFacButton" onClick="javascript:goMgtFac();return true"> </FORM> ');
  htp.tableRowClose;
  htp.tableClose;
  htp.bodyclose;
  htp.htmlclose;

end; -- cleanse


procedure mgt_home
is
  procedure write_shortcut
  ( p_image  in varchar2
  , p_text   in varchar2
  , p_descr  in varchar2
  , p_link   in varchar2
  )
  is
  begin
      cdwp.tablerowopen;
    htp.p
      ( '<TD  valign="MIDDLE">'
         || htf.anchor
            ( p_link
            , cdwp.add_images( p_text => '{'||p_image||'}')
            )
      );
      htp.p
      ( '</TD><TD ALIGN="LEFT" valign="TOP">'
        || htf.anchor
           ( p_link
           , '<FONT SIZE=5>'||p_text||'</FONT>'
           )
      );
      htp.p ( '<BR>'||p_descr||'</TD>');
      cdwp.tablerowclose;
  end;
begin
  odwactxt.update_context
  ( p_session_id    => null
  , p_package_name  => PACKAGE_NAME
  , p_procedure_name=> 'mgt_home'
  );
  htp.htmlopen;
  htp.headopen;
  cdwp.write_about
  ( p_package_name   => PACKAGE_NAME
  , p_revision_label => REVISION_LABEL
  );
  htp.title(Rob_msg.GetMsg(Rob_msg.DSP170_ROB,'','','','') || '- ' || Rob_msg.GetMsg(Rob_msg.CAP052_ODWA_MANAGE,'','','',''));
  cdwp.include_stnd_styles;
  htp.headclose;
  htp.bodyopen;
  cdwp.tool_header('management');
  cdwp.tableOpen(p_parameters=>'CELLPADDING=4 SUMMARY=""');
  -- Security manager (users, roles, privs)
  write_shortcut
  ( p_image => 'role.gif'
  , p_text  => Rob_msg.GetMsg(Rob_msg.CAP053_ODWA_SECURITY,'','','','')
  , p_descr => Rob_msg.GetMsg(Rob_msg.DSP200_ODWA_SECURITY,'','','','')
  , p_link  => 'odwapriv.list_users_and_roles?p_session_id='||odwactxt.get_session_id
  );

  write_shortcut
  ( p_image => 'diagram.gif'
  , p_text  => Rob_msg.GetMsg(Rob_msg.CAP054_ODWA_GRAPHICS,'','','','')
  , p_descr => Rob_msg.GetMsg(Rob_msg.DSP201_ODWA_GRAPHICS,'','','','')
  , p_link  => 'odwagrph.graphics_manager?p_session_id='||odwactxt.get_session_id
  );
  if(user = jr_sys_privs.get_repos_owner()) then
  write_shortcut
  ( p_image => 'cleanse.gif'
  , p_text  => Rob_msg.GetMsg(Rob_msg.CAP055_ODWA_SESSION,'','','','')
  , p_descr => Rob_msg.GetMsg(Rob_msg.DSP202_ODWA_SESSION,'','','','')
  , p_link  => 'odwa_mgt.cleanse_process_data'
  );

  write_shortcut
  ( p_image => 'vev.gif'
  , p_text  => Rob_msg.Getmsg(Rob_msg.CAP328_ODWAMGT_PREF,'','','','')
  , p_descr => Rob_msg.Getmsg(Rob_msg.DSP338_ODWAMGT_PREF,'','','','')
  , p_link  => 'odwapref.pref_home'
  );
  
  end if;

  cdwp.tableClose;
  htp.bodyclose;
  htp.htmlclose;
end; -- start

end odwa_mgt;
/