2021-08-25 23:06:22 +00:00
|
|
|
<?php
|
|
|
|
# -- BEGIN LICENSE BLOCK ----------------------------------
|
2021-08-27 23:53:13 +00:00
|
|
|
#
|
2021-08-25 23:06:22 +00:00
|
|
|
# This file is part of kUtRL, a plugin for Dotclear 2.
|
|
|
|
#
|
2021-08-27 23:53:13 +00:00
|
|
|
# Copyright (c) 2009-2021 Jean-Christian Denis and contributors
|
2021-08-25 23:06:22 +00:00
|
|
|
#
|
|
|
|
# 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
|
2021-08-27 23:53:13 +00:00
|
|
|
#
|
2021-08-25 23:06:22 +00:00
|
|
|
# -- END LICENSE BLOCK ------------------------------------
|
|
|
|
|
|
|
|
if (!defined('DC_RC_PATH')){return;}
|
|
|
|
|
|
|
|
$core->addBehavior('initWidgets',array('widgetKutrl','adminShorten'));
|
|
|
|
$core->addBehavior('initWidgets',array('widgetKutrl','adminRank'));
|
|
|
|
|
|
|
|
class widgetKutrl
|
|
|
|
{
|
|
|
|
public static function adminShorten($w)
|
|
|
|
{
|
|
|
|
$w->create('shortenkutrl',__('Links shortener'),
|
|
|
|
array('widgetKutrl','publicShorten')
|
|
|
|
);
|
|
|
|
$w->shortenkutrl->setting('title',
|
|
|
|
__('Title:'),__('Shorten link'),'text'
|
|
|
|
);
|
|
|
|
$w->shortenkutrl->setting('homeonly',
|
|
|
|
__('Home page only'),1,'check'
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
public static function adminRank($w)
|
|
|
|
{
|
|
|
|
$w->create('rankkutrl',__('Top of short links'),
|
|
|
|
array('widgetKutrl','publicRank')
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('title',
|
|
|
|
__('Title:'),__('Top of short links'),'text'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('text',
|
|
|
|
__('Text: (Use wildcard %rank%, %hash%, %url%, %count%, %counttext%)'),'%rank% - %url% - %counttext%','text'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('urllen',
|
|
|
|
__('URL length (if truncate)'),20,'text'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('type',
|
|
|
|
__('Type:'),'all','combo',array(
|
|
|
|
__('All') => '-',
|
|
|
|
__('Mini URL') => 'localnormal',
|
|
|
|
__('Custom URL') => 'localcustom',
|
|
|
|
__('Semi-custom') => 'localmix'
|
|
|
|
)
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('mixprefix',
|
|
|
|
__('Semi-custom prefix: (only if you want limit to a particular prefix)'),
|
|
|
|
'','text'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('sortby',
|
|
|
|
__('Sort by:'),'kut_counter','combo',array(
|
|
|
|
__('Date') => 'kut_dt',
|
|
|
|
__('Rank') => 'kut_counter',
|
|
|
|
__('Hash') => 'kut_hash'
|
|
|
|
)
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('sort',
|
|
|
|
__('Sort:'),'desc','combo',array(
|
|
|
|
__('Ascending') => 'asc',
|
|
|
|
__('Descending') => 'desc'
|
|
|
|
)
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('limit',
|
|
|
|
__('Limit:'),'10','text'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('hideempty',
|
|
|
|
__('Hide no followed links'),0,'check'
|
|
|
|
);
|
|
|
|
$w->rankkutrl->setting('homeonly',
|
|
|
|
__('Home page only'),1,'check'
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
public static function publicShorten($w)
|
|
|
|
{
|
|
|
|
global $core;
|
|
|
|
$s = $core->blog->settings->kUtRL;
|
|
|
|
|
|
|
|
if (!$s->kutrl_active
|
|
|
|
|| !$s->kutrl_srv_local_public
|
|
|
|
|| $w->homeonly && $core->url->type != 'default'
|
|
|
|
|| $core->url->type == 'kutrl') return;
|
|
|
|
|
|
|
|
$hmf = hmfKutrl::create();
|
|
|
|
$hmfp = hmfKutrl::protect($hmf);
|
|
|
|
|
|
|
|
return
|
|
|
|
'<div class="shortenkutrlwidget">'.
|
|
|
|
($w->title ? '<h2>'.html::escapeHTML($w->title).'</h2>' : '').
|
|
|
|
'<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="'.__('Create').'" />'.
|
|
|
|
form::hidden('hmfp',$hmfp).
|
|
|
|
$core->formNonce().
|
|
|
|
'</p>'.
|
|
|
|
'</form>'.
|
|
|
|
'</div>';
|
|
|
|
}
|
|
|
|
|
|
|
|
public static function publicRank($w)
|
|
|
|
{
|
|
|
|
global $core;
|
|
|
|
$s = $core->blog->settings->kUtRL;
|
|
|
|
|
|
|
|
if (!$s->kutrl_active
|
|
|
|
|| $w->homeonly && $core->url->type != 'default') return;
|
|
|
|
|
|
|
|
$type = in_array($w->type,array('localnormal','localmix','localcustom')) ?
|
|
|
|
"AND kut_type ='".$w->type."' " :
|
|
|
|
"AND kut_type ".$core->con->in(array('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,array('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;
|
|
|
|
|
|
|
|
$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(
|
|
|
|
array('%rank%','%hash%','%url%','%count%','%counttext%'),
|
|
|
|
array($rank,$hash,$url,$rs->kut_counter,$counttext),
|
|
|
|
$w->text
|
|
|
|
).
|
|
|
|
'</a></li>';
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!$content) return;
|
|
|
|
|
|
|
|
return
|
|
|
|
'<div class="rankkutrlwidget">'.
|
|
|
|
($w->title ? '<h2>'.html::escapeHTML($w->title).'</h2>' : '').
|
|
|
|
'<ul>'.$content.'</ul>'.
|
|
|
|
'</div>';
|
|
|
|
}
|
|
|
|
}
|
|
|
|
?>
|