101 lines
3.8 KiB
PHP
101 lines
3.8 KiB
PHP
<?php
|
|
/**
|
|
* Name: Yourls
|
|
* Description: Defines a YourLS url shortener for the Statusnet & Twitter addons
|
|
* Version: 1.0
|
|
* Author: Keith Fernie <http://friendika.me4.it/profile/keith>
|
|
*
|
|
*/
|
|
use Friendica\Core\Addon;
|
|
use Friendica\Core\Config;
|
|
use Friendica\Core\L10n;
|
|
|
|
function yourls_install() {
|
|
Addon::registerHook('addon_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
|
|
Addon::registerHook('addon_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
|
|
|
|
}
|
|
|
|
|
|
function yourls_uninstall() {
|
|
Addon::unregisterHook('addon_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
|
|
Addon::unregisterHook('addon_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
|
|
Config::set('yourls','url1',trim($_POST['']));
|
|
Config::set('yourls','username1',trim($_POST['']));
|
|
Config::set('yourls','password1',trim($_POST['']));
|
|
Config::set('yourls','ssl1',trim($_POST['']));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
function yourls_addon_settings(&$a,&$s) {
|
|
|
|
|
|
if(! is_site_admin())
|
|
return;
|
|
|
|
/* Add our stylesheet to the page so we can make our settings look nice */
|
|
|
|
$a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->get_baseurl() . '/addon/yourls/yourls.css' . '" media="all" />' . "\r\n";
|
|
|
|
|
|
$yourls_url = Config::get('yourls','url1');
|
|
$yourls_username = Config::get('yourls','username1');
|
|
$yourls_password = Config::get('yourls', 'password1');
|
|
$ssl_enabled = Config::get('yourls','ssl1');
|
|
$ssl_checked = (($ssl_enabled) ? ' checked="checked" ' : '');
|
|
|
|
|
|
|
|
$yourls_ssl = Config::get('yourls', 'ssl1');
|
|
|
|
$s .= '<span id="settings_yourls_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_yourls_expanded\'); openClose(\'settings_yourls_inflated\');">';
|
|
$s .= '<h3>' . L10n::t('YourLS') . '</h3>';
|
|
$s .= '</span>';
|
|
$s .= '<div id="settings_yourls_expanded" class="settings-block" style="display: none;">';
|
|
$s .= '<span class="fakelink" onclick="openClose(\'settings_yourls_expanded\'); openClose(\'settings_yourls_inflated\');">';
|
|
$s .= '<h3>' . L10n::t('YourLS') . '</h3>';
|
|
$s .= '</span>';
|
|
|
|
$s .= '<div id="yourls-url-wrapper">';
|
|
$s .= '<label id="yourls-url-label" for="yourls-url">' . L10n::t('URL: http://') . '</label>';
|
|
$s .= '<input id="yourls-url" type="text" name="yourls_url" value="' . $yourls_url .'" />';
|
|
$s .= '</div><div class="clear"></div>';
|
|
|
|
$s .= '<div id="yourls-username-wrapper">';
|
|
$s .= '<label id="yourls-username-label" for="yourls-username">' . L10n::t('Username:') . '</label>';
|
|
$s .= '<input id="yourls-username" type="text" name="yourls_username" value="' . $yourls_username .'" />';
|
|
$s .= '</div><div class="clear"></div>';
|
|
|
|
$s .= '<div id="yourls-password-wrapper">';
|
|
$s .= '<label id="yourls-password-label" for="yourls-password">' . L10n::t('Password:') . '</label>';
|
|
$s .= '<input id="yourls-password" type="password" name="yourls_password" value="' . $yourls_password .'" />';
|
|
$s .= '</div><div class="clear"></div>';
|
|
|
|
$s .= '<div id="yourls-ssl-wrapper">';
|
|
$s .= '<label id="yourls-ssl-label" for="yourls-ssl">' . L10n::t('Use SSL ') . '</label>';
|
|
$s .= '<input id="yourls-ssl" type="checkbox" name="yourls_ssl" value="1" ' . $ssl_checked . ' />';
|
|
$s .= '</div><div class="clear"></div>';
|
|
|
|
$s .= '<div class="settings-submit-wrapper" ><input type="submit" id="yourls-submit" name="yourls-submit" class="settings-submit" value="' . L10n::t('Save Settings') . '" /></div></div>';
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
function yourls_addon_settings_post(&$a,&$b) {
|
|
|
|
if(! is_site_admin())
|
|
return;
|
|
|
|
if($_POST['yourls-submit']) {
|
|
Config::set('yourls','url1',trim($_POST['yourls_url']));
|
|
Config::set('yourls','username1',trim($_POST['yourls_username']));
|
|
Config::set('yourls','password1',trim($_POST['yourls_password']));
|
|
Config::set('yourls','ssl1',intval($_POST['yourls_ssl']));
|
|
info(L10n::t('yourls Settings saved.') . EOL);
|
|
}
|
|
}
|