| New file |
|---|
| 0,0 → 1,115 |
|---|
| <?php |
| /* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4 foldmethod=marker: */ |
| |
| /** |
| * Storage driver for use against PEAR website |
| * |
| * PHP versions 4 and 5 |
| * |
| * LICENSE: This source file is subject to version 3.01 of the PHP license |
| * that is available through the world-wide-web at the following URI: |
| * http://www.php.net/license/3_01.txt. If you did not receive a copy of |
| * the PHP License and are unable to obtain it through the web, please |
| * send a note to license@php.net so we can mail you a copy immediately. |
| * |
| * @category Authentication |
| * @package Auth |
| * @author Yavor Shahpasov <yavo@netsmart.com.cy> |
| * @author Adam Ashley <aashley@php.net> |
| * @copyright 2001-2006 The PHP Group |
| * @license http://www.php.net/license/3_01.txt PHP License 3.01 |
| * @version CVS: $Id: PEAR.php,v 1.1.4.2 2007-11-19 14:54:05 jp_milcent Exp $ |
| * @link http://pear.php.net/package/Auth |
| * @since File available since Release 1.3.0 |
| */ |
| |
| /** |
| * Include PEAR HTTP_Client. |
| */ |
| require_once 'HTTP/Client.php'; |
| /** |
| * Include Auth_Container base class |
| */ |
| require_once 'Auth/Container.php'; |
| |
| /** |
| * Storage driver for authenticating against PEAR website |
| * |
| * This driver provides a method for authenticating against the pear.php.net |
| * authentication system. |
| * |
| * @category Authentication |
| * @package Auth |
| * @author Yavor Shahpasov <yavo@netsmart.com.cy> |
| * @author Adam Ashley <aashley@php.net> |
| * @author Adam Harvey <aharvey@php.net> |
| * @copyright 2001-2007 The PHP Group |
| * @license http://www.php.net/license/3_01.txt PHP License 3.01 |
| * @version Release: 1.5.4 File: $Revision: 1.1.4.2 $ |
| * @link http://pear.php.net/package/Auth |
| * @since Class available since Release 1.3.0 |
| */ |
| class Auth_Container_Pear extends Auth_Container |
| { |
| |
| // {{{ Auth_Container_Pear() [constructor] |
| |
| /** |
| * Constructor |
| * |
| * Currently does nothing |
| * |
| * @return void |
| */ |
| function Auth_Container_Pear() |
| { |
| |
| } |
| |
| // }}} |
| // {{{ fetchData() |
| |
| /** |
| * Get user information from pear.php.net |
| * |
| * This function uses the given username and password to authenticate |
| * against the pear.php.net website |
| * |
| * @param string Username |
| * @param string Password |
| * @return mixed Error object or boolean |
| */ |
| function fetchData($username, $password) |
| { |
| $this->log('Auth_Container_PEAR::fetchData() called.', AUTH_LOG_DEBUG); |
| |
| $client = new HTTP_Client; |
| |
| $this->log('Auth_Container_PEAR::fetchData() getting salt.', AUTH_LOG_DEBUG); |
| $code = $client->get('https://pear.php.net/rest-login.php/getsalt'); |
| if ($code != 200) { |
| return PEAR::raiseError('Bad response to salt request.', $code); |
| } |
| $resp = $client->currentResponse(); |
| $salt = $resp['body']; |
| |
| $this->log('Auth_Container_PEAR::fetchData() calling validate.', AUTH_LOG_DEBUG); |
| $code = $client->post('https://pear.php.net/rest-login.php/validate', |
| array('username' => $username, |
| 'password' => md5($salt.md5($password)))); |
| if ($code != 200) { |
| return PEAR::raiseError('Bad response to validate request.', $code); |
| } |
| $resp = $client->currentResponse(); |
| |
| list($code, $message) = explode(' ', $resp['body'], 1); |
| if ($code != 8) { |
| return PEAR::raiseError($message, $code); |
| } |
| return true; |
| } |
| |
| // }}} |
| |
| } |
| ?> |