forked from GNUsocial/gnu-social
		
	
		
			
	
	
		
			102 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
		
		
			
		
	
	
			102 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
|   | #!/usr/bin/env php
 | ||
|  | <?php | ||
|  | /* | ||
|  |  * StatusNet - a distributed open-source microblogging tool | ||
|  |  * Copyright (C) 2008, 2009, StatusNet, Inc. | ||
|  |  * | ||
|  |  * This program is free software: you can redistribute it and/or modify | ||
|  |  * it under the terms of the GNU Affero General Public License as published by | ||
|  |  * the Free Software Foundation, either version 3 of the License, or | ||
|  |  * (at your option) any later version. | ||
|  |  * | ||
|  |  * This program is distributed in the hope that it will be useful, | ||
|  |  * but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
|  |  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the | ||
|  |  * GNU Affero General Public License for more details. | ||
|  |  * | ||
|  |  * You should have received a copy of the GNU Affero General Public License | ||
|  |  * along with this program.  If not, see <http://www.gnu.org/licenses/>. | ||
|  |  */ | ||
|  | 
 | ||
|  | define('INSTALLDIR', realpath(dirname(__FILE__) . '/../..')); | ||
|  | 
 | ||
|  | require_once INSTALLDIR . '/extlib/OAuth.php'; | ||
|  | 
 | ||
|  | $shortoptions = 'o:s:'; | ||
|  | $longoptions = array('oauth_token=', 'token_secret='); | ||
|  | 
 | ||
|  | $helptext = <<<END_OF_VERIFY_HELP | ||
|  |   verifycreds.php [options] | ||
|  |   Use an access token to verify credentials thru the api | ||
|  | 
 | ||
|  |     -o --oauth_token       access token | ||
|  |     -s --token_secret      access token secret | ||
|  | 
 | ||
|  | END_OF_VERIFY_HELP; | ||
|  | 
 | ||
|  | $token        = null; | ||
|  | $token_secret = null; | ||
|  | 
 | ||
|  | require_once INSTALLDIR . '/scripts/commandline.inc'; | ||
|  | 
 | ||
|  | if (have_option('o', 'oauth_token')) { | ||
|  |     $token = get_option_value('oauth_token'); | ||
|  | } | ||
|  | 
 | ||
|  | if (have_option('s', 'token_secret')) { | ||
|  |     $token_secret = get_option_value('s', 'token_secret'); | ||
|  | } | ||
|  | 
 | ||
|  | if (empty($token)) { | ||
|  |     print "Please specify an access token.\n"; | ||
|  |     exit(1); | ||
|  | } | ||
|  | 
 | ||
|  | if (empty($token_secret)) { | ||
|  |     print "Please specify an access token secret.\n"; | ||
|  |     exit(1); | ||
|  | } | ||
|  | 
 | ||
|  | $ini = parse_ini_file("oauth.ini"); | ||
|  | 
 | ||
|  | $test_consumer = new OAuthConsumer($ini['consumer_key'], $ini['consumer_secret']); | ||
|  | 
 | ||
|  | $endpoint = $ini['apiroot'] . '/account/verify_credentials.xml'; | ||
|  | 
 | ||
|  | print "$endpoint\n"; | ||
|  | 
 | ||
|  | $at = new OAuthToken($token, $token_secret); | ||
|  | 
 | ||
|  | $parsed = parse_url($endpoint); | ||
|  | $params = array(); | ||
|  | parse_str($parsed['query'], $params); | ||
|  | 
 | ||
|  | $hmac_method = new OAuthSignatureMethod_HMAC_SHA1(); | ||
|  | 
 | ||
|  | $req_req = OAuthRequest::from_consumer_and_token($test_consumer, $at, "GET", $endpoint, $params); | ||
|  | $req_req->sign_request($hmac_method, $test_consumer, $at); | ||
|  | 
 | ||
|  | $r = httpRequest($req_req->to_url()); | ||
|  | 
 | ||
|  | $body = $r->getBody(); | ||
|  | 
 | ||
|  | print "$body\n"; | ||
|  | 
 | ||
|  | //print $req_req->to_url() . "\n\n";
 | ||
|  | 
 | ||
|  | function httpRequest($url) | ||
|  | { | ||
|  |     $request = HTTPClient::start(); | ||
|  | 
 | ||
|  |     $request->setConfig(array( | ||
|  | 			      'follow_redirects' => true, | ||
|  | 			      'connect_timeout' => 120, | ||
|  | 			      'timeout' => 120, | ||
|  | 			      'ssl_verify_peer' => false, | ||
|  | 			      'ssl_verify_host' => false | ||
|  | 			      )); | ||
|  | 
 | ||
|  |     return $request->get($url); | ||
|  | } | ||
|  | 
 |