keith/friendica
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add allowed_domain generic function

Browse source
This commit is contained in:
Hypolite Petovan 2018-01-04 11:57:41 -05:00
parent 00d369a65d
commit 3494663c15
1 changed files with 25 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
include/network.php
View file

@ -613,24 +613,37 @@ function allowed_email($email)
return false; return false;
} }
$str_allowed = Config::get('system', 'allowed_email'); $str_allowed = Config::get('system', 'allowed_email', '');
if (! $str_allowed) {
return true;
}
$found = false;
$fnmatch = function_exists('fnmatch');
$allowed = explode(',', $str_allowed); $allowed = explode(',', $str_allowed);
if (count($allowed)) { return allowed_domain($domain, $allowed);
foreach ($allowed as $a) { }
$pat = strtolower(trim($a));
if (($fnmatch && fnmatch($pat, $domain)) || ($pat == $domain)) { /**
* Checks for the existence of a domain in a domain list
*
* If strict is not set, an empty domain list counts as found
*
* @brief Checks for the existence of a domain in a domain list
* @param string $domain
* @param array $domain_list
* @param bool $strict
* @return boolean
*/
function allowed_domain($domain, array $domain_list, $strict = false)
{
$found = false;
if (count($domain_list)) {
foreach ($domain_list as $item) {
$pat = strtolower(trim($item));
if (fnmatch($pat, $domain) || ($pat == $domain)) {
$found = true; $found = true;
break; break;
} }
} }
} elseif(!$strict) {
$found = true;
} }
return $found; return $found;
} }