home *** CD-ROM | disk | FTP | other *** search
/ Cricao de Sites - 650 Layouts Prontos / WebMasters.iso / Servidores / xampp-win32-1.6.7-installer.exe / php / PEAR / PHP / Compat / Function / inet_pton.php < prev    next >
Encoding:
PHP Script  |  2008-07-02  |  2.3 KB  |  60 lines
  1. <?php
  2. // +----------------------------------------------------------------------+
  3. // | PHP Version 4                                                        |
  4. // +----------------------------------------------------------------------+
  5. // | Copyright (c) 1997-2004 The PHP Group                                |
  6. // +----------------------------------------------------------------------+
  7. // | This source file is subject to version 3.0 of the PHP license,       |
  8. // | that is bundled with this package in the file LICENSE, and is        |
  9. // | available at through the world-wide-web at                           |
  10. // | http://www.php.net/license/3_0.txt.                                  |
  11. // | If you did not receive a copy of the PHP license and are unable to   |
  12. // | obtain it through the world-wide-web, please send a note to          |
  13. // | license@php.net so we can mail you a copy immediately.               |
  14. // +----------------------------------------------------------------------+
  15. // | Authors: Arpad Ray <arpad@php.net>                                   |
  16. // +----------------------------------------------------------------------+
  17. //
  18. // $Id: inet_pton.php,v 1.2 2005/12/05 14:49:40 aidan Exp $
  19.  
  20.  
  21. /**
  22.  * Replace inet_pton()
  23.  *
  24.  * @category    PHP
  25.  * @package     PHP_Compat
  26.  * @link        http://php.net/inet_pton
  27.  * @author      Arpad Ray <arpad@php.net>
  28.  * @version     $Revision: 1.2 $
  29.  * @since       PHP 5.1.0
  30.  * @require     PHP 4.2.0 (array_fill)
  31.  */
  32. if (!function_exists('inet_pton')) {  
  33.     function inet_pton($address)
  34.     {
  35.         $r = ip2long($address);
  36.         if ($r !== false && $r != -1) {
  37.             return pack('N', $r);
  38.         }
  39.  
  40.         $delim_count = substr_count($address, ':');
  41.         if ($delim_count < 1 || $delim_count > 7) {
  42.             return false;
  43.         }
  44.  
  45.         $r = explode(':', $address);
  46.         $rcount = count($r);
  47.         if (($doub = array_search('', $r, 1)) !== false) {
  48.             $length = (!$doub || $doub == $rcount - 1 ? 2 : 1);
  49.             array_splice($r, $doub, $length, array_fill(0, 8 + $length - $rcount, 0));
  50.         }
  51.  
  52.         $r = array_map('hexdec', $r);
  53.         array_unshift($r, 'n*');
  54.         $r = call_user_func_array('pack', $r);
  55.  
  56.         return $r;
  57.     }
  58. }
  59.  
  60. ?>