update to PSR12
parent
40a3269b20
commit
cfcccf32d7
66
_admin.php
66
_admin.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -65,7 +64,7 @@ class adminKutrl
|
|||
public static function antispamDashboardFavorites(dcCore $core, $favs)
|
||||
{
|
||||
$favs->register(
|
||||
'kUtRL',
|
||||
'kUtRL',
|
||||
[
|
||||
'title' => __('Links shortener'),
|
||||
'url' => $core->adminurl->get('admin.plugin.kUtRL'),
|
||||
|
@ -118,14 +117,13 @@ class adminKutrl
|
|||
|
||||
if ($post) {
|
||||
$post_url = $post->getURL();
|
||||
$rs = $kut->isKnowUrl($post_url);
|
||||
$rs = $kut->isKnowUrl($post_url);
|
||||
} else {
|
||||
$post_url = '';
|
||||
$rs = false;
|
||||
$rs = false;
|
||||
}
|
||||
|
||||
$ret =
|
||||
'<div id="kUtRL"><h5>' . __('Short link') . '</h5>' .
|
||||
$ret = '<div id="kUtRL"><h5>' . __('Short link') . '</h5>' .
|
||||
form::hidden(['kutrl_old_post_url'], $post_url);
|
||||
|
||||
if (!$rs) {
|
||||
|
@ -134,14 +132,12 @@ class adminKutrl
|
|||
} else {
|
||||
$chk = !empty($_POST['kutrl_create']);
|
||||
}
|
||||
$ret .=
|
||||
'<p><label class="classic">' .
|
||||
$ret .= '<p><label class="classic">' .
|
||||
form::checkbox('kutrl_create', 1, $chk, '', 3) . ' ' .
|
||||
__('Create short link') . '</label></p>';
|
||||
|
||||
if ($kut->allow_custom_hash) {
|
||||
$ret .=
|
||||
'<p class="classic">' .
|
||||
$ret .= '<p class="classic">' .
|
||||
'<label for="custom">' . __('Custom short link:') . ' ' .
|
||||
form::field('kutrl_create_custom', 32, 32, '', 3) .
|
||||
'</label></p>';
|
||||
|
@ -153,12 +149,11 @@ class adminKutrl
|
|||
} elseif ($count == 1) {
|
||||
$title = __('followed one time');
|
||||
} else {
|
||||
$title = sprintf(__('followed %s times'),$count);
|
||||
$title = sprintf(__('followed %s times'), $count);
|
||||
}
|
||||
$href = $kut->url_base . $rs->hash;
|
||||
|
||||
$ret .=
|
||||
'<p><label class="classic">' .
|
||||
$ret .= '<p><label class="classic">' .
|
||||
form::checkbox('kutrl_delete', 1, !empty($_POST['kutrl_delete']), '', 3) . ' ' .
|
||||
__('Delete short link') . '</label></p>' .
|
||||
'<p><a href="' . $href . '" ' . 'title="' . $title . '">' . $href . '</a></p>';
|
||||
|
@ -194,7 +189,7 @@ class adminKutrl
|
|||
if ($rs->isEmpty()) {
|
||||
return null;
|
||||
}
|
||||
$title = html::escapeHTML($rs->post_title);
|
||||
$title = html::escapeHTML($rs->post_title);
|
||||
$new_post_url = $rs->getURL();
|
||||
|
||||
# Delete
|
||||
|
@ -208,12 +203,12 @@ class adminKutrl
|
|||
|
||||
$kut->remove($old_post_url);
|
||||
|
||||
$rs = $kut->hash($new_post_url, $custom); // better to update (not yet implemented)
|
||||
$rs = $kut->hash($new_post_url, $custom); // better to update (not yet implemented)
|
||||
$url = $kut->url_base . $rs->hash;
|
||||
|
||||
# ex: Send new url to messengers
|
||||
if (!empty($rs)) {
|
||||
$core->callBehavior('adminAfterKutrlCreate' ,$core, $rs, $title);
|
||||
$core->callBehavior('adminAfterKutrlCreate', $core, $rs, $title);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
@ -239,7 +234,7 @@ class adminKutrl
|
|||
$custom = !empty($_POST['kutrl_create_custom']) && $kut->allow_custom_hash ?
|
||||
$_POST['kutrl_create_custom'] : null;
|
||||
|
||||
$rs = $kut->hash($rs->getURL(), $custom);
|
||||
$rs = $kut->hash($rs->getURL(), $custom);
|
||||
$url = $kut->url_base . $rs->hash;
|
||||
|
||||
# ex: Send new url to messengers
|
||||
|
@ -273,8 +268,8 @@ class adminKutrl
|
|||
global $core;
|
||||
$s = $core->blog->settings->kUtRL;
|
||||
|
||||
if (!$s->kutrl_active
|
||||
|| !$core->auth->check('admin',$core->blog->id)) {
|
||||
if (!$s->kutrl_active
|
||||
|| !$core->auth->check('admin', $core->blog->id)) {
|
||||
return null;
|
||||
}
|
||||
|
||||
|
@ -284,7 +279,7 @@ class adminKutrl
|
|||
|
||||
public static function adminPostsActions(dcCore $core, $posts, $action, $redir)
|
||||
{
|
||||
if ($action != 'kutrl_create'
|
||||
if ($action != 'kutrl_create'
|
||||
&& $action != 'kutrl_delete') {
|
||||
return null;
|
||||
}
|
||||
|
@ -316,7 +311,8 @@ class backupKutrl
|
|||
{
|
||||
public static function exportSingle($core, $exp, $blog_id)
|
||||
{
|
||||
$exp->export('kutrl',
|
||||
$exp->export(
|
||||
'kutrl',
|
||||
'SELECT kut_id, blog_id, kut_service, kut_type, ' .
|
||||
'kut_hash, kut_url, kut_dt, kut_password, kut_counter ' .
|
||||
'FROM ' . $core->prefix . 'kutrl ' .
|
||||
|
@ -332,10 +328,10 @@ class backupKutrl
|
|||
public static function importInit($bk, $core)
|
||||
{
|
||||
$bk->cur_kutrl = $core->con->openCursor($core->prefix . 'kutrl');
|
||||
$bk->kutrl = new kutrlLog($core);
|
||||
$bk->kutrl = new kutrlLog($core);
|
||||
}
|
||||
|
||||
public static function importSingle($line,$bk,$core)
|
||||
public static function importSingle($line, $bk, $core)
|
||||
{
|
||||
if ($line->__name == 'kutrl') {
|
||||
# Do nothing if str/type exists !
|
||||
|
@ -349,16 +345,16 @@ class backupKutrl
|
|||
{
|
||||
if ($line->__name == 'kutrl') {
|
||||
$bk->cur_kutrl->clean();
|
||||
$bk->cur_kutrl->kut_id = (integer) $line->kut_id;
|
||||
$bk->cur_kutrl->blog_id = (string) $line->blog_id;
|
||||
$bk->cur_kutrl->kut_service = (string) $line->kut_service;
|
||||
$bk->cur_kutrl->kut_type = (string) $line->kut_type;
|
||||
$bk->cur_kutrl->kut_hash = (string) $line->kut_hash;
|
||||
$bk->cur_kutrl->kut_url = (string) $line->kut_url;
|
||||
$bk->cur_kutrl->kut_dt = (string) $line->miniurl_dt;
|
||||
$bk->cur_kutrl->kut_counter = (integer) $line->kut_counter;
|
||||
$bk->cur_kutrl->kut_id = (int) $line->kut_id;
|
||||
$bk->cur_kutrl->blog_id = (string) $line->blog_id;
|
||||
$bk->cur_kutrl->kut_service = (string) $line->kut_service;
|
||||
$bk->cur_kutrl->kut_type = (string) $line->kut_type;
|
||||
$bk->cur_kutrl->kut_hash = (string) $line->kut_hash;
|
||||
$bk->cur_kutrl->kut_url = (string) $line->kut_url;
|
||||
$bk->cur_kutrl->kut_dt = (string) $line->miniurl_dt;
|
||||
$bk->cur_kutrl->kut_counter = (int) $line->kut_counter;
|
||||
$bk->cur_kutrl->kut_password = (string) $line->kut_password;
|
||||
$bk->cur_kutrl->insert();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
92
_config.php
92
_config.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return;
|
||||
}
|
||||
|
@ -26,34 +25,34 @@ $img_green = '<img src="images/check-on.png" alt="ok" />';
|
|||
$img_red = '<img src="images/check-off.png" alt="fail" />';
|
||||
|
||||
$services_combo = [];
|
||||
foreach(kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
foreach (kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
$services_combo[__($o->name)] = $o->id;
|
||||
}
|
||||
$ext_services_combo = array_merge([__('Disabled') => ''], $services_combo);
|
||||
$lst_services_combo = array_merge(['-' => ''], $services_combo);
|
||||
|
||||
$s_active = (boolean) $s->kutrl_active;
|
||||
$s_plugin_service = (string) $s->kutrl_plugin_service;
|
||||
$s_admin_service = (string) $s->kutrl_admin_service;
|
||||
$s_tpl_service = (string) $s->kutrl_tpl_service;
|
||||
$s_wiki_service = (string) $s->kutrl_wiki_service;
|
||||
$s_allow_external_url = (boolean) $s->kutrl_allow_external_url;
|
||||
$s_tpl_passive = (boolean) $s->kutrl_tpl_passive;
|
||||
$s_tpl_active = (boolean) $s->kutrl_tpl_active;
|
||||
$s_active = (bool) $s->kutrl_active;
|
||||
$s_plugin_service = (string) $s->kutrl_plugin_service;
|
||||
$s_admin_service = (string) $s->kutrl_admin_service;
|
||||
$s_tpl_service = (string) $s->kutrl_tpl_service;
|
||||
$s_wiki_service = (string) $s->kutrl_wiki_service;
|
||||
$s_allow_external_url = (bool) $s->kutrl_allow_external_url;
|
||||
$s_tpl_passive = (bool) $s->kutrl_tpl_passive;
|
||||
$s_tpl_active = (bool) $s->kutrl_tpl_active;
|
||||
$s_admin_entry_default = (string) $s->kutrl_admin_entry_default;
|
||||
|
||||
if (!empty($_POST['save'])) {
|
||||
try {
|
||||
# settings
|
||||
$s_active = !empty($_POST['s_active']);
|
||||
$s_admin_service = (string) $_POST['s_admin_service'];
|
||||
$s_plugin_service = (string) $_POST['s_plugin_service'];
|
||||
$s_tpl_service = (string) $_POST['s_tpl_service'];
|
||||
$s_wiki_service = (string) $_POST['s_wiki_service'];
|
||||
$s_allow_external_url = !empty($_POST['s_allow_external_url']);
|
||||
$s_tpl_passive = !empty($_POST['s_tpl_passive']);
|
||||
$s_tpl_active = !empty($_POST['s_tpl_active']);
|
||||
$s_active = !empty($_POST['s_active']);
|
||||
$s_admin_service = (string) $_POST['s_admin_service'];
|
||||
$s_plugin_service = (string) $_POST['s_plugin_service'];
|
||||
$s_tpl_service = (string) $_POST['s_tpl_service'];
|
||||
$s_wiki_service = (string) $_POST['s_wiki_service'];
|
||||
$s_allow_external_url = !empty($_POST['s_allow_external_url']);
|
||||
$s_tpl_passive = !empty($_POST['s_tpl_passive']);
|
||||
$s_tpl_active = !empty($_POST['s_tpl_active']);
|
||||
$s_admin_entry_default = !empty($_POST['s_admin_entry_default']);
|
||||
|
||||
$s->put('kutrl_active', $s_active);
|
||||
|
@ -67,7 +66,7 @@ if (!empty($_POST['save'])) {
|
|||
$s->put('kutrl_admin_entry_default', $s_admin_entry_default);
|
||||
|
||||
# services
|
||||
foreach(kutrl::getServices($core) as $service_id => $service) {
|
||||
foreach (kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
$o->saveSettings();
|
||||
}
|
||||
|
@ -79,7 +78,7 @@ if (!empty($_POST['save'])) {
|
|||
);
|
||||
|
||||
$core->adminurl->redirect(
|
||||
'admin.plugins',
|
||||
'admin.plugins',
|
||||
['module' => 'kUtRL', 'conf' => 1, 'chk' => 1, 'redir' => $list->getRedir()]
|
||||
);
|
||||
} catch (Exception $e) {
|
||||
|
@ -88,45 +87,45 @@ if (!empty($_POST['save'])) {
|
|||
}
|
||||
|
||||
echo '
|
||||
<div class="fieldset"><h4>' . __('Settings') . '</h4>
|
||||
<div class="fieldset"><h4>' . __('Settings') . '</h4>
|
||||
<div id="setting-plugin">
|
||||
<h5>' . __('Activation') . '</h5>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_active'], '1', $s_active) .
|
||||
<h5>' . __('Activation') . '</h5>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_active'], '1', $s_active) .
|
||||
__('Enable plugin') . '</label></p>
|
||||
</div>
|
||||
|
||||
<hr/><div id="setting-option">
|
||||
<h5>' . __('Behaviors') . '</h5>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_allow_external_url'], '1', $s_allow_external_url) .
|
||||
<h5>' . __('Behaviors') . '</h5>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_allow_external_url'], '1', $s_allow_external_url) .
|
||||
__('Allow short link for external URL') . '</label></p>
|
||||
<p class="form-note">' . __('Not only link started with this blog URL could be shortened.') . '</p>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_tpl_passive'], '1', $s_tpl_passive) .
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_tpl_passive'], '1', $s_tpl_passive) .
|
||||
__('Passive mode') . '</label></p>
|
||||
<p class="form-note">' . __('If this extension is disabled and the passive mode is enabled, "kutrl" tags (like EntryKurl) will display long urls instead of nothing on templates.') . '</p>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_tpl_active'], '1', $s_tpl_active) .
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_tpl_active'], '1', $s_tpl_active) .
|
||||
__('Active mode') . '</label></p>
|
||||
<p class="form-note">' . __('If the active mode is enabled, all know default template tags (like EntryURL) will display short urls instead of long ones on templates.') . '<br />' .
|
||||
<p class="form-note">' . __('If the active mode is enabled, all know default template tags (like EntryURL) will display short urls instead of long ones on templates.') . '<br />' .
|
||||
__('You can disable URL shortening for a specific template tag by adding attribute disable_kutrl="1" to it . ') . '</p>
|
||||
<p class="warning">' . __('We strongly discourage using active mode as it crashes public post form and complex url if theme is not customize for kUtRL.') . '</p>
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_admin_entry_default'], '1', $s_admin_entry_default) .
|
||||
<p><label class="classic">' .
|
||||
form::checkbox(['s_admin_entry_default'], '1', $s_admin_entry_default) .
|
||||
__('Create short link for new entries') . '</label></p>
|
||||
<p class="form-note">' . __('This can be changed on page of creation/edition of an entry.') . '</p>
|
||||
</div>
|
||||
|
||||
<hr/><div id="setting-service">
|
||||
<h5>' . __('Default services') . '</h5>
|
||||
<h5>' . __('Default services') . '</h5>
|
||||
<p><label>';
|
||||
if (!empty($_REQUEST['chk'])) {
|
||||
if (null !== ($o = kutrl::quickPlace($s_admin_service))) {
|
||||
echo $o->testService() ? $img_green : $img_red;
|
||||
}
|
||||
}
|
||||
echo ' ' . __('Administration:') . '<br />' .
|
||||
echo ' ' . __('Administration:') . '<br />' .
|
||||
form::combo(['s_admin_service'], $services_combo, $s_admin_service) . '
|
||||
</label></p>
|
||||
<p class="form-note">' . __('Service to use in this admin page and on edit page of an entry.') . '</p>
|
||||
|
@ -136,7 +135,7 @@ if (!empty($_REQUEST['chk'])) {
|
|||
echo $o->testService() ? $img_green : $img_red;
|
||||
}
|
||||
}
|
||||
echo ' ' . __('Extensions:') . '<br />' .
|
||||
echo ' ' . __('Extensions:') . '<br />' .
|
||||
form::combo(['s_plugin_service'], $services_combo, $s_plugin_service) . '
|
||||
</label></p>
|
||||
<p class="form-note">' . __('Service to use on third part plugins.') . '</p>
|
||||
|
@ -146,7 +145,7 @@ if (!empty($_REQUEST['chk'])) {
|
|||
echo $o->testService() ? $img_green : $img_red;
|
||||
}
|
||||
}
|
||||
echo ' ' . __('Templates:') . '<br />' .
|
||||
echo ' ' . __('Templates:') . '<br />' .
|
||||
form::combo(['s_tpl_service'], $ext_services_combo, $s_tpl_service) . '
|
||||
</label></p>
|
||||
<p class="form-note">' . __('Shorten links automatically when using template value like "EntryKutrl".') . '</p>
|
||||
|
@ -156,7 +155,7 @@ if (!empty($_REQUEST['chk'])) {
|
|||
echo $o->testService() ? $img_green : $img_red;
|
||||
}
|
||||
}
|
||||
echo ' ' . __('Contents:') . '<br />' .
|
||||
echo ' ' . __('Contents:') . '<br />' .
|
||||
form::combo(['s_wiki_service'], $ext_services_combo, $s_wiki_service) . '
|
||||
</label></p>
|
||||
<p class="form-note">' . __('Shorten links automatically found in contents using wiki synthax.') . '</p>
|
||||
|
@ -164,17 +163,18 @@ form::combo(['s_wiki_service'], $ext_services_combo, $s_wiki_service) . '
|
|||
</div>
|
||||
|
||||
<div class="fieldset">
|
||||
<h4>' .__('Services') . '</h4>
|
||||
<h4>' . __('Services') . '</h4>
|
||||
<p class="info">' . __('List of services you can use to shorten links with pkugin kUtRL.') . '</p>
|
||||
';
|
||||
|
||||
foreach(kutrl::getServices($core) as $service_id => $service) {
|
||||
foreach (kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
|
||||
echo '<hr/><div id="setting-' . $service_id . '"><h5>' . $o->name . '</h5>';
|
||||
|
||||
if (!empty($_REQUEST['chk'])) {
|
||||
$img_chk = $img_red . ' ' . sprintf(__('Failed to test %s API.'), $o->name);
|
||||
|
||||
try {
|
||||
if ($o->testService()) {
|
||||
$img_chk = $img_green . ' ' . sprintf(__('%s API is well configured and runing.'), $o->name);
|
||||
|
@ -192,4 +192,4 @@ foreach(kutrl::getServices($core) as $service_id => $service) {
|
|||
echo '</div>';
|
||||
}
|
||||
|
||||
echo'</div>';
|
||||
echo'</div>';
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -28,4 +27,4 @@ $this->registerModule(
|
|||
'details' => 'http://plugins.dotaddict.org/dc2/details/kUtRL',
|
||||
'repository' => 'https://raw.githubusercontent.com/JcDenis/kUtRL/master/dcstore.xml'
|
||||
]
|
||||
);
|
||||
);
|
||||
|
|
17
_install.php
17
_install.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return;
|
||||
}
|
||||
|
@ -45,7 +44,7 @@ try {
|
|||
->index('idx_kut_service', 'btree', 'kut_service')
|
||||
->index('idx_kut_type', 'btree', 'kut_type');
|
||||
|
||||
$ti = new dbStruct($core->con, $core->prefix);
|
||||
$ti = new dbStruct($core->con, $core->prefix);
|
||||
$changes = $ti->synchronize($t);
|
||||
|
||||
# Settings
|
||||
|
@ -61,9 +60,8 @@ try {
|
|||
$s->put('kutrl_tpl_active', false, 'boolean', 'Return short url on dotclear tags if kutrl is active', false, true);
|
||||
$s->put('kutrl_admin_entry_default', true, 'boolean', 'Create short link on new entry by default', false, true);
|
||||
# Settings for "local" service
|
||||
$local_css =
|
||||
".shortenkutrlwidget input { border: 1px solid #CCCCCC; }\n" .
|
||||
".dc-kutrl input { border: 1px solid #CCCCCC; margin: 10px; }";
|
||||
$local_css = ".shortenkutrlwidget input { border: 1px solid #CCCCCC; }\n" .
|
||||
'.dc-kutrl input { border: 1px solid #CCCCCC; margin: 10px; }';
|
||||
$s->put('kutrl_srv_local_protocols', 'http:,https:,ftp:,ftps:,irc:', 'string', 'Allowed kutrl local service protocols', false, true);
|
||||
$s->put('kutrl_srv_local_public', false, 'boolean', 'Enabled local service public page', false, true);
|
||||
$s->put('kutrl_srv_local_css', $local_css, 'string', 'Special CSS for kutrl local service', false, true);
|
||||
|
@ -82,9 +80,10 @@ try {
|
|||
if ($core->plugins->moduleExists('dcMiniUrl')) {
|
||||
require_once dirname(__FILE__) . '/inc/patch.dcminiurl.php';
|
||||
}
|
||||
|
||||
return true;
|
||||
} catch (Exception $e) {
|
||||
$core->error->add($e->getMessage());
|
||||
}
|
||||
|
||||
return false;
|
||||
return false;
|
||||
|
|
31
_prepend.php
31
_prepend.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
@ -33,7 +32,7 @@ if (!defined('SHORTEN_SERVICE_ENCODE')) {
|
|||
}
|
||||
|
||||
# Main class
|
||||
$d = dirname(__FILE__) . '/inc/';
|
||||
$d = dirname(__FILE__) . '/inc/';
|
||||
$__autoload['kutrl'] = $d . 'class.kutrl.php';
|
||||
$__autoload['kutrlService'] = $d . 'lib.kutrl.srv.php';
|
||||
$__autoload['kutrlLog'] = $d . 'lib.kutrl.log.php';
|
||||
|
@ -41,22 +40,22 @@ $__autoload['kutrlLinksList'] = $d . 'lib.kutrl.lst.php';
|
|||
|
||||
# Services
|
||||
$__autoload['defaultKutrlService'] = $d . 'services/class.default.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["default","defaultKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['default','defaultKutrlService']; });
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_CUSTOM')) {
|
||||
$__autoload['customKutrlService'] = $d . 'services/class.custom.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["custom","customKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['custom','customKutrlService']; });
|
||||
}
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_LOCAL')) {
|
||||
$__autoload['localKutrlService'] = $d . 'services/class.local.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["local","localKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['local','localKutrlService']; });
|
||||
}
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_BILBOLINKS')) {
|
||||
$__autoload['bilbolinksKutrlService'] = $d . 'services/class.bilbolinks.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["bilbolinks","bilbolinksKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['bilbolinks','bilbolinksKutrlService']; });
|
||||
}
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_BITLY')) {
|
||||
$__autoload['bitlyKutrlService'] = $d . 'services/class.bitly.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["bitly","bitlyKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['bitly','bitlyKutrlService']; });
|
||||
}
|
||||
//if (!defined('SHORTEN_SERVICE_DISABLE_GOOGL')) {
|
||||
// $__autoload['googlKutrlService'] = $d . 'services/class.googl.service.php';
|
||||
|
@ -64,7 +63,7 @@ if (!defined('SHORTEN_SERVICE_DISABLE_BITLY')) {
|
|||
//}
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_ISGD')) {
|
||||
$__autoload['isgdKutrlService'] = $d . 'services/class.isgd.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["isgd","isgdKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['isgd','isgdKutrlService']; });
|
||||
}
|
||||
//if (!defined('SHORTEN_SERVICE_DISABLE_SHORTTO')) {
|
||||
// $__autoload['shorttoKutrlService'] = $d . 'services/class.shortto.service.php';
|
||||
|
@ -76,7 +75,7 @@ if (!defined('SHORTEN_SERVICE_DISABLE_ISGD')) {
|
|||
//}
|
||||
if (!defined('SHORTEN_SERVICE_DISABLE_YOURLS')) {
|
||||
$__autoload['yourlsKutrlService'] = $d . 'services/class.yourls.service.php';
|
||||
$core->addBehavior('kutrlService', function() { return ["yourls","yourlsKutrlService"]; } );
|
||||
$core->addBehavior('kutrlService', function () { return ['yourls','yourlsKutrlService']; });
|
||||
}
|
||||
//if (!defined('SHORTEN_SERVICE_DISABLE_SUPR')) {
|
||||
// $__autoload['suprKutrlService'] = $d . 'services/class.supr.service.php';
|
||||
|
@ -85,9 +84,9 @@ if (!defined('SHORTEN_SERVICE_DISABLE_YOURLS')) {
|
|||
|
||||
# Shorten url passed through wiki functions
|
||||
$__autoload['kutrlWiki'] = $d . 'lib.wiki.kutrl.php';
|
||||
$core->addBehavior('coreInitWikiPost',['kutrlWiki','coreInitWiki']);
|
||||
$core->addBehavior('coreInitWikiComment',['kutrlWiki','coreInitWiki']);
|
||||
$core->addBehavior('coreInitWikiSimpleComment',['kutrlWiki','coreInitWiki']);
|
||||
$core->addBehavior('coreInitWikiPost', ['kutrlWiki','coreInitWiki']);
|
||||
$core->addBehavior('coreInitWikiComment', ['kutrlWiki','coreInitWiki']);
|
||||
$core->addBehavior('coreInitWikiSimpleComment', ['kutrlWiki','coreInitWiki']);
|
||||
|
||||
# Public page
|
||||
$core->url->register('kutrl', 'go', '^go(/(.*?)|)$', ['urlKutrl', 'redirectUrl']);
|
||||
|
@ -95,4 +94,4 @@ $core->url->register('kutrl', 'go', '^go(/(.*?)|)$', ['urlKutrl', 'redirectUrl']
|
|||
# Add kUtRL events on plugin activityReport
|
||||
if (defined('ACTIVITY_REPORT')) {
|
||||
require_once $d . 'lib.kutrl.activityreport.php';
|
||||
}
|
||||
}
|
||||
|
|
130
_public.php
130
_public.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -67,9 +66,9 @@ class urlKutrl extends dcUrlHandlers
|
|||
return null;
|
||||
}
|
||||
|
||||
$args = isset($m[3]) ? $m[3] : '';
|
||||
$_ctx->kutrl_msg = '';
|
||||
$_ctx->kutrl_hmf = hmfKutrl::create();
|
||||
$args = $m[3] ?? '';
|
||||
$_ctx->kutrl_msg = '';
|
||||
$_ctx->kutrl_hmf = hmfKutrl::create();
|
||||
$_ctx->kutrl_hmfp = hmfKutrl::protect($_ctx->kutrl_hmf);
|
||||
|
||||
$kut = new localKutrlService($core);
|
||||
|
@ -81,7 +80,7 @@ class urlKutrl extends dcUrlHandlers
|
|||
# find suffix on redirect url
|
||||
$suffix = '';
|
||||
if (preg_match('@^([^?/#]+)(.*?)$@', $args, $more)) {
|
||||
$args = $more[1];
|
||||
$args = $more[1];
|
||||
$suffix = $more[2];
|
||||
}
|
||||
# No arg, go to kurtl page
|
||||
|
@ -131,50 +130,50 @@ class urlKutrl extends dcUrlHandlers
|
|||
# Validation form
|
||||
$url = !empty($_POST['longurl']) ? trim($core->con->escape($_POST['longurl'])) : '';
|
||||
if (!empty($url)) {
|
||||
$hmf = !empty($_POST['hmf']) ? $_POST['hmf'] : '!';
|
||||
$hmf = !empty($_POST['hmf']) ? $_POST['hmf'] : '!';
|
||||
$hmfu = !empty($_POST['hmfp']) ? hmfKutrl::unprotect($_POST['hmfp']) : '?';
|
||||
|
||||
$err = false;
|
||||
if (!$err) {
|
||||
if ($hmf != $hmfu) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('Failed to verify protected field.');
|
||||
}
|
||||
}
|
||||
if (!$err) {
|
||||
if (!$kut->testService()) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('Service is not well configured.');
|
||||
}
|
||||
}
|
||||
if (!$err) {
|
||||
if (!$kut->isValidUrl($url)) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('This string is not a valid URL.');
|
||||
}
|
||||
}
|
||||
if (!$err) {
|
||||
if (!$kut->isLongerUrl($url)) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('This link is too short.');
|
||||
}
|
||||
}
|
||||
if (!$err) {
|
||||
if (!$kut->isProtocolUrl($url)) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('This type of link is not allowed.');
|
||||
}
|
||||
}
|
||||
|
||||
if (!$err) {
|
||||
if (!$kut->allow_external_url && !$kut->isBlogUrl($url)) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('Short links are limited to this blog URL.');
|
||||
}
|
||||
}
|
||||
if (!$err) {
|
||||
if ($kut->isServiceUrl($url)) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('This link is already a short link.');
|
||||
}
|
||||
}
|
||||
|
@ -182,7 +181,7 @@ class urlKutrl extends dcUrlHandlers
|
|||
if (false !== ($rs = $kut->isKnowUrl($url))) {
|
||||
$err = true;
|
||||
|
||||
$url = $rs->url;
|
||||
$url = $rs->url;
|
||||
$new_url = $kut->url_base . $rs->hash;
|
||||
|
||||
$_ctx->kutrl_msg = sprintf(
|
||||
|
@ -194,10 +193,10 @@ class urlKutrl extends dcUrlHandlers
|
|||
}
|
||||
if (!$err) {
|
||||
if (false === ($rs = $kut->hash($url))) {
|
||||
$err = true;
|
||||
$err = true;
|
||||
$_ctx->kutrl_msg = __('Failed to create short link.');
|
||||
} else {
|
||||
$url = $rs->url;
|
||||
$url = $rs->url;
|
||||
$new_url = $kut->url_base . $rs->hash;
|
||||
|
||||
$_ctx->kutrl_msg = sprintf(
|
||||
|
@ -232,13 +231,13 @@ class urlKutrl extends dcUrlHandlers
|
|||
}
|
||||
|
||||
$core->tpl->setPath($core->tpl->getPath(), dirname(__FILE__) . '/default-templates');
|
||||
$_ctx =& $GLOBALS['_ctx'];
|
||||
$_ctx = & $GLOBALS['_ctx'];
|
||||
$core = $GLOBALS['core'];
|
||||
|
||||
header('Content-Type: text/html; charset=UTF-8');
|
||||
http::head(404, 'Not Found');
|
||||
$core->url->type = '404';
|
||||
$_ctx->current_tpl = 'kutrl404.html';
|
||||
$core->url->type = '404';
|
||||
$_ctx->current_tpl = 'kutrl404.html';
|
||||
$_ctx->content_type = 'text/html';
|
||||
|
||||
echo $core->tpl->getData($_ctx->current_tpl);
|
||||
|
@ -266,18 +265,20 @@ class pubKutrl
|
|||
# Disable URL shoretning on filtered tag
|
||||
public static function templateBeforeValue($core, $tag, $attr)
|
||||
{
|
||||
if (!empty($attr['disable_kutrl']) && in_array($tag,pubKutrl::$know_tags)) {
|
||||
if (!empty($attr['disable_kutrl']) && in_array($tag, pubKutrl::$know_tags)) {
|
||||
return '<?php $GLOBALS["disable_kutrl"] = true; ?>';
|
||||
}
|
||||
|
||||
return null;
|
||||
}
|
||||
|
||||
# Re unable it after tag
|
||||
public static function templateAfterValue($core, $tag, $attr)
|
||||
{
|
||||
if (!empty($attr['disable_kutrl']) && in_array($tag,pubKutrl::$know_tags)) {
|
||||
if (!empty($attr['disable_kutrl']) && in_array($tag, pubKutrl::$know_tags)) {
|
||||
return '<?php $GLOBALS["disable_kutrl"] = false; ?>';
|
||||
}
|
||||
|
||||
return null;
|
||||
}
|
||||
|
||||
|
@ -285,13 +286,13 @@ class pubKutrl
|
|||
public static function publicBeforeContentFilter($core, $tag, $args)
|
||||
{
|
||||
# Unknow tag
|
||||
if (!in_array($tag,pubKutrl::$know_tags)) {
|
||||
if (!in_array($tag, pubKutrl::$know_tags)) {
|
||||
return null;
|
||||
}
|
||||
# URL shortening is disabled by tag attribute
|
||||
if (empty($GLOBALS['disable_kutrl'])) {
|
||||
# kUtRL is not activated
|
||||
if (!$core->blog->settings->kUtRL->kutrl_active
|
||||
if (!$core->blog->settings->kUtRL->kutrl_active
|
||||
|| !$core->blog->settings->kUtRL->kutrl_tpl_active
|
||||
) {
|
||||
return null;
|
||||
|
@ -324,7 +325,7 @@ class pubKutrl
|
|||
$s = $core->blog->settings->kUtRL;
|
||||
|
||||
# Passive : all kutrl tag return long url
|
||||
$_ctx->kutrl_passive = (boolean) $s->kutrl_tpl_passive;
|
||||
$_ctx->kutrl_passive = (bool) $s->kutrl_tpl_passive;
|
||||
|
||||
if (!$s->kutrl_active || !$s->kutrl_tpl_service) {
|
||||
return null;
|
||||
|
@ -339,7 +340,7 @@ class pubKutrl
|
|||
{
|
||||
$css = $core->blog->settings->kUtRL->kutrl_srv_local_css;
|
||||
if ($css) {
|
||||
echo
|
||||
echo
|
||||
"\n<!-- CSS for kUtRL --> \n" .
|
||||
"<style type=\"text/css\"> \n" .
|
||||
html::escapeHTML($css) . "\n" .
|
||||
|
@ -353,6 +354,7 @@ class tplKutrl
|
|||
public static function pageURL($attr)
|
||||
{
|
||||
$f = $GLOBALS['core']->tpl->getFilters($attr);
|
||||
|
||||
return '<?php echo ' . sprintf($f, '$core->blog->url.$core->url->getBase("kutrl")') . '; ?>';
|
||||
}
|
||||
|
||||
|
@ -361,15 +363,15 @@ class tplKutrl
|
|||
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
|
||||
|
||||
if (isset($attr['is_active'])) {
|
||||
$sign = (boolean) $attr['is_active'] ? '' : '!';
|
||||
$sign = (bool) $attr['is_active'] ? '' : '!';
|
||||
$if[] = $sign . '$core->blog->settings->kUtRL->kutrl_srv_local_public';
|
||||
}
|
||||
if (empty($if)) {
|
||||
return $content;
|
||||
}
|
||||
|
||||
return
|
||||
"<?php if(" . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
return
|
||||
'<?php if(' . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
$content .
|
||||
"<?php endif; unset(\$s);?>\n";
|
||||
}
|
||||
|
@ -379,15 +381,15 @@ class tplKutrl
|
|||
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
|
||||
|
||||
if (isset($attr['has_message'])) {
|
||||
$sign = (boolean) $attr['has_message'] ? '!' : '=';
|
||||
$sign = (bool) $attr['has_message'] ? '!' : '=';
|
||||
$if[] = '"" ' . $sign . '= $_ctx->kutrl_msg';
|
||||
}
|
||||
if (empty($if)) {
|
||||
return $content;
|
||||
}
|
||||
|
||||
return
|
||||
"<?php if(" . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
return
|
||||
'<?php if(' . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
$content .
|
||||
"<?php endif; ?>\n";
|
||||
}
|
||||
|
@ -404,9 +406,9 @@ class tplKutrl
|
|||
|
||||
public static function humanFieldProtect($attr)
|
||||
{
|
||||
return
|
||||
"<input type=\"hidden\" name=\"hmfp\" id=\"hmfp\" value=\"<?php echo \$_ctx->kutrl_hmfp; ?>\" />".
|
||||
"<?php echo \$core->formNonce(); ?>";
|
||||
return
|
||||
'<input type="hidden" name="hmfp" id="hmfp" value="<?php echo $_ctx->kutrl_hmfp; ?>" />' .
|
||||
'<?php echo $core->formNonce(); ?>';
|
||||
}
|
||||
|
||||
public static function AttachmentKutrlIf($attr, $content)
|
||||
|
@ -439,7 +441,7 @@ class tplKutrl
|
|||
return self::genericKutrl('$_ctx->posts->user_url', $attr);
|
||||
}
|
||||
|
||||
public static function EntryKutrlIf($attr,$content)
|
||||
public static function EntryKutrlIf($attr, $content)
|
||||
{
|
||||
return self::genericKutrlIf('$_ctx->posts->getURL()', $attr, $content);
|
||||
}
|
||||
|
@ -474,22 +476,23 @@ class tplKutrl
|
|||
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
|
||||
|
||||
if (isset($attr['is_active'])) {
|
||||
$sign = (boolean) $attr['is_active'] ? '' : '!';
|
||||
$sign = (bool) $attr['is_active'] ? '' : '!';
|
||||
$if[] = $sign . '$_ctx->exists("kutrl")';
|
||||
}
|
||||
if (isset($attr['passive_mode'])) {
|
||||
$sign = (boolean) $attr['passive_mode'] ? '' : '!';
|
||||
$sign = (bool) $attr['passive_mode'] ? '' : '!';
|
||||
$if[] = $sign . '$_ctx->kutrl_passive';
|
||||
}
|
||||
if (isset($attr['has_kutrl'])) {
|
||||
$sign = (boolean) $attr['has_kutrl'] ? '!' : '=';
|
||||
$sign = (bool) $attr['has_kutrl'] ? '!' : '=';
|
||||
$if[] = '($_ctx->exists("kutrl") && false ' . $sign . '== $_ctx->kutrl->select(' . $str . ',null,null,"kutrl"))';
|
||||
}
|
||||
if (empty($if)) {
|
||||
return $content;
|
||||
}
|
||||
return
|
||||
"<?php if(" . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
|
||||
return
|
||||
'<?php if(' . implode(' ' . $operator . ' ', $if) . ") : ?>\n" .
|
||||
$content .
|
||||
"<?php endif; ?>\n";
|
||||
}
|
||||
|
@ -497,29 +500,30 @@ class tplKutrl
|
|||
protected static function genericKutrl($str, $attr)
|
||||
{
|
||||
$f = $GLOBALS['core']->tpl->getFilters($attr);
|
||||
return
|
||||
|
||||
return
|
||||
"<?php \n" .
|
||||
# Preview
|
||||
"if (\$_ctx->preview) { \n" .
|
||||
" echo " . sprintf($f, $str) . "; " .
|
||||
' echo ' . sprintf($f, $str) . '; ' .
|
||||
"} else { \n" .
|
||||
# Disable
|
||||
"if (!\$_ctx->exists('kutrl')) { \n" .
|
||||
# Passive mode
|
||||
" if (\$_ctx->kutrl_passive) { " .
|
||||
" echo " . sprintf($f, $str) . "; " .
|
||||
' if ($_ctx->kutrl_passive) { ' .
|
||||
' echo ' . sprintf($f, $str) . '; ' .
|
||||
" } \n" .
|
||||
"} else { \n" .
|
||||
# Existing
|
||||
" if (false !== (\$kutrl_rs = \$_ctx->kutrl->isKnowUrl(" . $str . "))) { " .
|
||||
" echo " . sprintf($f, '$_ctx->kutrl->url_base.$kutrl_rs->hash') . "; " .
|
||||
' if (false !== ($kutrl_rs = $_ctx->kutrl->isKnowUrl(' . $str . '))) { ' .
|
||||
' echo ' . sprintf($f, '$_ctx->kutrl->url_base.$kutrl_rs->hash') . '; ' .
|
||||
" } \n" .
|
||||
# New
|
||||
" elseif (false !== (\$kutrl_rs = \$_ctx->kutrl->hash(" . $str . "))) { " .
|
||||
" echo " . sprintf($f, '$_ctx->kutrl->url_base.$kutrl_rs->hash') . "; " .
|
||||
' elseif (false !== ($kutrl_rs = $_ctx->kutrl->hash(' . $str . '))) { ' .
|
||||
' echo ' . sprintf($f, '$_ctx->kutrl->url_base.$kutrl_rs->hash') . '; ' .
|
||||
|
||||
# ex: Send new url to messengers
|
||||
" if (!empty(\$kutrl_rs)) { " .
|
||||
' if (!empty($kutrl_rs)) { ' .
|
||||
" \$core->callBehavior('publicAfterKutrlCreate',\$core,\$kutrl_rs,__('New public short URL')); " .
|
||||
" } \n" .
|
||||
|
||||
|
@ -548,34 +552,36 @@ class hmfKutrl
|
|||
{
|
||||
public static $chars = 'abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ23456789';
|
||||
|
||||
public static function create($len=6)
|
||||
public static function create($len = 6)
|
||||
{
|
||||
$res = '';
|
||||
$res = '';
|
||||
$chars = self::$chars;
|
||||
for($i = 0; $i < $len; $i++) {
|
||||
$res .= $chars[rand(0, strlen($chars)-1)];
|
||||
for ($i = 0; $i < $len; $i++) {
|
||||
$res .= $chars[rand(0, strlen($chars) - 1)];
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
|
||||
public static function protect($str)
|
||||
{
|
||||
$res = '';
|
||||
$res = '';
|
||||
$chars = self::$chars;
|
||||
for($i = 0; $i < strlen($str); $i++)
|
||||
{
|
||||
$res .= $chars[rand(0, strlen($chars)-1)] . $str[$i];
|
||||
for ($i = 0; $i < strlen($str); $i++) {
|
||||
$res .= $chars[rand(0, strlen($chars) - 1)] . $str[$i];
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
|
||||
public static function unprotect($str)
|
||||
{
|
||||
$res = '';
|
||||
for($i = 0; $i < strlen($str); $i++) {
|
||||
for ($i = 0; $i < strlen($str); $i++) {
|
||||
$i++;
|
||||
$res .= $str[$i];
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,68 +1,95 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return;
|
||||
}
|
||||
|
||||
$this->addUserAction(
|
||||
/* type */ 'settings',
|
||||
/* action */ 'delete_all',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ __('delete all settings')
|
||||
/* type */
|
||||
'settings',
|
||||
/* action */
|
||||
'delete_all',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
__('delete all settings')
|
||||
);
|
||||
|
||||
$this->addUserAction(
|
||||
/* type */ 'tables',
|
||||
/* action */ 'delete',
|
||||
/* ns */ 'kutrl',
|
||||
/* description */ __('delete table')
|
||||
/* type */
|
||||
'tables',
|
||||
/* action */
|
||||
'delete',
|
||||
/* ns */
|
||||
'kutrl',
|
||||
/* description */
|
||||
__('delete table')
|
||||
);
|
||||
|
||||
$this->addUserAction(
|
||||
/* type */ 'plugins',
|
||||
/* action */ 'delete',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ __('delete plugin files')
|
||||
/* type */
|
||||
'plugins',
|
||||
/* action */
|
||||
'delete',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
__('delete plugin files')
|
||||
);
|
||||
|
||||
$this->addUserAction(
|
||||
/* type */ 'versions',
|
||||
/* action */ 'delete',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ __('delete the version number')
|
||||
/* type */
|
||||
'versions',
|
||||
/* action */
|
||||
'delete',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
__('delete the version number')
|
||||
);
|
||||
|
||||
# Delete only dc version and plugin files from pluginsBeforeDelete
|
||||
# Keep table
|
||||
|
||||
$this->addDirectAction(
|
||||
/* type */ 'settings',
|
||||
/* action */ 'delete_all',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ sprintf(__('delete all %s settings'),'kUtRL')
|
||||
/* type */
|
||||
'settings',
|
||||
/* action */
|
||||
'delete_all',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
sprintf(__('delete all %s settings'), 'kUtRL')
|
||||
);
|
||||
|
||||
$this->addDirectAction(
|
||||
/* type */ 'versions',
|
||||
/* action */ 'delete',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ sprintf(__('delete %s version number'),'kUtRL')
|
||||
/* type */
|
||||
'versions',
|
||||
/* action */
|
||||
'delete',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
sprintf(__('delete %s version number'), 'kUtRL')
|
||||
);
|
||||
|
||||
$this->addDirectAction(
|
||||
/* type */ 'plugins',
|
||||
/* action */ 'delete',
|
||||
/* ns */ 'kUtRL',
|
||||
/* description */ sprintf(__('delete %s plugin files'),'kUtRL')
|
||||
);
|
||||
/* type */
|
||||
'plugins',
|
||||
/* action */
|
||||
'delete',
|
||||
/* ns */
|
||||
'kUtRL',
|
||||
/* description */
|
||||
sprintf(__('delete %s plugin files'), 'kUtRL')
|
||||
);
|
||||
|
|
68
_widgets.php
68
_widgets.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -60,10 +59,11 @@ class widgetKutrl
|
|||
'type',
|
||||
__('Type:'),
|
||||
'all',
|
||||
'combo',[
|
||||
__('All') => '-',
|
||||
__('Mini URL') => 'localnormal',
|
||||
__('Custom URL') => 'localcustom',
|
||||
'combo',
|
||||
[
|
||||
__('All') => '-',
|
||||
__('Mini URL') => 'localnormal',
|
||||
__('Custom URL') => 'localcustom',
|
||||
__('Semi-custom') => 'localmix'
|
||||
]
|
||||
)
|
||||
|
@ -90,7 +90,7 @@ class widgetKutrl
|
|||
'desc',
|
||||
'combo',
|
||||
[
|
||||
__('Ascending') => 'asc',
|
||||
__('Ascending') => 'asc',
|
||||
__('Descending') => 'desc'
|
||||
]
|
||||
)
|
||||
|
@ -117,14 +117,14 @@ class widgetKutrl
|
|||
global $core;
|
||||
$s = $core->blog->settings->kUtRL;
|
||||
|
||||
if (!$s->kutrl_active
|
||||
|| !$s->kutrl_srv_local_public
|
||||
if (!$s->kutrl_active
|
||||
|| !$s->kutrl_srv_local_public
|
||||
|| ($w->homeonly == 1 && !$core->url->isHome($core->url->type)) || ($w->homeonly == 2 && $core->url->isHome($core->url->type))
|
||||
|| $core->url->type == 'kutrl') {
|
||||
return null;
|
||||
}
|
||||
|
||||
$hmf = hmfKutrl::create();
|
||||
$hmf = hmfKutrl::create();
|
||||
$hmfp = hmfKutrl::protect($hmf);
|
||||
|
||||
return $w->renderDiv(
|
||||
|
@ -140,10 +140,10 @@ class widgetKutrl
|
|||
'</label></p>' .
|
||||
'<p><label>' .
|
||||
sprintf(__('Rewrite "%s" in next field to show that you are not a robot:'), $hmf) . '<br />' .
|
||||
form::field('hmf',20,255,'') .
|
||||
form::field('hmf', 20, 255, '') .
|
||||
'</label></p>' .
|
||||
'<p><input class="submit" type="submit" name="submiturl" value="' . __('Shorten') . '" />' .
|
||||
form::hidden('hmfp',$hmfp) .
|
||||
form::hidden('hmfp', $hmfp) .
|
||||
$core->formNonce() .
|
||||
'</p>' .
|
||||
'</form>'
|
||||
|
@ -155,32 +155,32 @@ class widgetKutrl
|
|||
global $core;
|
||||
$s = $core->blog->settings->kUtRL;
|
||||
|
||||
if (!$s->kutrl_active
|
||||
if (!$s->kutrl_active
|
||||
|| ($w->homeonly == 1 && !$core->url->isHome($core->url->type)) || ($w->homeonly == 2 && $core->url->isHome($core->url->type))) {
|
||||
return null;
|
||||
}
|
||||
|
||||
$type = in_array($w->type, ['localnormal', 'localmix', 'localcustom']) ?
|
||||
"AND kut_type ='" . $w->type . "' " :
|
||||
"AND kut_type " . $core->con->in(['localnormal', 'localmix', 'localcustom']) . " ";
|
||||
'AND kut_type ' . $core->con->in(['localnormal', 'localmix', 'localcustom']) . ' ';
|
||||
|
||||
$hide = (boolean) $w->hideempty ? 'AND kut_counter > 0 ' : '';
|
||||
$hide = (bool) $w->hideempty ? 'AND kut_counter > 0 ' : '';
|
||||
|
||||
$more = '';
|
||||
if ($w->type == 'localmix' && '' != $w->mixprefix) {
|
||||
$more = "AND kut_hash LIKE '" . $core->con->escape($w->mixprefix) . "%' ";
|
||||
}
|
||||
|
||||
$order = ($w->sortby && in_array($w->sortby, ['kut_dt', 'kut_counter', 'kut_hash'])) ?
|
||||
$order = ($w->sortby && in_array($w->sortby, ['kut_dt', 'kut_counter', 'kut_hash'])) ?
|
||||
$w->sortby : 'kut_dt';
|
||||
|
||||
$order .= $w->sort == 'desc' ? ' DESC' : ' ASC';
|
||||
|
||||
$limit = $core->con->limit(abs((integer) $w->limit));
|
||||
$limit = $core->con->limit(abs((int) $w->limit));
|
||||
|
||||
$rs = $core->con->select(
|
||||
'SELECT kut_counter, kut_hash ' .
|
||||
"FROM " . $core->prefix . "kutrl " .
|
||||
'FROM ' . $core->prefix . 'kutrl ' .
|
||||
"WHERE blog_id='" . $core->con->escape($core->blog->id) . "' " .
|
||||
"AND kut_service = 'local' " .
|
||||
$type . $hide . $more . 'ORDER BY ' . $order . $limit
|
||||
|
@ -191,23 +191,23 @@ class widgetKutrl
|
|||
}
|
||||
|
||||
$content = '';
|
||||
$i = 0;
|
||||
while($rs->fetch()) {
|
||||
$i = 0;
|
||||
while ($rs->fetch()) {
|
||||
$i++;
|
||||
$rank = '<span class="rankkutrl-rank">' . $i . '</span>';
|
||||
|
||||
$hash = $rs->kut_hash;
|
||||
$url = $core->blog->url . $core->url->getBase('kutrl') . '/' . $hash;
|
||||
$cut_len = - abs((integer) $w->urllen);
|
||||
$hash = $rs->kut_hash;
|
||||
$url = $core->blog->url . $core->url->getBase('kutrl') . '/' . $hash;
|
||||
$cut_len = - abs((int) $w->urllen);
|
||||
|
||||
if (strlen($url) > $cut_len) {
|
||||
$url = '...' . substr($url, $cut_len);
|
||||
}
|
||||
/*
|
||||
if (strlen($hash) > $cut_len) {
|
||||
$url = '...'.substr($hash, $cut_len);
|
||||
}
|
||||
//*/
|
||||
/*
|
||||
if (strlen($hash) > $cut_len) {
|
||||
$url = '...'.substr($hash, $cut_len);
|
||||
}
|
||||
//*/
|
||||
if ($rs->kut_counter == 0) {
|
||||
$counttext = __('never followed');
|
||||
} elseif ($rs->kut_counter == 1) {
|
||||
|
@ -216,8 +216,7 @@ class widgetKutrl
|
|||
$counttext = sprintf(__('followed %s times'), $rs->kut_counter);
|
||||
}
|
||||
|
||||
$content .=
|
||||
'<li><a href="' .
|
||||
$content .= '<li><a href="' .
|
||||
$core->blog->url . $core->url->getBase('kutrl') . '/' . $rs->kut_hash .
|
||||
'">' .
|
||||
str_replace(
|
||||
|
@ -238,7 +237,6 @@ class widgetKutrl
|
|||
'',
|
||||
($w->title ? $w->renderTitle(html::escapeHTML($w->title)) : '') .
|
||||
sprintf('<ul>%s</ul>', $content)
|
||||
);
|
||||
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -24,16 +23,14 @@ class kUtRL
|
|||
$list = $core->getBehaviors('kutrlService');
|
||||
|
||||
if (empty($list)) {
|
||||
|
||||
return [];
|
||||
}
|
||||
$services = [];
|
||||
foreach($list as $k => $callback) {
|
||||
$services = [];
|
||||
foreach ($list as $k => $callback) {
|
||||
try {
|
||||
list($service_id,$service_class) = call_user_func($callback);
|
||||
$services[(string) $service_id] = (string) $service_class;
|
||||
list($service_id, $service_class) = call_user_func($callback);
|
||||
$services[(string) $service_id] = (string) $service_class;
|
||||
} catch (Exception $e) {
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -48,18 +45,16 @@ class kUtRL
|
|||
|
||||
try {
|
||||
if (empty($id)) {
|
||||
|
||||
return null;
|
||||
}
|
||||
$services = self::getServices($core);
|
||||
if (isset($services[$id])) {
|
||||
|
||||
return new $services[$id]($core);
|
||||
}
|
||||
} catch(Exception $e) {
|
||||
} catch (Exception $e) {
|
||||
}
|
||||
|
||||
return null;
|
||||
return null;
|
||||
}
|
||||
|
||||
# Silently try to load a service according to its place
|
||||
|
@ -70,18 +65,16 @@ class kUtRL
|
|||
|
||||
try {
|
||||
if (!in_array($place, ['tpl', 'wiki', 'admin', 'plugin'])) {
|
||||
|
||||
return null;
|
||||
}
|
||||
$id = $core->blog->settings->kUtRL->get('kutrl_' . $place .'_service');
|
||||
$id = $core->blog->settings->kUtRL->get('kutrl_' . $place . '_service');
|
||||
if (!empty($id)) {
|
||||
|
||||
return self::quickService($id);
|
||||
}
|
||||
} catch(Exception $e) {
|
||||
} catch (Exception $e) {
|
||||
}
|
||||
|
||||
return null;
|
||||
return null;
|
||||
}
|
||||
|
||||
# Silently try to reduce url (using 'plugin' place)
|
||||
|
@ -93,18 +86,17 @@ class kUtRL
|
|||
try {
|
||||
$srv = self::quickPlace($place);
|
||||
if (empty($srv)) {
|
||||
|
||||
return $url;
|
||||
}
|
||||
$rs = $srv->hash($url,$custom);
|
||||
$rs = $srv->hash($url, $custom);
|
||||
if (empty($rs)) {
|
||||
|
||||
return $url;
|
||||
}
|
||||
return $srv->url_base.$rs->hash;
|
||||
} catch(Exception $e) {
|
||||
|
||||
return $srv->url_base . $rs->hash;
|
||||
} catch (Exception $e) {
|
||||
}
|
||||
|
||||
return $url;
|
||||
return $url;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
# This file is used with plugin activityReport
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
|
@ -37,4 +36,4 @@ class kutrlActivityReportBehaviors
|
|||
|
||||
$GLOBALS['core']->activityReport->addLog('kutrl', 'create', $logs);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
# This file contents class to acces local short links records
|
||||
|
||||
class kutrlLog
|
||||
|
@ -54,27 +53,27 @@ class kutrlLog
|
|||
$this->con->unlock();
|
||||
|
||||
return [
|
||||
'id' => $cur->kut_id,
|
||||
'url' => $url,
|
||||
'hash' => $hash,
|
||||
'type' => $type,
|
||||
'service' => $service,
|
||||
'counter '=> 0
|
||||
'id' => $cur->kut_id,
|
||||
'url' => $url,
|
||||
'hash' => $hash,
|
||||
'type' => $type,
|
||||
'service' => $service,
|
||||
'counter ' => 0
|
||||
];
|
||||
} catch (Exception $e) {
|
||||
$this->con->unlock();
|
||||
|
||||
throw $e;
|
||||
}
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
public function select($url = null, $hash = null, $type =null, $service = 'kutrl')
|
||||
public function select($url = null, $hash = null, $type = null, $service = 'kutrl')
|
||||
{
|
||||
//$this->con->writeLock($this->table);
|
||||
|
||||
$req =
|
||||
'SELECT kut_id as id, kut_hash as hash, kut_url as url, ' .
|
||||
$req = 'SELECT kut_id as id, kut_hash as hash, kut_url as url, ' .
|
||||
'kut_type as type, kut_service as service, kut_counter as counter ' .
|
||||
'FROM ' . $this->table . ' ' .
|
||||
"WHERE blog_id = '" . $this->blog . "' " .
|
||||
|
@ -88,7 +87,7 @@ class kutrlLog
|
|||
}
|
||||
if (null !== $type) {
|
||||
if (is_array($type)) {
|
||||
$req .= "AND kut_type '" . $this->con->in($type) ."' ";
|
||||
$req .= "AND kut_type '" . $this->con->in($type) . "' ";
|
||||
} else {
|
||||
$req .= "AND kut_type = '" . $this->con->escape($type) . "' ";
|
||||
}
|
||||
|
@ -104,7 +103,7 @@ class kutrlLog
|
|||
|
||||
public function clear($id)
|
||||
{
|
||||
$id = (integer) $id;
|
||||
$id = (int) $id;
|
||||
|
||||
$cur = $this->con->openCursor($this->table);
|
||||
$this->con->writeLock($this->table);
|
||||
|
@ -123,6 +122,7 @@ class kutrlLog
|
|||
return true;
|
||||
} catch (Exception $e) {
|
||||
$this->con->unlock();
|
||||
|
||||
throw $e;
|
||||
}
|
||||
|
||||
|
@ -131,7 +131,7 @@ class kutrlLog
|
|||
|
||||
public function delete($id)
|
||||
{
|
||||
$id = (integer) $id;
|
||||
$id = (int) $id;
|
||||
|
||||
return $this->con->execute(
|
||||
'DELETE FROM ' . $this->table . ' ' .
|
||||
|
@ -142,7 +142,7 @@ class kutrlLog
|
|||
|
||||
public function counter($id, $do = 'get')
|
||||
{
|
||||
$id = (integer) $id;
|
||||
$id = (int) $id;
|
||||
|
||||
$rs = $this->con->select(
|
||||
'SELECT kut_counter ' .
|
||||
|
@ -154,21 +154,19 @@ class kutrlLog
|
|||
$counter = $rs->isEmpty() ? 0 : $rs->kut_counter;
|
||||
|
||||
if ('get' == $do) {
|
||||
|
||||
return $counter;
|
||||
} elseif ('up' == $do) {
|
||||
$counter += 1;
|
||||
} elseif ('reset' == $do) {
|
||||
} elseif ('reset' == $do) {
|
||||
$counter = 0;
|
||||
} else {
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
$cur = $this->con->openCursor($this->table);
|
||||
$this->con->writeLock($this->table);
|
||||
|
||||
$cur->kut_counter = (integer) $counter;
|
||||
$cur->kut_counter = (int) $counter;
|
||||
$cur->update(
|
||||
"WHERE blog_id='" . $this->blog . "' " .
|
||||
"AND kut_id='" . $id . "'"
|
||||
|
@ -188,8 +186,7 @@ class kutrlLog
|
|||
if (!empty($p['columns']) && is_array($p['columns'])) {
|
||||
$content_req .= implode(', ', $p['columns']) . ', ';
|
||||
}
|
||||
$r =
|
||||
'SELECT S.kut_id, S.kut_type, S.kut_hash, S.kut_url, ' .
|
||||
$r = 'SELECT S.kut_id, S.kut_type, S.kut_hash, S.kut_url, ' .
|
||||
$content_req . 'S.kut_dt ';
|
||||
}
|
||||
$r .= 'FROM ' . $this->table . ' S ';
|
||||
|
@ -203,8 +200,7 @@ class kutrlLog
|
|||
$r .= "AND kut_service='kutrl' ";
|
||||
}
|
||||
if (isset($p['kut_type'])) {
|
||||
if (is_array($p['kut_type']) && !empty($p['kut_type']))
|
||||
{
|
||||
if (is_array($p['kut_type']) && !empty($p['kut_type'])) {
|
||||
$r .= 'AND kut_type ' . $this->con->in($p['kut_type']);
|
||||
} elseif ($p['kut_type'] != '') {
|
||||
$r .= "AND kut_type = '" . $this->con->escape($p['kut_type']) . "' ";
|
||||
|
@ -232,18 +228,15 @@ class kutrlLog
|
|||
}
|
||||
}
|
||||
if (!empty($p['kut_year'])) {
|
||||
$r .=
|
||||
'AND ' . $this->con->dateFormat('kut_dt', '%Y') . ' = ' .
|
||||
$r .= 'AND ' . $this->con->dateFormat('kut_dt', '%Y') . ' = ' .
|
||||
"'" . sprintf('%04d', $p['kut_year']) . "' ";
|
||||
}
|
||||
if (!empty($p['kut_month'])) {
|
||||
$r .=
|
||||
'AND ' . $this->con->dateFormat('kut_dt', '%m') . ' = ' .
|
||||
$r .= 'AND ' . $this->con->dateFormat('kut_dt', '%m') . ' = ' .
|
||||
"'" . sprintf('%02d', $p['kut_month']) . "' ";
|
||||
}
|
||||
if (!empty($p['kut_day'])) {
|
||||
$r .=
|
||||
'AND ' . $this->con->dateFormat('kut_dt', '%d') . ' = ' .
|
||||
$r .= 'AND ' . $this->con->dateFormat('kut_dt', '%d') . ' = ' .
|
||||
"'" . sprintf('%02d', $p['kut_day']) . "' ";
|
||||
}
|
||||
if (!empty($p['sql'])) {
|
||||
|
@ -260,4 +253,4 @@ class kutrlLog
|
|||
|
||||
return $this->con->select($r);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
class kutrlLinkslist
|
||||
{
|
||||
protected $core;
|
||||
|
@ -51,30 +50,30 @@ class kutrlLinkslist
|
|||
echo '<p><strong>' . __('No short link') . '</strong></p>';
|
||||
}
|
||||
} else {
|
||||
$pager = new dcPager($page, $this->rs_count, $nb_per_page, 10);
|
||||
$pager = new dcPager($page, $this->rs_count, $nb_per_page, 10);
|
||||
$links = [];
|
||||
if (isset($_REQUEST['entries'])) {
|
||||
foreach ($_REQUEST['entries'] as $v) {
|
||||
$links[(integer) $v] = true;
|
||||
$links[(int) $v] = true;
|
||||
}
|
||||
}
|
||||
|
||||
$cols = [
|
||||
'kut_url' => '<th colspan="2" class="first">' . __('Link') . '</th>',
|
||||
'kut_hash' => '<th scope="col">' . __('Hash') . '</th>',
|
||||
'kut_dt' => '<th scope="col">' . __('Date') . '</th>',
|
||||
'kut_service' => '<th scope="col">' . __('Service') . '</th>'
|
||||
'kut_url' => '<th colspan="2" class="first">' . __('Link') . '</th>',
|
||||
'kut_hash' => '<th scope="col">' . __('Hash') . '</th>',
|
||||
'kut_dt' => '<th scope="col">' . __('Date') . '</th>',
|
||||
'kut_service' => '<th scope="col">' . __('Service') . '</th>'
|
||||
];
|
||||
$cols = new ArrayObject($cols);
|
||||
$this->userColumns('kUtRL', $cols);
|
||||
|
||||
$html_block =
|
||||
'<div class="table-outer">' .
|
||||
$html_block = '<div class="table-outer">' .
|
||||
'<table>' .
|
||||
'<caption>' . ($filter ?
|
||||
'<caption>' . (
|
||||
$filter ?
|
||||
sprintf(__('List of %s links matching the filter.'), $this->rs_count) :
|
||||
sprintf(__('List of links (%s)'), $this->rs_count)
|
||||
). '</caption>' .
|
||||
) . '</caption>' .
|
||||
'<thead>' .
|
||||
'<tr>' . implode(iterator_to_array($cols)) . '</tr>' .
|
||||
'</thead>' .
|
||||
|
@ -109,7 +108,7 @@ class kutrlLinkslist
|
|||
|
||||
$cols = [
|
||||
'check' => '<td class="nowrap">' .
|
||||
form::checkbox(['entries[]'], $this->rs->kut_id, ['checked' => isset($entries[$this->rs->kut_id])]) .
|
||||
form::checkbox(['entries[]'], $this->rs->kut_id, ['checked' => isset($entries[$this->rs->kut_id])]) .
|
||||
'</td>',
|
||||
'kut_url' => '<td class="maximal" scope="row">' .
|
||||
'<a href="' . $this->rs->kut_url . '">' . $this->rs->kut_url . '</a>' .
|
||||
|
@ -120,14 +119,14 @@ class kutrlLinkslist
|
|||
'kut_dt' => '<td class="nowrap count">' .
|
||||
dt::dt2str(__('%Y-%m-%d %H:%M'), $this->rs->kut_dt, $this->core->auth->getInfo('user_tz')) .
|
||||
'</td>',
|
||||
'kut_service' => '<td class="nowrap">' .
|
||||
$type .
|
||||
'kut_service' => '<td class="nowrap">' .
|
||||
$type .
|
||||
'</td>'
|
||||
];
|
||||
|
||||
$cols = new ArrayObject($cols);
|
||||
$this->userColumns('kUtRL', $cols);
|
||||
|
||||
return '<tr class="line">' . implode(iterator_to_array($cols)) . '</tr>' . "\n";
|
||||
return '<tr class="line">' . implode(iterator_to_array($cols)) . '</tr>' . "\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
# Generic class for shorten link service
|
||||
# A service class must extends this one
|
||||
class kutrlService
|
||||
|
@ -20,7 +19,7 @@ class kutrlService
|
|||
public $settings;
|
||||
public $log;
|
||||
|
||||
protected $config = array();
|
||||
protected $config = [];
|
||||
|
||||
public function __construct($core)
|
||||
{
|
||||
|
@ -33,24 +32,24 @@ class kutrlService
|
|||
$this->init();
|
||||
|
||||
// Force setting
|
||||
$allow_external_url = $this->settings->kutrl_allow_external_url;
|
||||
$allow_external_url = $this->settings->kutrl_allow_external_url;
|
||||
$this->config['$allow_external_url'] = null === $allow_external_url ?
|
||||
true : $allow_external_url;
|
||||
|
||||
$this->config = array_merge(
|
||||
[
|
||||
'id' => 'undefined',
|
||||
'name' => 'undefined',
|
||||
'home' => '',
|
||||
'id' => 'undefined',
|
||||
'name' => 'undefined',
|
||||
'home' => '',
|
||||
|
||||
'allow_external_url' => true,
|
||||
'allow_custom_hash' => false,
|
||||
'allow_protocols' => ['http://'],
|
||||
|
||||
'url_test' => 'http://dotclear.jcdenis.com/go/kUtRL',
|
||||
'url_api' => '',
|
||||
'url_base' => '',
|
||||
'url_min_len' => 0
|
||||
'url_test' => 'http://dotclear.jcdenis.com/go/kUtRL',
|
||||
'url_api' => '',
|
||||
'url_base' => '',
|
||||
'url_min_len' => 0
|
||||
],
|
||||
$this->config
|
||||
);
|
||||
|
@ -65,7 +64,7 @@ class kutrlService
|
|||
# get config value
|
||||
public function get($k)
|
||||
{
|
||||
return isset($this->config[$k]) ? $this->config[$k] : null;
|
||||
return $this->config[$k] ?? null;
|
||||
}
|
||||
|
||||
# Additionnal actions on child start
|
||||
|
@ -83,7 +82,7 @@ class kutrlService
|
|||
# Settings form for admin page
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
echo
|
||||
'<p class="form-note">' .
|
||||
__('There is nothing to configure for this service.') .
|
||||
'</p>';
|
||||
|
@ -98,7 +97,7 @@ class kutrlService
|
|||
# Test if an url is valid
|
||||
public function isValidUrl($url)
|
||||
{
|
||||
return (boolean) filter_var($url, FILTER_VALIDATE_URL);
|
||||
return (bool) filter_var($url, FILTER_VALIDATE_URL);
|
||||
}
|
||||
|
||||
# Test if an url contents know prefix
|
||||
|
@ -110,18 +109,17 @@ class kutrlService
|
|||
# Test if an url is long enoutgh
|
||||
public function isLongerUrl($url)
|
||||
{
|
||||
return (strlen($url) >= (integer) $this->url_min_len);
|
||||
return (strlen($url) >= (int) $this->url_min_len);
|
||||
}
|
||||
|
||||
# Test if an url protocol (eg: http://) is allowed
|
||||
public function isProtocolUrl($url)
|
||||
{
|
||||
foreach($this->allow_protocols as $protocol) {
|
||||
foreach ($this->allow_protocols as $protocol) {
|
||||
if (empty($protocol)) {
|
||||
continue;
|
||||
}
|
||||
if (strpos($url,$protocol) === 0) {
|
||||
|
||||
if (strpos($url, $protocol) === 0) {
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
@ -133,7 +131,7 @@ class kutrlService
|
|||
public function isBlogUrl($url)
|
||||
{
|
||||
$base = $this->core->blog->url;
|
||||
$url = substr($url, 0, strlen($base));
|
||||
$url = substr($url, 0, strlen($base));
|
||||
|
||||
return $url == $base;
|
||||
}
|
||||
|
@ -182,12 +180,12 @@ class kutrlService
|
|||
|
||||
# --BEHAVIOR-- kutrlAfterCreateShortUrl
|
||||
$this->core->callBehavior('kutrlAfterCreateShortUrl', $rs);
|
||||
|
||||
}
|
||||
|
||||
return $rs;
|
||||
}
|
||||
|
||||
# Create a hash for a given url (and its custom hash)
|
||||
# Create a hash for a given url (and its custom hash)
|
||||
public function createHash($url, $hash = null)
|
||||
{
|
||||
return false;
|
||||
|
@ -220,13 +218,13 @@ class kutrlService
|
|||
# Post request
|
||||
public static function post($server, $data, $verbose = true, $get = false, $headers = [])
|
||||
{
|
||||
$url = (string) $server;
|
||||
$url = (string) $server;
|
||||
$client = netHttp::initClient($url, $url);
|
||||
$client->setUserAgent('kUtRL - http://kutrl.fr');
|
||||
$client->setPersistReferers(false);
|
||||
|
||||
if (is_array($headers) && !empty($headers)) {
|
||||
foreach($headers as $header) {
|
||||
foreach ($headers as $header) {
|
||||
$client->setMoreHeader($header);
|
||||
}
|
||||
}
|
||||
|
@ -244,4 +242,4 @@ class kutrlService
|
|||
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
# This file contents class to shorten url pass through wiki
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
|
@ -25,7 +24,7 @@ class kutrlWiki
|
|||
$s = $core->blog->settings->kUtRL;
|
||||
|
||||
# Do nothing on comment preview and post preview
|
||||
if (!empty($_POST['preview'])
|
||||
if (!empty($_POST['preview'])
|
||||
|| !empty($GLOBALS['_ctx']) && $GLOBALS['_ctx']->preview
|
||||
|| !$s->kutrl_active
|
||||
) {
|
||||
|
@ -34,7 +33,7 @@ class kutrlWiki
|
|||
if (null === ($kut = kutrl::quickPlace('wiki'))) {
|
||||
return null;
|
||||
}
|
||||
foreach($kut->allow_protocols as $protocol) {
|
||||
foreach ($kut->allow_protocols as $protocol) {
|
||||
$wiki2xhtml->registerFunction(
|
||||
'url:' . $protocol,
|
||||
['kutrlWiki', 'transform']
|
||||
|
@ -55,25 +54,27 @@ class kutrlWiki
|
|||
}
|
||||
# Test if long url exists
|
||||
$is_new = false;
|
||||
$rs = $kut->isKnowUrl($url);
|
||||
$rs = $kut->isKnowUrl($url);
|
||||
if (!$rs) {
|
||||
$is_new = true;
|
||||
$rs = $kut->hash($url);
|
||||
$rs = $kut->hash($url);
|
||||
}
|
||||
if (!$rs) {
|
||||
return [];
|
||||
} else {
|
||||
$res = [];
|
||||
$testurl = strlen($rs->url) > 35 ? substr($rs->url, 0, 35) . '...' : $rs->url;
|
||||
$res['url'] = $kut->url_base . $rs->hash;
|
||||
$res['title'] = sprintf(__('%s (Shorten with %s)'), $rs->url, __($kut->name));
|
||||
if ($testurl == $content) $res['content'] = $res['url'];
|
||||
|
||||
# ex: Send new url to messengers
|
||||
if (!empty($rs)) {
|
||||
$core->callBehavior('wikiAfterKutrlCreate', $core, $rs, __('New short URL'));
|
||||
}
|
||||
return $res;
|
||||
}
|
||||
$res = [];
|
||||
$testurl = strlen($rs->url) > 35 ? substr($rs->url, 0, 35) . '...' : $rs->url;
|
||||
$res['url'] = $kut->url_base . $rs->hash;
|
||||
$res['title'] = sprintf(__('%s (Shorten with %s)'), $rs->url, __($kut->name));
|
||||
if ($testurl == $content) {
|
||||
$res['content'] = $res['url'];
|
||||
}
|
||||
|
||||
# ex: Send new url to messengers
|
||||
if (!empty($rs)) {
|
||||
$core->callBehavior('wikiAfterKutrlCreate', $core, $rs, __('New short URL'));
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,30 +1,27 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
# This file takes records from plugin dcMiniUrl
|
||||
# This file takes records from plugin dcMiniUrl
|
||||
# and inserts them into plugin kUtRL.
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')){return;}
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return;
|
||||
}
|
||||
|
||||
$miniurl_patch = new dcMiniUrl2kUtRL($core);
|
||||
if ($miniurl_patch->parseRecords())
|
||||
{
|
||||
try
|
||||
{
|
||||
if ($miniurl_patch->parseRecords()) {
|
||||
try {
|
||||
$core->plugins->deactivateModule('dcMiniUrl');
|
||||
}
|
||||
catch (Exception $e)
|
||||
{
|
||||
} catch (Exception $e) {
|
||||
//$core->error->add($e->getMessage());
|
||||
}
|
||||
}
|
||||
|
@ -39,40 +36,39 @@ class dcMiniUrl2kUtRL
|
|||
public function __construct($core)
|
||||
{
|
||||
$this->core = $core;
|
||||
$this->con = $core->con;
|
||||
$this->k_tb = $core->prefix.'kutrl';
|
||||
$this->m_tb = $core->prefix.'miniurl';
|
||||
$this->con = $core->con;
|
||||
$this->k_tb = $core->prefix . 'kutrl';
|
||||
$this->m_tb = $core->prefix . 'miniurl';
|
||||
}
|
||||
|
||||
public function parseRecords()
|
||||
{
|
||||
$rs = $this->con->select(
|
||||
'SELECT * FROM '.$this->m_tb.' '
|
||||
'SELECT * FROM ' . $this->m_tb . ' '
|
||||
);
|
||||
|
||||
while ($rs->fetch())
|
||||
{
|
||||
if ($rs->miniurl_type == 'customurl' || $rs->miniurl_type == 'miniurl')
|
||||
{
|
||||
if ($this->exists($rs)) continue;
|
||||
while ($rs->fetch()) {
|
||||
if ($rs->miniurl_type == 'customurl' || $rs->miniurl_type == 'miniurl') {
|
||||
if ($this->exists($rs)) {
|
||||
continue;
|
||||
}
|
||||
|
||||
$this->insertKutrl($rs);
|
||||
$this->insertLocal($rs);
|
||||
}
|
||||
else
|
||||
{
|
||||
} else {
|
||||
$this->insertOther($rs);
|
||||
}
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
private function insertKutrl($rs)
|
||||
{
|
||||
$cur = $this->common($rs);
|
||||
$cur->kut_service = 'kutrl';
|
||||
$cur->kut_type = 'local';
|
||||
$cur->kut_counter = 0;
|
||||
$cur = $this->common($rs);
|
||||
$cur->kut_service = 'kutrl';
|
||||
$cur->kut_type = 'local';
|
||||
$cur->kut_counter = 0;
|
||||
$cur->kut_password = null;
|
||||
|
||||
$cur->insert();
|
||||
|
@ -81,9 +77,9 @@ class dcMiniUrl2kUtRL
|
|||
|
||||
private function insertLocal($rs)
|
||||
{
|
||||
$cur = $this->common($rs);
|
||||
$cur = $this->common($rs);
|
||||
$cur->kut_service = 'local';
|
||||
$cur->kut_type = $rs->miniurl_type == 'customurl' ?
|
||||
$cur->kut_type = $rs->miniurl_type == 'customurl' ?
|
||||
'localcustom' : 'localnormal';
|
||||
|
||||
$cur->insert();
|
||||
|
@ -102,14 +98,14 @@ class dcMiniUrl2kUtRL
|
|||
{
|
||||
$cur = $this->con->openCursor($this->k_tb);
|
||||
$this->con->writeLock($this->k_tb);
|
||||
$cur->kut_id = $this->nextId();
|
||||
$cur->blog_id = $rs->blog_id;
|
||||
$cur->kut_service = 'unknow';
|
||||
$cur->kut_type = $rs->miniurl_type;
|
||||
$cur->kut_hash = $rs->miniurl_id;
|
||||
$cur->kut_url = $rs->miniurl_str;
|
||||
$cur->kut_dt = $rs->miniurl_dt;
|
||||
$cur->kut_counter = $rs->miniurl_counter;
|
||||
$cur->kut_id = $this->nextId();
|
||||
$cur->blog_id = $rs->blog_id;
|
||||
$cur->kut_service = 'unknow';
|
||||
$cur->kut_type = $rs->miniurl_type;
|
||||
$cur->kut_hash = $rs->miniurl_id;
|
||||
$cur->kut_url = $rs->miniurl_str;
|
||||
$cur->kut_dt = $rs->miniurl_dt;
|
||||
$cur->kut_counter = $rs->miniurl_counter;
|
||||
$cur->kut_password = $rs->miniurl_password;
|
||||
|
||||
return $cur;
|
||||
|
@ -118,18 +114,19 @@ class dcMiniUrl2kUtRL
|
|||
private function exists($rs)
|
||||
{
|
||||
$chk = $this->con->select(
|
||||
'SELECT kut_hash FROM '.$this->k_tb.' '.
|
||||
"WHERE blog_id = '".$rs->blog_id."' ".
|
||||
"AND kut_service = 'local' ".
|
||||
"AND kut_hash = '".$rs->miniurl_id."' "
|
||||
'SELECT kut_hash FROM ' . $this->k_tb . ' ' .
|
||||
"WHERE blog_id = '" . $rs->blog_id . "' " .
|
||||
"AND kut_service = 'local' " .
|
||||
"AND kut_hash = '" . $rs->miniurl_id . "' "
|
||||
);
|
||||
|
||||
return !$chk->isEmpty();
|
||||
}
|
||||
|
||||
private function nextId()
|
||||
{
|
||||
return $this->con->select(
|
||||
'SELECT MAX(kut_id) FROM '.$this->k_tb.' '
|
||||
'SELECT MAX(kut_id) FROM ' . $this->k_tb . ' '
|
||||
)->f(0) + 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -29,8 +28,8 @@ class bilbolinksKutrlService extends kutrlService
|
|||
if (!empty($base) && substr($base, -1, 1) != '/') {
|
||||
$base .= '/';
|
||||
}
|
||||
$this->config['url_api'] = $base . 'api.php';
|
||||
$this->config['url_base'] = $base;
|
||||
$this->config['url_api'] = $base . 'api.php';
|
||||
$this->config['url_base'] = $base;
|
||||
$this->config['url_min_len'] = 25;
|
||||
}
|
||||
|
||||
|
@ -48,7 +47,7 @@ class bilbolinksKutrlService extends kutrlService
|
|||
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
echo
|
||||
'<p><label class="classic">' .
|
||||
__('Url of the service:') . '<br />' .
|
||||
form::field(['kutrl_srv_bilbolinks_base'], 50, 255, $this->settings->kutrl_srv_bilbolinks_base) .
|
||||
|
@ -67,7 +66,7 @@ class bilbolinksKutrlService extends kutrlService
|
|||
}
|
||||
|
||||
$arg = ['longurl' => urlencode($this->url_test)];
|
||||
if (!self::post($this->url_api, $arg, true,true)) {
|
||||
if (!self::post($this->url_api, $arg, true, true)) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
|
@ -90,11 +89,11 @@ class bilbolinksKutrlService extends kutrlService
|
|||
|
||||
return false;
|
||||
}
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $response);
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -18,24 +17,24 @@ if (!defined('DC_RC_PATH')) {
|
|||
class bitlyKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = [
|
||||
'id' => 'bitly',
|
||||
'name' => 'bit.ly',
|
||||
'home' => 'https://bit.ly',
|
||||
'id' => 'bitly',
|
||||
'name' => 'bit.ly',
|
||||
'home' => 'https://bit.ly',
|
||||
|
||||
'url_api' => 'https://api-ssl.bitly.com/v4/',
|
||||
'url_base' => 'https://bit.ly/',
|
||||
'url_min_len' => 25,
|
||||
|
||||
'allow_protocols' => ['http://', 'https://'],
|
||||
'allow_protocols' => ['http://', 'https://'],
|
||||
];
|
||||
|
||||
private $args = [
|
||||
'apiKey' => ''
|
||||
'apiKey' => ''
|
||||
];
|
||||
|
||||
protected function init()
|
||||
{
|
||||
$this->args['apiKey'] = $this->settings->kutrl_srv_bitly_apikey;
|
||||
$this->args['apiKey'] = $this->settings->kutrl_srv_bitly_apikey;
|
||||
}
|
||||
|
||||
public function saveSettings()
|
||||
|
@ -45,12 +44,12 @@ class bitlyKutrlService extends kutrlService
|
|||
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
'<p><label class="classic">' . __('API Key:') . '<br />' .
|
||||
form::field(['kutrl_srv_bitly_apikey'], 50, 255, $this->settings->kutrl_srv_bitly_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']) .
|
||||
echo
|
||||
'<p><label class="classic">' . __('API Key:') . '<br />' .
|
||||
form::field(['kutrl_srv_bitly_apikey'], 50, 255, $this->settings->kutrl_srv_bitly_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>';
|
||||
}
|
||||
|
||||
|
@ -84,7 +83,7 @@ class bitlyKutrlService extends kutrlService
|
|||
|
||||
$rsp = json_decode($response);
|
||||
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', (string) $rsp->link);
|
||||
$rs->url = (string) $rsp->long_url;
|
||||
$rs->type = $this->id;
|
||||
|
@ -96,4 +95,4 @@ class bitlyKutrlService extends kutrlService
|
|||
{
|
||||
return ['Authorization: Bearer ' . $this->args['apiKey'], 'Content-Type: application/json'];
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -29,10 +28,10 @@ class customKutrlService extends kutrlService
|
|||
$config = [];
|
||||
}
|
||||
|
||||
$this->config['url_api'] = !empty($config['url_api']) ? $config['url_api'] : '';
|
||||
$this->config['url_base'] = !empty($config['url_base']) ? $config['url_base'] : '';
|
||||
$this->config['url_param'] = !empty($config['url_param']) ? $config['url_param'] : '';
|
||||
$this->config['url_encode'] = !empty($config['url_api']);
|
||||
$this->config['url_api'] = !empty($config['url_api']) ? $config['url_api'] : '';
|
||||
$this->config['url_base'] = !empty($config['url_base']) ? $config['url_base'] : '';
|
||||
$this->config['url_param'] = !empty($config['url_param']) ? $config['url_param'] : '';
|
||||
$this->config['url_encode'] = !empty($config['url_api']);
|
||||
|
||||
$this->config['url_min_length'] = strlen($this->url_base) + 2;
|
||||
}
|
||||
|
@ -62,33 +61,32 @@ class customKutrlService extends kutrlService
|
|||
}
|
||||
$config = array_merge($default, $config);
|
||||
|
||||
echo
|
||||
'<p>' . __('You can set a configurable service.') . '<br />' .
|
||||
__('It consists on a simple query to an URL with only one param.') . '<br />' .
|
||||
__('It must respond with a http code 200 on success.') . '<br />' .
|
||||
__('It must returned the short URL (or only hash) in clear text.') . '</p>' .
|
||||
'<p><label class="classic">' . __('API URL:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_api'], 50, 255, $config['url_api']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Full path to API of the URL shortener. ex: "http://is.gd/api.php"') . '</p>' .
|
||||
'<p><label class="classic">' . __('Short URL domain:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_base'], 50, 255, $config['url_base']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Common part of the short URL. ex: "http://is.gd/"') . '</p>' .
|
||||
'<p><label class="classic">' . __('API URL param:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_param'], 50, 255, $config['url_param']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Param of the query. ex: "longurl"') . '</p>' .
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_custom_url_encode'], '1', $config['url_encode']) . ' ' .
|
||||
__('Encode URL') .
|
||||
echo
|
||||
'<p>' . __('You can set a configurable service.') . '<br />' .
|
||||
__('It consists on a simple query to an URL with only one param.') . '<br />' .
|
||||
__('It must respond with a http code 200 on success.') . '<br />' .
|
||||
__('It must returned the short URL (or only hash) in clear text.') . '</p>' .
|
||||
'<p><label class="classic">' . __('API URL:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_api'], 50, 255, $config['url_api']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Full path to API of the URL shortener. ex: "http://is.gd/api.php"') . '</p>' .
|
||||
'<p><label class="classic">' . __('Short URL domain:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_base'], 50, 255, $config['url_base']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Common part of the short URL. ex: "http://is.gd/"') . '</p>' .
|
||||
'<p><label class="classic">' . __('API URL param:') . '<br />' .
|
||||
form::field(['kutrl_srv_custom_url_param'], 50, 255, $config['url_param']) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('Param of the query. ex: "longurl"') . '</p>' .
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_custom_url_encode'], '1', $config['url_encode']) . ' ' .
|
||||
__('Encode URL') .
|
||||
'</label></p>';
|
||||
}
|
||||
|
||||
public function testService()
|
||||
{
|
||||
if (empty($this->url_api)) {
|
||||
|
||||
return false;
|
||||
}
|
||||
$url = $this->url_encode ? urlencode($this->url_test) : $this->url_test;
|
||||
|
@ -109,13 +107,14 @@ class customKutrlService extends kutrlService
|
|||
|
||||
if (!($response = self::post($this->url_api, $arg, true, true))) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $response);
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,23 +1,22 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
||||
# nb: "default" ne veut pas dire service par défaut
|
||||
# mais service simple et rapide configuré par des constantes
|
||||
# cela permet de configurer ces constantes dans le fichier
|
||||
# cela permet de configurer ces constantes dans le fichier
|
||||
# config de Dotclear pour une plateforme complète.
|
||||
|
||||
class defaultKutrlService extends kutrlService
|
||||
|
@ -25,37 +24,37 @@ class defaultKutrlService extends kutrlService
|
|||
protected function init()
|
||||
{
|
||||
$this->config = [
|
||||
'id' => 'default',
|
||||
'name' => 'Default',
|
||||
'home' => '',
|
||||
'id' => 'default',
|
||||
'name' => 'Default',
|
||||
'home' => '',
|
||||
|
||||
'url_api' => SHORTEN_SERVICE_API,
|
||||
'url_base' => SHORTEN_SERVICE_BASE,
|
||||
'url_min_len' => strlen(SHORTEN_SERVICE_BASE) + 2,
|
||||
|
||||
'url_param' => SHORTEN_SERVICE_PARAM,
|
||||
'url_encode' => SHORTEN_SERVICE_ENCODE
|
||||
'url_param' => SHORTEN_SERVICE_PARAM,
|
||||
'url_encode' => SHORTEN_SERVICE_ENCODE
|
||||
];
|
||||
}
|
||||
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
echo
|
||||
'<p class="form-note">' .
|
||||
__('There is nothing to configure for this service.') .
|
||||
'</p>' .
|
||||
'</p>' .
|
||||
'<p>' . __('This service is set to:') . '</p>' .
|
||||
'<dl>' .
|
||||
'<dt>' . __('Service name:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_NAME . '</dd>' .
|
||||
'<dt>' . __('Full API URL:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_API . '</dd>' .
|
||||
'<dt>' . __('Query param:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_PARAM . '</dd>' .
|
||||
'<dt>' . __('Short URL domain:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_BASE . '</dd>' .
|
||||
'<dt>' . __('Encode URL:') . '</dt>' .
|
||||
'<dd>' . (SHORTEN_SERVICE_ENCODE ? __('yes') : __('no')) . '</dd>' .
|
||||
'<dl>' .
|
||||
'<dt>' . __('Service name:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_NAME . '</dd>' .
|
||||
'<dt>' . __('Full API URL:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_API . '</dd>' .
|
||||
'<dt>' . __('Query param:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_PARAM . '</dd>' .
|
||||
'<dt>' . __('Short URL domain:') . '</dt>' .
|
||||
'<dd>' . SHORTEN_SERVICE_BASE . '</dd>' .
|
||||
'<dt>' . __('Encode URL:') . '</dt>' .
|
||||
'<dd>' . (SHORTEN_SERVICE_ENCODE ? __('yes') : __('no')) . '</dd>' .
|
||||
'</dl>';
|
||||
}
|
||||
|
||||
|
@ -84,11 +83,11 @@ class defaultKutrlService extends kutrlService
|
|||
return false;
|
||||
}
|
||||
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $response);
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,45 +1,45 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
||||
class googlKutrlService extends kutrlService
|
||||
{
|
||||
public $id = 'googl';
|
||||
public $id = 'googl';
|
||||
public $name = 'goo.gl';
|
||||
public $home = 'http://goo.gl';
|
||||
|
||||
private $url_api = 'https://www.googleapis.com/urlshortener/v1/url';
|
||||
private $url_api = 'https://www.googleapis.com/urlshortener/v1/url';
|
||||
private $url_test = 'http://dotclear.jcdenis.com/go/kUtRL';
|
||||
private $args = [
|
||||
private $args = [
|
||||
'key' => ''
|
||||
];
|
||||
private $headers = array('Content-Type: application/json');
|
||||
private $headers = ['Content-Type: application/json'];
|
||||
|
||||
protected function init()
|
||||
{
|
||||
$this->url_base = 'http://goo.gl/';
|
||||
$this->url_base = 'http://goo.gl/';
|
||||
$this->url_min_length = 20;
|
||||
}
|
||||
|
||||
public function testService()
|
||||
{
|
||||
$args = $this->args;
|
||||
$args = $this->args;
|
||||
$args['shortUrl'] = $this->url_base . 'PLovn';
|
||||
if (!($response = self::post($this->url_api, $args, true, true, $this->headers))) {
|
||||
$this->error->add(__('Failed to call service.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
|
@ -47,19 +47,22 @@ class googlKutrlService extends kutrlService
|
|||
|
||||
if (empty($rsp->status)) {
|
||||
$this->error->add(__('An error occured'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
public function createHash($url, $hash = null)
|
||||
{
|
||||
$args = $this->args;
|
||||
$args = $this->args;
|
||||
$args['longUrl'] = $url;
|
||||
$args = json_encode($args);
|
||||
$args = json_encode($args);
|
||||
|
||||
if (!($response = self::post($this->url_api, $args, true, false, $this->headers))) {
|
||||
$this->error->add(__('Failed to call service.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
|
@ -67,14 +70,15 @@ class googlKutrlService extends kutrlService
|
|||
|
||||
if (empty($rsp->id)) {
|
||||
$this->error->add(__('An error occured'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $rsp->id);
|
||||
$rs->url = $rsp->longUrl;
|
||||
$rs->url = $rsp->longUrl;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,24 +1,25 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')){return;}
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
||||
class isgdKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = [
|
||||
'id' => 'isgd',
|
||||
'name' => 'is.gd',
|
||||
'home' => 'http://is.gd/',
|
||||
'id' => 'isgd',
|
||||
'name' => 'is.gd',
|
||||
'home' => 'http://is.gd/',
|
||||
|
||||
'url_api' => 'http://is.gd/api.php',
|
||||
'url_base' => 'http://is.gd/',
|
||||
|
@ -47,11 +48,11 @@ class isgdKutrlService extends kutrlService
|
|||
return false;
|
||||
}
|
||||
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $response);
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -18,21 +17,20 @@ if (!defined('DC_RC_PATH')) {
|
|||
class localKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = [
|
||||
'id' => 'local',
|
||||
'name' => 'kUtRL',
|
||||
'home' => 'https://github.com/JcDenis/kUtRL',
|
||||
'id' => 'local',
|
||||
'name' => 'kUtRL',
|
||||
'home' => 'https://github.com/JcDenis/kUtRL',
|
||||
|
||||
'allow_custom_hash' => true
|
||||
];
|
||||
|
||||
protected function init()
|
||||
{
|
||||
$protocols = (string) $this->settings->kutrl_srv_local_protocols;
|
||||
$protocols = (string) $this->settings->kutrl_srv_local_protocols;
|
||||
$this->config['allow_protocols'] = empty($protocols) ? [] : explode(',', $protocols);
|
||||
|
||||
$this->config['url_base'] = $this->core->blog->url . $this->core->url->getBase('kutrl') . '/';
|
||||
$this->config['url_base'] = $this->core->blog->url . $this->core->url->getBase('kutrl') . '/';
|
||||
$this->config['url_min_len'] = strlen($this->url_base) + 2;
|
||||
|
||||
}
|
||||
|
||||
public function saveSettings()
|
||||
|
@ -46,56 +44,56 @@ class localKutrlService extends kutrlService
|
|||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
'<div class="two-cols"><div class="col">' .
|
||||
'<div class="two-cols"><div class="col">' .
|
||||
|
||||
'<p><strong>' . __('Settings:') . '</strong></p>' .
|
||||
'<p><label class="classic">' .
|
||||
__('Allowed protocols:') . '<br />' .
|
||||
form::field(['kutrl_srv_local_protocols'], 50, 255, $this->settings->kutrl_srv_local_protocols) .
|
||||
'</label></p>' .
|
||||
'<p><strong>' . __('Settings:') . '</strong></p>' .
|
||||
'<p><label class="classic">' .
|
||||
__('Allowed protocols:') . '<br />' .
|
||||
form::field(['kutrl_srv_local_protocols'], 50, 255, $this->settings->kutrl_srv_local_protocols) .
|
||||
'</label></p>' .
|
||||
|
||||
'<p class="form-note">' .
|
||||
__('Use comma seperated list like: "http:,https:,ftp:"') .
|
||||
'</p>' .
|
||||
'<p class="form-note">' .
|
||||
__('Use comma seperated list like: "http:,https:,ftp:"') .
|
||||
'</p>' .
|
||||
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_local_public'], '1', $this->settings->kutrl_srv_local_public) . ' ' .
|
||||
__('Enable public page for visitors to shorten links') .
|
||||
'</label></p>' .
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_local_public'], '1', $this->settings->kutrl_srv_local_public) . ' ' .
|
||||
__('Enable public page for visitors to shorten links') .
|
||||
'</label></p>' .
|
||||
|
||||
'<p class="area" id="style-area"><label for="_style">' . __('CSS:') . '</label>' .
|
||||
form::textarea('kutrl_srv_local_css',50,3,html::escapeHTML($this->settings->kutrl_srv_local_css), '', 2) .
|
||||
'</p>' .
|
||||
'<p class="form-note">' . __('You can add here special cascading style sheet. Body of page has class "dc-kutrl" and widgets have class "shortenkutrlwidget" and "rankkutrlwidget".') . '</p>' .
|
||||
'<p class="area" id="style-area"><label for="_style">' . __('CSS:') . '</label>' .
|
||||
form::textarea('kutrl_srv_local_css', 50, 3, html::escapeHTML($this->settings->kutrl_srv_local_css), '', 2) .
|
||||
'</p>' .
|
||||
'<p class="form-note">' . __('You can add here special cascading style sheet. Body of page has class "dc-kutrl" and widgets have class "shortenkutrlwidget" and "rankkutrlwidget".') . '</p>' .
|
||||
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_local_404_active'], '1', $this->settings->kutrl_srv_local_404_active) . ' ' .
|
||||
__('Enable special 404 error public page for unknow urls') .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('If this is not activated, the default 404 page of the theme will be display.') . '</p>' .
|
||||
'<p><label class="classic">' .
|
||||
form::checkbox(['kutrl_srv_local_404_active'], '1', $this->settings->kutrl_srv_local_404_active) . ' ' .
|
||||
__('Enable special 404 error public page for unknow urls') .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' . __('If this is not activated, the default 404 page of the theme will be display.') . '</p>' .
|
||||
|
||||
'</div><div class="col">' .
|
||||
'</div><div class="col">' .
|
||||
|
||||
'<p><strong>' . __('Note:') . '</strong></p>' .
|
||||
'<p>' .
|
||||
__('This service use your own Blog to shorten and serve URL.') . '<br />' .
|
||||
sprintf(__('This means that with this service short links start with "%s".'), $this->url_base) .
|
||||
'</p>' .
|
||||
'<p>' .
|
||||
'<p><strong>' . __('Note:') . '</strong></p>' .
|
||||
'<p>' .
|
||||
__('This service use your own Blog to shorten and serve URL.') . '<br />' .
|
||||
sprintf(__('This means that with this service short links start with "%s".'), $this->url_base) .
|
||||
'</p>' .
|
||||
'<p>' .
|
||||
__("You can use Dotclear's plugin called myUrlHandlers to change short links prefix on your blog.");
|
||||
|
||||
if (preg_match('/index\.php/', $this->url_base)) {
|
||||
echo
|
||||
'<p>' .
|
||||
__("We recommand that you use a rewrite engine in order to remove 'index.php' from your blog's URL.") .
|
||||
'<br /><a href="http://fr.dotclear.org/documentation/2.0/usage/blog-parameters">' .
|
||||
__("You can find more about this on the Dotclear's documentation.") .
|
||||
echo
|
||||
'<p>' .
|
||||
__("We recommand that you use a rewrite engine in order to remove 'index.php' from your blog's URL.") .
|
||||
'<br /><a href="http://fr.dotclear.org/documentation/2.0/usage/blog-parameters">' .
|
||||
__("You can find more about this on the Dotclear's documentation.") .
|
||||
'</a></p>';
|
||||
}
|
||||
echo
|
||||
'</p>' .
|
||||
'<p>' . __('There are two templates delivered with kUtRL, if you do not use default theme, you may adapt them to yours.') . '<br />' .
|
||||
__('Files are in plugin directory /default-templates, just copy them into your theme and edit them.') . '</p>' .
|
||||
echo
|
||||
'</p>' .
|
||||
'<p>' . __('There are two templates delivered with kUtRL, if you do not use default theme, you may adapt them to yours.') . '<br />' .
|
||||
__('Files are in plugin directory /default-templates, just copy them into your theme and edit them.') . '</p>' .
|
||||
|
||||
'</div></div><br class="clear"/>';
|
||||
}
|
||||
|
@ -104,30 +102,28 @@ class localKutrlService extends kutrlService
|
|||
{
|
||||
$ap = $this->allow_protocols;
|
||||
if (!empty($ap)) {
|
||||
|
||||
return true;
|
||||
} else {
|
||||
$this->error->add(__('Service is not well configured.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
$this->error->add(__('Service is not well configured.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
public function createHash($url, $hash = null)
|
||||
{
|
||||
# Create response object
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->type = 'local';
|
||||
$rs->url = $url;
|
||||
|
||||
# Normal link
|
||||
if ($hash === null) {
|
||||
$type = 'localnormal';
|
||||
$type = 'localnormal';
|
||||
$rs->hash = $this->next($this->last('localnormal'));
|
||||
|
||||
# Mixed custom link
|
||||
} elseif (preg_match('/^([A-Za-z0-9]{2,})\!\!$/', $hash, $m)) {
|
||||
$type = 'localmix';
|
||||
$type = 'localmix';
|
||||
$rs->hash = $m[1] . $this->next(-1, $m[1]);
|
||||
|
||||
# Custom link
|
||||
|
@ -137,7 +133,7 @@ class localKutrlService extends kutrlService
|
|||
|
||||
return false;
|
||||
}
|
||||
$type = 'localcustom';
|
||||
$type = 'localcustom';
|
||||
$rs->hash = $hash;
|
||||
|
||||
# Wrong char in custom hash
|
||||
|
@ -170,11 +166,12 @@ class localKutrlService extends kutrlService
|
|||
if ($last_id == -1) {
|
||||
$next_id = 0;
|
||||
} else {
|
||||
for($x = 1; $x <= strlen($last_id); $x++) {
|
||||
for ($x = 1; $x <= strlen($last_id); $x++) {
|
||||
$pos = strlen($last_id) - $x;
|
||||
|
||||
if ($last_id[$pos] != 'z') {
|
||||
$next_id = $this->increment($last_id, $pos);
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
@ -183,7 +180,7 @@ class localKutrlService extends kutrlService
|
|||
}
|
||||
}
|
||||
|
||||
return false === $this->log->select(null,$prefix . $next_id, null, 'local') ?
|
||||
return false === $this->log->select(null, $prefix . $next_id, null, 'local') ?
|
||||
$next_id : $this->next($next_id, $prefix);
|
||||
}
|
||||
|
||||
|
@ -199,7 +196,7 @@ class localKutrlService extends kutrlService
|
|||
|
||||
protected function increment($id, $pos)
|
||||
{
|
||||
$id = str_split($id);
|
||||
$id = str_split($id);
|
||||
$char = $id[$pos];
|
||||
|
||||
if (is_numeric($char)) {
|
||||
|
@ -221,7 +218,6 @@ class localKutrlService extends kutrlService
|
|||
public function getUrl($hash)
|
||||
{
|
||||
if (false === ($rs = $this->log->select(null, $hash, null, 'local'))) {
|
||||
|
||||
return false;
|
||||
}
|
||||
if (!$rs->url) { //previously removed url
|
||||
|
@ -236,7 +232,6 @@ class localKutrlService extends kutrlService
|
|||
public function deleteUrl($url, $delete = false)
|
||||
{
|
||||
if (false === ($rs = $this->log->select($url, null, null, 'local'))) {
|
||||
|
||||
return false;
|
||||
}
|
||||
if ($delete) {
|
||||
|
@ -247,4 +242,4 @@ class localKutrlService extends kutrlService
|
|||
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -18,12 +17,12 @@ if (!defined('DC_RC_PATH')) {
|
|||
class shorttoKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = [
|
||||
'id' => 'shortto',
|
||||
'id' => 'shortto',
|
||||
'name' => 'short.to',
|
||||
'home' => 'http://short.to',
|
||||
|
||||
'url_api' => 'http://short.to/s.txt',
|
||||
'url_base' => 'http://short.to/',
|
||||
'url_api' => 'http://short.to/s.txt',
|
||||
'url_base' => 'http://short.to/',
|
||||
'url_min_len' => 25
|
||||
];
|
||||
|
||||
|
@ -32,8 +31,10 @@ class shorttoKutrlService extends kutrlService
|
|||
$arg = ['url' => urlencode($this->url_test)];
|
||||
if (!self::post($this->url_api, $arg, true, true)) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
@ -43,14 +44,15 @@ class shorttoKutrlService extends kutrlService
|
|||
|
||||
if (!($response = self::post($this->url_api, $arg, true, true))) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = str_replace($this->url_base, '', $response);
|
||||
$rs->url = $url;
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,79 +1,80 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')){return;}
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
||||
class suprKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = array(
|
||||
'id' => 'supr',
|
||||
protected $config = [
|
||||
'id' => 'supr',
|
||||
'name' => 'su.pr StumbleUpon',
|
||||
'home' => 'http://su.pr',
|
||||
|
||||
'url_api' => 'http://su.pr/api/',
|
||||
'url_base' => 'http://su.pr/',
|
||||
'url_api' => 'http://su.pr/api/',
|
||||
'url_base' => 'http://su.pr/',
|
||||
'url_min_len' => 23
|
||||
);
|
||||
];
|
||||
|
||||
private $args = array(
|
||||
private $args = [
|
||||
'version' => '1.0',
|
||||
'format' => 'xml',
|
||||
'login' => '',
|
||||
'apiKey' => ''
|
||||
);
|
||||
'format' => 'xml',
|
||||
'login' => '',
|
||||
'apiKey' => ''
|
||||
];
|
||||
|
||||
protected function init()
|
||||
{
|
||||
$this->args['login'] = $this->settings->kutrl_srv_supr_login;
|
||||
$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']);
|
||||
$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']).
|
||||
echo
|
||||
'<p><label class="classic">' . __('Login:') . '<br />' .
|
||||
form::field(['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(['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']))
|
||||
{
|
||||
if (empty($this->args['login']) || empty($this->args['apiKey'])) {
|
||||
$this->error->add(__('Service is not well configured.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
$args = $this->args;
|
||||
$args = $this->args;
|
||||
$arg['longUrl'] = $this->url_test;
|
||||
if (!($response = self::post($this->url_api.'shorten',$args,true)))
|
||||
{
|
||||
if (!($response = self::post($this->url_api . 'shorten', $args, true))) {
|
||||
$this->error->add(__('Failed to call service.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
|
@ -81,22 +82,24 @@ class suprKutrlService extends kutrlService
|
|||
|
||||
$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));
|
||||
$err_no = (int) $rsp->errorCode;
|
||||
$err_msg = (int) $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)
|
||||
public function createHash($url, $hash = null)
|
||||
{
|
||||
$args = $this->args;
|
||||
$args = $this->args;
|
||||
$args['longUrl'] = $url;
|
||||
|
||||
if (!($response = self::post($this->url_api.'shorten',$args,true)))
|
||||
{
|
||||
if (!($response = self::post($this->url_api . 'shorten', $args, true))) {
|
||||
$this->error->add(__('Failed to call service.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
|
@ -104,17 +107,18 @@ class suprKutrlService extends kutrlService
|
|||
|
||||
$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));
|
||||
$err_no = (int) $rsp->errorCode;
|
||||
$err_msg = (int) $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 = new ArrayObject();
|
||||
$rs->hash = (string) $rsp->results[0]->nodeKeyVal->hash;
|
||||
$rs->url = (string) $rsp->results[0]->nodeKeyVal->nodeKey;
|
||||
$rs->url = (string) $rsp->results[0]->nodeKeyVal->nodeKey;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,34 +1,35 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')){return;}
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
||||
class trimKutrlService extends kutrlService
|
||||
{
|
||||
protected $config = array(
|
||||
'id' => 'trim',
|
||||
protected $config = [
|
||||
'id' => 'trim',
|
||||
'name' => 'tr.im',
|
||||
'home' => 'http://tr.im',
|
||||
|
||||
'url_api' => 'http://api.tr.im/v1/',
|
||||
'url_base' => 'http://tr.im/',
|
||||
'url_api' => 'http://api.tr.im/v1/',
|
||||
'url_base' => 'http://tr.im/',
|
||||
'url_min_len' => 25
|
||||
);
|
||||
];
|
||||
|
||||
private $args = array(
|
||||
private $args = [
|
||||
'username' => '',
|
||||
'password' => ''
|
||||
);
|
||||
];
|
||||
|
||||
private $api_rate_time = 0;
|
||||
|
||||
|
@ -37,90 +38,90 @@ class trimKutrlService extends kutrlService
|
|||
$this->args['username'] = $this->settings->kutrl_srv_trim_username;
|
||||
$this->args['password'] = $this->settings->kutrl_srv_trim_password;
|
||||
|
||||
$this->api_rate_time = (integer) $this->settings->kutrl_srv_trim_apiratetime;
|
||||
$this->api_rate_time = (int) $this->settings->kutrl_srv_trim_apiratetime;
|
||||
}
|
||||
|
||||
public function saveSettings()
|
||||
{
|
||||
$this->settings->put('kutrl_srv_trim_username',$_POST['kutrl_srv_trim_username']);
|
||||
$this->settings->put('kutrl_srv_trim_password',$_POST['kutrl_srv_trim_password']);
|
||||
$this->settings->put('kutrl_srv_trim_username', $_POST['kutrl_srv_trim_username']);
|
||||
$this->settings->put('kutrl_srv_trim_password', $_POST['kutrl_srv_trim_password']);
|
||||
}
|
||||
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
'<p><label class="classic">'.__('Login:').'<br />'.
|
||||
form::field(array('kutrl_srv_trim_username'),50,255,$this->settings->kutrl_srv_trim_username).
|
||||
'</label></p>'.
|
||||
'<p class="form-note">'.
|
||||
__('This is your login to sign up to tr.im.').
|
||||
'</p>'.
|
||||
'<p><label class="classic">'.__('Password:').'<br />'.
|
||||
form::field(array('kutrl_srv_trim_password'),50,255,$this->settings->kutrl_srv_trim_password).
|
||||
'</label></p>'.
|
||||
'<p class="form-note">'.
|
||||
__('This is your password to sign up to tr.im.').
|
||||
echo
|
||||
'<p><label class="classic">' . __('Login:') . '<br />' .
|
||||
form::field(['kutrl_srv_trim_username'], 50, 255, $this->settings->kutrl_srv_trim_username) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your login to sign up to tr.im.') .
|
||||
'</p>' .
|
||||
'<p><label class="classic">' . __('Password:') . '<br />' .
|
||||
form::field(['kutrl_srv_trim_password'], 50, 255, $this->settings->kutrl_srv_trim_password) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your password to sign up to tr.im.') .
|
||||
'</p>';
|
||||
}
|
||||
|
||||
public function testService()
|
||||
{
|
||||
if (empty($this->args['username']) || empty($this->args['password']))
|
||||
{
|
||||
if (empty($this->args['username']) || empty($this->args['password'])) {
|
||||
$this->error->add(__('Service is not well configured.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
if (time() < $this->api_rate_time + 300) // bloc service within 5min on API rate limit
|
||||
{
|
||||
if (time() < $this->api_rate_time + 300) { // bloc service within 5min on API rate limit
|
||||
$this->error->add(__('Prevent service rate limit.'));
|
||||
return false;
|
||||
|
||||
return false;
|
||||
}
|
||||
if (!($rsp = self::post($this->url_api.'verify.xml',$this->args,true,true)))
|
||||
{
|
||||
if (!($rsp = self::post($this->url_api . 'verify.xml', $this->args, true, true))) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
$r = simplexml_load_string($rsp);
|
||||
|
||||
if ($r['code'] == 200)
|
||||
{
|
||||
if ($r['code'] == 200) {
|
||||
return true;
|
||||
}
|
||||
$this->error->add(__('Authentication to service failed.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
public function createHash($url,$hash=null)
|
||||
public function createHash($url, $hash = null)
|
||||
{
|
||||
$arg = $this->args;
|
||||
$arg = $this->args;
|
||||
$arg['url'] = $url;
|
||||
|
||||
if (!($rsp = self::post($this->url_api.'trim_url.xml',$arg,true,true)))
|
||||
{
|
||||
if (!($rsp = self::post($this->url_api . 'trim_url.xml', $arg, true, true))) {
|
||||
$this->error->add(__('Service is unavailable.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
$r = simplexml_load_string($rsp);
|
||||
|
||||
# API rate limit
|
||||
if ($r['code'] == 425)
|
||||
{
|
||||
$this->settings->put('kutrl_srv_trim_apiratetime',time());
|
||||
if ($r['code'] == 425) {
|
||||
$this->settings->put('kutrl_srv_trim_apiratetime', time());
|
||||
|
||||
$this->error->add(__('Service rate limit exceeded.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
if (isset($r->trimpath))
|
||||
{
|
||||
$rs = new ArrayObject();
|
||||
if (isset($r->trimpath)) {
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = $r->trimpath;
|
||||
$rs->url = $url;
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
||||
return $rs;
|
||||
}
|
||||
$this->error->add(__('Unreadable service response.'));
|
||||
|
||||
return false;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return null;
|
||||
}
|
||||
|
@ -40,7 +39,7 @@ class yourlsKutrlService extends kutrlService
|
|||
|
||||
$this->config['url_api'] = $base;
|
||||
$this->config['url_base'] = $base;
|
||||
$this->config['url_min_len'] = strlen($base)+3;
|
||||
$this->config['url_min_len'] = strlen($base) + 3;
|
||||
}
|
||||
|
||||
public function saveSettings()
|
||||
|
@ -52,25 +51,25 @@ class yourlsKutrlService extends kutrlService
|
|||
|
||||
public function settingsForm()
|
||||
{
|
||||
echo
|
||||
'<p><label class="classic">' .
|
||||
__('Url of the service:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_base'], 50, 255, $this->settings->kutrl_srv_yourls_base) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is the URL of the YOURLS service you want to use. Ex: "http://www.smaller.org/api.php".') .
|
||||
'</p>' .
|
||||
'<p><label class="classic">' . __('Login:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_username'], 50, 255, $this->settings->kutrl_srv_yourls_username) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your user name to sign up to this YOURLS service.') .
|
||||
'</p>' .
|
||||
'<p><label class="classic">' . __('Password:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_password'], 50, 255, $this->settings->kutrl_srv_yourls_password) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your password to sign up to this YOURLS service.') .
|
||||
echo
|
||||
'<p><label class="classic">' .
|
||||
__('Url of the service:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_base'], 50, 255, $this->settings->kutrl_srv_yourls_base) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is the URL of the YOURLS service you want to use. Ex: "http://www.smaller.org/api.php".') .
|
||||
'</p>' .
|
||||
'<p><label class="classic">' . __('Login:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_username'], 50, 255, $this->settings->kutrl_srv_yourls_username) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your user name to sign up to this YOURLS service.') .
|
||||
'</p>' .
|
||||
'<p><label class="classic">' . __('Password:') . '<br />' .
|
||||
form::field(['kutrl_srv_yourls_password'], 50, 255, $this->settings->kutrl_srv_yourls_password) .
|
||||
'</label></p>' .
|
||||
'<p class="form-note">' .
|
||||
__('This is your password to sign up to this YOURLS service.') .
|
||||
'</p>';
|
||||
}
|
||||
|
||||
|
@ -82,7 +81,7 @@ class yourlsKutrlService extends kutrlService
|
|||
return false;
|
||||
}
|
||||
|
||||
$args = $this->args;
|
||||
$args = $this->args;
|
||||
$args['url'] = $this->url_test;
|
||||
|
||||
if (!($response = self::post($this->url_api, $this->args, true))) {
|
||||
|
@ -93,7 +92,6 @@ class yourlsKutrlService extends kutrlService
|
|||
$rsp = @simplexml_load_string($response);
|
||||
|
||||
if ($rsp && $rsp->status == 'success') {
|
||||
|
||||
return true;
|
||||
}
|
||||
$this->error->add(__('Authentication to service failed.'));
|
||||
|
@ -114,7 +112,7 @@ class yourlsKutrlService extends kutrlService
|
|||
$rsp = @simplexml_load_string($response);
|
||||
|
||||
if ($rsp && $rsp->status == 'success') {
|
||||
$rs = new ArrayObject();
|
||||
$rs = new ArrayObject();
|
||||
$rs->hash = $rsp->url[0]->keyword;
|
||||
$rs->url = $url;
|
||||
$rs->type = $this->id;
|
||||
|
@ -125,4 +123,4 @@ class yourlsKutrlService extends kutrlService
|
|||
|
||||
return false;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
84
index.php
84
index.php
|
@ -1,16 +1,15 @@
|
|||
<?php
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
|
||||
if (!defined('DC_CONTEXT_ADMIN')) {
|
||||
return;
|
||||
}
|
||||
|
@ -19,8 +18,8 @@ if (!defined('DC_CONTEXT_ADMIN')) {
|
|||
dcPage::check('admin');
|
||||
|
||||
$header = '';
|
||||
$part = isset($_REQUEST['part']) ? $_REQUEST['part'] : 'links';
|
||||
$action = isset($_POST['action']) ? $_POST['action'] : '';
|
||||
$part = $_REQUEST['part'] ?? 'links';
|
||||
$action = $_POST['action'] ?? '';
|
||||
|
||||
# link creation
|
||||
if ($part == 'link') {
|
||||
|
@ -31,7 +30,7 @@ if ($part == 'link') {
|
|||
if (null === $kut) {
|
||||
throw new Exception('Unknow service');
|
||||
}
|
||||
$url = trim($core->con->escape($_POST['str']));
|
||||
$url = trim($core->con->escape($_POST['str']));
|
||||
$hash = empty($_POST['custom']) ? null : $_POST['custom'];
|
||||
|
||||
if (empty($url)) {
|
||||
|
@ -62,8 +61,8 @@ if ($part == 'link') {
|
|||
throw new Exception(__('This custom short url is already taken.'));
|
||||
}
|
||||
if (false !== ($rs = $kut->isKnowUrl($url))) {
|
||||
$url = $rs->url;
|
||||
$new_url = $kut->url_base .$rs->hash;
|
||||
$url = $rs->url;
|
||||
$new_url = $kut->url_base . $rs->hash;
|
||||
|
||||
dcPage::addSuccessNotice(sprintf(
|
||||
__('Short link for %s is %s'),
|
||||
|
@ -75,9 +74,10 @@ if ($part == 'link') {
|
|||
if ($kut->error->flag()) {
|
||||
throw new Exception($kut->error->toHTML());
|
||||
}
|
||||
|
||||
throw new Exception(__('Failed to create short link. This could be caused by a service failure.'));
|
||||
} else {
|
||||
$url = $rs->url;
|
||||
$url = $rs->url;
|
||||
$new_url = $kut->url_base . $rs->hash;
|
||||
|
||||
dcPage::addSuccessNotice(sprintf(
|
||||
|
@ -88,7 +88,7 @@ if ($part == 'link') {
|
|||
|
||||
# ex: Send new url to messengers
|
||||
if (!empty($rs)) {
|
||||
$core->callBehavior('adminAfterKutrlCreate', $core, $rs,__('New short URL'));
|
||||
$core->callBehavior('adminAfterKutrlCreate', $core, $rs, __('New short URL'));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
@ -97,15 +97,15 @@ if ($part == 'link') {
|
|||
}
|
||||
}
|
||||
|
||||
# links
|
||||
# links
|
||||
} else {
|
||||
$services_combo = [];
|
||||
foreach(kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
foreach (kutrl::getServices($core) as $service_id => $service) {
|
||||
$o = new $service($core);
|
||||
$services_combo[__($o->name)] = $o->id;
|
||||
}
|
||||
$ext_services_combo = array_merge([__('Disabled')=>''], $services_combo);
|
||||
$lst_services_combo = array_merge(['-'=>''], $services_combo);
|
||||
$ext_services_combo = array_merge([__('Disabled') => ''], $services_combo);
|
||||
$lst_services_combo = array_merge(['-' => ''], $services_combo);
|
||||
|
||||
$log = new kutrlLog($core);
|
||||
|
||||
|
@ -113,26 +113,28 @@ if ($part == 'link') {
|
|||
$kUtRL_filter->add('part', 'links');
|
||||
$kUtRL_filter->add(dcAdminFilters::getPageFilter());
|
||||
$kUtRL_filter->add(dcAdminFilters::getSelectFilter(
|
||||
'urlsrv', __('Service:'), $lst_services_combo, 'kut_type'
|
||||
'urlsrv',
|
||||
__('Service:'),
|
||||
$lst_services_combo,
|
||||
'kut_type'
|
||||
));
|
||||
|
||||
$params = $kUtRL_filter->params();
|
||||
|
||||
try {
|
||||
$list_all = $log->getLogs($params);
|
||||
$list_all = $log->getLogs($params);
|
||||
$list_counter = $log->getLogs($params, true)->f(0);
|
||||
$list_current = new kutrlLinksList($core, $list_all, $list_counter);
|
||||
} catch (Exception $e) {
|
||||
$core->error->add($e->getMessage());
|
||||
}
|
||||
|
||||
$header =
|
||||
$kUtRL_filter->js($core->adminurl->get('admin.plugin.kUtRL', ['part' => 'links'])) .
|
||||
$header = $kUtRL_filter->js($core->adminurl->get('admin.plugin.kUtRL', ['part' => 'links'])) .
|
||||
dcPage::jsLoad(dcPage::getPF('kUtRL/js/admin.js'));
|
||||
|
||||
if (!empty($_POST['deletelinks'])) {
|
||||
try {
|
||||
foreach($_POST['entries'] as $id) {
|
||||
foreach ($_POST['entries'] as $id) {
|
||||
$rs = $log->getLogs(['kut_id' => $id]);
|
||||
if ($rs->isEmpty()) {
|
||||
continue;
|
||||
|
@ -151,23 +153,23 @@ if ($part == 'link') {
|
|||
$core->adminurl->redirect('admin.plugin.kUtRL', $kUtRL_filter->values());
|
||||
} catch (Exception $e) {
|
||||
$core->error->add($e->getMessage());
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# display header
|
||||
echo
|
||||
echo
|
||||
'<html><head><title>kUtRL, ' . __('Links shortener') . '</title>' .
|
||||
$header .
|
||||
'</head><body>';
|
||||
|
||||
# display link creation
|
||||
if ($part == 'link') {
|
||||
echo
|
||||
echo
|
||||
dcPage::breadcrumb([
|
||||
__('Plugins') => '',
|
||||
__('Links shortener') => $core->adminurl->get('admin.plugin.kUtRL'),
|
||||
__('New link') => ''
|
||||
__('Plugins') => '',
|
||||
__('Links shortener') => $core->adminurl->get('admin.plugin.kUtRL'),
|
||||
__('New link') => ''
|
||||
]) .
|
||||
dcPage::notices();
|
||||
|
||||
|
@ -185,40 +187,40 @@ if ($part == 'link') {
|
|||
if ($kut->allow_custom_hash) {
|
||||
echo
|
||||
'<p><label for="custom">' . __('Custom short link:') . '</label>' .
|
||||
form::field('custom', 50, 32, '') . '</p>' .
|
||||
form::field('custom', 50, 32, '') . '</p>' .
|
||||
'<p class="form-note">' . __('Only if you want a custom short link.') . '</p>';
|
||||
|
||||
if ($kut->admin_service == 'local') {
|
||||
echo '<p class="form-note">' .
|
||||
__('You can use "bob!!" if you want a semi-custom link, it starts with "bob" and "!!" will be replaced by an increment value.') .
|
||||
echo '<p class="form-note">' .
|
||||
__('You can use "bob!!" if you want a semi-custom link, it starts with "bob" and "!!" will be replaced by an increment value.') .
|
||||
'</p>';
|
||||
}
|
||||
}
|
||||
|
||||
echo '
|
||||
<p><input type="submit" name="save" value="' . __('Save') . '" />' .
|
||||
$core->formNonce() .
|
||||
<p><input type="submit" name="save" value="' . __('Save') . '" />' .
|
||||
$core->formNonce() .
|
||||
form::hidden(['part'], 'link') . '
|
||||
</p></div>
|
||||
</form>';
|
||||
}
|
||||
} else {
|
||||
echo
|
||||
echo
|
||||
dcPage::breadcrumb([
|
||||
__('Plugins') => '',
|
||||
__('Links shortener') => ''
|
||||
__('Plugins') => '',
|
||||
__('Links shortener') => ''
|
||||
]) .
|
||||
dcPage::notices() .
|
||||
|
||||
'<p class="top-add"><a class="button add" href="' .
|
||||
$core->adminurl->get('admin.plugin.kUtRL', ['part' => 'link']) .
|
||||
'">' . __('New Link') .'</a></p>';
|
||||
'<p class="top-add"><a class="button add" href="' .
|
||||
$core->adminurl->get('admin.plugin.kUtRL', ['part' => 'link']) .
|
||||
'">' . __('New Link') . '</a></p>';
|
||||
|
||||
$kUtRL_filter->display('admin.plugin.kUtRL', form::hidden('p', 'kUtRL') . form::hidden('part', 'links'));
|
||||
|
||||
$list_current->display(
|
||||
$kUtRL_filter->value('page'),
|
||||
$kUtRL_filter->nb,
|
||||
$kUtRL_filter->nb,
|
||||
'<form action="' . $core->adminurl->get('admin.plugin.kUtRL') . '" method="post" id="form-entries">
|
||||
|
||||
%s
|
||||
|
@ -229,7 +231,7 @@ if ($part == 'link') {
|
|||
</div>
|
||||
<p class="col right">
|
||||
<input id="do-action" type="submit" value="' . __('Delete selected short links') . '" /></p>' .
|
||||
$core->adminurl->getHiddenFormFields('admin.plugin.kUtRL', array_merge(['deletelinks' => 1], $kUtRL_filter->values(true))) .
|
||||
$core->adminurl->getHiddenFormFields('admin.plugin.kUtRL', array_merge(['deletelinks' => 1], $kUtRL_filter->values(true))) .
|
||||
$core->formNonce() . '
|
||||
</p>
|
||||
</div>
|
||||
|
@ -241,4 +243,4 @@ if ($part == 'link') {
|
|||
# display footer
|
||||
dcPage::helpBlock('kUtRL');
|
||||
|
||||
echo '</body></html>';
|
||||
echo '</body></html>';
|
||||
|
|
|
@ -1,16 +1,17 @@
|
|||
<?php
|
||||
# -- BEGIN LICENSE BLOCK ----------------------------------
|
||||
#
|
||||
# This file is part of kUtRL, a plugin for Dotclear 2.
|
||||
#
|
||||
# Copyright (c) 2009-2021 Jean-Christian Denis and contributors
|
||||
#
|
||||
# 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 ------------------------------------
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
||||
if (!defined('DC_RC_PATH')) { return; }
|
||||
|
||||
$__resources['help']['kUtRL'] = dirname(__FILE__).'/help/help.html';
|
||||
$__resources['help']['kUtRL'] = dirname(__FILE__) . '/help/help.html';
|
||||
|
|
|
@ -1,16 +1,17 @@
|
|||
<?php
|
||||
# -- BEGIN LICENSE BLOCK ----------------------------------
|
||||
#
|
||||
# This file is part of kUtRL, a plugin for Dotclear 2.
|
||||
#
|
||||
# Copyright (c) 2009-2021 Jean-Christian Denis and contributors
|
||||
#
|
||||
# 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 ------------------------------------
|
||||
/**
|
||||
* @brief kUtRL, a plugin for Dotclear 2
|
||||
*
|
||||
* @package Dotclear
|
||||
* @subpackage Plugin
|
||||
*
|
||||
* @author Jean-Christian Denis and contributors
|
||||
*
|
||||
* @copyright Jean-Christian Denis
|
||||
* @copyright GPL-2.0 https://www.gnu.org/licenses/gpl-2.0.html
|
||||
*/
|
||||
if (!defined('DC_RC_PATH')) {
|
||||
return;
|
||||
}
|
||||
|
||||
if (!defined('DC_RC_PATH')) { return; }
|
||||
|
||||
$__resources['help']['kUtRL'] = dirname(__FILE__).'/help/help.html';
|
||||
$__resources['help']['kUtRL'] = dirname(__FILE__) . '/help/help.html';
|
||||
|
|
Loading…
Reference in New Issue