MINI MINI MANI MO

Rem
Rem imrelod.sql
Rem
Rem Copyright (c) 2003, 2016, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      imrelod.sql - Oracle Multimedia reload script
Rem
Rem    DESCRIPTION
Rem      This script reloads Oracle Multimedia after a downgrade.
Rem
Rem    NOTES
Rem      You must connect as SYSDBA prior to running this script
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem       smavris  03/07/16 - Add comment
Rem       smavris  12/06/15 - Move immisc to sys
Rem       smavris  01/14/15 - Schema qualify dbms_registry
Rem       smavris  12/08/14 - Execute validateion procedure after loading
Rem       smavris  08/07/13 - Remove sets, increate script_name varchar lengths
Rem
Rem    BEGIN SQL_FILE_METADATA 
Rem    SQL_SOURCE_FILE: ordim/admin/imrelod.sql 
Rem    SQL_SHIPPED_FILE: ord/im/admin/imrelod.sql
Rem    SQL_PHASE:  
Rem    SQL_STARTUP_MODE: UPGRADE
Rem    SQL_IGNORABLE_ERRORS: NONE 
Rem    SQL_CALLING_FILE: $SRCHOME/rdbms/admin/catrelod.sql
Rem    END SQL_FILE_METADATA
Rem

@@?/rdbms/admin/sqlsessstart.sql




WHENEVER SQLERROR EXIT;
EXECUTE sys.dbms_registry.check_server_instance;

REM 
REM Make sure Oracle Multimedia schemas exist.
REM
REM Note - it is forbidden to exit in a reload script.  
REM However, it is an assumed impossible condition that we exist in the 
REM registry (which is the only way this script should be called) and our
REM schemas don't exist.  Therefore, we will exit here if our schemas don't
REM exist so we can figure out how we got in this situation.
REM 

@@imchksch.sql

WHENEVER SQLERROR CONTINUE;

REM
REM Make sure Oracle Multimedia dependencies are valid (and log errors and
REM continue if not).  Check Oracle Multimedia validity.
REM
@@imchkdep.sql 1 DOWNGRADING DOWNGRADED

REM Grant required privs in case anything has been revoked 
@@imprv.sql

REM Install ORDSYS objects
alter session set current_schema="ORDSYS";
EXECUTE sys.dbms_registry.loading('ORDIM','Oracle Multimedia','validate_ordim','ORDSYS', sys.dbms_registry.schema_list_t('ORDPLUGINS','SI_INFORMTN_SCHEMA', 'ORDDATA'));

Rem
Rem ===========================================
Rem Load miscellaneous install package
Rem ===========================================
@@immisc.sql

Rem Recreate libraries
@@ordlib

REM Reload public packages, procedures, functions
@@impbs.sql

REM Reload private packages, procedures, functions and views
@@impvs.sql

REM Reload Views
@@imview.sql

REM Reload type and package bodies
@@imtyb.sql
@@implb.sql

REM Reload Java classes
@@initim.sql

alter session set current_schema="SYS";

REM recompile invalid ORDSYS types
execute DBMS_SESSION.reset_package;
execute utl_recomp.recomp_serial('ORDSYS');

COLUMN :script_name NEW_VALUE comp_file NOPRINT
Variable script_name varchar2(256)


declare
  sdo_installed BOOLEAN := FALSE;
begin
  -- Check whether SDO is installed.
  -- If not, Do not reload and register Locator
  -- Bug 22092616 
  -- Always set check_linked_on to FALSE.  According to 
  -- Siva this is a useless check.  The Spatial library
  -- should always be linked in because even Locator uses
  -- it. 
  sdo_installed := sys.immisc.isSDOInstalled(FALSE);
  if (not sdo_installed) then
    EXECUTE IMMEDIATE 'alter session set current_schema="MDSYS"';
    :script_name := '@imimdloc.sql';
    sys.dbms_registry.loading
        ('ORDIM', 'Oracle Multimedia', 
         'validate_ordim', 'ORDSYS', 
         sys.dbms_registry.schema_list_t('ORDPLUGINS','SI_INFORMTN_SCHEMA',
                                     'MDSYS', 'ORDDATA'));
  else
    :script_name := sys.dbms_registry.nothing_script;
  end if;
end;
/

REM Install and Check Location objects 

select :script_name from dual;
@&comp_file

EXECUTE sys.dbms_registry.loaded('ORDIM');

alter session set current_schema="SYS";

drop package sys.immisc;

REM Install Oracle Multimedia verification procedure
REM and validate Oracle Multimedia Installation
@@imvalid.sql
EXECUTE sys.validate_ordim();

@?/rdbms/admin/sqlsessend.sql