120 lines
3.3 KiB
PHP
120 lines
3.3 KiB
PHP
|
<?php
|
||
|
|
# -- BEGIN LICENSE BLOCK ----------------------------------
|
||
|
|
# This file is part of kUtRL, a plugin for Dotclear 2.
|
||
|
|
#
|
||
|
|
# Copyright (c) 2009-2011 JC Denis and contributors
|
||
|
|
# jcdenis@gdwd.com
|
||
|
|
#
|
||
|
|
# Licensed under the GPL version 2.0 license.
|
||
|
|
# A copy of this license is available in LICENSE file or at
|
||
|
|
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
|
||
|
|
# -- END LICENSE BLOCK ------------------------------------
|
||
|
|
|
||
|
|
if (!defined('DC_RC_PATH')){return;}
|
||
|
|
|
||
|
|
class suprKutrlService extends kutrlService
|
||
|
|
{
|
||
|
|
protected $config = array(
|
||
|
|
'id' => 'supr',
|
||
|
|
'name' => 'su.pr StumbleUpon',
|
||
|
|
'home' => 'http://su.pr',
|
||
|
|
|
||
|
|
'url_api' => 'http://su.pr/api/',
|
||
|
|
'url_base' => 'http://su.pr/',
|
||
|
|
'url_min_len' => 23
|
||
|
|
);
|
||
|
|
|
||
|
|
private $args = array(
|
||
|
|
'version' => '1.0',
|
||
|
|
'format' => 'xml',
|
||
|
|
'login' => '',
|
||
|
|
'apiKey' => ''
|
||
|
|
);
|
||
|
|
|
||
|
|
protected function init()
|
||
|
|
{
|
||
|
|
$this->args['login'] = $this->settings->kutrl_srv_supr_login;
|
||
|
|
$this->args['apiKey'] = $this->settings->kutrl_srv_supr_apikey;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function saveSettings()
|
||
|
|
{
|
||
|
|
$this->settings->put('kutrl_srv_supr_login',$_POST['kutrl_srv_supr_login']);
|
||
|
|
$this->settings->put('kutrl_srv_supr_apikey',$_POST['kutrl_srv_supr_apikey']);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function settingsForm()
|
||
|
|
{
|
||
|
|
echo
|
||
|
|
'<p><label class="classic">'.__('Login:').'<br />'.
|
||
|
|
form::field(array('kutrl_srv_supr_login'),50,255,$this->settings->kutrl_srv_supr_login).
|
||
|
|
'</label></p>'.
|
||
|
|
'<p class="form-note">'.
|
||
|
|
sprintf(__('This is your login to sign up to %s'),$this->config['name']).
|
||
|
|
'</p>'.
|
||
|
|
'<p><label class="classic">'.__('API Key:').'<br />'.
|
||
|
|
form::field(array('kutrl_srv_supr_apikey'),50,255,$this->settings->kutrl_srv_supr_apikey).
|
||
|
|
'</label></p>'.
|
||
|
|
'<p class="form-note">'.
|
||
|
|
sprintf(__('This is your personnal %s API key. You can find it on your account page.'),$this->config['name']).
|
||
|
|
'</p>';
|
||
|
|
}
|
||
|
|
|
||
|
|
public function testService()
|
||
|
|
{
|
||
|
|
if (empty($this->args['login']) || empty($this->args['apiKey']))
|
||
|
|
{
|
||
|
|
$this->error->add(__('Service is not well configured.'));
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$args = $this->args;
|
||
|
|
$arg['longUrl'] = $this->url_test;
|
||
|
|
if (!($response = self::post($this->url_api.'shorten',$args,true)))
|
||
|
|
{
|
||
|
|
$this->error->add(__('Failed to call service.'));
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$rsp = simplexml_load_string($response);
|
||
|
|
|
||
|
|
$status = (string) $rsp->statusCode;
|
||
|
|
if ($status != 'OK') {
|
||
|
|
$err_no = (integer) $rsp->errorCode;
|
||
|
|
$err_msg = (integer) $rsp->errorMessage;
|
||
|
|
$this->error->add(sprintf(__('An error occured with code %s and message "%s"'),$err_no,$err_msg));
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function createHash($url,$hash=null)
|
||
|
|
{
|
||
|
|
$args = $this->args;
|
||
|
|
$args['longUrl'] = $url;
|
||
|
|
|
||
|
|
if (!($response = self::post($this->url_api.'shorten',$args,true)))
|
||
|
|
{
|
||
|
|
$this->error->add(__('Failed to call service.'));
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$rsp = simplexml_load_string($response);
|
||
|
|
|
||
|
|
$status = (string) $rsp->statusCode;
|
||
|
|
if ($status != 'OK') {
|
||
|
|
$err_no = (integer) $rsp->errorCode;
|
||
|
|
$err_msg = (integer) $rsp->errorMessage;
|
||
|
|
$this->error->add(sprintf(__('An error occured with code %s and message "%s"'),$err_no,$err_msg));
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$rs = new ArrayObject();
|
||
|
|
$rs->hash = (string) $rsp->results[0]->nodeKeyVal->hash;
|
||
|
|
$rs->url = (string) $rsp->results[0]->nodeKeyVal->nodeKey;
|
||
|
|
$rs->type = $this->id;
|
||
|
|
|
||
|
|
return $rs;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
?>
|