Merge pull request #6 from Keith2/master

Adds a custom YourLS url shortener

diff --git a/statusnet.tgz b/statusnet.tgz
index 4067e682f847b66514e07e6c4698d07a505e6892..3d7c9f58518d03997a85d1620d655763e36f14d8 100755 (executable)
Binary files a/statusnet.tgz and b/statusnet.tgz differ

diff --git a/statusnet/statusnet.php b/statusnet/statusnet.php
index 7e9226a0e55bf512a3ed569fdef11ae627345ec7..f558cbec07ec5a467608988df7dfe8f2e8ea0060 100755 (executable)
--- a/statusnet/statusnet.php
+++ b/statusnet/statusnet.php
@@ -407,17 +407,31 @@ function statusnet_post_hook(&$a,&$b) {
                        $shortlink = "";
                        require_once('library/slinky.php');
                        $slinky = new Slinky( $b['plink'] );
-                       // setup a cascade of shortening services
-                       // try to get a short link from these services
-                       // in the order ur1.ca, trim, id.gd, tinyurl
-                       $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       $yourls_url = get_config('yourls','url1');
+                       if ($yourls_url) {
+                               $yourls_username = get_config('yourls','username1');
+                               $yourls_password = get_config('yourls', 'password1');
+                               $yourls_ssl = get_config('yourls', 'ssl1');
+                               $yourls = new Slinky_YourLS();
+                               $yourls->set( 'username', $yourls_username );
+                               $yourls->set( 'password', $yourls_password );
+                               $yourls->set( 'ssl', $yourls_ssl );
+                               $yourls->set( 'yourls-url', $yourls_url );
+                               $slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       }
+                       else {
+                               // setup a cascade of shortening services
+                               // try to get a short link from these services
+                               // in the order ur1.ca, trim, id.gd, tinyurl
+                               $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       }
                        $shortlink = $slinky->short();
                        // the new message will be shortened such that "... $shortlink"
                        // will fit into the character limit
                        $msg = substr($msg, 0, $max_char-strlen($shortlink)-4);
-            $msg .= '... ' . $shortlink;
+                       $msg .= '... ' . $shortlink;
                }
-        // and now tweet it :-)
+               // and now tweet it :-)
                if(strlen($msg))
                        $dent->post('statuses/update', array('status' => $msg));
        }

diff --git a/twitter.tgz b/twitter.tgz
index 740e3c8178280205941be90a502fe164a948a0b9..25b54d85b8dc09f3d8e82979a86e30f7b7b40d2f 100755 (executable)
Binary files a/twitter.tgz and b/twitter.tgz differ

diff --git a/twitter/twitter.php b/twitter/twitter.php
index a6f73c86429ea0d2fdd6be09a27d2759bc51a059..ef5908396cb393cac3db1bfd88242ea73fa96aa1 100755 (executable)
--- a/twitter/twitter.php
+++ b/twitter/twitter.php
@@ -269,10 +269,25 @@ function twitter_post_hook(&$a,&$b) {
                        $shortlink = "";
                        require_once('library/slinky.php');
                        $slinky = new Slinky( $b['plink'] );
-                       // setup a cascade of shortening services
-                       // try to get a short link from these services
-                       // in the order ur1.ca, trim, id.gd, tinyurl
-                       $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       $yourls_url = get_config('yourls','url1');
+                       if ($yourls_url) {
+                               $max_char = 135;
+                               $yourls_username = get_config('yourls','username1');
+                               $yourls_password = get_config('yourls', 'password1');
+                               $yourls_ssl = get_config('yourls', 'ssl1');
+                               $yourls = new Slinky_YourLS();
+                               $yourls->set( 'username', $yourls_username );
+                               $yourls->set( 'password', $yourls_password );
+                               $yourls->set( 'ssl', $yourls_ssl );
+                               $yourls->set( 'yourls-url', $yourls_url );
+                               $slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       }
+                       else {
+                               // setup a cascade of shortening services
+                               // try to get a short link from these services
+                               // in the order ur1.ca, trim, id.gd, tinyurl
+                               $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
+                       }
                        $shortlink = $slinky->short();
                        // the new message will be shortened such that "... $shortlink"
                        // will fit into the character limit
@@ -282,7 +297,7 @@ function twitter_post_hook(&$a,&$b) {
                // and now tweet it :-)
                if(strlen($msg)) {
                        $result = $tweet->post('statuses/update', array('status' => $msg));
-                       logger('twitter_post send', LOGGER_DEBUG);
+                       logger('twitter_post send' , LOGGER_DEBUG);
                }
        }
 }

diff --git a/yourls.tgz b/yourls.tgz
new file mode 100755 (executable)
index 0000000..bf72344
Binary files /dev/null and b/yourls.tgz differ

diff --git a/yourls/README b/yourls/README
new file mode 100755 (executable)
index 0000000..3950f02
--- /dev/null
+++ b/yourls/README
@@ -0,0 +1,8 @@
+YourLS
+
+For server admins only.
+Defines a YourLS url shortener for the Statusnet & Twitter plugins.
+
+This plugin will not do anything else unless the Statusnet and/or Twitter plugins are installed.
+
+The message is entered in the admin account at Settings -> Plugin settings.

diff --git a/yourls/yourls.css b/yourls/yourls.css
new file mode 100755 (executable)
index 0000000..cfd09c9
--- /dev/null
+++ b/yourls/yourls.css
@@ -0,0 +1,21 @@
+#yourls-label {
+       float: left;
+       width: 300px;
+       margin-top: 10px;
+}
+
+yourls-url {
+       float: left;
+       margin-top: 10px;
+}
+
+#yourls-submit {
+       margin-top: 15px;
+}
+
+.yourls {
+       text-align: left;
+       width 100%;
+       margin-top: 25px;
+       font-size: 20px;
+}

diff --git a/yourls/yourls.php b/yourls/yourls.php
new file mode 100755 (executable)
index 0000000..babfc2c
--- /dev/null
+++ b/yourls/yourls.php
@@ -0,0 +1,94 @@
+<?php
+
+
+/**
+ * Name: Yourls
+ * Description: Defines a YourLS url shortener for the Statusnet & Twitter plugins
+ * Version: 1.0
+ * Author: Keith Fernie <http://friendika.me4.it/profile/keith>
+ * 
+ */
+
+function yourls_install() {
+       register_hook('plugin_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
+       register_hook('plugin_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
+
+}
+
+
+function yourls_uninstall() {
+       unregister_hook('plugin_settings', 'addon/yourls/yourls.php', 'yourls_addon_settings');
+       unregister_hook('plugin_settings_post', 'addon/yourls/yourls.php', 'yourls_addon_settings_post');
+       set_config('yourls','url1',trim($_POST['']));
+       set_config('yourls','username1',trim($_POST['']));
+       set_config('yourls','password1',trim($_POST['']));
+       set_config('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 = get_config('yourls','url1');
+       $yourls_username = get_config('yourls','username1');
+       $yourls_password = get_config('yourls', 'password1');
+       $ssl_enabled = get_config('yourls','ssl1');
+       $ssl_checked = (($ssl_enabled) ? ' checked="checked" ' : '');
+
+
+
+$yourls_ssl = get_config('yourls', 'ssl1');
+
+       $s .= '<div class="settings-block">';
+       $s .= '<h3>' . t('YourLS Settings') . '</h3>';
+       $s .= '<div id="yourls-url-wrapper">';
+       $s .= '<label id="yourls-url-label" for="yourls-url">' . 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">' . 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">' . 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">' . 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="' . t('Submit') . '" /></div></div>';
+
+       return;
+
+}
+
+function yourls_addon_settings_post(&$a,&$b) {
+
+       if(! is_site_admin())
+               return;
+
+       if($_POST['yourls-submit']) {
+               set_config('yourls','url1',trim($_POST['yourls_url']));
+               set_config('yourls','username1',trim($_POST['yourls_username']));
+               set_config('yourls','password1',trim($_POST['yourls_password']));
+               set_config('yourls','ssl1',intval($_POST['yourls_ssl']));
+               info( t('yourls Settings saved.') . EOL);
+       }
+}