1 procedure xmlvalidate is
2 p_num NUMBER;
3 begin
4 SELECT COUNT(*) INTO p_num
5 FROM obj$
6 WHERE type# = 29 AND owner# = 0 AND status <> 1
7 AND ( 1=0
8 OR name like 'javax/xml%'
9 OR name like 'javax/xml/namespace%'
10 OR name like 'javax/xml/parsers%'
11 OR name like 'javax/xml/transform%'
12 OR name like 'javax/xml/transform/dom%'
13 OR name like 'javax/xml/transform/sax%'
14 OR name like 'javax/xml/transform/stream%'
15 OR name like 'oracle/xml/async%'
16 OR name like 'oracle/xml/comp%'
17 OR name like 'oracle/xml/jaxp%'
18 OR name like 'oracle/xml/jdwp%'
19 OR name like 'oracle/xml/mesg%'
20 OR name like 'oracle/xml/parser%'
21 OR name like 'oracle/xml/sql%'
22 OR name like 'oracle/xml/util%'
23 OR name like 'oracle/xml/xpath%'
24 OR name like 'oracle/xml/xqxp%'
25 OR name like 'oracle/xml/xslt%'
26 OR name like 'org/w3c/dom%'
27 OR name like 'org/xml/sax%'
28 OR name like 'OracleXML%'
29 OR name like 'oracle/xquery%'
30 );
31 IF p_num != 0 THEN
32 dbms_registry.invalid('XML');
33 ELSE
34 dbms_registry.valid('XML');
35 END IF;
36 EXCEPTION WHEN no_data_found THEN
37 dbms_registry.valid('XML');
38 end xmlvalidate;