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=45000
This commit is contained in:
Maarten van der Heide
2019-11-21 14:24:29 +00:00
parent 1cdc62acd6
commit 9d29105714
1 changed files with 12 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
RWSN/rwsn.sql
View File

@@ -27585,25 +27585,18 @@ BEGIN
IF INSTR (UPPER (pfrom), 'MAILS.FD.EBFD@RWS.NL') > 0
THEN
v_errormsg := 'Fout bepalen E-mail';
IF INSTR (LOWER (pbody), 'mailto:') > 0
THEN
v_email := TRIM (SUBSTR (pbody,
INSTR (LOWER (pbody), 'mailto:') + 7,
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, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- 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;
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, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- 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;
-- Bepaal de afgesproken melder.
v_errormsg := 'Fout bepalen externe melder';