Changeset 31727 in spip-zone


Ignore:
Timestamp:
Sep 22, 2009, 12:29:54 PM (10 years ago)
Author:
patfr@…
Message:

retour de stripos() avec compatibilité PHP4

Location:
_plugins_/couteau_suisse
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • _plugins_/couteau_suisse/cout_lancement.php

    r31079 r31727  
    1717// compatibilite avec les plugins de version anterieure a 1.7.0.0
    1818function tweak_choix($s) { if ($p = strpos($s, '(')) return substr($s, 0, $p); return ''; }
     19// Compatibilite : stripos() n'existe pas en php4
     20if (!function_exists('stripos')) {
     21        function stripos($botte, $aiguille) {
     22                if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU', $botte, $regs))
     23                        return strlen($regs[1]);
     24                return false;
     25        }
     26}
    1927
    2028// Echapper les elements perilleux en les passant en base64
  • _plugins_/couteau_suisse/outils/en_travaux_options.php

    r31726 r31727  
    6161        . http_img_pack('warning-24.gif', _T('info_travaux_titre'), 'align="absmiddle"')
    6262        . ' &nbsp;'. _T('info_travaux_titre') . '</div>';
    63         if (!$pos = strpos($flux, '</body>')) $pos = strlen($flux);
     63        if (!$pos = stripos($flux, '</body>')) $pos = strlen($flux);
    6464        return substr_replace($flux, $res, $pos, 0);
    6565}
Note: See TracChangeset for help on using the changeset viewer.