friendica-addons-sekb/yourls/yourls.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);
	}
}