Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1 
-- This file is part of Moodle - http://moodle.org/
2 
--
3 
-- Moodle is free software: you can redistribute it and/or modify
4 
-- it under the terms of the GNU General Public License as published by
5 
-- the Free Software Foundation, either version 3 of the License, or
6 
-- (at your option) any later version.
7 
--
8 
-- Moodle is distributed in the hope that it will be useful,
9 
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
10 
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11 
-- GNU General Public License for more details.
12 
--
13 
-- You should have received a copy of the GNU General Public License
14 
-- along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
15 
 
16 
/**
17 
 * @package    core_dml
18 
 * @copyright  2009 onwards Eloy Lafuente (stronk7) {@link http://stronk7.com}
19 
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
20 
 * @version    20091010 (plz, keep this updated for easier reference)
21 
 */
22 
 
23 
/**
24 
 * This sql script generates various PL/SQL packages needed to provide
25 
 * cross-db compatibility in the Moodle 2.x DB API with some operations
26 
 * not natively supported by Oracle, namely:
27 
 *  - locking: Application locks used by Moodle DB sessions. It uses
28 
 *             the DBMS_LOCK package so execution must be granted
29 
 *             to the Moodle DB user by SYS to work properly.
30 
 *  - bit ops: To provide cross-db bitwise operations to be used by the
31 
 *             sql_bitXXX() helper functions
32 
 *  - one space hacks: One space empty string substitute hacks.
33 
 *
34 
 * Moodle will not parse this file correctly if it uses Windows line endings.
35 
 */
36 
 
37 
CREATE OR REPLACE PACKAGE MOODLELIB AS
38 
 
39 
FUNCTION BITOR (value1 IN INTEGER, value2 IN INTEGER) RETURN INTEGER;
40 
FUNCTION BITXOR(value1 IN INTEGER, value2 IN INTEGER) RETURN INTEGER;
41 
 
42 
FUNCTION GET_HANDLE  (lock_name IN VARCHAR2) RETURN VARCHAR2;
43 
FUNCTION GET_LOCK    (lock_name IN VARCHAR2, lock_timeout IN INTEGER) RETURN INTEGER;
44 
FUNCTION RELEASE_LOCK(lock_name IN VARCHAR2) RETURN INTEGER;
45 
 
46 
FUNCTION UNDO_DIRTY_HACK(hackedstring IN VARCHAR2) RETURN VARCHAR2;
47 
FUNCTION UNDO_MEGA_HACK(hackedstring IN VARCHAR2) RETURN VARCHAR2;
48 
FUNCTION TRICONCAT(string1 IN VARCHAR2, string2 IN VARCHAR2, string3 IN VARCHAR2) RETURN VARCHAR2;
49 
 
50 
END MOODLELIB;
51 
/
52 
 
53 
CREATE OR REPLACE PACKAGE BODY MOODLELIB AS
54 
 
55 
FUNCTION BITOR(value1 IN INTEGER, value2 IN INTEGER) RETURN INTEGER IS
56 
 
57 
BEGIN
58 
    RETURN value1 + value2 - BITAND(value1,value2);
59 
END BITOR;
60 
 
61 
FUNCTION BITXOR(value1 IN INTEGER, value2 IN INTEGER) RETURN INTEGER IS
62 
 
63 
BEGIN
64 
    RETURN MOODLELIB.BITOR(value1,value2) - BITAND(value1,value2);
65 
END BITXOR;
66 
 
67 
FUNCTION GET_HANDLE(lock_name IN VARCHAR2) RETURN VARCHAR2 IS
68 
    PRAGMA AUTONOMOUS_TRANSACTION;
69 
    lock_handle VARCHAR2(128);
70 
 
71 
BEGIN
72 
    DBMS_LOCK.ALLOCATE_UNIQUE (
73 
        lockname => lock_name,
74 
        lockhandle => lock_handle,
75 
        expiration_secs => 864000);
76 
    RETURN lock_handle;
77 
END GET_HANDLE;
78 
 
79 
FUNCTION GET_LOCK(lock_name IN VARCHAR2, lock_timeout IN INTEGER) RETURN INTEGER IS
80 
    lock_status NUMBER;
81 
BEGIN
82 
    lock_status := DBMS_LOCK.REQUEST(
83 
                       lockhandle => GET_HANDLE(lock_name),
84 
                       lockmode => DBMS_LOCK.X_MODE, -- eXclusive
85 
                       timeout => lock_timeout,
86 
                       release_on_commit => FALSE);
87 
    CASE lock_status
88 
        WHEN 0 THEN NULL;
89 
        WHEN 2 THEN RAISE_APPLICATION_ERROR(-20000,'deadlock detected');
90 
        WHEN 4 THEN RAISE_APPLICATION_ERROR(-20000,'lock already obtained');
91 
        ELSE RAISE_APPLICATION_ERROR(-20000,'request lock failed - ' || lock_status);
92 
    END CASE;
93 
    RETURN 1;
94 
END GET_LOCK;
95 
 
96 
FUNCTION RELEASE_LOCK(lock_name IN VARCHAR2) RETURN INTEGER IS
97 
    lock_status NUMBER;
98 
BEGIN
99 
    lock_status := DBMS_LOCK.RELEASE(
100 
                      lockhandle => GET_HANDLE(lock_name));
101 
    IF lock_status > 0 THEN
102 
        RAISE_APPLICATION_ERROR(-20000,'release lock failed - ' || lock_status);
103 
    END IF;
104 
    RETURN 1;
105 
END RELEASE_LOCK;
106 
 
107 
FUNCTION UNDO_DIRTY_HACK(hackedstring IN VARCHAR2) RETURN VARCHAR2 IS
108 
 
109 
BEGIN
110 
    IF hackedstring = ' ' THEN
111 
        RETURN '';
112 
    END IF;
113 
    RETURN hackedstring;
114 
END UNDO_DIRTY_HACK;
115 
 
116 
FUNCTION UNDO_MEGA_HACK(hackedstring IN VARCHAR2) RETURN VARCHAR2 IS
117 
 
118 
BEGIN
119 
    IF hackedstring IS NULL THEN
120 
        RETURN hackedstring;
121 
    END IF;
122 
    RETURN REPLACE(hackedstring, '*OCISP*', ' ');
123 
END UNDO_MEGA_HACK;
124 
 
125 
FUNCTION TRICONCAT(string1 IN VARCHAR2, string2 IN VARCHAR2, string3 IN VARCHAR2) RETURN VARCHAR2 IS
126 
    stringresult VARCHAR2(1333);
127 
BEGIN
128 
    IF string1 IS NULL THEN
129 
        RETURN NULL;
130 
    END IF;
131 
    IF string2 IS NULL THEN
132 
        RETURN NULL;
133 
    END IF;
134 
    IF string3 IS NULL THEN
135 
        RETURN NULL;
136 
    END IF;
137 
 
138 
    stringresult := CONCAT(CONCAT(MOODLELIB.UNDO_DIRTY_HACK(string1), MOODLELIB.UNDO_DIRTY_HACK(string2)), MOODLELIB.UNDO_DIRTY_HACK(string3));
139 
 
140 
    IF stringresult IS NULL THEN
141 
        RETURN ' ';
142 
    END IF;
143 
 
144 
    RETURN stringresult;
145 
END;
146 
 
147 
END MOODLELIB;
148 
/
149 
 
150 
SHOW ERRORS
151 
/