FSN#37299 adm.scriptspoolfile ondersteunen

svn path=/Database/trunk/; revision=30161

ADM/ADM_PAC.SRC

@@ -7,6 +7,7 @@ AS
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
+   FUNCTION scriptspoolfile (custpattern IN VARCHAR2, scriptname IN VARCHAR) RETURN VARCHAR;
 END adm;
 /
 
@@ -97,7 +98,34 @@ AS
           END IF;
    END;
 
-END adm;
+   FUNCTION scriptspoolfile (custpattern  IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
+                             scriptname   IN VARCHAR)
+      RETURN VARCHAR
+   IS
+      lstname   VARCHAR2 (255);
+      tekst   VARCHAR2 (255);
+   BEGIN
+       IF NOT REGEXP_LIKE(USER, custpattern, 'i') THEN
+           tekst := CHR(10) || '============================================' || CHR(10)
+                 || 'Wrong user!!!!!!!!!' || CHR(10)
+                 || 'User should be match ' || custpattern || ' but is ' || USER || CHR(10)
+                 || '============================================' || CHR(10);
+           RAISE_APPLICATION_ERROR(-20000, tekst);
+       END IF;
+
+      lstname := UPPER (scriptname);
+      RETURN lstname || '_'
+             || UPPER(   USER
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVER_HOST'))
+             || '_'
+             || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
+             || '.lst';
+   END;
+
+   END adm;
 /
 
 REGISTERRUN('$Id$')