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

RWSN#55808 M2M

Browse Source 
svn path=/Customer/trunk/; revision=44955
This commit is contained in:
Maarten van der Heide
2019-11-18 16:48:11 +00:00
parent 9b91b830ee
commit 274f81f6a8
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
RWSN/rwsn.sql
View File

@@ -27462,8 +27462,9 @@ AS
v_onrgoed_keys NUMBER (10) := NULL;
v_locatie_key NUMBER (10) := NULL;
v_melding_key NUMBER (10) := NULL;
v_email_kkey NUMBER (10) := NULL;
v_email VARCHAR2 (255) := '';
v_bodypart VARCHAR2 (4000);
v_email_kkey NUMBER (10) := NULL;
v_folder_kkey NUMBER (10) := NULL;
v_count NUMBER (10) := NULL;
BEGIN
@@ -27588,9 +27589,20 @@ BEGIN
THEN
v_email := TRIM (SUBSTR (pbody,
INSTR (LOWER (pbody), 'mailto:') + 7,
INSTR (REPLACE (REPLACE (REPLACE (SUBSTR (pbody, INSTR (LOWER (pbody), 'mailto:') + 7), ' ', '#'), CHR (13), '#'), CHR (10), '#') || '#', '#') - 1));
INSTR (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (pbody, INSTR (LOWER (pbody), 'mailto:') + 7), ']', '#'), ' ', '#'), CHR (13), '#'), CHR (10), '#') || '#', '#') - 1));
ELSE
v_email := '';
v_bodypart := SUBSTR (pbody, 1, 4000);
WHILE v_email = '' AND INSTR (v_bodypart, '<') > 0
LOOP
v_bodypart := SUBSTR (v_bodypart, INSTR (v_bodypart, '<'));
IF INSTR (v_bodypart, '>') < LEAST (INSTR (v_bodypart, CHR (13)), INSTR (v_bodypart, CHR (10)), 255) -- Staan < en > op dezelfde regel?
THEN
v_email := TRIM (SUBSTR (v_bodypart, 2, INSTR (v_bodypart, '>') - 2)); -- v_email=gedeelte tussen < en > op dezelfde regel!
ELSE
v_bodypart := SUBSTR (v_bodypart, 2); -- Skip < op positie 1 en zoek naar het volgende voorkomen van < in de rest van body!
END IF;
END LOOP;
END IF;
-- Bepaal de afgesproken melder.