Wavyzz/dolibarr
2
0
Fork 1
mirror of https://github.com/Dolibarr/dolibarr.git synced 2025-12-10 11:31:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix: evite erreur si champ mal renseign

Browse Source
This commit is contained in:
Regis Houssin
2007-09-26 19:13:21 +00:00
parent d4cf3efc70
commit ef95ffb749
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
htdocs/lib/functions.inc.php
View File

@@ -2684,20 +2684,23 @@ function dol_entity_decode($StringHtml)
*/
function clean_url($url,$http=1)
{
//Todo: voir plus tard pour les url avec accent
$url = unaccent(trim($url));
if (eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url))
{
//Todo: voir plus tard pour les url avec accent
$url = unaccent(trim($url));
// Si d<>fini on supprime le http
// TODO: supprimer les slashs en trop
if ($http==0) $url = eregi_replace('^http(s)?:[\\\/]+','',$url);
// Si d<>fini on supprime le http
// TODO: supprimer les slashs en trop
if ($http==0) $url = eregi_replace('^http(s)?:[\\\/]+','',$url);
// On r<>cup<75>re le nom de domaine
$domain = eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url,$regs);
// On r<>cup<75>re le nom de domaine
$domain = eregi('^(http(s)?:[\\\/]+)?[0-9A-Z-]+\.([0-9A-Z-]+\.)+[A-Z]{2,4}(:[0-9]+)?',$url,$regs);
// On passe le nom de domaine en minuscule
$url = eregi_replace($regs[0],strtolower($regs[0]),$url);
// On passe le nom de domaine en minuscule
$url = eregi_replace($regs[0],strtolower($regs[0]),$url);
return $url;
return $url;
}
}
/**