corpus_parole: cms/drupal/modules/openid/openid.inc@0f178b8493c5 (annotated)

541 e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	1	<?php
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	2
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	3	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	4	* @file
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	5	* OpenID utility functions.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	6	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	7
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	8	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	9	* Diffie-Hellman Key Exchange Default Value.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	10	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	11	* This is used to establish an association between the Relying Party and the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	12	* OpenID Provider.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	13	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	14	* See RFC 2631: http://www.ietf.org/rfc/rfc2631.txt
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	15	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	16	define('OPENID_DH_DEFAULT_MOD', '155172898181473697471232257763715539915724801' .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	17	'966915404479707795314057629378541917580651227423698188993727816152646631' .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	18	'438561595825688188889951272158842675419950341258706556549803580104870537' .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	19	'681476726513255747040765857479291291572334510643245094715007229621094194' .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	20	'349783925984760375594985848253359305585439638443');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	21
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	22	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	23	* Diffie-Hellman generator; used for Diffie-Hellman key exchange computations.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	24	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	25	define('OPENID_DH_DEFAULT_GEN', '2');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	26
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	27	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	28	* SHA-1 hash block size; used for Diffie-Hellman key exchange computations.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	29	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	30	define('OPENID_SHA1_BLOCKSIZE', 64);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	31
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	32	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	33	* Random number generator; used for Diffie-Hellman key exchange computations.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	34	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	35	define('OPENID_RAND_SOURCE', '/dev/urandom');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	36
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	37	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	38	* OpenID Authentication 2.0 namespace URL.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	39	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	40	define('OPENID_NS_2_0', 'http://specs.openid.net/auth/2.0');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	41
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	42	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	43	* OpenID Authentication 1.1 namespace URL; used for backwards-compatibility.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	44	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	45	define('OPENID_NS_1_1', 'http://openid.net/signon/1.1');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	46
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	47	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	48	* OpenID Authentication 1.0 namespace URL; used for backwards-compatibility.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	49	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	50	define('OPENID_NS_1_0', 'http://openid.net/signon/1.0');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	51
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	52	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	53	* OpenID namespace used in Yadis documents.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	54	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	55	define('OPENID_NS_OPENID', 'http://openid.net/xmlns/1.0');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	56
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	57	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	58	* OpenID Simple Registration extension.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	59	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	60	define('OPENID_NS_SREG', 'http://openid.net/extensions/sreg/1.1');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	61
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	62	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	63	* OpenID Attribute Exchange extension.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	64	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	65	define('OPENID_NS_AX', 'http://openid.net/srv/ax/1.0');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	66
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	67	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	68	* Extensible Resource Descriptor documents.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	69	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	70	define('OPENID_NS_XRD', 'xri://$xrd($v2.0)');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	71
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	72	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	73	* Performs an HTTP 302 redirect (for the 1.x protocol).
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	74	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	75	function openid_redirect_http($url, $message) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	76	$query = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	77	foreach ($message as $key => $val) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	78	$query[] = $key . '=' . urlencode($val);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	79	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	80
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	81	$sep = (strpos($url, '?') === FALSE) ? '?' : '&';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	82	header('Location: ' . $url . $sep . implode('&', $query), TRUE, 302);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	83
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	84	drupal_exit();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	85	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	86
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	87	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	88	* Creates a js auto-submit redirect for (for the 2.x protocol)
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	89	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	90	function openid_redirect($url, $message) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	91	global $language;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	92
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	93	$output = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' . "\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	94	$output .= '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="' . $language->language . '" lang="' . $language->language . '">' . "\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	95	$output .= "<head>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	96	$output .= "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	97	$output .= "<title>" . t('OpenID redirect') . "</title>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	98	$output .= "</head>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	99	$output .= "<body>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	100	$elements = drupal_get_form('openid_redirect_form', $url, $message);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	101	$output .= drupal_render($elements);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	102	$output .= '<script type="text/javascript">document.getElementById("openid-redirect-form").submit();</script>' . "\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	103	$output .= "</body>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	104	$output .= "</html>\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	105	print $output;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	106
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	107	drupal_exit();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	108	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	109
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	110	function openid_redirect_form($form, &$form_state, $url, $message) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	111	$form['#action'] = $url;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	112	$form['#method'] = "post";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	113	foreach ($message as $key => $value) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	114	$form[$key] = array(
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	115	'#type' => 'hidden',
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	116	'#name' => $key,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	117	'#value' => $value,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	118	);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	119	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	120	$form['actions'] = array('#type' => 'actions');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	121	$form['actions']['submit'] = array(
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	122	'#type' => 'submit',
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	123	'#prefix' => '<noscript><div>',
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	124	'#suffix' => '</div></noscript>',
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	125	'#value' => t('Send'),
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	126	);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	127
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	128	return $form;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	129	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	130
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	131	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	132	* Parse an XRDS document.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	133	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	134	* @param $raw_xml
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	135	* A string containing the XRDS document.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	136	* @return
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	137	* An array of service entries.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	138	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	139	function _openid_xrds_parse($raw_xml) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	140	$services = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	141
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	142	// For PHP version >= 5.2.11, we can use this function to protect against
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	143	// malicious doctype declarations and other unexpected entity loading.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	144	// However, we will not rely on it, and reject any XML with a DOCTYPE.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	145	$disable_entity_loader = function_exists('libxml_disable_entity_loader');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	146	if ($disable_entity_loader) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	147	$load_entities = libxml_disable_entity_loader(TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	148	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	149
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	150	// Load the XML into a DOM document.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	151	$dom = new DOMDocument();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	152	@$dom->loadXML($raw_xml);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	153
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	154	// Since DOCTYPE declarations from an untrusted source could be malicious, we
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	155	// stop parsing here and treat the XML as invalid since XRDS documents do not
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	156	// require, and are not expected to have, a DOCTYPE.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	157	if (isset($dom->doctype)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	158	return array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	159	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	160
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	161	// Also stop parsing if there is an unreasonably large number of tags.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	162	if ($dom->getElementsByTagName('*')->length > variable_get('openid_xrds_maximum_tag_count', 30000)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	163	return array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	164	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	165
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	166	// Parse the DOM document for the information we need.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	167	if ($xml = simplexml_import_dom($dom)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	168	foreach ($xml->children(OPENID_NS_XRD)->XRD as $xrd) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	169	foreach ($xrd->children(OPENID_NS_XRD)->Service as $service_element) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	170	$service = array(
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	171	'priority' => $service_element->attributes()->priority ? (int)$service_element->attributes()->priority : PHP_INT_MAX,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	172	'types' => array(),
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	173	'uri' => (string)$service_element->children(OPENID_NS_XRD)->URI,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	174	'service' => $service_element,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	175	'xrd' => $xrd,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	176	);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	177	foreach ($service_element->Type as $type) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	178	$service['types'][] = (string)$type;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	179	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	180	if ($service_element->children(OPENID_NS_XRD)->LocalID) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	181	$service['identity'] = (string)$service_element->children(OPENID_NS_XRD)->LocalID;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	182	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	183	elseif ($service_element->children(OPENID_NS_OPENID)->Delegate) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	184	$service['identity'] = (string)$service_element->children(OPENID_NS_OPENID)->Delegate;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	185	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	186	else {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	187	$service['identity'] = FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	188	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	189	$services[] = $service;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	190	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	191	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	192	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	193
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	194	// Return the LIBXML options to the previous state before returning.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	195	if ($disable_entity_loader) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	196	libxml_disable_entity_loader($load_entities);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	197	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	198
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	199	return $services;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	200	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	201
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	202	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	203	* Select a service element.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	204	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	205	* The procedure is described in OpenID Authentication 2.0, section 7.3.2.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	206	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	207	* A new entry is added to the returned array with the key 'version' and the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	208	* value 1 or 2 specifying the protocol version used by the service.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	209	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	210	* @param $services
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	211	* An array of service arrays as returned by openid_discovery().
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	212	* @return
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	213	* The selected service array, or NULL if no valid services were found.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	214	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	215	function _openid_select_service(array $services) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	216	// Extensible Resource Identifier (XRI) Resolution Version 2.0, section 4.3.3:
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	217	// Find the service with the highest priority (lowest integer value). If there
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	218	// is a tie, select a random one, not just the first in the XML document.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	219	shuffle($services);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	220	$selected_service = NULL;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	221	$selected_type_priority = FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	222
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	223	// Search for an OP Identifier Element.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	224	foreach ($services as $service) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	225	if (!empty($service['uri'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	226	$type_priority = FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	227	if (in_array('http://specs.openid.net/auth/2.0/server', $service['types'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	228	$service['version'] = 2;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	229	$type_priority = 1;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	230	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	231	elseif (in_array('http://specs.openid.net/auth/2.0/signon', $service['types'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	232	$service['version'] = 2;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	233	$type_priority = 2;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	234	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	235	elseif (in_array(OPENID_NS_1_0, $service['types']) \|\| in_array(OPENID_NS_1_1, $service['types'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	236	$service['version'] = 1;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	237	$type_priority = 3;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	238	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	239
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	240	if ($type_priority
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	241	&& (!$selected_service
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	242	\|\| $type_priority < $selected_type_priority
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	243	\|\| ($type_priority == $selected_type_priority && $service['priority'] < $selected_service['priority']))) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	244	$selected_service = $service;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	245	$selected_type_priority = $type_priority;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	246	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	247	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	248	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	249
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	250	if ($selected_service) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	251	// Unset SimpleXMLElement instances that cannot be saved in $_SESSION.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	252	unset($selected_service['xrd']);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	253	unset($selected_service['service']);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	254	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	255
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	256	return $selected_service;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	257	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	258
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	259	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	260	* Determine if the given identifier is an XRI ID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	261	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	262	function _openid_is_xri($identifier) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	263	// Strip the xri:// scheme from the identifier if present.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	264	if (stripos($identifier, 'xri://') === 0) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	265	$identifier = substr($identifier, 6);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	266	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	267
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	268	// Test whether the identifier starts with an XRI global context symbol or (.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	269	$firstchar = substr($identifier, 0, 1);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	270	if (strpos("=@+$!(", $firstchar) !== FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	271	return TRUE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	272	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	273
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	274	return FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	275	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	276
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	277	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	278	* Normalize the given identifier.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	279	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	280	* The procedure is described in OpenID Authentication 2.0, section 7.2.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	281	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	282	function openid_normalize($identifier) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	283	$methods = module_invoke_all('openid_normalization_method_info');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	284	drupal_alter('openid_normalization_method_info', $methods);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	285
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	286	// Execute each method in turn, stopping after the first method accepted
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	287	// the identifier.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	288	foreach ($methods as $method) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	289	$result = $method($identifier);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	290	if ($result !== NULL) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	291	$identifier = $result;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	292	break;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	293	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	294	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	295
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	296	return $identifier;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	297	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	298
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	299	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	300	* OpenID normalization method: normalize XRI identifiers.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	301	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	302	function _openid_xri_normalize($identifier) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	303	if (_openid_is_xri($identifier)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	304	if (stristr($identifier, 'xri://') !== FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	305	$identifier = substr($identifier, 6);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	306	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	307	return $identifier;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	308	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	309	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	310
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	311	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	312	* OpenID normalization method: normalize URL identifiers.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	313	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	314	function _openid_url_normalize($url) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	315	$normalized_url = $url;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	316
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	317	if (stristr($url, '://') === FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	318	$normalized_url = 'http://' . $url;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	319	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	320
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	321	// Strip the fragment and fragment delimiter if present.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	322	$normalized_url = strtok($normalized_url, '#');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	323
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	324	if (substr_count($normalized_url, '/') < 3) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	325	$normalized_url .= '/';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	326	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	327
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	328	return $normalized_url;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	329	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	330
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	331	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	332	* Create a serialized message packet as per spec: $key:$value\n .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	333	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	334	function _openid_create_message($data) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	335	$serialized = '';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	336
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	337	foreach ($data as $key => $value) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	338	if ((strpos($key, ':') !== FALSE) \|\| (strpos($key, "\n") !== FALSE) \|\| (strpos($value, "\n") !== FALSE)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	339	return NULL;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	340	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	341	$serialized .= "$key:$value\n";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	342	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	343	return $serialized;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	344	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	345
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	346	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	347	* Encode a message from _openid_create_message for HTTP Post
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	348	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	349	function _openid_encode_message($message) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	350	$encoded_message = '';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	351
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	352	$items = explode("\n", $message);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	353	foreach ($items as $item) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	354	$parts = explode(':', $item, 2);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	355
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	356	if (count($parts) == 2) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	357	if ($encoded_message != '') {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	358	$encoded_message .= '&';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	359	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	360	$encoded_message .= rawurlencode(trim($parts[0])) . '=' . rawurlencode(trim($parts[1]));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	361	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	362	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	363
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	364	return $encoded_message;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	365	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	366
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	367	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	368	* Convert a direct communication message
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	369	* into an associative array.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	370	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	371	function _openid_parse_message($message) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	372	$parsed_message = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	373
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	374	$items = explode("\n", $message);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	375	foreach ($items as $item) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	376	$parts = explode(':', $item, 2);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	377
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	378	if (count($parts) == 2) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	379	$parsed_message[$parts[0]] = $parts[1];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	380	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	381	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	382
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	383	return $parsed_message;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	384	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	385
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	386	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	387	* Return a nonce value - formatted per OpenID spec.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	388	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	389	* NOTE: This nonce is not cryptographically secure and only suitable for use
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	390	* by the test framework.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	391	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	392	function _openid_nonce() {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	393	// YYYY-MM-DDThh:mm:ssZ, plus some optional extra unique characters.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	394	return gmdate('Y-m-d\TH:i:s\Z') .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	395	chr(mt_rand(0, 25) + 65) .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	396	chr(mt_rand(0, 25) + 65) .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	397	chr(mt_rand(0, 25) + 65) .
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	398	chr(mt_rand(0, 25) + 65);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	399	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	400
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	401	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	402	* Pull the href attribute out of an html link element.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	403	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	404	function _openid_link_href($rel, $html) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	405	$rel = preg_quote($rel);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	406	preg_match('\|<link\s+rel=["\'](.)' . $rel . '(.)["\'](.*)/?>\|iUs', $html, $matches);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	407	if (isset($matches[3])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	408	preg_match('\|href=["\']([^"]+)["\']\|iU', $matches[3], $href);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	409	return trim($href[1]);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	410	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	411	return FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	412	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	413
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	414	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	415	* Pull the http-equiv attribute out of an html meta element
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	416	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	417	function _openid_meta_httpequiv($equiv, $html) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	418	preg_match('\|<meta\s+http-equiv=["\']' . $equiv . '["\'](.*)/?>\|iUs', $html, $matches);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	419	if (isset($matches[1])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	420	preg_match('\|content=["\']([^"]+)["\']\|iUs', $matches[1], $content);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	421	if (isset($content[1])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	422	return $content[1];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	423	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	424	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	425	return FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	426	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	427
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	428	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	429	* Sign certain keys in a message
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	430	* @param $association - object loaded from openid_association or openid_server_association table
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	431	* - important fields are ->assoc_type and ->mac_key
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	432	* @param $message_array - array of entire message about to be sent
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	433	* @param $keys_to_sign - keys in the message to include in signature (without
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	434	* 'openid.' appended)
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	435	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	436	function _openid_signature($association, $message_array, $keys_to_sign) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	437	$signature = '';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	438	$sign_data = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	439
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	440	foreach ($keys_to_sign as $key) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	441	if (isset($message_array['openid.' . $key])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	442	$sign_data[$key] = $message_array['openid.' . $key];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	443	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	444	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	445
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	446	$message = _openid_create_message($sign_data);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	447	$secret = base64_decode($association->mac_key);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	448	$signature = _openid_hmac($secret, $message);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	449
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	450	return base64_encode($signature);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	451	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	452
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	453	function _openid_hmac($key, $text) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	454	if (strlen($key) > OPENID_SHA1_BLOCKSIZE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	455	$key = sha1($key, TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	456	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	457
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	458	$key = str_pad($key, OPENID_SHA1_BLOCKSIZE, chr(0x00));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	459	$ipad = str_repeat(chr(0x36), OPENID_SHA1_BLOCKSIZE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	460	$opad = str_repeat(chr(0x5c), OPENID_SHA1_BLOCKSIZE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	461	$hash1 = sha1(($key ^ $ipad) . $text, TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	462	$hmac = sha1(($key ^ $opad) . $hash1, TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	463
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	464	return $hmac;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	465	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	466
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	467	function _openid_dh_base64_to_long($str) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	468	$b64 = base64_decode($str);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	469
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	470	return _openid_dh_binary_to_long($b64);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	471	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	472
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	473	function _openid_dh_long_to_base64($str) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	474	return base64_encode(_openid_dh_long_to_binary($str));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	475	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	476
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	477	function _openid_dh_binary_to_long($str) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	478	$bytes = array_merge(unpack('C*', $str));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	479
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	480	$n = 0;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	481	foreach ($bytes as $byte) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	482	$n = _openid_math_mul($n, pow(2, 8));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	483	$n = _openid_math_add($n, $byte);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	484	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	485
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	486	return $n;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	487	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	488
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	489	function _openid_dh_long_to_binary($long) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	490	$cmp = _openid_math_cmp($long, 0);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	491	if ($cmp < 0) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	492	return FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	493	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	494
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	495	if ($cmp == 0) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	496	return "\x00";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	497	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	498
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	499	$bytes = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	500
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	501	while (_openid_math_cmp($long, 0) > 0) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	502	array_unshift($bytes, _openid_math_mod($long, 256));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	503	$long = _openid_math_div($long, pow(2, 8));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	504	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	505
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	506	if ($bytes && ($bytes[0] > 127)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	507	array_unshift($bytes, 0);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	508	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	509
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	510	$string = '';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	511	foreach ($bytes as $byte) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	512	$string .= pack('C', $byte);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	513	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	514
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	515	return $string;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	516	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	517
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	518	function _openid_dh_xorsecret($shared, $secret) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	519	$dh_shared_str = _openid_dh_long_to_binary($shared);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	520	$sha1_dh_shared = sha1($dh_shared_str, TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	521	$xsecret = "";
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	522	for ($i = 0; $i < strlen($secret); $i++) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	523	$xsecret .= chr(ord($secret[$i]) ^ ord($sha1_dh_shared[$i]));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	524	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	525
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	526	return $xsecret;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	527	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	528
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	529	function _openid_dh_rand($stop) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	530	$duplicate_cache = &drupal_static(__FUNCTION__, array());
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	531
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	532	// Used as the key for the duplicate cache
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	533	$rbytes = _openid_dh_long_to_binary($stop);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	534
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	535	if (isset($duplicate_cache[$rbytes])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	536	list($duplicate, $nbytes) = $duplicate_cache[$rbytes];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	537	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	538	else {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	539	if ($rbytes[0] == "\x00") {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	540	$nbytes = strlen($rbytes) - 1;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	541	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	542	else {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	543	$nbytes = strlen($rbytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	544	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	545
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	546	$mxrand = _openid_math_pow(256, $nbytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	547
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	548	// If we get a number less than this, then it is in the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	549	// duplicated range.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	550	$duplicate = _openid_math_mod($mxrand, $stop);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	551
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	552	if (count($duplicate_cache) > 10) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	553	$duplicate_cache = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	554	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	555
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	556	$duplicate_cache[$rbytes] = array($duplicate, $nbytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	557	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	558
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	559	do {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	560	$bytes = "\x00" . drupal_random_bytes($nbytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	561	$n = _openid_dh_binary_to_long($bytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	562	// Keep looping if this value is in the low duplicated range.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	563	} while (_openid_math_cmp($n, $duplicate) < 0);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	564
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	565	return _openid_math_mod($n, $stop);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	566	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	567
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	568	function _openid_get_bytes($num_bytes) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	569	return drupal_random_bytes($num_bytes);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	570	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	571
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	572	function _openid_response($str = NULL) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	573	$data = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	574
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	575	if (isset($_SERVER['REQUEST_METHOD'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	576	$data = _openid_get_params($_SERVER['QUERY_STRING']);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	577
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	578	if ($_SERVER['REQUEST_METHOD'] == 'POST') {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	579	$str = file_get_contents('php://input');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	580
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	581	$post = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	582	if ($str !== FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	583	$post = _openid_get_params($str);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	584	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	585
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	586	$data = array_merge($data, $post);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	587	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	588	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	589
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	590	return $data;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	591	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	592
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	593	function _openid_get_params($str) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	594	$chunks = explode("&", $str);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	595
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	596	$data = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	597	foreach ($chunks as $chunk) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	598	$parts = explode("=", $chunk, 2);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	599
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	600	if (count($parts) == 2) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	601	list($k, $v) = $parts;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	602	$data[$k] = urldecode($v);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	603	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	604	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	605	return $data;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	606	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	607
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	608	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	609	* Extract all the parameters belonging to an extension in a response message.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	610	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	611	* OpenID 2.0 defines a simple extension mechanism, based on a namespace prefix.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	612	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	613	* Each request or response can define a prefix using:
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	614	* @code
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	615	* openid.ns.[prefix] = [extension_namespace]
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	616	* openid.[prefix].[key1] = [value1]
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	617	* openid.[prefix].[key2] = [value2]
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	618	* ...
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	619	* @endcode
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	620	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	621	* This function extracts all the keys belonging to an extension namespace in a
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	622	* response, optionally using a fallback prefix if none is provided in the response.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	623	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	624	* Note that you cannot assume that a given extension namespace will use the same
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	625	* prefix on the response and the request: each party may use a different prefix
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	626	* to refer to the same namespace.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	627	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	628	* @param $response
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	629	* The response array.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	630	* @param $extension_namespace
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	631	* The namespace of the extension.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	632	* @param $fallback_prefix
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	633	* An optional prefix that will be used in case no prefix is found for the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	634	* target extension namespace.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	635	* @param $only_signed
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	636	* Return only keys that are included in the message signature in openid.sig.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	637	* Unsigned fields may have been modified or added by other parties than the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	638	* OpenID Provider.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	639	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	640	* @return
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	641	* An associative array containing all the parameters in the response message
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	642	* that belong to the extension. The keys are stripped from their namespace
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	643	* prefix.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	644	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	645	* @see http://openid.net/specs/openid-authentication-2_0.html#extensions
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	646	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	647	function openid_extract_namespace($response, $extension_namespace, $fallback_prefix = NULL, $only_signed = FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	648	$signed_keys = explode(',', $response['openid.signed']);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	649
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	650	// Find the namespace prefix.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	651	$prefix = $fallback_prefix;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	652	foreach ($response as $key => $value) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	653	if ($value == $extension_namespace && preg_match('/^openid\.ns\.([^.]+)$/', $key, $matches)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	654	$prefix = $matches[1];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	655	if ($only_signed && !in_array('ns.' . $matches[1], $signed_keys)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	656	// The namespace was defined but was not signed as required. In this
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	657	// case we do not fall back to $fallback_prefix.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	658	$prefix = NULL;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	659	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	660	break;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	661	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	662	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	663
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	664	// Now extract the namespace keys from the response.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	665	$output = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	666	if (!isset($prefix)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	667	return $output;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	668	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	669	foreach ($response as $key => $value) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	670	if (preg_match('/^openid\.' . $prefix . '\.(.+)$/', $key, $matches)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	671	$local_key = $matches[1];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	672	if (!$only_signed \|\| in_array($prefix . '.' . $local_key, $signed_keys)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	673	$output[$local_key] = $value;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	674	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	675	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	676	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	677
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	678	return $output;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	679	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	680
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	681	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	682	* Extracts values from an OpenID AX Response.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	683	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	684	* The values can be returned in two forms:
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	685	* - only openid.ax.value.<alias> (for single-valued answers)
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	686	* - both openid.ax.count.<alias> and openid.ax.value.<alias>.<count> (for both
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	687	* single and multiple-valued answers)
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	688	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	689	* @param $values
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	690	* An array as returned by openid_extract_namespace(..., OPENID_NS_AX).
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	691	* @param $uris
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	692	* An array of identifier URIs.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	693	* @return
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	694	* An array of values.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	695	* @see http://openid.net/specs/openid-attribute-exchange-1_0.html#fetch_response
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	696	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	697	function openid_extract_ax_values($values, $uris) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	698	$output = array();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	699	foreach ($values as $key => $value) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	700	if (in_array($value, $uris) && preg_match('/^type\.([^.]+)$/', $key, $matches)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	701	$alias = $matches[1];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	702	if (isset($values['count.' . $alias])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	703	for ($i = 1; $i <= $values['count.' . $alias]; $i++) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	704	$output[] = $values['value.' . $alias . '.' . $i];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	705	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	706	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	707	elseif (isset($values['value.' . $alias])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	708	$output[] = $values['value.' . $alias];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	709	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	710	break;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	711	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	712	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	713	return $output;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	714	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	715
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	716	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	717	* Determine the available math library GMP vs. BCMath, favouring GMP for performance.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	718	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	719	function _openid_get_math_library() {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	720	// Not drupal_static(), because a function is not going to disappear and
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	721	// change the output of this under any circumstances.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	722	static $library;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	723
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	724	if (empty($library)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	725	if (function_exists('gmp_add')) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	726	$library = 'gmp';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	727	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	728	elseif (function_exists('bcadd')) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	729	$library = 'bcmath';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	730	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	731	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	732
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	733	return $library;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	734	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	735
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	736	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	737	* Calls the add function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	738	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	739	function _openid_math_add($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	740	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	741	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	742	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	743	return gmp_strval(gmp_add($x, $y));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	744	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	745	return bcadd($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	746	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	747	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	748
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	749	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	750	* Calls the mul function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	751	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	752	function _openid_math_mul($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	753	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	754	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	755	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	756	return gmp_mul($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	757	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	758	return bcmul($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	759	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	760	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	761
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	762	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	763	* Calls the div function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	764	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	765	function _openid_math_div($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	766	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	767	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	768	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	769	return gmp_div($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	770	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	771	return bcdiv($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	772	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	773	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	774
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	775	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	776	* Calls the cmp function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	777	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	778	function _openid_math_cmp($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	779	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	780	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	781	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	782	return gmp_cmp($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	783	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	784	return bccomp($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	785	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	786	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	787
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	788	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	789	* Calls the mod function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	790	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	791	function _openid_math_mod($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	792	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	793	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	794	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	795	return gmp_mod($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	796	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	797	return bcmod($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	798	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	799	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	800
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	801	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	802	* Calls the pow function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	803	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	804	function _openid_math_pow($x, $y) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	805	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	806	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	807	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	808	return gmp_pow($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	809	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	810	return bcpow($x, $y);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	811	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	812	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	813
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	814	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	815	* Calls the mul function from the available math library for OpenID.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	816	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	817	function _openid_math_powmod($x, $y, $z) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	818	$library = _openid_get_math_library();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	819	switch ($library) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	820	case 'gmp':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	821	return gmp_powm($x, $y, $z);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	822	case 'bcmath':
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	823	return bcpowmod($x, $y, $z);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	824	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	825	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	826
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	827	/**
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	828	* Provides transition for accounts with possibly invalid OpenID identifiers in authmap.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	829	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	830	* This function provides a less safe but more unobtrusive procedure for users
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	831	* who cannot login with their OpenID identifiers. OpenID identifiers in the
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	832	* authmap could be incomplete due to invalid OpenID implementation in previous
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	833	* versions of Drupal (e.g. fragment part of the identifier could be missing).
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	834	* For more information see http://drupal.org/node/1120290.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	835	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	836	* @param string $identity
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	837	* The user's claimed OpenID identifier.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	838	*
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	839	* @return
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	840	* A fully-loaded user object if the user is found or FALSE if not found.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	841	*/
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	842	function _openid_invalid_openid_transition($identity, $response) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	843	$account = FALSE;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	844	$fallback_account = NULL;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	845	$fallback_identity = $identity;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	846
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	847	// Try to strip the fragment if it is present.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	848	if (strpos($fallback_identity, '#') !== FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	849	$fallback_identity = preg_replace('/#.*/', '', $fallback_identity);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	850	$fallback_account = user_external_load($fallback_identity);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	851	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	852
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	853	// Try to replace HTTPS with HTTP. OpenID providers often redirect
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	854	// from http to https, but Drupal didn't follow the redirect.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	855	if (!$fallback_account && strpos($fallback_identity, 'https://') !== FALSE) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	856	$fallback_identity = str_replace('https://', 'http://', $fallback_identity);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	857	$fallback_account = user_external_load($fallback_identity);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	858	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	859
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	860	// Try to use original identifier.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	861	if (!$fallback_account && isset($_SESSION['openid']['user_login_values']['openid_identifier'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	862	$fallback_identity = openid_normalize($_SESSION['openid']['user_login_values']['openid_identifier']);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	863	$fallback_account = user_external_load($fallback_identity);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	864	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	865
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	866	if ($fallback_account) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	867	// Try to extract e-mail address from Simple Registration (SREG) or
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	868	// Attribute Exchanges (AX) keys.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	869	$email = '';
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	870	$sreg_values = openid_extract_namespace($response, OPENID_NS_SREG, 'sreg', TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	871	$ax_values = openid_extract_namespace($response, OPENID_NS_AX, 'ax', TRUE);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	872	if (!empty($sreg_values['email']) && valid_email_address($sreg_values['email'])) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	873	$email = $sreg_values['email'];
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	874	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	875	elseif ($ax_mail_values = openid_extract_ax_values($ax_values, array('http://axschema.org/contact/email', 'http://schema.openid.net/contact/email'))) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	876	$email = current($ax_mail_values);
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	877	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	878
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	879	// If this e-mail address is the same as the e-mail address found in user
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	880	// account, login the user and update the claimed identifier.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	881	if ($email && ($email == $fallback_account->mail \|\| $email == $fallback_account->init)) {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	882	$query = db_insert('authmap')
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	883	->fields(array(
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	884	'authname' => $identity,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	885	'uid' => $fallback_account->uid,
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	886	'module' => 'openid',
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	887	))
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	888	->execute();
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	889	drupal_set_message(t('New OpenID identifier %identity was added as a replacement for invalid identifier %invalid_identity. To finish the invalid OpenID transition process, please go to your <a href="@openid_url">OpenID identities page</a> and remove the old identifier %invalid_identity.', array('%invalid_identity' => $fallback_identity, '%identity' => $identity, '@openid_url' => 'user/' . $fallback_account->uid . '/openid')));
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	890	// Set the account to the found one.
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	891	$account = $fallback_account;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	892	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	893	else {
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	894	drupal_set_message(t('There is already an existing account associated with the OpenID identifier that you have provided. However, due to a bug in the previous version of the authentication system, we can\'t be sure that this account belongs to you. If you are new on this site, please continue registering the new user account. If you already have a registered account on this site associated with the provided OpenID identifier, please try to <a href="@url_password">reset the password</a> or contact the site administrator.', array('@url_password' => 'user/password')), 'warning');
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	895	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	896	}
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	897
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	898	return $account;
e756a8c72c3d integrate drupal and correct build process. update version ymh <ymh.work@gmail.com> parents: diff changeset	899	}

author	ymh <ymh.work@gmail.com>
	Fri, 17 Nov 2017 16:30:44 +0100
changeset 566	0f178b8493c5
parent 541	e756a8c72c3d
permissions	-rwxr-xr-x