An error occurred while loading the file. Please try again.
-
Jonathan Swaelens authoredAdd orcid test method Signed-off-by:Jonathan Swaelens <jonathan.swaelens@fusiondirectory.org>
487a5b29
<?php/* This code is part of FusionDirectory (http://www.fusiondirectory.org/) Copyright (C) 2003-2010 Cajus Pollmeier Copyright (C) 2011-2016 FusionDirectory This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.*//*! * \file class_tests.inc * Source code for class tests *//*! * \brief This class provides various test functions * * This class provides various test functions. It enables to check * if a given value is: * * - a phone numnber * - a DNS name * - an URL * etc. * * The functions need to be handled with care, because they are not as strict * as one might expect. */class tests{ /*! * \brief Test if the given string is a phone number * * \param string $nr The phone number to check */ public static function is_phone_nr ($nr) { if ($nr == "") { return TRUE; } return preg_match("/^[\/0-9 ()+*-]+$/", $nr); } /*! * \brief Test if the given string contains characters allowed in a DNS record name * * \param string $str The DNS to check */ public static function is_dns_name ($str) { return preg_match("/^[a-z0-9\.\-_]*$/i", $str); } /*! * \brief Test if the given string contains characters allowed in a hostname7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
*
* \param string $str The hostname to check
*/
public static function is_valid_hostname ($str)
{
return preg_match("/^[a-z0-9\.\-]*$/i", $str);
}
/*!
* \brief Test if the given string is an URL
*
* \param string $url The URL to check
*/
public static function is_url ($url)
{
if ($url == "") {
return TRUE;
}
/* Using @stephenhay regexp from http://mathiasbynens.be/demo/url-regex (removed ftp through) */
return preg_match("@^(https?)://[^\s/$.?#].[^\s]*$@i", $url);
}
/*!
* \brief Test if the given string is a DN
*
* \param string $dn The DN to check
*/
public static function is_dn ($dn)
{
if ($dn == "") {
return TRUE;
}
return preg_match("/^[a-z0-9 _-]+$/i", $dn);
}
/*!
* \brief Test if the given string is an uid
*
* \param string $uid The UID to check
*/
public static function is_uid ($uid)
{
if ($uid == "") {
return TRUE;
}
/* STRICT adds spaces and case insenstivity to the uid check.
This is dangerous and should not be used. */
if (strict_uid_mode()) {
return preg_match("/^[a-z0-9_-]+$/", $uid);
} else {
return preg_match("/^[a-z0-9 _.-]+$/i", $uid);
}
}
/*!
* \brief Test if the given string is an IP (v4 or v6)
*
* \param string $ip The IP to check
*/
public static function is_ip ($ip)
{
return filter_var($ip, FILTER_VALIDATE_IP);
}
141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210
/*!
* \brief Test if the given string is an IPv4
*
* \param string $ip The IPv4 to check
*/
public static function is_ipv4 ($ip)
{
return filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_IPV4);
}
/*!
* \brief Test if the given string is an IPv6
*
* \param string $ip The IPv6 to check
*/
public static function is_ipv6 ($ip)
{
return filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_IPV6);
}
/*!
* \brief Test if the given string is a mac address
*
* \param string $mac The MAC address to check
*/
public static function is_mac ($mac)
{
return preg_match('/^([a-fA-F0-9]{2}:){5}[a-fA-F0-9]{2}$/', $mac);
}
/*!
* \brief Checks if the given ip address doesn't match
* "is_ip" because there is also a sub net mask given
*
* \param string $ip The IP to check
*/
public static function is_ip_with_subnetmask ($ip)
{
/* Generate list of valid submasks */
$res = [];
for ($e = 0; $e <= 32; $e++) {
$res[$e] = $e;
}
$i[0] = 255;
$i[1] = 255;
$i[2] = 255;
$i[3] = 255;
for ($a = 3; $a >= 0; $a--) {
$c = 1;
while ($i[$a] > 0) {
$str = $i[0].".".$i[1].".".$i[2].".".$i[3];
$res[$str] = $str;
$i[$a] -= $c;
$c = 2 * $c;
}
}
$res["0.0.0.0"] = "0.0.0.0";
if (preg_match("/^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/", $ip)) {
$mask = preg_replace("/^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.".
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/", "", $ip);
$mask = preg_replace("/^\//", "", $mask);
if ((in_array("$mask", $res)) && preg_match("/^[0-9\.]/", $mask)) {