| New file |
|---|
| 0,0 → 1,353 |
|---|
| <?php |
| // +----------------------------------------------------------------------+ |
| // | PEAR :: HTTP | |
| // +----------------------------------------------------------------------+ |
| // | This source file is subject to version 3.0 of the PHP license, | |
| // | that is available at http://www.php.net/license/3_0.txt | |
| // | If you did not receive a copy of the PHP license and are unable | |
| // | to obtain it through the world-wide-web, please send a note to | |
| // | license@php.net so we can mail you a copy immediately. | |
| // +----------------------------------------------------------------------+ |
| // | Authors: Stig Bakken <ssb@fast.no> | |
| // | Sterling Hughes <sterling@php.net> | |
| // | Tomas V.V.Cox <cox@idecnet.com> | |
| // | Richard Heyes <richard@php.net> | |
| // | Philippe Jausions <Philippe.Jausions@11abacus.com> | |
| // | Michael Wallner <mike@php.net> | |
| // +----------------------------------------------------------------------+ |
| // |
| // $Id: HTTP.php,v 1.1 2005-03-30 08:50:19 jpm Exp $ |
| |
| /** |
| * HTTP |
| * |
| * HTTP utility functions |
| * |
| * @package HTTP |
| * @category HTTP |
| * @license PHP License |
| * @access public |
| * @version $Revision: 1.1 $ |
| */ |
| class HTTP |
| { |
| /** |
| * Date |
| * |
| * Format a RFC compliant GMT date HTTP header. This function honors the |
| * "y2k_compliance" php.ini directive and formats the GMT date corresponding |
| * to either RFC850 or RFC822. |
| * |
| * @static |
| * @access public |
| * @return mixed GMT date string, or false for an invalid $time parameter |
| * @param mixed $time unix timestamp or date (default = current time) |
| */ |
| function Date($time = null) |
| { |
| if (!isset($time)) { |
| $time = time(); |
| } elseif (!is_numeric($time) && (-1 === $time = strtotime($time))) { |
| return false; |
| } |
| |
| // RFC822 or RFC850 |
| $format = ini_get('y2k_compliance') ? 'D, d M Y' : 'l, d-M-y'; |
| |
| return gmdate($format .' H:i:s \G\M\T', $time); |
| } |
| |
| /** |
| * Negotiate Language |
| * |
| * Negotiate language with the user's browser through the Accept-Language |
| * HTTP header or the user's host address. Language codes are generally in |
| * the form "ll" for a language spoken in only one country, or "ll-CC" for a |
| * language spoken in a particular country. For example, U.S. English is |
| * "en-US", while British English is "en-UK". Portugese as spoken in |
| * Portugal is "pt-PT", while Brazilian Portugese is "pt-BR". |
| * |
| * Quality factors in the Accept-Language: header are supported, e.g.: |
| * Accept-Language: en-UK;q=0.7, en-US;q=0.6, no, dk;q=0.8 |
| * |
| * <code> |
| * require_once 'HTTP.php'; |
| * $langs = array( |
| * 'en' => 'locales/en', |
| * 'en-US'=> 'locales/en', |
| * 'en-UK'=> 'locales/en', |
| * 'de' => 'locales/de', |
| * 'de-DE'=> 'locales/de', |
| * 'de-AT'=> 'locales/de', |
| * ); |
| * $neg = HTTP::negotiateLanguage($langs); |
| * $dir = $langs[$neg]; |
| * </code> |
| * |
| * @static |
| * @access public |
| * @return string The negotiated language result or the supplied default. |
| * @param array $supported An associative array of supported languages, |
| * whose values must evaluate to true. |
| * @param string $default The default language to use if none is found. |
| */ |
| function negotiateLanguage($supported, $default = 'en-US') |
| { |
| $supp = array(); |
| foreach ($supported as $lang => $isSupported) { |
| if ($isSupported) { |
| $supp[strToLower($lang)] = $lang; |
| } |
| } |
| |
| if (!count($supp)) { |
| return $default; |
| } |
| |
| $matches = array(); |
| if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) { |
| foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $lang) { |
| $lang = array_map('trim', explode(';', $lang)); |
| if (isset($lang[1])) { |
| $l = strtolower($lang[0]); |
| $q = (float) str_replace('q=', '', $lang[1]); |
| } else { |
| $l = strtolower($lang[0]); |
| $q = null; |
| } |
| if (isset($supp[$l])) { |
| $matches[$l] = isset($q) ? $q : 1000 - count($matches); |
| } |
| } |
| } |
| |
| if (count($matches)) { |
| asort($matches, SORT_NUMERIC); |
| return $supp[array_pop(array_keys($matches))]; |
| } |
| |
| if (isset($_SERVER['REMOTE_HOST'])) { |
| $lang = strtolower(array_pop(explode('.', $_SERVER['REMOTE_HOST']))); |
| if (isset($supp[$lang])) { |
| return $supp[$lang]; |
| } |
| } |
| |
| return $default; |
| } |
| |
| /** |
| * Head |
| * |
| * Sends a "HEAD" HTTP command to a server and returns the headers |
| * as an associative array. Example output could be: |
| * <code> |
| * Array |
| * ( |
| * [response_code] => 200 // The HTTP response code |
| * [response] => HTTP/1.1 200 OK // The full HTTP response string |
| * [Date] => Fri, 11 Jan 2002 01:41:44 GMT |
| * [Server] => Apache/1.3.20 (Unix) PHP/4.1.1 |
| * [X-Powered-By] => PHP/4.1.1 |
| * [Connection] => close |
| * [Content-Type] => text/html |
| * ) |
| * </code> |
| * |
| * @see HTTP_Client::head() |
| * @see HTTP_Request |
| * |
| * @static |
| * @access public |
| * @return mixed Returns associative array of response headers on success |
| * or PEAR error on failure. |
| * @param string $url A valid URL, e.g.: http://pear.php.net/credits.php |
| * @param integer $timeout Timeout in seconds (default = 10) |
| */ |
| function head($url, $timeout = 10) |
| { |
| $p = parse_url($url); |
| if (!isset($p['scheme'])) { |
| $p = parse_url(HTTP::absoluteURI($url)); |
| } elseif ($p['scheme'] != 'http') { |
| return HTTP::raiseError('Unsupported protocol: '. $p['scheme']); |
| } |
| |
| $port = isset($p['port']) ? $p['port'] : 80; |
| |
| if (!$fp = @fsockopen($p['host'], $port, $eno, $estr, $timeout)) { |
| return HTTP::raiseError("Connection error: $estr ($eno)"); |
| } |
| |
| $path = !empty($p['path']) ? $p['path'] : '/'; |
| $path .= !empty($p['query']) ? '?' . $p['query'] : ''; |
| |
| fputs($fp, "HEAD $path HTTP/1.0\r\n"); |
| fputs($fp, 'Host: ' . $p['host'] . ':' . $port . "\r\n"); |
| fputs($fp, "Connection: close\r\n\r\n"); |
| |
| $response = rtrim(fgets($fp, 4096)); |
| if (preg_match("|^HTTP/[^\s]*\s(.*?)\s|", $response, $status)) { |
| $headers['response_code'] = $status[1]; |
| } |
| $headers['response'] = $response; |
| |
| while ($line = fgets($fp, 4096)) { |
| if (!trim($line)) { |
| break; |
| } |
| if (($pos = strpos($line, ':')) !== false) { |
| $header = substr($line, 0, $pos); |
| $value = trim(substr($line, $pos + 1)); |
| $headers[$header] = $value; |
| } |
| } |
| fclose($fp); |
| return $headers; |
| } |
| |
| /** |
| * Redirect |
| * |
| * This function redirects the client. This is done by issuing |
| * a "Location" header and exiting if wanted. If you set $rfc2616 to true |
| * HTTP will output a hypertext note with the location of the redirect. |
| * |
| * @static |
| * @access public |
| * @return mixed Returns true on succes (or exits) or false if headers |
| * have already been sent. |
| * @param string $url URL where the redirect should go to. |
| * @param bool $exit Whether to exit immediately after redirection. |
| * @param bool $rfc2616 Wheter to output a hypertext note where we're |
| * redirecting to (Redirecting to <a href="...">...</a>.) |
| */ |
| function redirect($url, $exit = true, $rfc2616 = false) |
| { |
| if (headers_sent()) { |
| return false; |
| } |
| |
| $url = HTTP::absoluteURI($url); |
| header('Location: '. $url); |
| |
| if ( $rfc2616 && isset($_SERVER['REQUEST_METHOD']) && |
| $_SERVER['REQUEST_METHOD'] != 'HEAD') { |
| printf('Redirecting to: <a href="%s">%s</a>.', $url, $url); |
| } |
| if ($exit) { |
| exit; |
| } |
| return true; |
| } |
| |
| /** |
| * Absolute URI |
| * |
| * This function returns the absolute URI for the partial URL passed. |
| * The current scheme (HTTP/HTTPS), host server, port, current script |
| * location are used if necessary to resolve any relative URLs. |
| * |
| * Offsets potentially created by PATH_INFO are taken care of to resolve |
| * relative URLs to the current script. |
| * |
| * You can choose a new protocol while resolving the URI. This is |
| * particularly useful when redirecting a web browser using relative URIs |
| * and to switch from HTTP to HTTPS, or vice-versa, at the same time. |
| * |
| * @author Philippe Jausions <Philippe.Jausions@11abacus.com> |
| * @static |
| * @access public |
| * @return string The absolute URI. |
| * @param string $url Absolute or relative URI the redirect should go to. |
| * @param string $protocol Protocol to use when redirecting URIs. |
| * @param integer $port A new port number. |
| */ |
| function absoluteURI($url = null, $protocol = null, $port = null) |
| { |
| // filter CR/LF |
| $url = str_replace(array("\r", "\n"), ' ', $url); |
| |
| // Mess around with already absolute URIs |
| if (preg_match('!^([a-z0-9]+)://!i', $url)) { |
| if (empty($protocol) && empty($port)) { |
| return $url; |
| } |
| if (!empty($protocol)) { |
| $url = $protocol .':'. array_pop(explode(':', $url, 2)); |
| } |
| if (!empty($port)) { |
| $url = preg_replace('!^(([a-z0-9]+)://[^/:]+)(:[\d]+)?!i', |
| '\1:'. $port, $url); |
| } |
| return $url; |
| } |
| |
| $host = 'localhost'; |
| if (!empty($_SERVER['HTTP_HOST'])) { |
| list($host) = explode(':', $_SERVER['HTTP_HOST']); |
| } elseif (!empty($_SERVER['SERVER_NAME'])) { |
| list($host) = explode(':', $_SERVER['SERVER_NAME']); |
| } |
| |
| if (empty($protocol)) { |
| if (isset($_SERVER['HTTPS']) && !strcasecmp($_SERVER['HTTPS'], 'on')) { |
| $protocol = 'https'; |
| } else { |
| $protocol = 'http'; |
| } |
| if (!isset($port) || $port != intval($port)) { |
| $port = isset($_SERVER['SERVER_PORT']) ? $_SERVER['SERVER_PORT'] : 80; |
| } |
| } |
| |
| if ($protocol == 'http' && $port == 80) { |
| unset($port); |
| } |
| if ($protocol == 'https' && $port == 443) { |
| unset($port); |
| } |
| |
| $server = $protocol .'://'. $host . (isset($port) ? ':'. $port : ''); |
| |
| if (!strlen($url)) { |
| $url = isset($_SERVER['REQUEST_URI']) ? |
| $_SERVER['REQUEST_URI'] : $_SERVER['PHP_SELF']; |
| } |
| |
| if ($url{0} == '/') { |
| return $server . $url; |
| } |
| |
| // Check for PATH_INFO |
| if (isset($_SERVER['PATH_INFO']) && $_SERVER['PHP_SELF'] != $_SERVER['PATH_INFO']) { |
| $path = dirname(substr($_SERVER['PHP_SELF'], 0, -strlen($_SERVER['PATH_INFO']))); |
| } else { |
| $path = dirname($_SERVER['PHP_SELF']); |
| } |
| |
| if (substr($path = strtr($path, '\\', '/'), -1) != '/') { |
| $path .= '/'; |
| } |
| |
| return $server . $path . $url; |
| } |
| |
| /** |
| * Raise Error |
| * |
| * Lazy raising of PEAR_Errors. |
| * |
| * @static |
| * @access protected |
| * @return object PEAR_Error |
| * @param mixed $error |
| * @param int $code |
| */ |
| function raiseError($error = null, $code = null) |
| { |
| require_once 'PEAR.php'; |
| return PEAR::raiseError($error, $code); |
| } |
| } |
| ?> |