[Tiki-devel] Function for encoding anchor names

Volker Wysk <post-hhF2Jplw28UoZk/[email protected]> Fri, 24 Feb 2023 06:15:34 +0100

Newsgroups	gmane.comp.cms.tiki.devel
Message-ID	<[email protected]>

Hi!

I've written a PHP function which does a standards-compliant encoding of an
anchor name to a URL fragment string (the part of an URL after the "#").

Now this function needs to be used in Tiki.

See attachment.

Volker

_______________________________________________
TikiWiki-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tikiwiki-devel

url.php (application/x-php, 2.2 KB)

<?php

function url_fragment_string($txt)
{
    $arr = mb_str_split($txt);
    $frag = "";

    for ($i = 0; $i < count($arr); $i++) {
        $chr = $arr[$i];
        $ord = IntlChar::ord($chr);

        if ($chr == " ") {
            // Encode spaces by hyphens.
            $frag .= "-";
        } else {

            if ( // URL code points
                (ctype_alnum($chr)
                 || $chr == "!" || $chr == "$" || $chr == "&" || $chr == "'" || $chr == "(" || $chr == ")"
                 || $chr == "*" || $chr == "+" || $chr == "," || $chr == "-" || $chr == "." || $chr == "/"
                 || $chr == ":" || $chr == ";" || $chr == "=" || $chr == "?" || $chr == "@" || $chr == "_"
                 || $chr == "~"
                 || ($ord >= 0x00A0 && $ord <= 0x10FFFD))

                // surrogates
                && !($ord >= 0xD800 && $ord <= 0xDFFF)

                // noncharacters
                && !( ($ord >= 0xFDD0 && $ord <= 0xFDEF)
                      || $ord == 0xFFFE || $ord == 0xFFFF || $ord == 0x1FFFE || $ord == 0x1FFFF
                      || $ord == 0x2FFFE || $ord == 0x2FFFF || $ord == 0x3FFFE || $ord == 0x3FFFF
                      || $ord == 0x4FFFE || $ord == 0x4FFFF || $ord == 0x5FFFE || $ord == 0x5FFFF
                      || $ord == 0x6FFFE || $ord == 0x6FFFF || $ord == 0x7FFFE || $ord == 0x7FFFF
                      || $ord == 0x8FFFE || $ord == 0x8FFFF || $ord == 0x9FFFE || $ord == 0x9FFFF
                      || $ord == 0xAFFFE || $ord == 0xAFFFF || $ord == 0xBFFFE || $ord == 0xBFFFF
                      || $ord == 0xCFFFE || $ord == 0xCFFFF || $ord == 0xDFFFE || $ord == 0xDFFFF
                      || $ord == 0xEFFFE || $ord == 0xEFFFF || $ord == 0xFFFFE || $ord == 0xFFFFF
                      || $ord == 0x10FFFE || $ord == 0x10FFFF)
            )
            {
                $frag .= $chr;
            } else {
                // Unallowed characters - must be percent-encoded.
                $bytes = str_split($chr);
                for ($j = 0; $j < count($bytes); $j++) {
                    $frag .= "%" . bin2hex($bytes[$j]);
                }
            }
        }
    }

    return $frag;
}

// Test: echo url_fragment_string("abc关一条!!äöü 龙服务  Tiki ist gut.");

signature.asc (application/pgp-signature, 833 B)