admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#54494 Beveiliging klantscripts iets generieker maken

Browse Source 
svn path=/Database/trunk/; revision=40634
This commit is contained in:
Jos Groot Lipman
2019-01-23 08:35:02 +00:00
parent 2c54e6357d
commit 500d635211
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ADM/ADM_PAC.SRC
View File

@@ -104,8 +104,8 @@ AS
scriptname IN VARCHAR2)
RETURN VARCHAR2
IS
lstname VARCHAR2(255);
tekst VARCHAR2(255);
lstname VARCHAR2(4000);
tekst VARCHAR2(4000);
BEGIN
tekst := adm.checkscriptcust(custpattern);
lstname := adm.getscriptspoolfile(scriptname);
@@ -117,13 +117,12 @@ AS
IS
lstname VARCHAR2 (255);
BEGIN
lstname := UPPER(scriptname)
|| '_' || UPPER( USER || '_' || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
|| '_' || SYS_CONTEXT ('USERENV', 'SERVER_HOST')
)
lstname := scriptname
|| '_' || USER || '_' || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
|| '_' || SYS_CONTEXT ('USERENV', 'SERVER_HOST')
|| '_' || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
|| '.lst';
RETURN lstname;
RETURN UPPER(lstname);
END;
FUNCTION checkscriptcust(custpattern IN VARCHAR2)