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_ntop.php < prev    next >
Encoding:
PHP Script  |  2008-07-02  |  2.0 KB  |  53 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_ntop.php,v 1.3 2005/12/05 14:49:40 aidan Exp $
  19.  
  20.  
  21. /**
  22.  * Replace inet_ntop()
  23.  *
  24.  * @category    PHP
  25.  * @package     PHP_Compat
  26.  * @link        http://php.net/inet_ntop
  27.  * @author      Arpad Ray <arpad@php.net>
  28.  * @version     $Revision: 1.3 $
  29.  * @since       PHP 5.1.0
  30.  * @require     PHP 4.0.0 (long2ip)
  31.  */
  32. if (!function_exists('inet_ntop')) {
  33.     function inet_ntop($in_addr)
  34.     {
  35.         switch (strlen($in_addr)) {
  36.             case 4:
  37.                 list(,$r) = unpack('N', $in_addr);
  38.                 return long2ip($r);
  39.  
  40.             case 16:
  41.                 $r = substr(chunk_split(bin2hex($in_addr), 4, ':'), 0, -1);
  42.                 $r = preg_replace(
  43.                     array('/(?::?\b0+\b:?){2,}/', '/\b0+([^0])/e'),
  44.                     array('::', '(int)"$1"?"$1":"0$1"'),
  45.                     $r);
  46.                 return $r;
  47.         }
  48.  
  49.         return false;
  50.     }
  51. }
  52.  
  53. ?>