mexon/friendica-addons
1
0
Fork 0
forked from friendica/friendica-addons
Code Pull requests Activity

Twitter addon: applied SN addon changes for better content of the last days

Browse source
This commit is contained in:
Tobias Diekershoff 2012-02-23 00:02:02 +01:00
parent a49792106a
commit b330558108
1 changed files with 71 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

105
twitter/twitter.php
View file

@ -1,7 +1,8 @@
<?php <?php
/** /**
* Name: Twitter Connector * Name: Twitter Connector
* Version: 1.0.1 * Description: Relay public postings to a connected StatusNet account
* Version: 1.0.2
* Author: Tobias Diekershoff <https://diekershoff.homeunix.net/friendika/profile/tobias> * Author: Tobias Diekershoff <https://diekershoff.homeunix.net/friendika/profile/tobias>
*/ */
@ -35,12 +36,6 @@
* Documentation: http://diekershoff.homeunix.net/redmine/wiki/friendikaplugin/Twitter_Plugin * Documentation: http://diekershoff.homeunix.net/redmine/wiki/friendikaplugin/Twitter_Plugin
*/ */
/* __TODO__
*
* - what about multimedia content?
* so far we just strip HTML tags from the message
*/
function twitter_install() { function twitter_install() {
// we need some hooks, for the configuration and for sending tweets // we need some hooks, for the configuration and for sending tweets
register_hook('connector_settings', 'addon/twitter/twitter.php', 'twitter_settings'); register_hook('connector_settings', 'addon/twitter/twitter.php', 'twitter_settings');
@ -230,6 +225,30 @@ function twitter_post_local(&$a,&$b) {
} }
} }
if (! function_exists('short_link')) {
function short_link ($url) {
require_once('library/slinky.php');
$slinky = new Slinky( $url );
$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() ) );
}
return $slinky->short();
} };
function twitter_post_hook(&$a,&$b) { function twitter_post_hook(&$a,&$b) {
@ -262,33 +281,51 @@ function twitter_post_hook(&$a,&$b) {
require_once('library/twitteroauth.php'); require_once('library/twitteroauth.php');
require_once('include/bbcode.php'); require_once('include/bbcode.php');
$tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret); $tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
$max_char = 138; // max. length for a tweet // in theory max char is 140 but T. uses t.co to make links
$msg = strip_tags(bbcode($b['body'])); // longer so we give them 10 characters extra
if ( strlen($msg) > $max_char) { $max_char = 130; // max. length for a tweet
logger('Twitter: have to shorten the message to fit 140 chars', LOGGER_DEBUG); // we will only work with up to two times the length of the dent
$shortlink = ""; // we can later send to StatusNet. This way we can "gain" some
require_once('library/slinky.php'); // information during shortening of potential links but do not
$slinky = new Slinky( $b['plink'] ); // shorten all the links in a 200000 character long essay.
$yourls_url = get_config('yourls','url1'); $tmp = substr($b['body'], 0, 2*$max_char);
if ($yourls_url) { // if [url=bla][img]blub.png[/img][/url] get blub.png
$max_char = 135; $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\]\[img\](\\w+.*?)\\[\\/img\]\\[\\/url\]/i', '$2', $tmp);
$yourls_username = get_config('yourls','username1'); // preserve links to images, videos and audios
$yourls_password = get_config('yourls', 'password1'); $tmp = preg_replace( '/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism', '$3', $tmp);
$yourls_ssl = get_config('yourls', 'ssl1'); $tmp = preg_replace( '/\[\\/?img(\\s+.*?\]|\])/i', '', $tmp);
$yourls = new Slinky_YourLS(); $tmp = preg_replace( '/\[\\/?video(\\s+.*?\]|\])/i', '', $tmp);
$yourls->set( 'username', $yourls_username ); $tmp = preg_replace( '/\[\\/?youtube(\\s+.*?\]|\])/i', '', $tmp);
$yourls->set( 'password', $yourls_password ); $tmp = preg_replace( '/\[\\/?vimeo(\\s+.*?\]|\])/i', '', $tmp);
$yourls->set( 'ssl', $yourls_ssl ); $tmp = preg_replace( '/\[\\/?audio(\\s+.*?\]|\])/i', '', $tmp);
$yourls->set( 'yourls-url', $yourls_url ); // if a #tag is linked, don't send the [url] over to SN
$slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) ); // this is commented out by default as it means backlinks
} // to friendica, if you don't like this feel free to
else { // uncomment the following line
// setup a cascade of shortening services // $tmp = preg_replace( '/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '#$2', $tmp);
// try to get a short link from these services // preserve links to webpages
// in the order ur1.ca, trim, id.gd, tinyurl $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/url\]/i', '$2 $1', $tmp);
$slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) ); $tmp = preg_replace( '/\[bookmark\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/bookmark\]/i', '$2 $1', $tmp);
} // find all http or https links in the body of the entry and
$shortlink = $slinky->short(); // apply the shortener if the link is longer then 20 characters
if (( strlen($tmp)>$max_char ) && ( $max_char > 0 )) {
preg_match_all ( '/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', $tmp, $allurls );
foreach ($allurls as $url) {
foreach ($url as $u) {
if (strlen($u)>20) {
$sl = short_link($u);
$tmp = str_replace( $u, $sl, $tmp );
}
}
}
}
// ok, all the links we want to send out are save, now strip
// away the remaining bbcode
$msg = strip_tags(bbcode($tmp));
// quotes not working - let's try this
$msg = html_entity_decode($msg);
if (( strlen($msg) > $max_char) && $max_char > 0) {
$shortlink = short_link( $b['plink'] );
// the new message will be shortened such that "... $shortlink" // the new message will be shortened such that "... $shortlink"
// will fit into the character limit // will fit into the character limit
$msg = substr($msg, 0, $max_char-strlen($shortlink)-4); $msg = substr($msg, 0, $max_char-strlen($shortlink)-4);