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

FCLT#69095 ORA-error op anonimiseren

Browse Source 
svn path=/Database/trunk/; revision=56606
This commit is contained in:
Erik Groener
2022-07-18 11:52:55 +00:00
parent 99d7c5f3d9
commit 56a22f80d5
2 changed files with 66 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files

206
_UTIL/anonymize.sql
View File

@@ -90,201 +90,23 @@ UPDATE bez_bezoekers
WHERE bez_afspraak_bedrijf IS NOT NULL
AND bez_afspraak_bedrijf <> 'Anoniem';
CREATE OR REPLACE PACKAGE anoniem
AS
FUNCTION postcode(postcode_veld IN VARCHAR2) RETURN VARCHAR2;
FUNCTION telefoon(telefoon_veld IN VARCHAR2) RETURN VARCHAR2;
FUNCTION adres(adres_veld IN VARCHAR2) RETURN VARCHAR2;
FUNCTION naam(naam_veld IN VARCHAR2) RETURN VARCHAR2;
FUNCTION email(email_veld IN VARCHAR2) RETURN VARCHAR2;
FUNCTION memo(memo_veld IN VARCHAR2) RETURN VARCHAR2;
END anoniem;
/
CREATE OR REPLACE PACKAGE BODY anoniem
AS
FUNCTION postcode(postcode_veld IN VARCHAR2) RETURN VARCHAR2
IS
c VARCHAR2(1);
code VARCHAR2(15) := '';
BEGIN
IF (postcode_veld IS NOT NULL)
THEN
FOR i IN 1..LENGTH(SUBSTR(postcode_veld,1,15))
LOOP
c := SUBSTR(postcode_veld,i,1);
BEGIN
c := TO_CHAR(TO_NUMBER(c));
c := TO_CHAR(TRUNC(DBMS_RANDOM.value(0,10)));
EXCEPTION
WHEN VALUE_ERROR THEN
IF (c NOT IN (' ','-')) THEN
c := DBMS_RANDOM.string('u',1);
END IF;
END;
code := code||c;
END LOOP;
END IF;
RETURN code;
END postcode;
FUNCTION telefoon(telefoon_veld IN VARCHAR2) RETURN VARCHAR2
IS
n NUMBER;
r NUMBER;
i NUMBER;
f VARCHAR2(5) := '+-_ *'; -- alleen deze laten we staan
tel VARCHAR2(30) := '';
c VARCHAR2(1);
BEGIN
IF (telefoon_veld IS NOT NULL)
THEN
n := DBMS_RANDOM.value(0,1);
tel := TO_CHAR(TRUNC(n * POWER(10,LENGTH(telefoon_veld))));
FOR r IN 0..3
LOOP
c := SUBSTR(f,r,1);
i := 1;
WHILE (INSTR(telefoon_veld, c, 1, i) > 0)
LOOP
tel := REGEXP_REPLACE(tel
,'(^.{'||(INSTR(telefoon_veld,c,1,i)-1)||'})(.{1})(.*)$'
,'\1'||c||'\3'
);
i := i + 1;
END LOOP;
END LOOP;
END IF;
RETURN tel;
END telefoon;
FUNCTION adres(adres_veld IN VARCHAR2) RETURN VARCHAR2
IS
c VARCHAR2(1);
adres VARCHAR2(100) := '';
BEGIN
IF (adres_veld IS NOT NULL)
THEN
FOR i IN 1..LENGTH(adres_veld)
LOOP
c := SUBSTR(adres_veld,i,1);
BEGIN
c := TO_CHAR(TO_NUMBER(c));
EXCEPTION
WHEN VALUE_ERROR THEN
IF (c <> ' ') THEN
c := DBMS_RANDOM.string('l',1);
END IF;
END;
adres := adres||c;
END LOOP;
END IF;
RETURN INITCAP(adres);
END adres;
FUNCTION email(email_veld IN VARCHAR2) RETURN VARCHAR2
IS
s NUMBER;
c VARCHAR2(1);
p VARCHAR2(9) := '';
z VARCHAR2(3) := '';
email VARCHAR2(500) := '';
BEGIN
IF (email_veld IS NOT NULL)
THEN
s := 1+INSTR(email_veld,':',1);
IF (s > 1)
THEN
p := SUBSTR(email_veld,1,s-1);
IF (SUBSTR(email_veld,s,2) = '//')
THEN
s := s+2;
p := p||'//';
END IF;
END IF;
IF (SUBSTR(email_veld,LENGTH(email_veld)-2,1) = '.') THEN
z := SUBSTR(email_veld, -3);
END IF;
FOR i IN s..(LENGTH(email_veld)-NVL(LENGTH(z),0))
LOOP
c := SUBSTR(email_veld,i,1);
IF (c NOT IN ('.','@')) THEN
c := DBMS_RANDOM.string('l',1);
END IF;
email := email||c;
END LOOP;
email := p||email||z;
END IF;
RETURN email;
END email;
FUNCTION naam(naam_veld IN VARCHAR2) RETURN VARCHAR2
IS
a NUMBER;
i VARCHAR2(1);
v VARCHAR2(55) := '';
naam VARCHAR2(200) := '';
BEGIN
IF (naam_veld IS NOT NULL)
THEN
a := LENGTH(naam_veld)-1;
IF (SUBSTR(naam_veld,LENGTH(naam_veld),1) = ')' AND INSTR(naam_veld,'(',-1) > 0) THEN
v := DBMS_RANDOM.string('l',LENGTH(naam_veld) - INSTR(naam_veld,'(',-1) -1);
v := ' ('||SUBSTR(v,1,50)||')';
a := LENGTH(naam_veld) - LENGTH(v) -1;
END IF;
i := SUBSTR(naam_veld,1,1);
naam := UPPER(i)||DBMS_RANDOM.string('l', a)||v;
END IF;
RETURN naam;
END naam;
FUNCTION memo(memo_veld IN VARCHAR2) RETURN VARCHAR2
IS
memo VARCHAR2(4000) := '';
c VARCHAR2(1) := '';
r VARCHAR2(1);
BEGIN
IF (memo_veld IS NOT NULL)
THEN
FOR i IN 1..LENGTH(memo_veld)
LOOP
r := SUBSTR(memo_veld,i,1);
IF (r NOT IN (' ','.') )
THEN
c := DBMS_RANDOM.string('l',1);
IF (r = UPPER(r))
THEN
c := UPPER(c);
END IF;
ELSE
c := r;
END IF;
memo := memo||c;
END LOOP;
END IF;
RETURN memo;
END memo;
END anoniem;
/
UPDATE prs_bedrijf
SET prs_bedrijf_naam = anoniem.naam(prs_bedrijf_naam)
, prs_bedrijf_post_adres = anoniem.adres(prs_bedrijf_post_adres)
, prs_bedrijf_post_postcode = anoniem.postcode(prs_bedrijf_post_postcode)
, prs_bedrijf_bezoek_adres = anoniem.adres(prs_bedrijf_bezoek_adres)
, prs_bedrijf_bezoek_postcode = anoniem.postcode(prs_bedrijf_bezoek_postcode)
, prs_bedrijf_telefoon = anoniem.telefoon(prs_bedrijf_telefoon)
, prs_bedrijf_telefoon2 = anoniem.telefoon(prs_bedrijf_telefoon2)
, prs_bedrijf_fax = anoniem.telefoon(prs_bedrijf_fax)
, prs_bedrijf_email = anoniem.email(prs_bedrijf_email)
, prs_bedrijf_contact_persoon = anoniem.naam(prs_bedrijf_contact_persoon)
, prs_bedrijf_contact_telefoon = anoniem.telefoon(prs_bedrijf_contact_telefoon)
, prs_bedrijf_contact_fax = anoniem.telefoon(prs_bedrijf_contact_fax);
SET prs_bedrijf_naam = ano.naam(prs_bedrijf_naam, 'prs_bedrijf.prs_bedrijf_naam_upper')
, prs_bedrijf_post_adres = ano.adres(prs_bedrijf_post_adres)
, prs_bedrijf_post_postcode = ano.postcode(prs_bedrijf_post_postcode)
, prs_bedrijf_bezoek_adres = ano.adres(prs_bedrijf_bezoek_adres)
, prs_bedrijf_bezoek_postcode = ano.postcode(prs_bedrijf_bezoek_postcode)
, prs_bedrijf_telefoon = ano.telefoon(prs_bedrijf_telefoon)
, prs_bedrijf_telefoon2 = ano.telefoon(prs_bedrijf_telefoon2)
, prs_bedrijf_fax = ano.telefoon(prs_bedrijf_fax)
, prs_bedrijf_email = ano.email(prs_bedrijf_email)
, prs_bedrijf_contact_persoon = ano.naam(prs_bedrijf_contact_persoon)
, prs_bedrijf_contact_telefoon = ano.telefoon(prs_bedrijf_contact_telefoon)
, prs_bedrijf_contact_fax = ano.telefoon(prs_bedrijf_contact_fax);
UPDATE prs_bedrijfadres
SET prs_bedrijfadres_url = anoniem.email(prs_bedrijfadres_url)
, prs_bedrijfadres_username = anoniem.naam(prs_bedrijfadres_username)
SET prs_bedrijfadres_url = ano.email(prs_bedrijfadres_url)
, prs_bedrijfadres_username = ano.naam(prs_bedrijfadres_username)
, prs_bedrijfadres_password = NULL;
DROP PACKAGE anoniem;