From 8cea6a32b0888667259496b0b77b5393806163a0 Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Wed, 6 Jul 2016 13:42:17 +0000
Subject: [PATCH] FSN#35423 Oude stijl wachtwoorden wissen

svn path=/Customer/; revision=29973
---
 onces/DEMO/FSN#35423.sql | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 onces/DEMO/FSN#35423.sql

diff --git a/onces/DEMO/FSN#35423.sql b/onces/DEMO/FSN#35423.sql
new file mode 100644
index 000000000..5eff907a5
--- /dev/null
+++ b/onces/DEMO/FSN#35423.sql
@@ -0,0 +1,26 @@
+-- FSN#36519
+--
+-- Wis het wachtwoord van iedereen die nog oude stijl wachtwoordhash heeft
+--      en dus sinds FSN#32618 (2015.3) niet is ingelogd
+--
+-- (c) 2016 Facilitor B.V.
+SET ECHO ON
+SPOOL xFSN36519.lst
+SET DEFINE OFF
+
+BEGIN
+    FOR c1 IN (  SELECT *
+                    FROM prs_perslid
+                   WHERE prs_perslid_wachtwoord_hash IS NOT NULL
+                         AND prs_perslid_wachtwoord_hash NOT LIKE '1$%')
+    LOOP
+        prs.setpassword(c1.prs_perslid_key, NULL);
+        fac.trackaction ('PRSLOG', c1.prs_perslid_key, NULL, NULL, 'Old unused password cleared by script');
+    END LOOP;
+END;
+/
+COMMIT;
+BEGIN adm.systrackscriptId('$Id$'); END;
+
+/
+SPOOL OFF