forked from friendica/friendica-addons
There is a new optional function in the twitter addon that shortens the text in a different way.
This commit is contained in:
Michael
parent
9cb8835222
commit
0033fce902
1 changed files with 183 additions and 73 deletions
|
|
@ -261,6 +261,110 @@ function short_link ($url) {
|
|||
return $slinky->short();
|
||||
} };
|
||||
|
||||
function twitter_shortenmsg($b) {
|
||||
require_once("include/bbcode.php");
|
||||
require_once("include/html2plain.php");
|
||||
|
||||
$max_char = 140;
|
||||
|
||||
// Looking for the first image
|
||||
$image = '';
|
||||
if(preg_match("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/is",$b['body'],$matches))
|
||||
$image = $matches[3];
|
||||
|
||||
if ($image == '')
|
||||
if(preg_match("/\[img\](.*?)\[\/img\]/is",$b['body'],$matches))
|
||||
$image = $matches[1];
|
||||
|
||||
$multipleimages = (strpos($b['body'], "[img") != strrpos($b['body'], "[img"));
|
||||
|
||||
// When saved into the database the content is sent through htmlspecialchars
|
||||
// That means that we have to decode all image-urls
|
||||
$image = htmlspecialchars_decode($image);
|
||||
|
||||
if ($b["title"] == "")
|
||||
$body = $b["body"];
|
||||
else
|
||||
$body = $b["title"];
|
||||
|
||||
// remove the recycle signs and the names since they aren't helpful on twitter
|
||||
// recycle 1
|
||||
$recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
|
||||
$body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
|
||||
// recycle 2 (Test)
|
||||
$recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
|
||||
$body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
|
||||
|
||||
// At first convert the text to html
|
||||
$html = bbcode($body, false, false);
|
||||
|
||||
// Then convert it to plain text
|
||||
//$msg = trim($b['title']." \n\n".html2plain($html, 0, true));
|
||||
$msg = trim(html2plain($html, 0, true));
|
||||
$msg = html_entity_decode($msg,ENT_QUOTES,'UTF-8');
|
||||
|
||||
// Removing multiple newlines
|
||||
while (strpos($msg, "\n\n\n") !== false)
|
||||
$msg = str_replace("\n\n\n", "\n\n", $msg);
|
||||
|
||||
// Removing multiple spaces
|
||||
while (strpos($msg, " ") !== false)
|
||||
$msg = str_replace(" ", " ", $msg);
|
||||
|
||||
$msg = trim($msg);
|
||||
|
||||
$link = '';
|
||||
// look for bookmark-bbcode and handle it with priority
|
||||
if(preg_match("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/is",$b['body'],$matches))
|
||||
$link = $matches[1];
|
||||
|
||||
$multiplelinks = (strpos($b['body'], "[bookmark") != strrpos($b['body'], "[bookmark"));
|
||||
|
||||
// If there is no bookmark element then take the first link
|
||||
if ($link == '') {
|
||||
$links = collecturls($html);
|
||||
if (sizeof($links) > 0) {
|
||||
reset($links);
|
||||
$link = current($links);
|
||||
}
|
||||
$multiplelinks = (sizeof($links) > 1);
|
||||
}
|
||||
|
||||
$msglink = "";
|
||||
if ($multiplelinks)
|
||||
$msglink = $b["plink"];
|
||||
else if ($link != "")
|
||||
$msglink = $link;
|
||||
else if ($multipleimages)
|
||||
$msglink = $b["plink"];
|
||||
else if ($image != "")
|
||||
$msglink = $image;
|
||||
|
||||
if (($msglink == "") and strlen($msg) > $max_char)
|
||||
$msglink = $b["plink"];
|
||||
|
||||
if (strlen($msglink) > 20)
|
||||
$msglink = short_link($msglink);
|
||||
|
||||
if (strlen(trim($msg." ".$msglink)) > $max_char) {
|
||||
$msg = substr($msg, 0, $max_char - (strlen($msglink)));
|
||||
$lastchar = substr($msg, -1);
|
||||
$msg = substr($msg, 0, -1);
|
||||
$pos = strrpos($msg, "\n");
|
||||
if ($pos > 0)
|
||||
$msg = substr($msg, 0, $pos-1);
|
||||
else if ($lastchar != "\n")
|
||||
$msg = substr($msg, 0, -3)."...";
|
||||
}
|
||||
$msg = str_replace("\n", " ", $msg);
|
||||
|
||||
// Removing multiple spaces - again
|
||||
while (strpos($msg, " ") !== false)
|
||||
$msg = str_replace(" ", " ", $msg);
|
||||
|
||||
return(trim($msg." ".$msglink));
|
||||
}
|
||||
|
||||
function twitter_post_hook(&$a,&$b) {
|
||||
|
||||
/**
|
||||
|
|
@ -294,6 +398,10 @@ function twitter_post_hook(&$a,&$b) {
|
|||
$tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
|
||||
// in theory max char is 140 but T. uses t.co to make links
|
||||
// longer so we give them 10 characters extra
|
||||
|
||||
$intelligent_shortening = get_config('twitter','intelligent_shortening');
|
||||
|
||||
if (!$intelligent_shortening) {
|
||||
$max_char = 130; // max. length for a tweet
|
||||
// we will only work with up to two times the length of the dent
|
||||
// we can later send to Twitter. This way we can "gain" some
|
||||
|
|
@ -301,7 +409,7 @@ function twitter_post_hook(&$a,&$b) {
|
|||
// shorten all the links in a 200000 character long essay.
|
||||
if (! $b['title']=='') {
|
||||
$tmp = $b['title'] . ' : '. $b['body'];
|
||||
// $tmp = substr($tmp, 0, 4*$max_char);
|
||||
// $tmp = substr($tmp, 0, 4*$max_char);
|
||||
} else {
|
||||
$tmp = $b['body']; // substr($b['body'], 0, 3*$max_char);
|
||||
}
|
||||
|
|
@ -369,6 +477,8 @@ function twitter_post_hook(&$a,&$b) {
|
|||
}
|
||||
|
||||
$msg = trim($msg);
|
||||
} else
|
||||
$msg = twitter_shortenmsg($b);
|
||||
|
||||
// and now tweet it :-)
|
||||
if(strlen($msg)) {
|
||||
|
|
|
|||
Loading…
Reference in a new issue