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 ------------------------------------
|
|
|
|
|
|
|
|
|
|
# This file manage admin link creation of kUtRL (called from index.php)
|
|
|
|
|
|
2021-08-27 22:06:46 +00:00
|
|
|
if (!defined('DC_CONTEXT_ADMIN')) {
|
|
|
|
|
return null;
|
|
|
|
|
}
|
2021-08-25 23:06:22 +00:00
|
|
|
|
|
|
|
|
$kut = kutrl::quickPlace('admin');
|
|
|
|
|
|
|
|
|
|
# Create a new link
|
|
|
|
|
if ($action == 'createlink') {
|
2021-08-27 22:06:46 +00:00
|
|
|
try {
|
|
|
|
|
if (null === $kut) {
|
|
|
|
|
throw new Exception('Unknow service');
|
|
|
|
|
}
|
|
|
|
|
$url = trim($core->con->escape($_POST['str']));
|
|
|
|
|
$hash = empty($_POST['custom']) ? null : $_POST['custom'];
|
|
|
|
|
|
|
|
|
|
if (empty($url)) {
|
|
|
|
|
throw new Exception(__('There is nothing to shorten.'));
|
|
|
|
|
}
|
|
|
|
|
if (!$kut->testService()) {
|
|
|
|
|
throw new Exception(__('Service is not well configured.'));
|
|
|
|
|
}
|
|
|
|
|
if (null !== $hash && !$kut->allow_custom_hash) {
|
|
|
|
|
throw new Exception(__('This service does not allowed custom hash.'));
|
|
|
|
|
}
|
|
|
|
|
if (!$kut->isValidUrl($url)) {
|
|
|
|
|
throw new Exception(__('This link is not a valid URL.'));
|
|
|
|
|
}
|
|
|
|
|
if (!$kut->isLongerUrl($url)) {
|
|
|
|
|
throw new Exception(__('This link is too short.'));
|
|
|
|
|
}
|
|
|
|
|
if (!$kut->isProtocolUrl($url)) {
|
|
|
|
|
throw new Exception(__('This type of link is not allowed.'));
|
|
|
|
|
}
|
|
|
|
|
if (!$kut->allow_external_url && !$kut->isBlogUrl($url)) {
|
|
|
|
|
throw new Exception(__('Short links are limited to this blog URL.'));
|
|
|
|
|
}
|
|
|
|
|
if ($kut->isServiceUrl($url)) {
|
|
|
|
|
throw new Exception(__('This link is already a short link.'));
|
|
|
|
|
}
|
|
|
|
|
if (null !== $hash && false !== ($rs = $kut->isKnowHash($hash))) {
|
|
|
|
|
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;
|
|
|
|
|
$msg =
|
|
|
|
|
'<p class="message">' .
|
|
|
|
|
sprintf(
|
|
|
|
|
__('Short link for %s is %s') ,
|
|
|
|
|
'<strong>' . html::escapeHTML($url) .'</strong>',
|
|
|
|
|
'<a href="' . $new_url . '">' . $new_url . '</a>'
|
|
|
|
|
) . '</p>';
|
|
|
|
|
} else {
|
|
|
|
|
if (false === ($rs = $kut->hash($url, $hash))) {
|
|
|
|
|
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;
|
|
|
|
|
$new_url = $kut->url_base . $rs->hash;
|
|
|
|
|
$msg =
|
|
|
|
|
'<p class="message">' .
|
|
|
|
|
sprintf(
|
|
|
|
|
__('Short link for %s is %s'),
|
|
|
|
|
'<strong>' . html::escapeHTML($url) . '</strong>',
|
|
|
|
|
'<a href="' . $new_url . '">' . $new_url . '</a>'
|
|
|
|
|
) . '</p>';
|
2021-08-25 23:06:22 +00:00
|
|
|
|
2021-08-27 22:06:46 +00:00
|
|
|
# ex: Send new url to messengers
|
|
|
|
|
if (!empty($rs)) {
|
|
|
|
|
$core->callBehavior('adminAfterKutrlCreate', $core, $rs,__('New short URL'));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} catch (Exception $e) {
|
|
|
|
|
$core->error->add($e->getMessage());
|
|
|
|
|
}
|
2021-08-25 23:06:22 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
echo '
|
|
|
|
|
<html>
|
2021-08-27 22:06:46 +00:00
|
|
|
<head><title>kUtRL, ' . __('Links shortener') . '</title>' . $header . '</head>
|
2021-08-25 23:06:22 +00:00
|
|
|
<body>
|
2021-08-27 22:06:46 +00:00
|
|
|
<h2>kUtRL' .
|
|
|
|
|
' › <a href="' . $p_url . '&part=links">' . __('Links') . '</a>' .
|
|
|
|
|
' › ' . __('New link') .
|
|
|
|
|
'</h2>' . $msg;
|
2021-08-25 23:06:22 +00:00
|
|
|
|
2021-08-27 22:06:46 +00:00
|
|
|
if (null === $kut) {
|
|
|
|
|
echo '<p>' . __('You must set an admin service.') . '</p>';
|
|
|
|
|
} else {
|
|
|
|
|
echo '
|
|
|
|
|
<form id="create-link" method="post" action="' . $p_url . '">
|
|
|
|
|
|
|
|
|
|
<h3>' . sprintf(__('Shorten link using service "%s"'), $kut->name) . '</h3>
|
|
|
|
|
<p class="classic"><label for="str">' . __('Long link:') .
|
|
|
|
|
form::field('str', 100, 255, '') . '</label></p>';
|
|
|
|
|
|
|
|
|
|
if ($kut->allow_custom_hash) {
|
|
|
|
|
echo
|
|
|
|
|
'<p class="classic"><label for="custom">' .
|
|
|
|
|
__('Custom short link:') .
|
|
|
|
|
form::field('custom', 50, 32, '') . '</label></p>' .
|
|
|
|
|
'<p class="form-note">' . __('Only if you want a custom short link.') . '</p>';
|
|
|
|
|
|
2021-08-27 22:49:26 +00:00
|
|
|
if ($kut->admin_service == 'local') {
|
2021-08-27 22:06:46 +00:00
|
|
|
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 '
|
|
|
|
|
<div class="clear">
|
|
|
|
|
<p><input type="submit" name="save" value="' . __('save') . '" />' .
|
|
|
|
|
$core->formNonce() .
|
|
|
|
|
form::hidden(['p'], 'kUtRL') .
|
|
|
|
|
form::hidden(['part'], 'link') .
|
|
|
|
|
form::hidden(['action'], 'createlink') . '
|
|
|
|
|
</p></div>
|
|
|
|
|
</form>';
|
2021-08-25 23:06:22 +00:00
|
|
|
}
|
|
|
|
|
dcPage::helpBlock('kUtRL');
|
2021-08-27 22:06:46 +00:00
|
|
|
echo $footer . '</body></html>';
|
