[Home] [Help]
select u.name,
o.name,
a.filespec,
decode(a.security_level, 0, 'SAFE', 1, 'EXTERNAL_1', 2, 'EXTERNAL_2',
3, 'EXTERNAL_3', 4, 'UNSAFE'),
a.identity,
decode(o.status, 0, 'N/A', 1, 'VALID', 'INVALID')
from sys."_CURRENT_EDITION_OBJ" o, sys.assembly$ a, sys.user$ u
where o.owner# = u.user#
and o.obj# = a.obj#
and (o.owner# in (userenv('SCHEMAID'), 1 /* PUBLIC */)
or o.obj# in
( select oa.obj#
from sys.objauth$ oa
where grantee# in (select kzsrorol from x$kzsro)
)
or (
exists (select NULL from v$enabledprivs
where priv_number in (
-282 /* CREATE ANY ASSEMBLY */,
-283 /* ALTER ANY ASSEMBLY */,
-284 /* DROP ANY ASSEMBLY */,
-285 /* EXECUTE ANY ASSEMBLY */
)
)
)
)
SELECT U.NAME
,
O.NAME
,
A.FILESPEC
,
DECODE(A.SECURITY_LEVEL
, 0
, 'SAFE'
, 1
, 'EXTERNAL_1'
, 2
, 'EXTERNAL_2'
,
3
, 'EXTERNAL_3'
, 4
, 'UNSAFE')
,
A.IDENTITY
,
DECODE(O.STATUS
, 0
, 'N/A'
, 1
, 'VALID'
, 'INVALID')
FROM SYS."_CURRENT_EDITION_OBJ" O
, SYS.ASSEMBLY$ A
, SYS.USER$ U
WHERE O.OWNER# = U.USER#
AND O.OBJ# = A.OBJ#
AND (O.OWNER# IN (USERENV('SCHEMAID')
, 1 /* PUBLIC */)
OR O.OBJ# IN
( SELECT OA.OBJ#
FROM SYS.OBJAUTH$ OA
WHERE GRANTEE# IN (SELECT KZSROROL
FROM X$KZSRO)
)
OR (
EXISTS (SELECT NULL
FROM V$ENABLEDPRIVS
WHERE PRIV_NUMBER IN (
-282 /* CREATE ANY ASSEMBLY */
,
-283 /* ALTER ANY ASSEMBLY */
,
-284 /* DROP ANY ASSEMBLY */
,
-285 /* EXECUTE ANY ASSEMBLY */
)
)
)
)
|
|
|
|