kUtRL/_public.php

625 lines
15 KiB
PHP
Raw Normal View History

2021-08-25 23:06:22 +00:00
<?php
# -- BEGIN LICENSE BLOCK ----------------------------------
# This file is part of kUtRL, a plugin for Dotclear 2.
#
# Copyright (c) 2009-2011 JC Denis and contributors
# jcdenis@gdwd.com
#
# Licensed under the GPL version 2.0 license.
# A copy of this license is available in LICENSE file or at
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
# -- END LICENSE BLOCK ------------------------------------
if (!defined('DC_RC_PATH')){return;}
require_once dirname(__FILE__).'/_widgets.php';
$core->tpl->setPath($core->tpl->getPath(),dirname(__FILE__).'/default-templates');
$core->addBehavior('publicBeforeDocument',array('pubKutrl','publicBeforeDocument'));
$core->addBehavior('publicHeadContent',array('pubKutrl','publicHeadContent'));
$core->addBehavior('publicBeforeContentFilter',array('pubKutrl','publicBeforeContentFilter'));
$core->addBehavior('templateBeforeValue',array('pubKutrl','templateBeforeValue'));
$core->addBehavior('templateAfterValue',array('pubKutrl','templateAfterValue'));
$core->tpl->addBlock('kutrlPageIf',array('tplKutrl','pageIf'));
$core->tpl->addBlock('kutrlMsgIf',array('tplKutrl','pageMsgIf'));
$core->tpl->addValue('kutrlPageURL',array('tplKutrl','pageURL'));
$core->tpl->addValue('kutrlMsg',array('tplKutrl','pageMsg'));
$core->tpl->addValue('kutrlHumanField',array('tplKutrl','humanField'));
$core->tpl->addValue('kutrlHumanFieldProtect',array('tplKutrl','humanFieldProtect'));
$core->tpl->addBlock('AttachmentKutrlIf',array('tplKutrl','AttachmentKutrlIf'));
$core->tpl->addValue('AttachmentKutrl',array('tplKutrl','AttachmentKutrl'));
$core->tpl->addBlock('MediaKutrlIf',array('tplKutrl','MediaKutrlIf'));
$core->tpl->addValue('MediaKutrl',array('tplKutrl','MediaKutrl'));
$core->tpl->addBlock('EntryAuthorKutrlIf',array('tplKutrl','EntryAuthorKutrlIf'));
$core->tpl->addValue('EntryAuthorKutrl',array('tplKutrl','EntryAuthorKutrl'));
$core->tpl->addBlock('EntryKutrlIf',array('tplKutrl','EntryKutrlIf'));
$core->tpl->addValue('EntryKutrl',array('tplKutrl','EntryKutrl'));
$core->tpl->addBlock('CommentAuthorKutrlIf',array('tplKutrl','CommentAuthorKutrlIf'));
$core->tpl->addValue('CommentAuthorKutrl',array('tplKutrl','CommentAuthorKutrl'));
$core->tpl->addBlock('CommentPostKutrlIf',array('tplKutrl','CommentPostKutrlIf'));
$core->tpl->addValue('CommentPostKutrl',array('tplKutrl','CommentPostKutrl'));
class urlKutrl extends dcUrlHandlers
{
# Redirect !!! local !!! service only
public static function redirectUrl($args)
{
global $core, $_ctx;
$s = $core->blog->settings->kUtRL;
# Not active, go to default 404
if (!$s->kutrl_active)
{
self::p404();
return;
}
# Not a valid url, go to kutrl 404
if (!preg_match('#^(|(/(.*?)))$#',$args,$m))
{
self::kutrl404();
return;
}
$args = isset($m[3]) ? $m[3] : '';
$_ctx->kutrl_msg = '';
$_ctx->kutrl_hmf = hmfKutrl::create();
$_ctx->kutrl_hmfp = hmfKutrl::protect($_ctx->kutrl_hmf);
$kut = new localKutrlService($core);
# Nothing on url
if ($m[1] == '/')
{
$_ctx->kutrl_msg = 'No link given.';
}
# find suffix on redirect url
$suffix = '';
if (preg_match('@^([^?/#]+)(.*?)$@',$args,$more))
{
$args = $more[1];
$suffix = $more[2];
}
# No arg, go to kurtl page
if ($args == '')
{
self::pageKutrl($kut);
return;
}
# Not find, go to kutrl 404
if (false === ($url = $kut->getUrl($args)))
{
//$_ctx->kutrl_msg = 'Failed to find short link.';
//self::pageKutrl($kut);
self::kutrl404();
return;
}
# Removed (empty url), go to kutrl 404
if (!$url)
{
self::kutrl404();
return;
}
$core->blog->triggerBlog();
http::redirect($url.$suffix);
return;
}
private static function pageKutrl($kut)
{
global $core, $_ctx;
$s = $core->blog->settings->kUtRL;
# Not active, go to default 404
if (!$s->kutrl_active)
{
self::p404();
return;
}
# Public page not active, go to kutrl 404
if (!$s->kutrl_srv_local_public)
{
self::kutrl404();
return;
}
# Validation form
$url = !empty($_POST['longurl']) ? trim($core->con->escape($_POST['longurl'])) : '';
if (!empty($url))
{
$hmf = !empty($_POST['hmf']) ? $_POST['hmf'] : '!';
$hmfu = !empty($_POST['hmfp']) ? hmfKutrl::unprotect($_POST['hmfp']) : '?';
$err = false;
if (!$err)
{
if ($hmf != $hmfu)
{
$err = true;
$_ctx->kutrl_msg = __('Failed to verify protected field.');
}
}
if (!$err)
{
if (!$kut->testService())
{
$err = true;
$_ctx->kutrl_msg = __('Service is not well configured.');
}
}
if (!$err)
{
if (!$kut->isValidUrl($url))
{
$err = true;
$_ctx->kutrl_msg = __('This string is not a valid URL.');
}
}
if (!$err)
{
if (!$kut->isLongerUrl($url))
{
$err = true;
$_ctx->kutrl_msg = __('This link is too short.');
}
}
if (!$err)
{
if (!$kut->isProtocolUrl($url))
{
$err = true;
$_ctx->kutrl_msg = __('This type of link is not allowed.');
}
}
if (!$err)
{
if (!$kut->allow_external_url && !$kut->isBlogUrl($url))
{
$err = true;
$_ctx->kutrl_msg = __('Short links are limited to this blog URL.');
}
}
if (!$err)
{
if ($kut->isServiceUrl($url))
{
$err = true;
$_ctx->kutrl_msg = __('This link is already a short link.');
}
}
if (!$err)
{
if (false !== ($rs = $kut->isKnowUrl($url)))
{
$err = true;
$url = $rs->url;
$new_url = $kut->url_base.$rs->hash;
$_ctx->kutrl_msg = sprintf(
__('Short link for %s is %s'),
html::escapeHTML($url),
'<a href="'.$new_url.'">'.$new_url.'</a>'
);
}
}
if (!$err)
{
if (false === ($rs = $kut->hash($url)))
{
$err = true;
$_ctx->kutrl_msg = __('Failed to create short link.');
}
else
{
$url = $rs->url;
$new_url = $kut->url_base.$rs->hash;
$_ctx->kutrl_msg = sprintf(
__('Short link for %s is %s'),
html::escapeHTML($url),
'<a href="'.$new_url.'">'.$new_url.'</a>'
);
$core->blog->triggerBlog();
# ex: Send new url to messengers
if (!empty($rs))
{
$core->callBehavior('publicAfterKutrlCreate',$core,$rs,__('New public short URL'));
}
}
}
}
$core->tpl->setPath($core->tpl->getPath(),dirname(__FILE__).'/default-templates');
self::serveDocument('kutrl.html');
return;
}
protected static function kutrl404()
{
global $core;
if (!$core->blog->settings->kUtRL->kutrl_srv_local_404_active)
{
self::p404();
return;
}
$core->tpl->setPath($core->tpl->getPath(),dirname(__FILE__).'/default-templates');
$_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';
$_ctx->content_type = 'text/html';
echo $core->tpl->getData($_ctx->current_tpl);
# --BEHAVIOR-- publicAfterDocument
$core->callBehavior('publicAfterDocument',$core);
exit;
}
}
class pubKutrl
{
# List of template tag which content URL that can be shortenn
public static $know_tags = array(
'AttachmentURL',
'CategoryURL',
'MediaURL',
'EntryAuthorURL',
'EntryURL',
'EntryCategoryURL',
'CommentAuthorURL',
'CommentPostURL'
);
# Disable URL shoretning on filtered tag
public static function templateBeforeValue($core,$tag,$attr)
{
if (!empty($attr['disable_kutrl']) && in_array($tag,pubKutrl::$know_tags))
{
return '<?php $GLOBALS["disable_kutrl"] = true; ?>';
}
return;
}
# Re unable it after tag
public static function templateAfterValue($core,$tag,$attr)
{
if (!empty($attr['disable_kutrl']) && in_array($tag,pubKutrl::$know_tags))
{
return '<?php $GLOBALS["disable_kutrl"] = false; ?>';
}
return;
}
# Replace long urls on the fly (on filter) for default tags
public static function publicBeforeContentFilter($core,$tag,$args)
{
# Unknow tag
if (!in_array($tag,pubKutrl::$know_tags)) return;
# URL shortening is disabled by tag attribute
if (empty($GLOBALS['disable_kutrl']))
{
# kUtRL is not activated
if (!$core->blog->settings->kUtRL->kutrl_active
|| !$core->blog->settings->kUtRL->kutrl_tpl_active) return;
global $_ctx;
# Oups
if (!$_ctx->exists('kutrl')) return;
# Existing
if (false !== ($kutrl_rs = $_ctx->kutrl->isKnowUrl($args[0])))
{
$args[0] = $_ctx->kutrl->url_base.$kutrl_rs->hash;
}
# New
elseif (false !== ($kutrl_rs = $_ctx->kutrl->hash($args[0])))
{
$args[0] = $_ctx->kutrl->url_base.$kutrl_rs->hash;
# ex: Send new url to messengers
if (!empty($kutrl_rs))
{
$core->callBehavior('publicAfterKutrlCreate',$core,$kutrl_rs,__('New public short URL'));
}
}
}
}
public static function publicBeforeDocument($core)
{
global $_ctx;
$s = $core->blog->settings->kUtRL;
# Passive : all kutrl tag return long url
$_ctx->kutrl_passive = (boolean) $s->kutrl_tpl_passive;
if (!$s->kutrl_active || !$s->kutrl_tpl_service) return;
if (null === ($kut = kutrl::quickPlace('tpl'))) return;
$_ctx->kutrl = $kut;
}
public static function publicHeadContent($core)
{
$css = $core->blog->settings->kUtRL->kutrl_srv_local_css;
if ($css)
{
echo
"\n<!-- CSS for kUtRL --> \n".
"<style type=\"text/css\"> \n".
html::escapeHTML($css)."\n".
"</style>\n";
}
}
}
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")').'; ?>';
}
public static function pageIf($attr,$content)
{
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
if (isset($attr['is_active']))
{
$sign = (boolean) $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".
$content.
"<?php endif; unset(\$s);?>\n";
}
public static function pageMsgIf($attr,$content)
{
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
if (isset($attr['has_message']))
{
$sign = (boolean) $attr['has_message'] ? '!' : '=';
$if[] = '"" '.$sign.'= $_ctx->kutrl_msg';
}
if (empty($if))
{
return $content;
}
return
"<?php if(".implode(' '.$operator.' ',$if).") : ?>\n".
$content.
"<?php endif; ?>\n";
}
public static function pageMsg($attr)
{
return '<?php echo $_ctx->kutrl_msg; ?>';
}
public static function humanField($attr)
{
return "<?php echo sprintf(__('Rewrite \"%s\" in next field to show that you are not a robot:'),\$_ctx->kutrl_hmf); ?>";
}
public static function humanFieldProtect($attr)
{
return
"<input type=\"hidden\" name=\"hmfp\" id=\"hmfp\" value=\"<?php echo \$_ctx->kutrl_hmfp; ?>\" />".
"<?php echo \$core->formNonce(); ?>";
}
public static function AttachmentKutrlIf($attr,$content)
{
return self::genericKutrlIf('$attach_f->file_url',$attr,$content);
}
public static function AttachmentKutrl($attr)
{
return self::genericKutrl('$attach_f->file_url',$attr);
}
public static function MediaKutrlIf($attr,$content)
{
return self::genericKutrlIf('$_ctx->file_url',$attr,$content);
}
public static function MediaKutrl($attr)
{
return self::genericKutrl('$_ctx->file_url',$attr);
}
public static function EntryAuthorKutrlIf($attr,$content)
{
return self::genericKutrlIf('$_ctx->posts->user_url',$attr,$content);
}
public static function EntryAuthorKutrl($attr)
{
return self::genericKutrl('$_ctx->posts->user_url',$attr);
}
public static function EntryKutrlIf($attr,$content)
{
return self::genericKutrlIf('$_ctx->posts->getURL()',$attr,$content);
}
public static function EntryKutrl($attr)
{
return self::genericKutrl('$_ctx->posts->getURL()',$attr);
}
public static function CommentAuthorKutrlIf($attr,$content)
{
return self::genericKutrlIf('$_ctx->comments->getAuthorURL()',$attr,$content);
}
public static function CommentAuthorKutrl($attr)
{
return self::genericKutrl('$_ctx->comments->getAuthorURL()',$attr);
}
public static function CommentPostKutrlIf($attr,$content)
{
return self::genericKutrlIf('$_ctx->comments->getPostURL()',$attr,$content);
}
public static function CommentPostKutrl($attr)
{
return self::genericKutrl('$_ctx->comments->getPostURL()',$attr);
}
protected static function genericKutrlIf($str,$attr,$content)
{
$operator = isset($attr['operator']) ? self::getOperator($attr['operator']) : '&&';
if (isset($attr['is_active']))
{
$sign = (boolean) $attr['is_active'] ? '' : '!';
$if[] = $sign.'$_ctx->exists("kutrl")';
}
if (isset($attr['passive_mode']))
{
$sign = (boolean) $attr['passive_mode'] ? '' : '!';
$if[] = $sign.'$_ctx->kutrl_passive';
}
if (isset($attr['has_kutrl']))
{
$sign = (boolean) $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".
$content.
"<?php endif; ?>\n";
}
protected static function genericKutrl($str,$attr)
{
$f = $GLOBALS['core']->tpl->getFilters($attr);
return
"<?php \n".
# Preview
"if (\$_ctx->preview) { \n".
" echo ".sprintf($f,$str)."; ".
"} else { \n".
# Disable
"if (!\$_ctx->exists('kutrl')) { \n".
# Passive mode
" 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')."; ".
" } \n".
# New
" 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)) { ".
" \$core->callBehavior('publicAfterKutrlCreate',\$core,\$kutrl_rs,__('New public short URL')); ".
" } \n".
" } \n".
" unset(\$kutrl_rs); \n".
"} \n".
"} \n".
"?>\n";
}
protected static function getOperator($op)
{
switch (strtolower($op))
{
case 'or':
case '||':
return '||';
case 'and':
case '&&':
default:
return '&&';
}
}
}
class hmfKutrl
{
public static $chars = 'abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ23456789';
public static function create($len=6)
{
$res = '';
$chars = self::$chars;
for($i = 0;$i < $len; $i++)
{
$res .= $chars[rand(0,strlen($chars)-1)];
}
return $res;
}
public static function protect($str)
{
$res = '';
$chars = self::$chars;
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++)
{
$i++;
$res .= $str[$i];
}
return $res;
}
}
?>