/usr/share/php/PHP/Compat/Function/inet_pton.php is in php-compat 1.6.0a3-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | <?php
/**
* Replace inet_pton()
*
* @category PHP
* @package PHP_Compat
* @license LGPL - http://www.gnu.org/licenses/lgpl.html
* @copyright 2004-2007 Aidan Lister <aidan@php.net>, Arpad Ray <arpad@php.net>
* @link http://php.net/inet_pton
* @author Arpad Ray <arpad@php.net>
* @version $Revision: 269597 $
* @since PHP 5.1.0
* @require PHP 4.2.0 (array_fill)
*/
function php_compat_inet_pton($address)
{
$r = ip2long($address);
if ($r !== false && $r != -1) {
return pack('N', $r);
}
$delim_count = substr_count($address, ':');
if ($delim_count < 1 || $delim_count > 7) {
return false;
}
$r = explode(':', $address);
$rcount = count($r);
if (($doub = array_search('', $r, 1)) !== false) {
$length = (!$doub || $doub == $rcount - 1 ? 2 : 1);
array_splice($r, $doub, $length, array_fill(0, 8 + $length - $rcount, 0));
}
$r = array_map('hexdec', $r);
array_unshift($r, 'n*');
$r = call_user_func_array('pack', $r);
return $r;
}
// Define
if (!function_exists('inet_pton')) {
function inet_pton($address)
{
return php_compat_inet_pton($address);
}
}
|