80 lines
1.9 KiB
PHP
80 lines
1.9 KiB
PHP
|
<?php
|
||
|
|
# -- BEGIN LICENSE BLOCK ----------------------------------
|
||
|
|
# This file is part of kUtRL, a plugin for Dotclear 2.
|
||
|
|
#
|
||
|
|
# Copyright (c) 2009-2011 JC Denis and contributors
|
||
|
|
# jcdenis@gdwd.com
|
||
|
|
#
|
||
|
|
# Licensed under the GPL version 2.0 license.
|
||
|
|
# A copy of this license is available in LICENSE file or at
|
||
|
|
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
|
||
|
|
# -- END LICENSE BLOCK ------------------------------------
|
||
|
|
|
||
|
|
# This file contents class to shorten url pass through wiki
|
||
|
|
|
||
|
|
if (!defined('DC_RC_PATH')){return;}
|
||
|
|
|
||
|
|
class kutrlWiki
|
||
|
|
{
|
||
|
|
public static function coreInitWiki($wiki2xhtml)
|
||
|
|
{
|
||
|
|
global $core;
|
||
|
|
$s = $core->blog->settings->kUtRL;
|
||
|
|
|
||
|
|
# Do nothing on comment preview and post preview
|
||
|
|
if (!empty($_POST['preview'])
|
||
|
|
|| !empty($GLOBALS['_ctx']) && $GLOBALS['_ctx']->preview
|
||
|
|
|| !$s->kutrl_active) return;
|
||
|
|
|
||
|
|
if (null === ($kut = kutrl::quickPlace('wiki'))) return;
|
||
|
|
|
||
|
|
foreach($kut->allow_protocols as $protocol)
|
||
|
|
{
|
||
|
|
$wiki2xhtml->registerFunction(
|
||
|
|
'url:'.$protocol,
|
||
|
|
array('kutrlWiki','transform')
|
||
|
|
);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function transform($url,$content)
|
||
|
|
{
|
||
|
|
global $core;
|
||
|
|
$s = $core->blog->settings->kUtRL;
|
||
|
|
|
||
|
|
if (!$s->kutrl_active) return;
|
||
|
|
|
||
|
|
if (null === ($kut = kutrl::quickPlace('wiki'))) return array();
|
||
|
|
|
||
|
|
# Test if long url exists
|
||
|
|
$is_new = false;
|
||
|
|
$rs = $kut->isKnowUrl($url);
|
||
|
|
if (!$rs)
|
||
|
|
{
|
||
|
|
$is_new = true;
|
||
|
|
$rs = $kut->hash($url);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$rs)
|
||
|
|
{
|
||
|
|
return array();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$res = array();
|
||
|
|
$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;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
?>
|