From 52a127287cc4453eca76b6bd1ed0dfbc603eba5c Mon Sep 17 00:00:00 2001
From: Jem <joseemiliomori@wikimedia.es>
Date: Mon, 21 May 2018 22:23:50 +0200
Subject: [PATCH] =?utf8?q?Se=20importa=20la=20funci=C3=B3n=20parsecfg()=20?=
 =?utf8?q?creada=20por=20jem?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 html/wiki.php | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 html/wiki.php

diff --git a/html/wiki.php b/html/wiki.php
new file mode 100644
index 0000000..35c6c3a
--- /dev/null
+++ b/html/wiki.php
@@ -0,0 +1,15 @@
+<?php
+
+function parsecfg ($F) {                        # Se admiten matrices numéricas (guardadas como m = v1:v2...) o asociativas (guardadas como m.c1 = v1\\m.c2 = v2...)
+        foreach (file ($F, FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES) as $L) {
+                list ($C, $V) = preg_split ("/\s*=\s*/", $L, 2);
+                if (strpos ($C, ".") !== FALSE) {
+                        $CC = explode (".", $C, 2);             # Necesario limitar a 2 por si hay puntos en la clave
+                        $D[$CC[0]][$CC[1]] = $V;
+                } else {
+                        $D[$C] = strpos ($V, ";") !== FALSE && strpos ($V, "[[") === FALSE && strpos ($V, "<") === FALSE ? explode (";", $V) : $V;
+                        if (! end ($D[$C])) array_pop ($D[$C]);         # Eliminar último elemento vacío (normalmente por ; final que fuerza array)
+                }
+        }
+        return $D;
+}
-- 
2.30.2