yourls/yourls.php

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