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 / get_headers.php < prev    next >
Encoding:
PHP Script  |  2008-07-02  |  2.9 KB  |  77 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: Aidan Lister <aidan@php.net>                                |
  16. // +----------------------------------------------------------------------+
  17. //
  18. // $Id: get_headers.php,v 1.1 2005/05/10 07:50:53 aidan Exp $
  19.  
  20.  
  21. /**
  22.  * Replace get_headers()
  23.  *
  24.  * @category    PHP
  25.  * @package     PHP_Compat
  26.  * @link        http://php.net/function.get_headers
  27.  * @author      Aeontech <aeontech@gmail.com>
  28.  * @author      Cpurruc <cpurruc@fh-landshut.de>
  29.  * @author      Aidan Lister <aidan@php.net>
  30.  * @version     $Revision: 1.1 $
  31.  * @since       PHP 5.0.0
  32.  * @require     PHP 4.0.0 (user_error)
  33.  */
  34. if (!function_exists('get_headers')) {
  35.     function get_headers($url, $format = 0)
  36.     {
  37.         // Init
  38.         $urlinfo = parse_url($url);
  39.         $port    = isset($urlinfo['port']) ? $urlinfo['port'] : 80;
  40.  
  41.         // Connect
  42.         $fp = fsockopen($urlinfo['host'], $port, $errno, $errstr, 30);
  43.         if ($fp === false) {
  44.             return false;
  45.         }
  46.               
  47.         // Send request
  48.         $head = 'HEAD ' . $urlinfo['path'] .
  49.             (isset($urlinfo['query']) ? '?' . $urlinfo['query'] : '') .
  50.             ' HTTP/1.0' . "\r\n" .
  51.             'Host: ' . $urlinfo['host'] . "\r\n\r\n";
  52.         fputs($fp, $head);
  53.  
  54.         // Read
  55.         while (!feof($fp)) {
  56.             if ($header = trim(fgets($fp, 1024))) {
  57.                 list($key) = explode(':', $header);
  58.  
  59.                 if ($format === 1) {
  60.                     // First element is the HTTP header type, such as HTTP 200 OK
  61.                     // It doesn't have a separate name, so check for it
  62.                     if ($key == $header) {
  63.                         $headers[] = $header;
  64.                     } else {
  65.                         $headers[$key] = substr($header, strlen($key)+2);
  66.                     }
  67.                 } else {
  68.                     $headers[] = $header;
  69.                 }
  70.             }
  71.         }
  72.  
  73.         return $headers;
  74.     }
  75. }
  76.  
  77. ?>