From fbbf1e8e73bfe9f95c2d985148277321115ed8d2 Mon Sep 17 00:00:00 2001
From: Platonides <platonides@gmail.com>
Date: Mon, 21 May 2018 22:55:14 +0200
Subject: [PATCH] =?utf8?q?Se=20importa=20la=20funci=C3=B3n=20wikiencode()?=
 =?utf8?q?=20creada=20por=20jem?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 html/wiki.php | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/html/wiki.php b/html/wiki.php
index 35c6c3a..916017f 100644
--- a/html/wiki.php
+++ b/html/wiki.php
@@ -13,3 +13,13 @@ function parsecfg ($F) {                        # Se admiten matrices numéricas
         }
         return $D;
 }
+
+function wikiencode ($URLA, $URLB = NULL, $URLC = NULL, $MI = AZ, $MF = az) {
+        $Cambios = array (
+                "+" => "_", "%3A" => ":", "%2F" => "/",         # Inversión de urlencodes
+                "-" => "%2D"
+        );
+        $U = strtr (urlencode ($URLB), $Cambios);
+        if (substr ($U, -1) == ".") $U = substr_replace ($U, "%2E", -1, 1);             # Codificar puntos solo al final del URL
+        return $MI . $URLA . $U . $URLC . $MF;
+}
-- 
2.30.2