yourls/yourls.php

   1 <?php
   2 /**
   3  * Name: Yourls
   4  * Description: Defines a YourLS url shortener for the Statusnet & Twitter addons
   5  * Version: 1.0
   6  * Author: Keith Fernie <http://friendika.me4.it/profile/keith>
   7  *
   8  */
   9 use Friendica\Core\Addon;
  10 use Friendica\Core\Config;
  11 use Friendica\Core\L10n;
  12
  13 function yourls_install() {
  14         Addon::registerHook('addon_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
  15         Addon::registerHook('addon_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
  16
  17 }
  18
  19
  20 function yourls_uninstall() {
  21         Addon::unregisterHook('addon_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
  22         Addon::unregisterHook('addon_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
  23         Config::set('yourls','url1',trim($_POST['']));
  24         Config::set('yourls','username1',trim($_POST['']));
  25         Config::set('yourls','password1',trim($_POST['']));
  26         Config::set('yourls','ssl1',trim($_POST['']));
  27
  28 }
  29
  30
  31
  32
  33
  34 function yourls_addon_settings(&$a,&$s) {
  35
  36
  37         if(! is_site_admin())
  38                 return;
  39
  40     /* Add our stylesheet to the page so we can make our settings look nice */
  41
  42         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/yourls/yourls.css' . '" media="all" />' . "\r\n";
  43
  44
  45         $yourls_url = Config::get('yourls','url1');
  46         $yourls_username = Config::get('yourls','username1');
  47         $yourls_password = Config::get('yourls', 'password1');
  48         $ssl_enabled = Config::get('yourls','ssl1');
  49         $ssl_checked = (($ssl_enabled) ? ' checked="checked" ' : '');
  50
  51
  52
  53         $yourls_ssl = Config::get('yourls', 'ssl1');
  54
  55         $s .= '<span id="settings_yourls_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_yourls_expanded\'); openClose(\'settings_yourls_inflated\');">';
  56         $s .= '<h3>' . L10n::t('YourLS') . '</h3>';
  57         $s .= '</span>';
  58         $s .= '<div id="settings_yourls_expanded" class="settings-block" style="display: none;">';
  59         $s .= '<span class="fakelink" onclick="openClose(\'settings_yourls_expanded\'); openClose(\'settings_yourls_inflated\');">';
  60         $s .= '<h3>' . L10n::t('YourLS') . '</h3>';
  61         $s .= '</span>';
  62
  63         $s .= '<div id="yourls-url-wrapper">';
  64         $s .= '<label id="yourls-url-label" for="yourls-url">' . L10n::t('URL: http://') . '</label>';
  65         $s .= '<input id="yourls-url" type="text" name="yourls_url" value="' . $yourls_url .'" />';
  66         $s .= '</div><div class="clear"></div>';
  67
  68         $s .= '<div id="yourls-username-wrapper">';
  69         $s .= '<label id="yourls-username-label" for="yourls-username">' . L10n::t('Username:') . '</label>';
  70         $s .= '<input id="yourls-username" type="text" name="yourls_username" value="' . $yourls_username .'" />';
  71         $s .= '</div><div class="clear"></div>';
  72
  73         $s .= '<div id="yourls-password-wrapper">';
  74         $s .= '<label id="yourls-password-label" for="yourls-password">' . L10n::t('Password:') . '</label>';
  75         $s .= '<input id="yourls-password" type="password" name="yourls_password" value="' . $yourls_password .'" />';
  76         $s .= '</div><div class="clear"></div>';
  77
  78         $s .= '<div id="yourls-ssl-wrapper">';
  79         $s .= '<label id="yourls-ssl-label" for="yourls-ssl">' . L10n::t('Use SSL ') . '</label>';
  80         $s .= '<input id="yourls-ssl" type="checkbox" name="yourls_ssl" value="1" ' . $ssl_checked . ' />';
  81         $s .= '</div><div class="clear"></div>';
  82
  83         $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>';
  84
  85         return;
  86
  87 }
  88
  89 function yourls_addon_settings_post(&$a,&$b) {
  90
  91         if(! is_site_admin())
  92                 return;
  93
  94         if($_POST['yourls-submit']) {
  95                 Config::set('yourls','url1',trim($_POST['yourls_url']));
  96                 Config::set('yourls','username1',trim($_POST['yourls_username']));
  97                 Config::set('yourls','password1',trim($_POST['yourls_password']));
  98                 Config::set('yourls','ssl1',intval($_POST['yourls_ssl']));
  99                 info(L10n::t('yourls Settings saved.') . EOL);
 100         }
 101 }