3 * Name: Twitter Connector
4 * Description: Relay public postings to a connected Twitter account
6 * Author: Tobias Diekershoff <https://f.diekershoff.de/profile/tobias>
7 * Author: Michael Vogel <https://pirati.ca/profile/heluecht>
9 * Copyright (c) 2011-2013 Tobias Diekershoff, Michael Vogel
10 * All rights reserved.
12 * Redistribution and use in source and binary forms, with or without
13 * modification, are permitted provided that the following conditions are met:
14 * * Redistributions of source code must retain the above copyright notice,
15 * this list of conditions and the following disclaimer.
16 * * Redistributions in binary form must reproduce the above
17 * * copyright notice, this list of conditions and the following disclaimer in
18 * the documentation and/or other materials provided with the distribution.
19 * * Neither the name of the <organization> nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
25 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
26 * DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY DIRECT,
27 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
28 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
29 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
30 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
31 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
32 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36 /* Twitter Plugin for Friendica
38 * Author: Tobias Diekershoff
39 * tobias.diekershoff@gmx.net
41 * License:3-clause BSD license
44 * To use this plugin you need a OAuth Consumer key pair (key & secret)
45 * you can get it from Twitter at https://twitter.com/apps
47 * Register your Friendica site as "Client" application with "Read & Write" access
48 * we do not need "Twitter as login". When you've registered the app you get the
49 * OAuth Consumer key and secret pair for your application/site.
51 * Add this key pair to your global .htconfig.php or use the admin panel.
53 * $a->config['twitter']['consumerkey'] = 'your consumer_key here';
54 * $a->config['twitter']['consumersecret'] = 'your consumer_secret here';
56 * To activate the plugin itself add it to the $a->config['system']['addon']
57 * setting. After this, your user can configure their Twitter account settings
58 * from "Settings -> Plugin Settings".
60 * Requirements: PHP5, curl [Slinky library]
63 define('TWITTER_DEFAULT_POLL_INTERVAL', 5); // given in minutes
65 function twitter_install() {
66 // we need some hooks, for the configuration and for sending tweets
67 register_hook('connector_settings', 'addon/twitter/twitter.php', 'twitter_settings');
68 register_hook('connector_settings_post', 'addon/twitter/twitter.php', 'twitter_settings_post');
69 register_hook('post_local', 'addon/twitter/twitter.php', 'twitter_post_local');
70 register_hook('notifier_normal', 'addon/twitter/twitter.php', 'twitter_post_hook');
71 register_hook('jot_networks', 'addon/twitter/twitter.php', 'twitter_jot_nets');
72 register_hook('cron', 'addon/twitter/twitter.php', 'twitter_cron');
73 register_hook('queue_predeliver', 'addon/twitter/twitter.php', 'twitter_queue_hook');
74 register_hook('follow', 'addon/twitter/twitter.php', 'twitter_follow');
75 logger("installed twitter");
79 function twitter_uninstall() {
80 unregister_hook('connector_settings', 'addon/twitter/twitter.php', 'twitter_settings');
81 unregister_hook('connector_settings_post', 'addon/twitter/twitter.php', 'twitter_settings_post');
82 unregister_hook('post_local', 'addon/twitter/twitter.php', 'twitter_post_local');
83 unregister_hook('notifier_normal', 'addon/twitter/twitter.php', 'twitter_post_hook');
84 unregister_hook('jot_networks', 'addon/twitter/twitter.php', 'twitter_jot_nets');
85 unregister_hook('cron', 'addon/twitter/twitter.php', 'twitter_cron');
86 unregister_hook('queue_predeliver', 'addon/twitter/twitter.php', 'twitter_queue_hook');
87 unregister_hook('follow', 'addon/twitter/twitter.php', 'twitter_follow');
89 // old setting - remove only
90 unregister_hook('post_local_end', 'addon/twitter/twitter.php', 'twitter_post_hook');
91 unregister_hook('plugin_settings', 'addon/twitter/twitter.php', 'twitter_settings');
92 unregister_hook('plugin_settings_post', 'addon/twitter/twitter.php', 'twitter_settings_post');
96 function twitter_follow($a, &$contact) {
98 logger("twitter_follow: Check if contact is twitter contact. ".$contact["url"], LOGGER_DEBUG);
100 if (!strstr($contact["url"], "://twitter.com") AND !strstr($contact["url"], "@twitter.com"))
103 // contact seems to be a twitter contact, so continue
104 $nickname = preg_replace("=https?://twitter.com/(.*)=ism", "$1", $contact["url"]);
105 $nickname = str_replace("@twitter.com", "", $nickname);
107 $uid = $a->user["uid"];
109 $ckey = get_config('twitter', 'consumerkey');
110 $csecret = get_config('twitter', 'consumersecret');
111 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
112 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
114 require_once("addon/twitter/codebird.php");
116 $cb = \Codebird\Codebird::getInstance();
117 $cb->setConsumerKey($ckey, $csecret);
118 $cb->setToken($otoken, $osecret);
120 $parameters = array();
121 $parameters["screen_name"] = $nickname;
123 $user = $cb->friendships_create($parameters);
125 twitter_fetchuser($a, $uid, $nickname);
127 $r = q("SELECT name,nick,url,addr,batch,notify,poll,request,confirm,poco,photo,priority,network,alias,pubkey
128 FROM `contact` WHERE `uid` = %d AND `nick` = '%s'",
132 $contact["contact"] = $r[0];
135 function twitter_jot_nets(&$a,&$b) {
139 $tw_post = get_pconfig(local_user(),'twitter','post');
140 if(intval($tw_post) == 1) {
141 $tw_defpost = get_pconfig(local_user(),'twitter','post_by_default');
142 $selected = ((intval($tw_defpost) == 1) ? ' checked="checked" ' : '');
143 $b .= '<div class="profile-jot-net"><input type="checkbox" name="twitter_enable"' . $selected . ' value="1" /> '
144 . t('Post to Twitter') . '</div>';
148 function twitter_settings_post ($a,$post) {
151 // don't check twitter settings if twitter submit button is not clicked
152 if (!x($_POST,'twitter-submit'))
155 if (isset($_POST['twitter-disconnect'])) {
157 * if the twitter-disconnect checkbox is set, clear the OAuth key/secret pair
158 * from the user configuration
160 del_pconfig(local_user(), 'twitter', 'consumerkey');
161 del_pconfig(local_user(), 'twitter', 'consumersecret');
162 del_pconfig(local_user(), 'twitter', 'oauthtoken');
163 del_pconfig(local_user(), 'twitter', 'oauthsecret');
164 del_pconfig(local_user(), 'twitter', 'post');
165 del_pconfig(local_user(), 'twitter', 'post_by_default');
166 del_pconfig(local_user(), 'twitter', 'post_taglinks');
167 del_pconfig(local_user(), 'twitter', 'lastid');
168 del_pconfig(local_user(), 'twitter', 'mirror_posts');
169 del_pconfig(local_user(), 'twitter', 'intelligent_shortening');
170 del_pconfig(local_user(), 'twitter', 'import');
171 del_pconfig(local_user(), 'twitter', 'create_user');
172 del_pconfig(local_user(), 'twitter', 'own_id');
174 if (isset($_POST['twitter-pin'])) {
175 // if the user supplied us with a PIN from Twitter, let the magic of OAuth happen
176 logger('got a Twitter PIN');
177 require_once('library/twitteroauth.php');
178 $ckey = get_config('twitter', 'consumerkey');
179 $csecret = get_config('twitter', 'consumersecret');
180 // the token and secret for which the PIN was generated were hidden in the settings
181 // form as token and token2, we need a new connection to Twitter using these token
182 // and secret to request a Access Token with the PIN
183 $connection = new TwitterOAuth($ckey, $csecret, $_POST['twitter-token'], $_POST['twitter-token2']);
184 $token = $connection->getAccessToken( $_POST['twitter-pin'] );
185 // ok, now that we have the Access Token, save them in the user config
186 set_pconfig(local_user(),'twitter', 'oauthtoken', $token['oauth_token']);
187 set_pconfig(local_user(),'twitter', 'oauthsecret', $token['oauth_token_secret']);
188 set_pconfig(local_user(),'twitter', 'post', 1);
189 set_pconfig(local_user(),'twitter', 'post_taglinks', 1);
190 // reload the Addon Settings page, if we don't do it see Bug #42
191 goaway($a->get_baseurl().'/settings/connectors');
193 // if no PIN is supplied in the POST variables, the user has changed the setting
194 // to post a tweet for every new __public__ posting to the wall
195 set_pconfig(local_user(),'twitter','post',intval($_POST['twitter-enable']));
196 set_pconfig(local_user(),'twitter','post_by_default',intval($_POST['twitter-default']));
197 set_pconfig(local_user(),'twitter','post_taglinks',intval($_POST['twitter-sendtaglinks']));
198 set_pconfig(local_user(), 'twitter', 'mirror_posts', intval($_POST['twitter-mirror']));
199 set_pconfig(local_user(), 'twitter', 'intelligent_shortening', intval($_POST['twitter-shortening']));
200 set_pconfig(local_user(), 'twitter', 'import', intval($_POST['twitter-import']));
201 set_pconfig(local_user(), 'twitter', 'create_user', intval($_POST['twitter-create_user']));
202 info( t('Twitter settings updated.') . EOL);
205 function twitter_settings(&$a,&$s) {
208 $a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->get_baseurl() . '/addon/twitter/twitter.css' . '" media="all" />' . "\r\n";
210 * 1) Check that we have global consumer key & secret
211 * 2) If no OAuthtoken & stuff is present, generate button to get some
212 * 3) Checkbox for "Send public notices (140 chars only)
214 $ckey = get_config('twitter', 'consumerkey' );
215 $csecret = get_config('twitter', 'consumersecret' );
216 $otoken = get_pconfig(local_user(), 'twitter', 'oauthtoken' );
217 $osecret = get_pconfig(local_user(), 'twitter', 'oauthsecret' );
218 $enabled = get_pconfig(local_user(), 'twitter', 'post');
219 $checked = (($enabled) ? ' checked="checked" ' : '');
220 $defenabled = get_pconfig(local_user(),'twitter','post_by_default');
221 $defchecked = (($defenabled) ? ' checked="checked" ' : '');
222 $linksenabled = get_pconfig(local_user(),'twitter','post_taglinks');
223 $linkschecked = (($linksenabled) ? ' checked="checked" ' : '');
224 $mirrorenabled = get_pconfig(local_user(),'twitter','mirror_posts');
225 $mirrorchecked = (($mirrorenabled) ? ' checked="checked" ' : '');
226 $shorteningenabled = get_pconfig(local_user(),'twitter','intelligent_shortening');
227 $shorteningchecked = (($shorteningenabled) ? ' checked="checked" ' : '');
228 $importenabled = get_pconfig(local_user(),'twitter','import');
229 $importchecked = (($importenabled) ? ' checked="checked" ' : '');
230 $create_userenabled = get_pconfig(local_user(),'twitter','create_user');
231 $create_userchecked = (($create_userenabled) ? ' checked="checked" ' : '');
233 $globalshortening = get_config('twitter','intelligent_shortening');
235 $s .= '<span id="settings_twitter_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
236 $s .= '<img class="connector" src="images/twitter.png" /><h3 class="connector">'. t('Twitter Import/Export/Mirror').'</h3>';
238 $s .= '<div id="settings_twitter_expanded" class="settings-block" style="display: none;">';
239 $s .= '<span class="fakelink" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
240 $s .= '<img class="connector" src="images/twitter.png" /><h3 class="connector">'. t('Twitter Import/Export/Mirror').'</h3>';
243 if ( (!$ckey) && (!$csecret) ) {
245 * no global consumer keys
246 * display warning and skip personal config
248 $s .= '<p>'. t('No consumer key pair for Twitter found. Please contact your site administrator.') .'</p>';
251 * ok we have a consumer key pair now look into the OAuth stuff
253 if ( (!$otoken) && (!$osecret) ) {
255 * the user has not yet connected the account to twitter...
256 * get a temporary OAuth key/secret pair and display a button with
257 * which the user can request a PIN to connect the account to a
258 * account at Twitter.
260 require_once('library/twitteroauth.php');
261 $connection = new TwitterOAuth($ckey, $csecret);
262 $request_token = $connection->getRequestToken();
263 $token = $request_token['oauth_token'];
265 * make some nice form
267 $s .= '<p>'. t('At this Friendica instance the Twitter plugin was enabled but you have not yet connected your account to your Twitter account. To do so click the button below to get a PIN from Twitter which you have to copy into the input box below and submit the form. Only your <strong>public</strong> posts will be posted to Twitter.') .'</p>';
268 $s .= '<a href="'.$connection->getAuthorizeURL($token).'" target="_twitter"><img src="addon/twitter/lighter.png" alt="'.t('Log in with Twitter').'"></a>';
269 $s .= '<div id="twitter-pin-wrapper">';
270 $s .= '<label id="twitter-pin-label" for="twitter-pin">'. t('Copy the PIN from Twitter here') .'</label>';
271 $s .= '<input id="twitter-pin" type="text" name="twitter-pin" />';
272 $s .= '<input id="twitter-token" type="hidden" name="twitter-token" value="'.$token.'" />';
273 $s .= '<input id="twitter-token2" type="hidden" name="twitter-token2" value="'.$request_token['oauth_token_secret'].'" />';
274 $s .= '</div><div class="clear"></div>';
275 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
278 * we have an OAuth key / secret pair for the user
279 * so let's give a chance to disable the postings to Twitter
281 require_once('library/twitteroauth.php');
282 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
283 $details = $connection->get('account/verify_credentials');
284 $s .= '<div id="twitter-info" ><img id="twitter-avatar" src="'.$details->profile_image_url.'" /><p id="twitter-info-block">'. t('Currently connected to: ') .'<a href="https://twitter.com/'.$details->screen_name.'" target="_twitter">'.$details->screen_name.'</a><br /><em>'.$details->description.'</em></p></div>';
285 $s .= '<p>'. t('If enabled all your <strong>public</strong> postings can be posted to the associated Twitter account. You can choose to do so by default (here) or for every posting separately in the posting options when writing the entry.') .'</p>';
286 if ($a->user['hidewall']) {
287 $s .= '<p>'. t('<strong>Note</strong>: Due your privacy settings (<em>Hide your profile details from unknown viewers?</em>) the link potentially included in public postings relayed to Twitter will lead the visitor to a blank page informing the visitor that the access to your profile has been restricted.') .'</p>';
289 $s .= '<div id="twitter-enable-wrapper">';
290 $s .= '<label id="twitter-enable-label" for="twitter-checkbox">'. t('Allow posting to Twitter'). '</label>';
291 $s .= '<input id="twitter-checkbox" type="checkbox" name="twitter-enable" value="1" ' . $checked . '/>';
292 $s .= '<div class="clear"></div>';
293 $s .= '<label id="twitter-default-label" for="twitter-default">'. t('Send public postings to Twitter by default') .'</label>';
294 $s .= '<input id="twitter-default" type="checkbox" name="twitter-default" value="1" ' . $defchecked . '/>';
295 $s .= '<div class="clear"></div>';
297 $s .= '<label id="twitter-mirror-label" for="twitter-mirror">'.t('Mirror all posts from twitter that are no replies').'</label>';
298 $s .= '<input id="twitter-mirror" type="checkbox" name="twitter-mirror" value="1" '. $mirrorchecked . '/>';
299 $s .= '<div class="clear"></div>';
301 if (!$globalshortening) {
302 $s .= '<label id="twitter-shortening-label" for="twitter-shortening">'.t('Shortening method that optimizes the tweet').'</label>';
303 $s .= '<input id="twitter-shortening" type="checkbox" name="twitter-shortening" value="1" '. $shorteningchecked . '/>';
304 $s .= '<div class="clear"></div>';
306 $s .= '<label id="twitter-sendtaglinks-label" for="twitter-sendtaglinks">'.t('Send linked #-tags and @-names to Twitter').'</label>';
307 $s .= '<input id="twitter-sendtaglinks" type="checkbox" name="twitter-sendtaglinks" value="1" '. $linkschecked . '/>';
308 $s .= '<div class="clear"></div>';
312 $s .= '<label id="twitter-import-label" for="twitter-import">'.t('Import the remote timeline').'</label>';
313 $s .= '<input id="twitter-import" type="checkbox" name="twitter-import" value="1" '. $importchecked . '/>';
314 $s .= '<div class="clear"></div>';
316 $s .= '<label id="twitter-create_user-label" for="twitter-create_user">'.t('Automatically create contacts').'</label>';
317 $s .= '<input id="twitter-create_user" type="checkbox" name="twitter-create_user" value="1" '. $create_userchecked . '/>';
318 $s .= '<div class="clear"></div>';
320 $s .= '<div id="twitter-disconnect-wrapper">';
321 $s .= '<label id="twitter-disconnect-label" for="twitter-disconnect">'. t('Clear OAuth configuration') .'</label>';
322 $s .= '<input id="twitter-disconnect" type="checkbox" name="twitter-disconnect" value="1" />';
323 $s .= '</div><div class="clear"></div>';
324 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
327 $s .= '</div><div class="clear"></div>';
331 function twitter_post_local(&$a,&$b) {
336 if((local_user()) && (local_user() == $b['uid']) && (! $b['private']) && (! $b['parent']) ) {
338 $twitter_post = intval(get_pconfig(local_user(),'twitter','post'));
339 $twitter_enable = (($twitter_post && x($_REQUEST,'twitter_enable')) ? intval($_REQUEST['twitter_enable']) : 0);
341 // if API is used, default to the chosen settings
342 if($_REQUEST['api_source'] && intval(get_pconfig(local_user(),'twitter','post_by_default')))
345 if(! $twitter_enable)
348 if(strlen($b['postopts']))
349 $b['postopts'] .= ',';
350 $b['postopts'] .= 'twitter';
354 if (! function_exists('short_link')) {
355 function short_link ($url) {
356 require_once('library/slinky.php');
357 $slinky = new Slinky( $url );
358 $yourls_url = get_config('yourls','url1');
360 $yourls_username = get_config('yourls','username1');
361 $yourls_password = get_config('yourls', 'password1');
362 $yourls_ssl = get_config('yourls', 'ssl1');
363 $yourls = new Slinky_YourLS();
364 $yourls->set( 'username', $yourls_username );
365 $yourls->set( 'password', $yourls_password );
366 $yourls->set( 'ssl', $yourls_ssl );
367 $yourls->set( 'yourls-url', $yourls_url );
368 $slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
371 // setup a cascade of shortening services
372 // try to get a short link from these services
373 // in the order ur1.ca, trim, id.gd, tinyurl
374 $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
376 return $slinky->short();
379 function twitter_shortenmsg($b, $shortlink = false) {
380 require_once("include/api.php");
381 require_once("include/bbcode.php");
382 require_once("include/html2plain.php");
386 $b['body'] = bb_CleanPictureLinks($b['body']);
388 // Looking for the first image
389 $cleaned_body = api_clean_plain_items($b['body']);
391 if(preg_match("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/is",$cleaned_body,$matches))
392 $image = $matches[3];
395 if(preg_match("/\[img\](.*?)\[\/img\]/is",$cleaned_body,$matches))
396 $image = $matches[1];
398 $multipleimages = (strpos($cleaned_body, "[img") != strrpos($cleaned_body, "[img"));
400 // When saved into the database the content is sent through htmlspecialchars
401 // That means that we have to decode all image-urls
402 $image = htmlspecialchars_decode($image);
405 if ($b["title"] != "")
406 $body = $b["title"]."\n\n".$body;
408 if (strpos($body, "[bookmark") !== false) {
409 // splitting the text in two parts:
410 // before and after the bookmark
411 $pos = strpos($body, "[bookmark");
412 $body1 = substr($body, 0, $pos);
413 $body2 = substr($body, $pos);
415 // Removing all quotes after the bookmark
416 // they are mostly only the content after the bookmark.
417 $body2 = preg_replace("/\[quote\=([^\]]*)\](.*?)\[\/quote\]/ism",'',$body2);
418 $body2 = preg_replace("/\[quote\](.*?)\[\/quote\]/ism",'',$body2);
419 $body = $body1.$body2;
422 // Add some newlines so that the message could be cut better
423 $body = str_replace(array("[quote", "[bookmark", "[/bookmark]", "[/quote]"),
424 array("\n[quote", "\n[bookmark", "[/bookmark]\n", "[/quote]\n"), $body);
426 // remove the recycle signs and the names since they aren't helpful on twitter
428 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
429 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
431 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
432 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
434 // remove the share element
435 //$body = preg_replace("/\[share(.*?)\](.*?)\[\/share\]/ism","\n\n$2\n\n",$body);
437 // At first convert the text to html
438 $html = bbcode(api_clean_plain_items($body), false, false, 2);
440 // Then convert it to plain text
441 $msg = trim(html2plain($html, 0, true));
442 $msg = html_entity_decode($msg,ENT_QUOTES,'UTF-8');
444 // Removing multiple newlines
445 while (strpos($msg, "\n\n\n") !== false)
446 $msg = str_replace("\n\n\n", "\n\n", $msg);
448 // Removing multiple spaces
449 while (strpos($msg, " ") !== false)
450 $msg = str_replace(" ", " ", $msg);
452 $origmsg = trim($msg);
455 $msg = preg_replace('/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', "", $msg);
460 // look for bookmark-bbcode and handle it with priority
461 if(preg_match("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/is",$b['body'],$matches))
464 $multiplelinks = (strpos($b['body'], "[bookmark") != strrpos($b['body'], "[bookmark"));
466 // If there is no bookmark element then take the first link
468 $links = collecturls($html);
470 foreach($links AS $singlelink) {
471 $img_str = fetch_url($singlelink);
473 $tempfile = tempnam(get_config("system","temppath"), "cache");
474 file_put_contents($tempfile, $img_str);
475 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
478 if (substr($mime, 0, 6) == "image/") {
479 $image = $singlelink;
480 unset($links[$singlelink]);
484 if (sizeof($links) > 0) {
486 $link = current($links);
488 $multiplelinks = (sizeof($links) > 1);
493 $msglink = $b["plink"];
494 else if ($link != "")
496 else if ($multipleimages)
497 $msglink = $b["plink"];
498 else if ($image != "")
501 if (($msglink == "") and strlen($msg) > $max_char)
502 $msglink = $b["plink"];
504 // If the message is short enough then don't modify it.
505 if ((strlen($origmsg) <= $max_char) AND ($msglink == ""))
506 return(array("msg"=>$origmsg, "image"=>""));
508 // If the message is short enough and contains a picture then post the picture as well
509 if ((strlen($origmsg) <= ($max_char - 23)) AND strpos($origmsg, $msglink))
510 return(array("msg"=>$origmsg, "image"=>$image));
512 // If the message is short enough and the link exists in the original message don't modify it as well
513 // -3 because of the bad shortener of twitter
514 if ((strlen($origmsg) <= ($max_char - 3)) AND strpos($origmsg, $msglink))
515 return(array("msg"=>$origmsg, "image"=>""));
517 // Preserve the unshortened link
518 $orig_link = $msglink;
520 // Just replace the message link with a 22 character long string
521 // Twitter calculates with this length
522 if (trim($msglink) <> '')
523 $msglink = "1234567890123456789012";
525 if (strlen(trim($msg." ".$msglink)) > ($max_char)) {
526 $msg = substr($msg, 0, ($max_char) - (strlen($msglink)));
527 $lastchar = substr($msg, -1);
528 $msg = substr($msg, 0, -1);
529 $pos = strrpos($msg, "\n");
531 $msg = substr($msg, 0, $pos);
532 else if ($lastchar != "\n")
533 $msg = substr($msg, 0, -3)."...";
535 // if the post contains a picture and a link then the system tries to cut the post earlier.
536 // So the link and the picture can be posted.
537 if (($image != "") AND ($orig_link != $image)) {
538 $msg2 = substr($msg, 0, ($max_char - 20) - (strlen($msglink)));
539 $lastchar = substr($msg2, -1);
540 $msg2 = substr($msg2, 0, -1);
541 $pos = strrpos($msg2, "\n");
543 $msg = substr($msg2, 0, $pos);
544 else if ($lastchar == "\n")
549 // Removing multiple spaces - again
550 while (strpos($msg, " ") !== false)
551 $msg = str_replace(" ", " ", $msg);
555 // Removing multiple newlines
556 //while (strpos($msg, "\n\n") !== false)
557 // $msg = str_replace("\n\n", "\n", $msg);
559 // Looking if the link points to an image
560 $img_str = fetch_url($orig_link);
562 $tempfile = tempnam(get_config("system","temppath"), "cache");
563 file_put_contents($tempfile, $img_str);
564 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
567 if (($image == $orig_link) OR (substr($mime, 0, 6) == "image/"))
568 return(array("msg"=>$msg, "image"=>$orig_link));
569 else if (($image != $orig_link) AND ($image != "") AND (strlen($msg." ".$msglink) <= ($max_char - 23))) {
571 $orig_link = short_link($orig_link);
573 return(array("msg"=>$msg." ".$orig_link, "image"=>$image));
576 $orig_link = short_link($orig_link);
578 return(array("msg"=>$msg." ".$orig_link, "image"=>""));
582 function twitter_action($a, $uid, $pid, $action) {
584 $ckey = get_config('twitter', 'consumerkey');
585 $csecret = get_config('twitter', 'consumersecret');
586 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
587 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
589 require_once("addon/twitter/codebird.php");
591 $cb = \Codebird\Codebird::getInstance();
592 $cb->setConsumerKey($ckey, $csecret);
593 $cb->setToken($otoken, $osecret);
595 $post = array('id' => $pid);
597 logger("twitter_action '".$action."' ID: ".$pid." data: " . print_r($post, true), LOGGER_DATA);
601 $result = $cb->statuses_destroy($post);
604 $result = $cb->favorites_create($post);
607 $result = $cb->favorites_destroy($post);
610 logger("twitter_action '".$action."' send, result: " . print_r($result, true), LOGGER_DEBUG);
613 function twitter_post_hook(&$a,&$b) {
619 if (!get_pconfig($b["uid"],'twitter','import')) {
620 if($b['deleted'] || $b['private'] || ($b['created'] !== $b['edited']))
624 if($b['parent'] != $b['id']) {
625 logger("twitter_post_hook: parameter ".print_r($b, true), LOGGER_DATA);
627 // Looking if its a reply to a twitter post
628 if ((substr($b["parent-uri"], 0, 9) != "twitter::") AND (substr($b["extid"], 0, 9) != "twitter::") AND (substr($b["thr-parent"], 0, 9) != "twitter::")) {
629 logger("twitter_post_hook: no twitter post ".$b["parent"]);
633 $r = q("SELECT * FROM item WHERE item.uri = '%s' AND item.uid = %d LIMIT 1",
634 dbesc($b["thr-parent"]),
638 logger("twitter_post_hook: no parent found ".$b["thr-parent"]);
645 $nickname = preg_replace("=https?://twitter.com/(.*)=ism", "$1", $orig_post["author-link"]);
646 $nickname = "@[url=".$orig_post["author-link"]."]".$nickname."[/url]";
648 logger("twitter_post_hook: comparing ".$nickname." with ".$b["body"], LOGGER_DEBUG);
649 if (strpos($b["body"], $nickname) === false)
650 $b["body"] = $nickname." ".$b["body"];
652 logger("twitter_post_hook: parent found ".print_r($orig_post, true), LOGGER_DATA);
656 if($b['private'] OR !strstr($b['postopts'],'twitter'))
660 if (($b['verb'] == ACTIVITY_POST) AND $b['deleted'])
661 twitter_action($a, $b["uid"], substr($orig_post["uri"], 9), "delete");
663 if($b['verb'] == ACTIVITY_LIKE) {
664 logger("twitter_post_hook: parameter 2 ".substr($b["thr-parent"], 9), LOGGER_DEBUG);
666 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "unlike");
668 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "like");
672 if($b['deleted'] || ($b['created'] !== $b['edited']))
675 // if post comes from twitter don't send it back
676 if($b['app'] == "Twitter")
679 logger('twitter post invoked');
682 load_pconfig($b['uid'], 'twitter');
684 $ckey = get_config('twitter', 'consumerkey');
685 $csecret = get_config('twitter', 'consumersecret');
686 $otoken = get_pconfig($b['uid'], 'twitter', 'oauthtoken');
687 $osecret = get_pconfig($b['uid'], 'twitter', 'oauthsecret');
688 $intelligent_shortening = get_pconfig($b['uid'], 'twitter', 'intelligent_shortening');
690 // Global setting overrides this
691 if (get_config('twitter','intelligent_shortening'))
692 $intelligent_shortening = get_config('twitter','intelligent_shortening');
694 if($ckey && $csecret && $otoken && $osecret) {
695 logger('twitter: we have customer key and oauth stuff, going to send.', LOGGER_DEBUG);
697 // If it's a repeated message from twitter then do a native retweet and exit
698 if (twitter_is_retweet($a, $b['uid'], $b['body']))
701 require_once('library/twitteroauth.php');
702 require_once('include/bbcode.php');
703 $tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
705 // in theory max char is 140 but T. uses t.co to make links
706 // longer so we give them 10 characters extra
707 if (!$intelligent_shortening) {
708 $max_char = 130; // max. length for a tweet
709 // we will only work with up to two times the length of the dent
710 // we can later send to Twitter. This way we can "gain" some
711 // information during shortening of potential links but do not
712 // shorten all the links in a 200000 character long essay.
713 if (! $b['title']=='') {
714 $tmp = $b['title'] . ' : '. $b['body'];
715 // $tmp = substr($tmp, 0, 4*$max_char);
717 $tmp = $b['body']; // substr($b['body'], 0, 3*$max_char);
719 // if [url=bla][img]blub.png[/img][/url] get blub.png
720 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\]\[img\](\\w+.*?)\\[\\/img\]\\[\\/url\]/i', '$2', $tmp);
721 // preserve links to images, videos and audios
722 $tmp = preg_replace( '/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism', '$3', $tmp);
723 $tmp = preg_replace( '/\[\\/?img(\\s+.*?\]|\])/i', '', $tmp);
724 $tmp = preg_replace( '/\[\\/?video(\\s+.*?\]|\])/i', '', $tmp);
725 $tmp = preg_replace( '/\[\\/?youtube(\\s+.*?\]|\])/i', '', $tmp);
726 $tmp = preg_replace( '/\[\\/?vimeo(\\s+.*?\]|\])/i', '', $tmp);
727 $tmp = preg_replace( '/\[\\/?audio(\\s+.*?\]|\])/i', '', $tmp);
728 $linksenabled = get_pconfig($b['uid'],'twitter','post_taglinks');
729 // if a #tag is linked, don't send the [url] over to SN
730 // that is, don't send if the option is not set in the
731 // connector settings
732 if ($linksenabled=='0') {
734 $tmp = preg_replace( '/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '#$2', $tmp);
736 $tmp = preg_replace( '/@\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '@$2', $tmp);
738 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
739 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
741 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
742 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
744 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/url\]/i', '$2 $1', $tmp);
745 $tmp = preg_replace( '/\[bookmark\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/bookmark\]/i', '$2 $1', $tmp);
746 // find all http or https links in the body of the entry and
747 // apply the shortener if the link is longer then 20 characters
748 if (( strlen($tmp)>$max_char ) && ( $max_char > 0 )) {
749 preg_match_all ( '/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', $tmp, $allurls );
750 foreach ($allurls as $url) {
751 foreach ($url as $u) {
753 $sl = short_link($u);
754 $tmp = str_replace( $u, $sl, $tmp );
759 // ok, all the links we want to send out are save, now strip
760 // away the remaining bbcode
761 //$msg = strip_tags(bbcode($tmp, false, false));
762 $msg = bbcode($tmp, false, false, true);
763 $msg = str_replace(array('<br>','<br />'),"\n",$msg);
764 $msg = strip_tags($msg);
766 // quotes not working - let's try this
767 $msg = html_entity_decode($msg);
768 if (( strlen($msg) > $max_char) && $max_char > 0) {
769 $shortlink = short_link( $b['plink'] );
770 // the new message will be shortened such that "... $shortlink"
771 // will fit into the character limit
772 $msg = nl2br(substr($msg, 0, $max_char-strlen($shortlink)-4));
773 $msg = str_replace(array('<br>','<br />'),' ',$msg);
774 $e = explode(' ', $msg);
775 // remove the last word from the cut down message to
776 // avoid sending cut words to the MicroBlog
778 $msg = implode(' ', $e);
779 $msg .= '... ' . $shortlink;
785 $msgarr = twitter_shortenmsg($b);
786 $msg = $msgarr["msg"];
787 $image = $msgarr["image"];
790 // and now tweet it :-)
791 if(strlen($msg) and ($image != "")) {
792 $img_str = fetch_url($image);
794 $tempfile = tempnam(get_config("system","temppath"), "cache");
795 file_put_contents($tempfile, $img_str);
797 // Twitter had changed something so that the old library doesn't work anymore
798 // so we are using a new library for twitter
800 // Switching completely to this library with all functions
801 require_once("addon/twitter/codebird.php");
803 $cb = \Codebird\Codebird::getInstance();
804 $cb->setConsumerKey($ckey, $csecret);
805 $cb->setToken($otoken, $osecret);
807 $post = array('status' => $msg, 'media[]' => $tempfile);
810 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
812 $result = $cb->statuses_updateWithMedia($post);
815 logger('twitter_post_with_media send, result: ' . print_r($result, true), LOGGER_DEBUG);
816 if ($result->errors OR $result->error) {
817 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
819 // Workaround: Remove the picture link so that the post can be reposted without it
822 } elseif ($iscomment) {
823 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
824 q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
825 dbesc("twitter::".$result->id_str),
826 dbesc($result->text),
832 if(strlen($msg) and ($image == "")) {
833 $url = 'statuses/update';
834 $post = array('status' => $msg);
837 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
839 $result = $tweet->post($url, $post);
840 logger('twitter_post send, result: ' . print_r($result, true), LOGGER_DEBUG);
841 if ($result->errors) {
842 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
844 $r = q("SELECT `id` FROM `contact` WHERE `uid` = %d AND `self`", intval($b['uid']));
846 $a->contact = $r[0]["id"];
848 $s = serialize(array('url' => $url, 'item' => $b['id'], 'post' => $post));
849 require_once('include/queue_fn.php');
850 add_to_queue($a->contact,NETWORK_TWITTER,$s);
851 notice(t('Twitter post failed. Queued for retry.').EOL);
852 } elseif ($iscomment) {
853 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
854 q("UPDATE `item` SET `extid` = '%s' WHERE `id` = %d",
855 dbesc("twitter::".$result->id_str),
858 //q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
859 // dbesc("twitter::".$result->id_str),
860 // dbesc($result->text),
868 function twitter_plugin_admin_post(&$a){
869 $consumerkey = ((x($_POST,'consumerkey')) ? notags(trim($_POST['consumerkey'])) : '');
870 $consumersecret = ((x($_POST,'consumersecret')) ? notags(trim($_POST['consumersecret'])): '');
871 $applicationname = ((x($_POST, 'applicationname')) ? notags(trim($_POST['applicationname'])):'');
872 set_config('twitter','consumerkey',$consumerkey);
873 set_config('twitter','consumersecret',$consumersecret);
874 set_config('twitter','application_name',$applicationname);
875 info( t('Settings updated.'). EOL );
877 function twitter_plugin_admin(&$a, &$o){
878 $t = get_markup_template( "admin.tpl", "addon/twitter/" );
880 $o = replace_macros($t, array(
881 '$submit' => t('Save Settings'),
882 // name, label, value, help, [extra values]
883 '$consumerkey' => array('consumerkey', t('Consumer key'), get_config('twitter', 'consumerkey' ), ''),
884 '$consumersecret' => array('consumersecret', t('Consumer secret'), get_config('twitter', 'consumersecret' ), ''),
885 '$applicationname' => array('applicationname', t('Name of the Twitter Application'), get_config('twitter','application_name'),t('set this to avoid mirroring postings from ~friendica back to ~friendica'))
889 function twitter_cron($a,$b) {
890 $last = get_config('twitter','last_poll');
892 $poll_interval = intval(get_config('twitter','poll_interval'));
894 $poll_interval = TWITTER_DEFAULT_POLL_INTERVAL;
897 $next = $last + ($poll_interval * 60);
899 logger('twitter: poll intervall not reached');
903 logger('twitter: cron_start');
905 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'mirror_posts' AND `v` = '1' ORDER BY RAND()");
908 logger('twitter: fetching for user '.$rr['uid']);
909 twitter_fetchtimeline($a, $rr['uid']);
914 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'import' AND `v` = '1' ORDER BY RAND()");
917 logger('twitter: importing timeline from user '.$rr['uid']);
918 twitter_fetchhometimeline($a, $rr["uid"]);
922 // check for new contacts once a day
923 $last_contact_check = get_pconfig($rr['uid'],'pumpio','contact_check');
924 if($last_contact_check)
925 $next_contact_check = $last_contact_check + 86400;
927 $next_contact_check = 0;
929 if($next_contact_check <= time()) {
930 pumpio_getallusers($a, $rr["uid"]);
931 set_pconfig($rr['uid'],'pumpio','contact_check',time());
938 logger('twitter: cron_end');
940 set_config('twitter','last_poll', time());
943 function twitter_fetchtimeline($a, $uid) {
944 $ckey = get_config('twitter', 'consumerkey');
945 $csecret = get_config('twitter', 'consumersecret');
946 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
947 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
948 $lastid = get_pconfig($uid, 'twitter', 'lastid');
950 $application_name = get_config('twitter', 'application_name');
952 if ($application_name == "")
953 $application_name = $a->get_hostname();
955 $has_picture = false;
957 require_once('mod/item.php');
958 require_once('include/items.php');
960 require_once('library/twitteroauth.php');
961 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
963 $parameters = array("exclude_replies" => true, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
965 $first_time = ($lastid == "");
968 $parameters["since_id"] = $lastid;
970 $items = $connection->get('statuses/user_timeline', $parameters);
972 if (!is_array($items))
975 $posts = array_reverse($items);
978 foreach ($posts as $post) {
979 if ($post->id_str > $lastid)
980 $lastid = $post->id_str;
985 if (!strpos($post->source, $application_name)) {
986 $_SESSION["authenticated"] = true;
987 $_SESSION["uid"] = $uid;
990 $_REQUEST["type"] = "wall";
991 $_REQUEST["api_source"] = true;
992 $_REQUEST["profile_uid"] = $uid;
993 $_REQUEST["source"] = "Twitter";
995 //$_REQUEST["date"] = $post->created_at;
997 $_REQUEST["title"] = "";
999 if (is_object($post->retweeted_status)) {
1001 $_REQUEST['body'] = $post->retweeted_status->text;
1004 if (is_array($post->retweeted_status->entities->media)) {
1005 foreach($post->retweeted_status->entities->media AS $media) {
1006 switch($media->type) {
1008 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1009 $has_picture = true;
1015 $converted = twitter_expand_entities($a, $_REQUEST['body'], $post->retweeted_status, true, $has_picture);
1016 $_REQUEST['body'] = $converted["body"];
1018 $_REQUEST['body'] = "[share author='".$post->retweeted_status->user->name.
1019 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1020 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1021 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1023 $_REQUEST['body'] .= "[/share]";
1025 $_REQUEST["body"] = $post->text;
1027 if (is_array($post->entities->media)) {
1028 foreach($post->entities->media AS $media) {
1029 switch($media->type) {
1031 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1032 $has_picture = true;
1038 $converted = twitter_expand_entities($a, $_REQUEST["body"], $post, true, $has_picture);
1039 $_REQUEST['body'] = $converted["body"];
1042 if (is_string($post->place->name))
1043 $_REQUEST["location"] = $post->place->name;
1045 if (is_string($post->place->full_name))
1046 $_REQUEST["location"] = $post->place->full_name;
1048 if (is_array($post->geo->coordinates))
1049 $_REQUEST["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1051 if (is_array($post->coordinates->coordinates))
1052 $_REQUEST["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1054 //print_r($_REQUEST);
1055 logger('twitter: posting for user '.$uid);
1057 // require_once('mod/item.php');
1063 set_pconfig($uid, 'twitter', 'lastid', $lastid);
1066 function twitter_queue_hook(&$a,&$b) {
1068 $qi = q("SELECT * FROM `queue` WHERE `network` = '%s'",
1069 dbesc(NETWORK_TWITTER)
1074 require_once('include/queue_fn.php');
1076 foreach($qi as $x) {
1077 if($x['network'] !== NETWORK_TWITTER)
1080 logger('twitter_queue: run');
1082 $r = q("SELECT `user`.* FROM `user` LEFT JOIN `contact` on `contact`.`uid` = `user`.`uid`
1083 WHERE `contact`.`self` = 1 AND `contact`.`id` = %d LIMIT 1",
1091 $ckey = get_config('twitter', 'consumerkey');
1092 $csecret = get_config('twitter', 'consumersecret');
1093 $otoken = get_pconfig($user['uid'], 'twitter', 'oauthtoken');
1094 $osecret = get_pconfig($user['uid'], 'twitter', 'oauthsecret');
1098 if ($ckey AND $csecret AND $otoken AND $osecret) {
1100 logger('twitter_queue: able to post');
1102 $z = unserialize($x['content']);
1104 require_once("addon/twitter/codebird.php");
1106 $cb = \Codebird\Codebird::getInstance();
1107 $cb->setConsumerKey($ckey, $csecret);
1108 $cb->setToken($otoken, $osecret);
1110 if ($z['url'] == "statuses/update")
1111 $result = $cb->statuses_update($z['post']);
1113 logger('twitter_queue: post result: ' . print_r($result, true), LOGGER_DEBUG);
1115 if ($result->errors)
1116 logger('twitter_queue: Send to Twitter failed: "' . print_r($result->errors, true) . '"');
1119 remove_queue_item($x['id']);
1122 logger("twitter_queue: Error getting tokens for user ".$user['uid']);
1125 logger('twitter_queue: delayed');
1126 update_queue_time($x['id']);
1131 function twitter_fetch_contact($uid, $contact, $create_user) {
1133 // Check if the unique contact is existing
1134 // To-Do: only update once a while
1135 $r = q("SELECT id FROM unique_contacts WHERE url='%s' LIMIT 1",
1136 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)));
1139 q("INSERT INTO unique_contacts (url, name, nick, avatar) VALUES ('%s', '%s', '%s', '%s')",
1140 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1141 dbesc($contact->name),
1142 dbesc($contact->screen_name),
1143 dbesc($contact->profile_image_url_https));
1145 q("UPDATE unique_contacts SET name = '%s', nick = '%s', avatar = '%s' WHERE url = '%s'",
1146 dbesc($contact->name),
1147 dbesc($contact->screen_name),
1148 dbesc($contact->profile_image_url_https),
1149 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)));
1151 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1152 intval($uid), dbesc("twitter::".$contact->id_str));
1154 if(!count($r) AND !$create_user)
1157 if (count($r) AND ($r[0]["readonly"] OR $r[0]["blocked"])) {
1158 logger("twitter_fetch_contact: Contact '".$r[0]["nick"]."' is blocked or readonly.", LOGGER_DEBUG);
1163 // create contact record
1164 q("INSERT INTO `contact` ( `uid`, `created`, `url`, `nurl`, `addr`, `alias`, `notify`, `poll`,
1165 `name`, `nick`, `photo`, `network`, `rel`, `priority`,
1166 `writable`, `blocked`, `readonly`, `pending` )
1167 VALUES ( %d, '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', %d, %d, %d, 0, 0, 0 ) ",
1169 dbesc(datetime_convert()),
1170 dbesc("https://twitter.com/".$contact->screen_name),
1171 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1172 dbesc($contact->screen_name."@twitter.com"),
1173 dbesc("twitter::".$contact->id_str),
1175 dbesc("twitter::".$contact->id_str),
1176 dbesc($contact->name),
1177 dbesc($contact->screen_name),
1178 dbesc($contact->profile_image_url_https),
1179 dbesc(NETWORK_TWITTER),
1180 intval(CONTACT_IS_FRIEND),
1185 $r = q("SELECT * FROM `contact` WHERE `alias` = '%s' AND `uid` = %d LIMIT 1",
1186 dbesc("twitter::".$contact->id_str),
1193 $contact_id = $r[0]['id'];
1195 $g = q("SELECT def_gid FROM user WHERE uid = %d LIMIT 1",
1199 if($g && intval($g[0]['def_gid'])) {
1200 require_once('include/group.php');
1201 group_add_member($uid,'',$contact_id,$g[0]['def_gid']);
1204 require_once("Photo.php");
1206 $photos = import_profile_photo($contact->profile_image_url_https,$uid,$contact_id);
1208 q("UPDATE `contact` SET `photo` = '%s',
1213 `avatar-date` = '%s'
1218 dbesc(datetime_convert()),
1219 dbesc(datetime_convert()),
1220 dbesc(datetime_convert()),
1225 // update profile photos once every two weeks as we have no notification of when they change.
1227 //$update_photo = (($r[0]['avatar-date'] < datetime_convert('','','now -2 days')) ? true : false);
1228 $update_photo = ($r[0]['avatar-date'] < datetime_convert('','','now -12 hours'));
1230 // check that we have all the photos, this has been known to fail on occasion
1232 if((! $r[0]['photo']) || (! $r[0]['thumb']) || (! $r[0]['micro']) || ($update_photo)) {
1234 logger("twitter_fetch_contact: Updating contact ".$contact->screen_name, LOGGER_DEBUG);
1236 require_once("Photo.php");
1238 $photos = import_profile_photo($contact->profile_image_url_https, $uid, $r[0]['id']);
1240 q("UPDATE `contact` SET `photo` = '%s',
1245 `avatar-date` = '%s',
1255 dbesc(datetime_convert()),
1256 dbesc(datetime_convert()),
1257 dbesc(datetime_convert()),
1258 dbesc("https://twitter.com/".$contact->screen_name),
1259 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1260 dbesc($contact->screen_name."@twitter.com"),
1261 dbesc($contact->name),
1262 dbesc($contact->screen_name),
1268 return($r[0]["id"]);
1271 function twitter_fetchuser($a, $uid, $screen_name = "", $user_id = "") {
1272 $ckey = get_config('twitter', 'consumerkey');
1273 $csecret = get_config('twitter', 'consumersecret');
1274 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1275 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1277 require_once("addon/twitter/codebird.php");
1279 $cb = \Codebird\Codebird::getInstance();
1280 $cb->setConsumerKey($ckey, $csecret);
1281 $cb->setToken($otoken, $osecret);
1283 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1291 $parameters = array();
1293 if ($screen_name != "")
1294 $parameters["screen_name"] = $screen_name;
1297 $parameters["user_id"] = $user_id;
1299 // Fetching user data
1300 $user = $cb->users_show($parameters);
1302 if (!is_object($user))
1305 $contact_id = twitter_fetch_contact($uid, $user, true);
1310 function twitter_expand_entities($a, $body, $item, $no_tags = false, $dontincludemedia) {
1311 require_once("include/oembed.php");
1312 require_once("include/network.php");
1316 if (isset($item->entities->urls)) {
1322 foreach ($item->entities->urls AS $url) {
1323 if ($url->url AND $url->expanded_url AND $url->display_url) {
1325 $expanded_url = original_url($url->expanded_url);
1327 $oembed_data = oembed_fetch_url($expanded_url);
1329 // Quickfix: Workaround for URL with "[" and "]" in it
1330 if (strpos($expanded_url, "[") OR strpos($expanded_url, "]"))
1331 $expanded_url = $url->url;
1334 $type = $oembed_data->type;
1336 if ($oembed_data->type == "video") {
1337 $body = str_replace($url->url,
1338 "[video]".$expanded_url."[/video]", $body);
1339 $dontincludemedia = true;
1340 } elseif (($oembed_data->type == "photo") AND isset($oembed_data->url) AND !$dontincludemedia) {
1341 $body = str_replace($url->url,
1342 "[url=".$expanded_url."][img]".$oembed_data->url."[/img][/url]",
1344 $dontincludemedia = true;
1345 } elseif ($oembed_data->type != "link")
1346 $body = str_replace($url->url,
1347 "[url=".$expanded_url."]".$expanded_url."[/url]",
1350 $img_str = fetch_url($expanded_url, true, $redirects, 4);
1352 $tempfile = tempnam(get_config("system","temppath"), "cache");
1353 file_put_contents($tempfile, $img_str);
1354 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
1357 if (substr($mime, 0, 6) == "image/") {
1359 $body = str_replace($url->url, "[img]".$expanded_url."[/img]", $body);
1360 $dontincludemedia = true;
1362 $type = $oembed_data->type;
1363 $footerurl = $expanded_url;
1364 $footerlink = "[url=".$expanded_url."]".$expanded_url."[/url]";
1366 $body = str_replace($url->url, $footerlink, $body);
1372 if ($footerurl != "")
1373 $footer = add_page_info($footerurl);
1375 if (($footerlink != "") AND (trim($footer) != "")) {
1376 $removedlink = trim(str_replace($footerlink, "", $body));
1378 if (strstr($body, $removedlink))
1379 $body = $removedlink;
1385 return(array("body" => $body, "tags" => ""));
1387 $tags_arr = array();
1389 foreach ($item->entities->hashtags AS $hashtag) {
1390 $url = "#[url=".$a->get_baseurl()."/search?tag=".rawurlencode($hashtag->text)."]".$hashtag->text."[/url]";
1391 $tags_arr["#".$hashtag->text] = $url;
1392 $body = str_replace("#".$hashtag->text, $url, $body);
1395 foreach ($item->entities->user_mentions AS $mention) {
1396 $url = "@[url=https://twitter.com/".rawurlencode($mention->screen_name)."]".$mention->screen_name."[/url]";
1397 $tags_arr["@".$mention->screen_name] = $url;
1398 $body = str_replace("@".$mention->screen_name, $url, $body);
1401 // it seems as if the entities aren't always covering all mentions. So the rest will be checked here
1402 $tags = get_tags($body);
1405 foreach($tags as $tag) {
1406 if (strstr(trim($tag), " "))
1409 if(strpos($tag,'#') === 0) {
1410 if(strpos($tag,'[url='))
1413 // don't link tags that are already embedded in links
1415 if(preg_match('/\[(.*?)' . preg_quote($tag,'/') . '(.*?)\]/',$body))
1417 if(preg_match('/\[(.*?)\]\((.*?)' . preg_quote($tag,'/') . '(.*?)\)/',$body))
1420 $basetag = str_replace('_',' ',substr($tag,1));
1421 $url = '#[url='.$a->get_baseurl().'/search?tag='.rawurlencode($basetag).']'.$basetag.'[/url]';
1422 $body = str_replace($tag,$url,$body);
1423 $tags_arr["#".$basetag] = $url;
1425 } elseif(strpos($tag,'@') === 0) {
1426 if(strpos($tag,'[url='))
1429 $basetag = substr($tag,1);
1430 $url = '@[url=https://twitter.com/'.rawurlencode($basetag).']'.$basetag.'[/url]';
1431 $body = str_replace($tag,$url,$body);
1432 $tags_arr["@".$basetag] = $url;
1438 $tags = implode($tags_arr, ",");
1441 return(array("body" => $body, "tags" => $tags));
1444 function twitter_createpost($a, $uid, $post, $self, $create_user, $only_existing_contact) {
1446 $has_picture = false;
1448 $postarray = array();
1449 $postarray['network'] = NETWORK_TWITTER;
1450 $postarray['gravity'] = 0;
1451 $postarray['uid'] = $uid;
1452 $postarray['wall'] = 0;
1453 $postarray['uri'] = "twitter::".$post->id_str;
1455 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1456 dbesc($postarray['uri']),
1465 if ($post->in_reply_to_status_id_str != "") {
1467 $parent = "twitter::".$post->in_reply_to_status_id_str;
1469 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1474 $postarray['thr-parent'] = $r[0]["uri"];
1475 $postarray['parent-uri'] = $r[0]["parent-uri"];
1477 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1482 $postarray['thr-parent'] = $r[0]['uri'];
1483 $postarray['parent-uri'] = $r[0]['parent-uri'];
1485 $postarray['thr-parent'] = $postarray['uri'];
1486 $postarray['parent-uri'] = $postarray['uri'];
1491 $own_id = get_pconfig($uid, 'twitter', 'own_id');
1493 if ($post->user->id_str == $own_id) {
1494 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1498 $contactid = $r[0]["id"];
1500 $postarray['owner-name'] = $r[0]["name"];
1501 $postarray['owner-link'] = $r[0]["url"];
1502 $postarray['owner-avatar'] = $r[0]["photo"];
1507 $postarray['parent-uri'] = $postarray['uri'];
1509 if ($contactid == 0) {
1510 $contactid = twitter_fetch_contact($uid, $post->user, $create_user);
1512 $postarray['owner-name'] = $post->user->name;
1513 $postarray['owner-link'] = "https://twitter.com/".$post->user->screen_name;
1514 $postarray['owner-avatar'] = $post->user->profile_image_url_https;
1517 if(($contactid == 0) AND !$only_existing_contact)
1518 $contactid = $self['id'];
1519 elseif ($contactid <= 0)
1522 $postarray['contact-id'] = $contactid;
1524 $postarray['verb'] = ACTIVITY_POST;
1525 $postarray['author-name'] = $postarray['owner-name'];
1526 $postarray['author-link'] = $postarray['owner-link'];
1527 $postarray['author-avatar'] = $postarray['owner-avatar'];
1528 $postarray['plink'] = "https://twitter.com/".$post->user->screen_name."/status/".$post->id_str;
1529 $postarray['app'] = strip_tags($post->source);
1531 if ($post->user->protected) {
1532 $postarray['private'] = 1;
1533 $postarray['allow_cid'] = '<' . $self['id'] . '>';
1536 $postarray['body'] = $post->text;
1539 if (is_array($post->entities->media)) {
1540 foreach($post->entities->media AS $media) {
1541 switch($media->type) {
1543 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1544 $has_picture = true;
1547 $postarray['body'] .= print_r($media, true);
1552 $converted = twitter_expand_entities($a, $postarray['body'], $post, false, $has_picture);
1553 $postarray['body'] = $converted["body"];
1554 $postarray['tag'] = $converted["tags"];
1556 $postarray['created'] = datetime_convert('UTC','UTC',$post->created_at);
1557 $postarray['edited'] = datetime_convert('UTC','UTC',$post->created_at);
1559 if (is_string($post->place->name))
1560 $postarray["location"] = $post->place->name;
1562 if (is_string($post->place->full_name))
1563 $postarray["location"] = $post->place->full_name;
1565 if (is_array($post->geo->coordinates))
1566 $postarray["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1568 if (is_array($post->coordinates->coordinates))
1569 $postarray["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1571 if (is_object($post->retweeted_status)) {
1573 $postarray['body'] = $post->retweeted_status->text;
1576 if (is_array($post->retweeted_status->entities->media)) {
1577 foreach($post->retweeted_status->entities->media AS $media) {
1578 switch($media->type) {
1580 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1581 $has_picture = true;
1584 $postarray['body'] .= print_r($media, true);
1589 $converted = twitter_expand_entities($a, $postarray['body'], $post->retweeted_status, false, $has_picture);
1590 $postarray['body'] = $converted["body"];
1591 $postarray['tag'] = $converted["tags"];
1593 twitter_fetch_contact($uid, $post->retweeted_status->user, false);
1595 // Deactivated at the moment, since there are problems with answers to retweets
1596 if (false AND !intval(get_config('system','wall-to-wall_share'))) {
1597 $postarray['body'] = "[share author='".$post->retweeted_status->user->name.
1598 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1599 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1600 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1602 $postarray['body'] .= "[/share]";
1604 // Let retweets look like wall-to-wall posts
1605 $postarray['author-name'] = $post->retweeted_status->user->name;
1606 $postarray['author-link'] = "https://twitter.com/".$post->retweeted_status->user->screen_name;
1607 $postarray['author-avatar'] = $post->retweeted_status->user->profile_image_url_https;
1608 //if (($post->retweeted_status->user->screen_name != "") AND ($post->retweeted_status->id_str != "")) {
1609 // $postarray['plink'] = "https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str;
1610 // $postarray['uri'] = "twitter::".$post->retweeted_status->id_str;
1618 function twitter_checknotification($a, $uid, $own_id, $top_item, $postarray) {
1620 $user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1",
1628 if (link_compare($user[0]["url"], $postarray['author-link']))
1631 $own_user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1633 dbesc("twitter::".$own_id)
1636 if(!count($own_user))
1639 // Is it me from twitter?
1640 if (link_compare($own_user[0]["url"], $postarray['author-link']))
1643 $myconv = q("SELECT `author-link`, `author-avatar`, `parent` FROM `item` WHERE `parent-uri` = '%s' AND `uid` = %d AND `parent` != 0 AND `deleted` = 0",
1644 dbesc($postarray['parent-uri']),
1648 if(count($myconv)) {
1650 foreach($myconv as $conv) {
1651 // now if we find a match, it means we're in this conversation
1653 if(!link_compare($conv['author-link'],$user[0]["url"]) AND !link_compare($conv['author-link'],$own_user[0]["url"]))
1656 require_once('include/enotify.php');
1658 $conv_parent = $conv['parent'];
1661 'type' => NOTIFY_COMMENT,
1662 'notify_flags' => $user[0]['notify-flags'],
1663 'language' => $user[0]['language'],
1664 'to_name' => $user[0]['username'],
1665 'to_email' => $user[0]['email'],
1666 'uid' => $user[0]['uid'],
1667 'item' => $postarray,
1668 'link' => $a->get_baseurl() . '/display/' . $user[0]['nickname'] . '/' . $top_item,
1669 'source_name' => $postarray['author-name'],
1670 'source_link' => $postarray['author-link'],
1671 'source_photo' => $postarray['author-avatar'],
1672 'verb' => ACTIVITY_POST,
1674 'parent' => $conv_parent,
1677 // only send one notification
1683 function twitter_fetchhometimeline($a, $uid) {
1684 $ckey = get_config('twitter', 'consumerkey');
1685 $csecret = get_config('twitter', 'consumersecret');
1686 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1687 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1688 $create_user = get_pconfig($uid, 'twitter', 'create_user');
1690 logger("twitter_fetchhometimeline: Fetching for user ".$uid, LOGGER_DEBUG);
1692 require_once('library/twitteroauth.php');
1693 require_once('include/items.php');
1695 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1697 $own_contact = twitter_fetch_own_contact($a, $uid);
1699 $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
1700 intval($own_contact),
1704 $own_id = $r[0]["nick"];
1706 logger("twitter_fetchhometimeline: Own twitter contact not found for user ".$uid, LOGGER_DEBUG);
1710 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1716 logger("twitter_fetchhometimeline: Own contact not found for user ".$uid, LOGGER_DEBUG);
1720 $u = q("SELECT * FROM user WHERE uid = %d LIMIT 1",
1723 logger("twitter_fetchhometimeline: Own user not found for user ".$uid, LOGGER_DEBUG);
1727 $parameters = array("exclude_replies" => false, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
1728 //$parameters["count"] = 200;
1731 // Fetching timeline
1732 $lastid = get_pconfig($uid, 'twitter', 'lasthometimelineid');
1734 $first_time = ($lastid == "");
1737 $parameters["since_id"] = $lastid;
1739 $items = $connection->get('statuses/home_timeline', $parameters);
1741 if (!is_array($items)) {
1742 logger("twitter_fetchhometimeline: Error fetching home timeline: ".print_r($items, true), LOGGER_DEBUG);
1746 $posts = array_reverse($items);
1748 logger("twitter_fetchhometimeline: Fetching timeline for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1750 if (count($posts)) {
1751 foreach ($posts as $post) {
1752 if ($post->id_str > $lastid)
1753 $lastid = $post->id_str;
1758 $postarray = twitter_createpost($a, $uid, $post, $self, $create_user, true);
1760 if (trim($postarray['body']) == "")
1763 $item = item_store($postarray);
1765 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted home timeline item '.$item);
1768 twitter_checknotification($a, $uid, $own_id, $item, $postarray);
1772 set_pconfig($uid, 'twitter', 'lasthometimelineid', $lastid);
1774 // Fetching mentions
1775 $lastid = get_pconfig($uid, 'twitter', 'lastmentionid');
1777 $first_time = ($lastid == "");
1780 $parameters["since_id"] = $lastid;
1782 $items = $connection->get('statuses/mentions_timeline', $parameters);
1784 if (!is_array($items)) {
1785 logger("twitter_fetchhometimeline: Error fetching mentions: ".print_r($items, true), LOGGER_DEBUG);
1789 $posts = array_reverse($items);
1791 logger("twitter_fetchhometimeline: Fetching mentions for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1793 if (count($posts)) {
1794 foreach ($posts as $post) {
1795 if ($post->id_str > $lastid)
1796 $lastid = $post->id_str;
1801 $postarray = twitter_createpost($a, $uid, $post, $self, false, false);
1803 if (trim($postarray['body']) == "")
1806 $item = item_store($postarray);
1808 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted mention timeline item '.$item);
1811 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1812 dbesc($postarray['uri']),
1816 $item = $r[0]['id'];
1820 require_once('include/enotify.php');
1822 'type' => NOTIFY_TAGSELF,
1823 'notify_flags' => $u[0]['notify-flags'],
1824 'language' => $u[0]['language'],
1825 'to_name' => $u[0]['username'],
1826 'to_email' => $u[0]['email'],
1827 'uid' => $u[0]['uid'],
1828 'item' => $postarray,
1829 'link' => $a->get_baseurl() . '/display/' . $u[0]['nickname'] . '/' . $item,
1830 'source_name' => $postarray['author-name'],
1831 'source_link' => $postarray['author-link'],
1832 'source_photo' => $postarray['author-avatar'],
1833 'verb' => ACTIVITY_TAG,
1840 set_pconfig($uid, 'twitter', 'lastmentionid', $lastid);
1843 function twitter_fetch_own_contact($a, $uid) {
1844 $ckey = get_config('twitter', 'consumerkey');
1845 $csecret = get_config('twitter', 'consumersecret');
1846 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1847 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1849 $own_id = get_pconfig($uid, 'twitter', 'own_id');
1853 if ($own_id == "") {
1854 require_once('library/twitteroauth.php');
1856 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1858 // Fetching user data
1859 $user = $connection->get('account/verify_credentials');
1861 set_pconfig($uid, 'twitter', 'own_id', $user->id_str);
1863 $contact_id = twitter_fetch_contact($uid, $user, true);
1866 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1867 intval($uid), dbesc("twitter::".$own_id));
1869 $contact_id = $r[0]["id"];
1871 del_pconfig($uid, 'twitter', 'own_id');
1875 return($contact_id);
1878 function twitter_is_retweet($a, $uid, $body) {
1879 $body = trim($body);
1881 // Skip if it isn't a pure repeated messages
1882 // Does it start with a share?
1883 if (strpos($body, "[share") > 0)
1886 // Does it end with a share?
1887 if (strlen($body) > (strrpos($body, "[/share]") + 8))
1890 $attributes = preg_replace("/\[share(.*?)\]\s?(.*?)\s?\[\/share\]\s?/ism","$1",$body);
1891 // Skip if there is no shared message in there
1892 if ($body == $attributes)
1896 preg_match("/link='(.*?)'/ism", $attributes, $matches);
1897 if ($matches[1] != "")
1898 $link = $matches[1];
1900 preg_match('/link="(.*?)"/ism', $attributes, $matches);
1901 if ($matches[1] != "")
1902 $link = $matches[1];
1904 $id = preg_replace("=https?://twitter.com/(.*)/status/(.*)=ism", "$2", $link);
1908 logger('twitter_is_retweet: Retweeting id '.$id.' for user '.$uid, LOGGER_DEBUG);
1910 $ckey = get_config('twitter', 'consumerkey');
1911 $csecret = get_config('twitter', 'consumersecret');
1912 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1913 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1915 require_once('library/twitteroauth.php');
1916 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1918 $result = $connection->post('statuses/retweet/'.$id);
1920 logger('twitter_is_retweet: result '.print_r($result, true), LOGGER_DEBUG);
1922 return(!isset($result->errors));