244 lines
7.6 KiB
PHP
244 lines
7.6 KiB
PHP
<?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 ------------------------------------
|
|
|
|
if (!defined('DC_RC_PATH')) {
|
|
return null;
|
|
}
|
|
|
|
$core->addBehavior('initWidgets', ['widgetKutrl', 'adminShorten']);
|
|
$core->addBehavior('initWidgets', ['widgetKutrl', 'adminRank']);
|
|
|
|
class widgetKutrl
|
|
{
|
|
public static function adminShorten($w)
|
|
{
|
|
$w
|
|
->create(
|
|
'shortenkutrl',
|
|
__('Links shortener'),
|
|
['widgetKutrl', 'publicShorten']
|
|
)
|
|
->addTitle(__('Shorten link'))
|
|
->addHomeOnly()
|
|
->addContentOnly()
|
|
->addClass()
|
|
->addOffline();
|
|
}
|
|
|
|
public static function adminRank($w)
|
|
{
|
|
$w
|
|
->create(
|
|
'rankkutrl',
|
|
__('Top of short links'),
|
|
['widgetKutrl', 'publicRank']
|
|
)
|
|
->addTitle(__('Top of short links'))
|
|
->setting(
|
|
'text',
|
|
__('Text: (Use wildcard %rank%, %hash%, %url%, %count%, %counttext%)'),
|
|
'%rank% - %url% - %counttext%',
|
|
'text'
|
|
)
|
|
->setting(
|
|
'urllen',
|
|
__('URL length (if truncate)'),
|
|
20,
|
|
'text'
|
|
)
|
|
->setting(
|
|
'type',
|
|
__('Type:'),
|
|
'all',
|
|
'combo',[
|
|
__('All') => '-',
|
|
__('Mini URL') => 'localnormal',
|
|
__('Custom URL') => 'localcustom',
|
|
__('Semi-custom') => 'localmix'
|
|
]
|
|
)
|
|
->setting(
|
|
'mixprefix',
|
|
__('Semi-custom prefix: (only if you want limit to a particular prefix)'),
|
|
'',
|
|
'text'
|
|
)
|
|
->setting(
|
|
'sortby',
|
|
__('Sort by:'),
|
|
'kut_counter',
|
|
'combo',
|
|
[
|
|
__('Date') => 'kut_dt',
|
|
__('Rank') => 'kut_counter',
|
|
__('Hash') => 'kut_hash'
|
|
]
|
|
)
|
|
->setting(
|
|
'sort',
|
|
__('Sort:'),
|
|
'desc',
|
|
'combo',
|
|
[
|
|
__('Ascending') => 'asc',
|
|
__('Descending') => 'desc'
|
|
]
|
|
)
|
|
->setting(
|
|
'limit',
|
|
__('Limit:'),
|
|
'10',
|
|
'text'
|
|
)
|
|
->setting(
|
|
'hideempty',
|
|
__('Hide no followed links'),
|
|
0,
|
|
'check'
|
|
)
|
|
->addHomeOnly()
|
|
->addContentOnly()
|
|
->addClass()
|
|
->addOffline();
|
|
}
|
|
|
|
public static function publicShorten($w)
|
|
{
|
|
global $core;
|
|
$s = $core->blog->settings->kUtRL;
|
|
|
|
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();
|
|
$hmfp = hmfKutrl::protect($hmf);
|
|
|
|
return $w->renderDiv(
|
|
$w->content_only,
|
|
'shortenkutrlwidget ' . $w->class,
|
|
'',
|
|
($w->title ? $w->renderTitle(html::escapeHTML($w->title)) : '') .
|
|
'<form name="shortenkutrlwidget" method="post" action="' .
|
|
$core->blog->url . $core->url->getBase('kutrl') . '">' .
|
|
'<p><label>' .
|
|
__('Long link:') . '<br />' .
|
|
form::field('longurl', 20, 255, '') .
|
|
'</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,'') .
|
|
'</label></p>' .
|
|
'<p><input class="submit" type="submit" name="submiturl" value="' . __('Shorten') . '" />' .
|
|
form::hidden('hmfp',$hmfp) .
|
|
$core->formNonce() .
|
|
'</p>' .
|
|
'</form>'
|
|
);
|
|
}
|
|
|
|
public static function publicRank($w)
|
|
{
|
|
global $core;
|
|
$s = $core->blog->settings->kUtRL;
|
|
|
|
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']) . " ";
|
|
|
|
$hide = (boolean) $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'])) ?
|
|
$w->sortby : 'kut_dt';
|
|
|
|
$order .= $w->sort == 'desc' ? ' DESC' : ' ASC';
|
|
|
|
$limit = $core->con->limit(abs((integer) $w->limit));
|
|
|
|
$rs = $core->con->select(
|
|
'SELECT kut_counter, kut_hash ' .
|
|
"FROM " . $core->prefix . "kutrl " .
|
|
"WHERE blog_id='" . $core->con->escape($core->blog->id) . "' " .
|
|
"AND kut_service = 'local' " .
|
|
$type . $hide . $more . 'ORDER BY ' . $order . $limit
|
|
);
|
|
|
|
if ($rs->isEmpty()) {
|
|
return null;
|
|
}
|
|
|
|
$content = '';
|
|
$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);
|
|
|
|
if (strlen($url) > $cut_len) {
|
|
$url = '...' . substr($url, $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) {
|
|
$counttext = __('followed one time');
|
|
} else {
|
|
$counttext = sprintf(__('followed %s times'), $rs->kut_counter);
|
|
}
|
|
|
|
$content .=
|
|
'<li><a href="' .
|
|
$core->blog->url . $core->url->getBase('kutrl') . '/' . $rs->kut_hash .
|
|
'">' .
|
|
str_replace(
|
|
['%rank%', '%hash%', '%url%', '%count%', '%counttext%'],
|
|
[$rank, $hash, $url, $rs->kut_counter, $counttext],
|
|
$w->text
|
|
) .
|
|
'</a></li>';
|
|
}
|
|
|
|
if (empty($content)) {
|
|
return null;
|
|
}
|
|
|
|
return $w->renderDiv(
|
|
$w->content_only,
|
|
'lastblogupdate ' . $w->class,
|
|
'',
|
|
($w->title ? $w->renderTitle(html::escapeHTML($w->title)) : '') .
|
|
sprintf('<ul>%s</ul>', $content)
|
|
);
|
|
|
|
}
|
|
} |