-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 statusnet_shortenmsg($b, $max_char) {
- require_once("include/api.php");
- require_once("include/bbcode.php");
- require_once("include/html2plain.php");
-
- $b['body'] = bb_CleanPictureLinks($b['body']);
-
- // Looking for the first image
- $cleaned_body = api_clean_plain_items($b['body']);
- $image = '';
- if(preg_match("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/is",$cleaned_body,$matches))
- $image = $matches[3];
-
- if ($image == '')
- if(preg_match("/\[img\](.*?)\[\/img\]/is",$cleaned_body,$matches))
- $image = $matches[1];
-
- $multipleimages = (strpos($cleaned_body, "[img") != strrpos($cleaned_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);
-
- $body = $b["body"];
- if ($b["title"] != "")
- $body = $b["title"]."\n\n".$body;
-
- if (strpos($body, "[bookmark") !== false) {
- // splitting the text in two parts:
- // before and after the bookmark
- $pos = strpos($body, "[bookmark");
- $body1 = substr($body, 0, $pos);
- $body2 = substr($body, $pos);
-
- // Removing all quotes after the bookmark
- // they are mostly only the content after the bookmark.
- $body2 = preg_replace("/\[quote\=([^\]]*)\](.*?)\[\/quote\]/ism",'',$body2);
- $body2 = preg_replace("/\[quote\](.*?)\[\/quote\]/ism",'',$body2);
- $body = $body1.$body2;
- }
-
- // Add some newlines so that the message could be cut better
- $body = str_replace(array("[quote", "[bookmark", "[/bookmark]", "[/quote]"),
- array("\n[quote", "\n[bookmark", "[/bookmark]\n", "[/quote]\n"), $body);
-
- // remove the recycle signs and the names since they aren't helpful on statusnet
- // 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);
-
- // remove the share element
- //$body = preg_replace("/\[share(.*?)\](.*?)\[\/share\]/ism","\n\n$2\n\n",$body);
-
- // At first convert the text to html
- $html = bbcode(api_clean_plain_items($body), false, false, 2);
-
- // 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);
-
- $origmsg = $msg;
-
- // Removing URLs
- $msg = preg_replace('/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', "", $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 the message is short enough then don't modify it. (if the link exists in the original message)
- if ((strlen(trim($origmsg)) <= $max_char) AND (($msglink == "") OR strpos($origmsg, $msglink)))
- return(array("msg"=>trim($origmsg), "image"=>""));
-
- // If the message is short enough and contains a picture then post the picture as well
- if ((strlen(trim($origmsg)) <= ($max_char - 20)) AND strpos($origmsg, $msglink))
- return(array("msg"=>trim($origmsg), "image"=>$image));
-
- // If the message is short enough and the link exists in the original message don't modify it as well
- if ((strlen(trim($origmsg)) <= $max_char) AND strpos($origmsg, $msglink))
- return(array("msg"=>trim($origmsg), "image"=>""));
-
- // Preserve the unshortened link
- $orig_link = $msglink;
-
- 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);
- 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(array("msg"=>trim($msg."\n".$msglink), "image"=>$image));
-
- // Looking if the link points to an image
- $img_str = fetch_url($orig_link);
-
- $tempfile = tempnam(get_config("system","temppath"), "cache");
- file_put_contents($tempfile, $img_str);
- $mime = image_type_to_mime_type(exif_imagetype($tempfile));
- unlink($tempfile);
-
- if (($image == $orig_link) OR (substr($mime, 0, 6) == "image/"))
- return(array("msg"=>trim($msg), "image"=>$orig_link));
- else if (($image != $orig_link) AND ($image != "") AND (strlen($msg." ".$msglink) <= ($max_char - 20)))
- return(array("msg"=>trim($msg." ".$msglink)."\n", "image"=>$image));
- else
- return(array("msg"=>trim($msg." ".$msglink), "image"=>""));
-}
-