[Sommaire] [Imprimer]

   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  ?>