cvs: pear /HTTP HTTP.php README package.xml
| From: | Stig Bakken | Date: | Tue, 17 Apr 2001 01:56:59 +0000 |
| Subject: | cvs: pear /HTTP HTTP.php README package.xml | ||
| Groups: | php.pear.cvs | ||
| Request: | Send a blank email to pear-cvs+get-35@lists.php.net to get a copy of this message | ||
ssb Mon Apr 16 18:56:59 2001 EDT
Added files:
/pear/HTTP HTTP.php README package.xml
Log:
* first "100% Pure PHP" external package
Index: pear/HTTP/HTTP.php
+++ pear/HTTP/HTTP.php
<?php
//
// +----------------------------------------------------------------------+
// | PHP version 4.0 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2001 The PHP Group |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | http://www.php.net/license/2_02.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> |
// | |
// +----------------------------------------------------------------------+
//
// $Id: HTTP.php,v 1.1 2001/04/17 01:56:59 ssb Exp $
//
// HTTP utility functions.
//
if (!empty($GLOBALS['USED_PACKAGES']['HTTP'])) return;
$GLOBALS['USED_PACKAGES']['HTTP'] = true;
class HTTP {
/**
* Format a date according to RFC-XXXX (can't remember the HTTP
* RFC number off-hand anymore, shame on me). This function
* honors the "y2k_compliance" php.ini directive.
*
* @param $time int UNIX timestamp
*
* @return HTTP date string, or false for an invalid timestamp.
*
* @author Stig Bakken <ssb@fast.no>
*/
function Date($time) {
$y = ini_get("y2k_compliance") ? "Y" : "y";
return gmdate("D, d M $y H:i:s", $time);
}
/**
* 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".
* Two-letter country codes can be found in the ISO 3166 standard.
*
* Quantities in the Accept-Language: header are supported, for
* example:
*
* Accept-Language: en_UK;q=0.7, en_US;q=0.6, no;q=1.0, dk;q=0.8
*
* @param $supported an associative array indexed by language
* codes (country codes) supported by the application. Values
* must evaluate to true.
*
* @param $default the default language to use if none is found
* during negotiation, defaults to "en_US" for U.S. English
*
* @author Stig Bakken <ssb@fast.no>
*/
function negotiateLanguage(&$supported, $default = 'en_US') {
global $HTTP_SERVER_VARS;
/* If the client has sent an Accept-Language: header, see if
* it contains a language we support.
*/
if (isset($HTTP_SERVER_VARS['HTTP_ACCEPT_LANGUAGE'])) {
$accepted = split(',[[:space:]]*', $HTTP_ACCEPT_LANGUAGE);
for ($i = 0; $i < count($accepted); $i++) {
if (eregi('^([a-z]+);[[:space:]]*q=([0-9\.]+)', $accepted[$i], &$arr)) {
$q = (double)$arr[2];
$l = $arr[1];
} else {
$q = 42;
$l = $accepted[$i];
}
if (!empty($supported[$l]) && ($q > 0.0)) {
if ($q == 42) {
return $l;
}
$candidates[$l] = $q;
}
}
if (isset($candidates)) {
arsort($candidates);
reset($candidates);
return key($candidates);
}
}
/* Check for a valid language code in the top-level domain of
* the client's host address.
*/
if (ereg("\.[^\.]+$", $HTTP_SERVER_VARS['REMOTE_HOST'], &$arr)) {
$lang = strtolower($arr[1]);
if (!empty($supported[$lang])) {
return $lang;
}
}
return $default;
}
}
?>
Index: pear/HTTP/package.xml
+++ pear/HTTP/package.xml
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!-- do not use the "Type" attribute here, that one is only for
generated package.xml files -->
<Package>
<Name>HTTP</Name>
<Summary>Miscellaneous HTTP utilities</Summary>
<Maintainer>
<Initials>SSB</Initials>
<Name>Stig Sæther Bakken</Name>
<Email>stig@php.net</Email>
</Maintainer>
<Release>
<Version>1.0</Version>
<Date>2001-04-15</Date>
<Notes>
This is the initial independent release of the HTTP package.
</Notes>
</Release>
<FileList>
<Dir>/</Dir>
<File>HTTP.php</File>
</FileList>
</Package>