rem rem $Header: L:\\\\model\\repman40\\api\\RCS\\cidpr.hpb 1.2 1998/09/30 08:38:25 cheaps Exp $ rem Rem Copyright (c) 1996 by Oracle Corporation Rem NAME Rem cidpr.hpb - Rem DESCRIPTION Rem Rem RETURNS Rem Rem NOTES Rem Rem MODIFIED (MM/DD/YY) Rem spatanka 08/07/96 - Creation REM *************************************************************************** REM Hand-carved package body for DATABASE PROFILE created on 07-AUG-96 REM *************************************************************************** CREATE OR REPLACE PACKAGE BODY cihdpr IS -- Generic post-process routines PROCEDURE check_delete(id number); sac_type constant varchar2(6) := 'DPR'; pac_type constant varchar2(6) := 'ODB'; --======================== PRE-PROCESS (INS,UPD) ============================-- PROCEDURE pre_process(operation varchar2,id number, pl in out NOCOPY ciodatabase_profile.data) IS BEGIN -- Access rights for database profile derive from the oracle database -- Access rights checking performed by triggers in config 4.0.9 -- ciiacc.check_access_rights(pl.v.oracle_database_reference,pac_type, -- 'UPD','SHR'); -- Validate user-defined properties if cieval.is_extended then cieval.check_element(id,pl.v.types,(operation='UPD') ,pl.v.user_defined_property_0,pl.i.user_defined_property_0 ,pl.v.user_defined_property_1,pl.i.user_defined_property_1 ,pl.v.user_defined_property_2,pl.i.user_defined_property_2 ,pl.v.user_defined_property_3,pl.i.user_defined_property_3 ,pl.v.user_defined_property_4,pl.i.user_defined_property_4 ,pl.v.user_defined_property_5,pl.i.user_defined_property_5 ,pl.v.user_defined_property_6,pl.i.user_defined_property_6 ,pl.v.user_defined_property_7,pl.i.user_defined_property_7 ,pl.v.user_defined_property_8,pl.i.user_defined_property_8 ,pl.v.user_defined_property_9,pl.i.user_defined_property_9 ,pl.v.user_defined_property_10,pl.i.user_defined_property_10 ,pl.v.user_defined_property_11,pl.i.user_defined_property_11 ,pl.v.user_defined_property_12,pl.i.user_defined_property_12 ,pl.v.user_defined_property_13,pl.i.user_defined_property_13 ,pl.v.user_defined_property_14,pl.i.user_defined_property_14 ,pl.v.user_defined_property_15,pl.i.user_defined_property_15 ,pl.v.user_defined_property_16,pl.i.user_defined_property_16 ,pl.v.user_defined_property_17,pl.i.user_defined_property_17 ,pl.v.user_defined_property_18,pl.i.user_defined_property_18 ,pl.v.user_defined_property_19,pl.i.user_defined_property_19 ); end if; -- Initialize unassigned properties with default values on INSERT if operation = 'INS' then pl.v.element_type_name := sac_type; pl.i.element_type_name := true; end if; --============================================================================= --The following block has been added to satisfy ER#692994. If an --integer value is given for the property password_reuse_max then the property --password_reuse_time will be set to 'UNLIMITED' and visa versa. In the event --of nonsense data being entered the property is set to 'DEFAULT' if (pl.i.password_reuse_max = true or pl.i.password_reuse_time = true) then if pl.v.password_reuse_max in('default','unlimited') then pl.v.password_reuse_max := UPPER(pl.v.password_reuse_max); end if; if pl.v.password_reuse_time in('default','unlimited') then pl.v.password_reuse_time := UPPER(pl.v.password_reuse_time); end if; DECLARE t_dummy number; BEGIN if pl.i.password_reuse_max = true and not(pl.v.password_reuse_max in('DEFAULT','UNLIMITED')) then t_dummy := TO_NUMBER(pl.v.password_reuse_max); --check integer value pl.v.password_reuse_time := 'UNLIMITED'; pl.i.password_reuse_time := true; end if; EXCEPTION WHEN VALUE_ERROR THEN --a string that can't be converted by to_number() has been entered pl.v.password_reuse_max := 'DEFAULT'; WHEN OTHERS THEN null; END; DECLARE t_dummy number; BEGIN if pl.i.password_reuse_time = true and not(pl.v.password_reuse_time in('DEFAULT','UNLIMITED')) then t_dummy := TO_NUMBER(pl.v.password_reuse_time); --check integer value pl.v.password_reuse_max := 'UNLIMITED'; pl.i.password_reuse_max := true; end if; EXCEPTION WHEN VALUE_ERROR THEN --a string that can't be converted by to_number() has been entered pl.v.password_reuse_time := 'DEFAULT'; WHEN OTHERS THEN null; END; end if; --end of block added to satisfy ER#692994 --============================================================================= END; --======================== PRE-PROCESS (DEL,SEL) ============================-- PROCEDURE pre_process(operation varchar2,id number) IS BEGIN -- Access rights for database profile derive from the oracle database -- Access rights checking performed by triggers in config 4.0.9 -- ciiacc.check_access_rights(id,sac_type,operation,'SAC'); -- if operation is 'DELETE', make sure no non-cascading references exist if operation = 'DEL' then check_delete(id); end if; END; --===================== POST-PROCESS (INS,UPD,SEL) ==========================-- PROCEDURE post_process(operation varchar2,id number, pl ciodatabase_profile.data) IS BEGIN if pl.i.name then -- check name is a valid ORACLE name if cihtbl.is_name_valid(pl.v.name) then ciierr.fatal(1003,ciiutl.identify(pl.v.id, pl.v.types),pl.v.name); end if; end if; END; --========================= POST PROCESS (DEL) ==============================-- PROCEDURE post_process(operation varchar2,id number) IS BEGIN if operation = 'DEL' then -- Delete the database profile and all it's related sub-bits ciiutl.delete_element(id,sac_type); end if; END; --============================= CHECK DELETE ================================-- PROCEDURE check_delete(id number) IS dummy number; error_count number := 0; BEGIN null; END; --================================== END ====================================-- -- -- Package instantiation block -- BEGIN is_installed := true; END; /