Attaching a Discoverer Private Connection via role

Question

Is it possible to define a discoverer viewer private connection that everyone attached to a specific role can view? So far we have seen that a private connection needs to be attached to a username and this can be very problematic if you have 600 users.

Answer 1

I hope this can helu u!!!
SET DEFINE OFF;
CREATE OR REPLACE PACKAGE DISCO_PRIV_CONN IS
/**********************************************************************=
* DISCLAIMER: You may be use this AS-IS. There is no support involved=
and
* you may use at your own risk.
* AUTHOR : Caroline Cintra
* DATE : 27-FEB-03
* PURPOSE : Currently there is no means provided to create Discoverer c=
onnections
* (public or private) in a programmatical way. The below PLS=
QL
* package is used to create private connections in Oracle9iAS=
Release 2
* 9.0.2.x.
* Private connections are defined on a per user basis specify=
ing the
* user/pwd/connect string to run a Discoverer Report through =
Viewer.
* This can be called in a batch program to create multiple Di=
scoverer
* connections in bulk.
* This package must be owned by ORASSO.
***********************************************************************=
-- Error code returned when exceptions are raised in this package
g_error_code NUMBER := -20220;
-- Variables used to handle Discoverer private connections (fix values)=
g_subscriber_id orasso.wwsso_psex_user_info$.subscriber_id%TYPE := 1;
g_app_id orasso.wwsso_psex_user_info$.app_id%TYPE := '1325';
g_app_creator orasso.wwsso_psex_user_info$.app_creator%TYPE := 'ORASSO_DS';
/**********************************************************************=
* PARAMETERS:
* p_sso_username IN orasso.wwsso_psex_user_info$.sso_username%type
*     Oracle Single Sign On user name
* p_db_username IN orasso.wwsso_psex_user_info$.app_username%type
* Discoverer (DW) database username
* p_db_password IN orasso.wwsso_psex_user_info$.app_password%type
* Discoverer (DW) database password
* p_eul IN orasso.wwsso_psex_user_info$.fval1%type
* Discoverer End User Layer in the <p_db_username> sc=
hema
* p_conn_name IN orasso.wwsso_psex_user_info$.fval1%type
* Name of the Discoverer private connection being cre=
ated
* p_conn_desc IN orasso.wwsso_psex_user_info$.fval1%type
* Name of the Discoverer private connection being cre=
ated
* p_db_name IN orasso.wwsso_psex_user_info$.fval1%type
* Discoverer (DW) database name
* (tnsnames entry defined in the server)
* EXAMPLE USE: ORASSO.DISCO_PRIV_CONN.CREATE_PRIVATE_CONNECTION (
* 'JP111111' -- p_sso_username
* , 'global_user' -- p_db_username
* , 'global_user_pwd' -- p_db_password
* , 'EUL9I' -- p_eul
* , 'default_priv_conn' -- p_conn_name
* , 'Connection created via API' -- p_conn_name
* , 'devap' -- p_db_name
* NOTES:
* 1) This procedure does not perform a COMMIT of the database transac=
tions
* it executes. The reaon for this decision is the fact that this
* procedure is designed to be called as part of a Single Sign On u=
ser
* set up. Therefore, the database operations performed here must o=
nly
* be commited when the user set up entire process was successful.
* 2) If there is a problem creating the connection (e.g. this connect=
ion
* already exists), an application exception is raised with the err=
or
* code of DISCO_PRIV_CONN.g_error_code.
***********************************************************************=
PROCEDURE CREATE_PRIVATE_CONNECTION(
p_sso_username IN orasso.wwsso_psex_user_info$.sso_username%TYPE
, p_db_username IN orasso.wwsso_psex_user_info$.app_username%TYPE
, p_db_password IN orasso.wwsso_psex_user_info$.app_password%TYPE
, p_eul IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_conn_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_conn_desc IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_db_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
/**********************************************************************=
* PARAMETERS:
* p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%type
* Connection identifier
* EXAMPLE USE: DISCO_PRIV_CONN.REMOVE_PRIVATE_CONNECTION(
* 'a170' -- p_fld_index
* NOTES:
* 1) This procedure does not perform a COMMIT of the database transac=
tions
* it executes. The reaon for this decision is the fact that this
* procedure is designed to be called as part of more complex
* processes. Therefore, the database operations performed here mus=
t
* only be commited when the complete process was successful.
* 2) If there is a problem creating the connection (no connection was=
* found based on the input parameters), an application exception i=
s
* raised with the error code of DISCO_PRIV_CONN.g_error_code.
***********************************************************************=
PROCEDURE REMOVE_PRIVATE_CONNECTION(
p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%TYPE
/**********************************************************************=
* PARAMETERS:
* p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%type
* Connection identifier
* p_new_password IN orasso.wwsso_psex_user_info$.app_password%type
* Discoverer (DW) database new password
* EXAMPLE USE: DISCO_PRIV_CONN.UPDATE_PRIVATE_CONNECTION_PWD(
* 'a170' -- p_fld_index
* , 'new_global_user_pwd' -- p_new_password
* NOTES:
* 1) This procedure does not perform a COMMIT of the database transac=
tions
* it executes. The reaon for this decision is the fact that this
* procedure is designed to be called as part of more complex
* processes. Therefore, the database operations performed here mus=
t
* only be commited when the complete process was successful.
* 2) If there is a problem creating the connection (no connection was=
* found based on the input parameters), an application exception i=
s
* raised with the error code of DISCO_PRIV_CONN.g_error_code.
***********************************************************************=
PROCEDURE UPDATE_PRIVATE_CONNECTION_PWD(
p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%TYPE
     , p_new_password IN orasso.wwsso_psex_user_info$.app_password%TYPE
/**********************************************************************=
* PARAMETERS:
* p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%type
* Connection identifier
* p_new_password IN orasso.wwsso_psex_user_info$.app_password%type
* Discoverer (DW) database new password
* RETURN:
* The connection unique identifier (wwsso_psex_user_info$.fld_index)
* EXAMPLE USE: DISCO_PRIV_CONN.SELECT_PRIVATE_CONNECTION_ID(
* 'JP111111' -- sso_username
* , 'my_connection' -- p_conn_name
***********************************************************************=
FUNCTION SELECT_PRIVATE_CONNECTION_ID(
p_sso_username IN orasso.wwsso_psex_user_info$.sso_username%TYPE
     , p_conn_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
) RETURN VARCHAR2;
END DISCO_PRIV_CONN;
CREATE OR REPLACE PACKAGE BODY DISCO_PRIV_CONN IS
PROCEDURE CREATE_PRIVATE_CONNECTION(
p_sso_username IN orasso.wwsso_psex_user_info$.sso_username%TYPE
, p_db_username IN orasso.wwsso_psex_user_info$.app_username%TYPE
, p_db_password IN orasso.wwsso_psex_user_info$.app_password%TYPE
, p_eul IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_conn_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_conn_desc IN orasso.wwsso_psex_user_info$.fval1%TYPE
, p_db_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
) IS
BEGIN
INSERT INTO
orasso.wwsso_psex_user_info$ (
subscriber_id
, sso_username
, app_id
, app_creator
, fld_index
, app_username
, app_password
, user_prefs
, fname1, fval1, fname2, fval2 , fname3, fval3, fname4, fval4
, fname5, fval5, fname6, fval6, fname7, fval7, fname8, fval8
, fname9, fval9
VALUES (
g_subscriber_id -- subscriber_id
, p_sso_username -- sso_username
, g_app_id -- app_id
, g_app_creator -- app_creator
, 'a' || orasso.wwsso_jps_seq.NEXTVAL -- fld_index
, orasso.wwsso_api_private.ENCRYPT_STRING(p_db_username) -- app=_username
, orasso.wwsso_api_private.ENCRYPT_STRING(p_db_password) -- app=_password
, '' -- user_prefs
, 'discard_password' -- fname1
, 'false' -- fval1
, 'eul' -- fname2
, p_eul -- fval2
, 'connection_name' -- fname3
, p_conn_name -- fval3
, 'show_details' -- fname4
, 'true' -- fval4
, 'database' -- fname5
, p_db_name -- fval5
, 'description' -- fname6
, p_conn_desc -- fval6
, 'default_locale' -- fname7
, 'en-US' -- fval7
, 'null' -- fname8
, 'null' -- fval8
, 'null' -- fname9
, 'null' -- fval9
     -- If there is a problem, raise exception
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(g_error_code,SQLERRM,TRUE);
END;-- of PROCEDURE CREATE_PRIVATE_CONNECTION
PROCEDURE REMOVE_PRIVATE_CONNECTION (
p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%TYPE
) IS
     l_rowid ROWID := '0';
BEGIN
SELECT ROWID
INTO l_rowid
     FROM orasso.wwsso_psex_user_info$
     WHERE fld_index = p_fld_index;
DELETE FROM orasso.wwsso_psex_user_info$
WHERE ROWID = l_rowid;
     -- If there is a problem, raise exception
EXCEPTION
     WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(
          g_error_code
               , 'Discoverer private connection to be deleted does not exist.'
               , TRUE);
     WHEN TOO_MANY_ROWS THEN
RAISE_APPLICATION_ERROR(
          g_error_code
               , 'Too many Discoverer private connections were found (delete).'
               , TRUE);
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(g_error_code,SQLERRM,TRUE);
END;-- of PROCEDURE REMOVE_PRIVATE_CONNECTION
PROCEDURE UPDATE_PRIVATE_CONNECTION_PWD (
p_fld_index IN orasso.wwsso_psex_user_info$.fld_index%TYPE
     , p_new_password IN orasso.wwsso_psex_user_info$.app_password%TYPE
) IS
     l_rowid ROWID := '0';
BEGIN
SELECT ROWID
INTO l_rowid
     FROM orasso.wwsso_psex_user_info$
     WHERE fld_index = p_fld_index;
UPDATE orasso.wwsso_psex_user_info$
SET app_password = orasso.wwsso_api_private.ENCRYPT_STRING(p_new_password)
WHERE ROWID = l_rowid;
     -- If there is a problem, raise exception
EXCEPTION
     WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(g_error_code,'Discoverer private connec=
tion TO be updated does NOT exist.',TRUE);
     WHEN TOO_MANY_ROWS THEN
RAISE_APPLICATION_ERROR(g_error_code,'Too many Discoverer priva=
te connections were FOUND (UPDATE).',TRUE);
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(g_error_code,SQLERRM,TRUE);
END;-- of UPDATE_PRIVATE_CONNECTION_PWD
FUNCTION SELECT_PRIVATE_CONNECTION_ID(
p_sso_username IN orasso.wwsso_psex_user_info$.sso_username%TYPE
     , p_conn_name IN orasso.wwsso_psex_user_info$.fval1%TYPE
) RETURN VARCHAR2 IS
     identifier orasso.wwsso_psex_user_info$.fval1%TYPE;
BEGIN
SELECT fld_index
INTO identifier
     FROM orasso.wwsso_psex_user_info$
     WHERE
     sso_username = p_sso_username
          AND app_id = g_app_id
          AND p_conn_name = DECODE(
          fname1
          , 'connection_name'
                                   , fval1
                                   , DECODE(
                                   fname2
                                   , 'connection_name'
                                   , fval2
                                   , DECODE(
                                   fname3
                                        , 'connection_name'
                                        , fval3
                                        , DECODE(
                                   fname4
                                        , 'connection_name'
                                        , fval4
                                        , DECODE(
                                   fname5
                                        , 'connection_name'
                                        , fval5
                                        , DECODE(
                                   fname6
                                        , 'connection_name'
                                        , fval6
                                             , DECODE(
                                   fname7
                                        , 'connection_name'
                                        , fval7
                                                  , DECODE(
                                   fname8
                                        , 'connection_name'
                                        , fval8
                                                  , DECODE(
                                   fname9
                                        , 'connection_name'
                                        , fval9
                                                  , 'INVALIDVALUE'
                                                       ) --fname9
                                                  ) --fname8
                                             ) --fname7
                                             ) --fname7
                                             ) --fname5
                                        ) --fname4
                                        ) --fname3
                                   ) --fname2
); --fname1
     RETURN identifier;
     -- If there is a problem, raise exception
EXCEPTION
     WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(
          g_error_code
               , 'Discoverer private connection not found (select).'
               , TRUE);
     WHEN TOO_MANY_ROWS THEN
RAISE_APPLICATION_ERROR(
          g_error_code
               , 'Too many Discoverer private connections were found (select).'
               , TRUE);
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(g_error_code,SQLERRM,TRUE);
END;-- of PROCEDURE REMOVE_PRIVATE_CONNECTION
END DISCO_PRIV_CONN;
SHOW ERRORS;