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');
173 if (isset($_POST['twitter-pin'])) {
174 // if the user supplied us with a PIN from Twitter, let the magic of OAuth happen
175 logger('got a Twitter PIN');
176 require_once('library/twitteroauth.php');
177 $ckey = get_config('twitter', 'consumerkey');
178 $csecret = get_config('twitter', 'consumersecret');
179 // the token and secret for which the PIN was generated were hidden in the settings
180 // form as token and token2, we need a new connection to Twitter using these token
181 // and secret to request a Access Token with the PIN
182 $connection = new TwitterOAuth($ckey, $csecret, $_POST['twitter-token'], $_POST['twitter-token2']);
183 $token = $connection->getAccessToken( $_POST['twitter-pin'] );
184 // ok, now that we have the Access Token, save them in the user config
185 set_pconfig(local_user(),'twitter', 'oauthtoken', $token['oauth_token']);
186 set_pconfig(local_user(),'twitter', 'oauthsecret', $token['oauth_token_secret']);
187 set_pconfig(local_user(),'twitter', 'post', 1);
188 set_pconfig(local_user(),'twitter', 'post_taglinks', 1);
189 // reload the Addon Settings page, if we don't do it see Bug #42
190 goaway($a->get_baseurl().'/settings/connectors');
192 // if no PIN is supplied in the POST variables, the user has changed the setting
193 // to post a tweet for every new __public__ posting to the wall
194 set_pconfig(local_user(),'twitter','post',intval($_POST['twitter-enable']));
195 set_pconfig(local_user(),'twitter','post_by_default',intval($_POST['twitter-default']));
196 set_pconfig(local_user(),'twitter','post_taglinks',intval($_POST['twitter-sendtaglinks']));
197 set_pconfig(local_user(), 'twitter', 'mirror_posts', intval($_POST['twitter-mirror']));
198 set_pconfig(local_user(), 'twitter', 'intelligent_shortening', intval($_POST['twitter-shortening']));
199 set_pconfig(local_user(), 'twitter', 'import', intval($_POST['twitter-import']));
200 set_pconfig(local_user(), 'twitter', 'create_user', intval($_POST['twitter-create_user']));
201 info( t('Twitter settings updated.') . EOL);
204 function twitter_settings(&$a,&$s) {
207 $a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->get_baseurl() . '/addon/twitter/twitter.css' . '" media="all" />' . "\r\n";
209 * 1) Check that we have global consumer key & secret
210 * 2) If no OAuthtoken & stuff is present, generate button to get some
211 * 3) Checkbox for "Send public notices (140 chars only)
213 $ckey = get_config('twitter', 'consumerkey' );
214 $csecret = get_config('twitter', 'consumersecret' );
215 $otoken = get_pconfig(local_user(), 'twitter', 'oauthtoken' );
216 $osecret = get_pconfig(local_user(), 'twitter', 'oauthsecret' );
217 $enabled = get_pconfig(local_user(), 'twitter', 'post');
218 $checked = (($enabled) ? ' checked="checked" ' : '');
219 $defenabled = get_pconfig(local_user(),'twitter','post_by_default');
220 $defchecked = (($defenabled) ? ' checked="checked" ' : '');
221 $linksenabled = get_pconfig(local_user(),'twitter','post_taglinks');
222 $linkschecked = (($linksenabled) ? ' checked="checked" ' : '');
223 $mirrorenabled = get_pconfig(local_user(),'twitter','mirror_posts');
224 $mirrorchecked = (($mirrorenabled) ? ' checked="checked" ' : '');
225 $shorteningenabled = get_pconfig(local_user(),'twitter','intelligent_shortening');
226 $shorteningchecked = (($shorteningenabled) ? ' checked="checked" ' : '');
227 $importenabled = get_pconfig(local_user(),'twitter','import');
228 $importchecked = (($importenabled) ? ' checked="checked" ' : '');
229 $create_userenabled = get_pconfig(local_user(),'twitter','create_user');
230 $create_userchecked = (($create_userenabled) ? ' checked="checked" ' : '');
232 $s .= '<span id="settings_twitter_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
233 $s .= '<h3>'. t('Twitter Settings') .'</h3>';
235 $s .= '<div id="settings_twitter_expanded" class="settings-block" style="display: none;">';
236 $s .= '<span class="fakelink" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
237 $s .= '<h3>'. t('Twitter Settings') .'</h3>';
240 if ( (!$ckey) && (!$csecret) ) {
242 * no global consumer keys
243 * display warning and skip personal config
245 $s .= '<p>'. t('No consumer key pair for Twitter found. Please contact your site administrator.') .'</p>';
248 * ok we have a consumer key pair now look into the OAuth stuff
250 if ( (!$otoken) && (!$osecret) ) {
252 * the user has not yet connected the account to twitter...
253 * get a temporary OAuth key/secret pair and display a button with
254 * which the user can request a PIN to connect the account to a
255 * account at Twitter.
257 require_once('library/twitteroauth.php');
258 $connection = new TwitterOAuth($ckey, $csecret);
259 $request_token = $connection->getRequestToken();
260 $token = $request_token['oauth_token'];
262 * make some nice form
264 $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>';
265 $s .= '<a href="'.$connection->getAuthorizeURL($token).'" target="_twitter"><img src="addon/twitter/lighter.png" alt="'.t('Log in with Twitter').'"></a>';
266 $s .= '<div id="twitter-pin-wrapper">';
267 $s .= '<label id="twitter-pin-label" for="twitter-pin">'. t('Copy the PIN from Twitter here') .'</label>';
268 $s .= '<input id="twitter-pin" type="text" name="twitter-pin" />';
269 $s .= '<input id="twitter-token" type="hidden" name="twitter-token" value="'.$token.'" />';
270 $s .= '<input id="twitter-token2" type="hidden" name="twitter-token2" value="'.$request_token['oauth_token_secret'].'" />';
271 $s .= '</div><div class="clear"></div>';
272 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Submit') . '" /></div>';
275 * we have an OAuth key / secret pair for the user
276 * so let's give a chance to disable the postings to Twitter
278 require_once('library/twitteroauth.php');
279 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
280 $details = $connection->get('account/verify_credentials');
281 $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>';
282 $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>';
283 if ($a->user['hidewall']) {
284 $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>';
286 $s .= '<div id="twitter-enable-wrapper">';
287 $s .= '<label id="twitter-enable-label" for="twitter-checkbox">'. t('Allow posting to Twitter'). '</label>';
288 $s .= '<input id="twitter-checkbox" type="checkbox" name="twitter-enable" value="1" ' . $checked . '/>';
289 $s .= '<div class="clear"></div>';
290 $s .= '<label id="twitter-default-label" for="twitter-default">'. t('Send public postings to Twitter by default') .'</label>';
291 $s .= '<input id="twitter-default" type="checkbox" name="twitter-default" value="1" ' . $defchecked . '/>';
292 $s .= '<div class="clear"></div>';
294 $s .= '<label id="twitter-mirror-label" for="twitter-mirror">'.t('Mirror all posts from twitter that are no replies').'</label>';
295 $s .= '<input id="twitter-mirror" type="checkbox" name="twitter-mirror" value="1" '. $mirrorchecked . '/>';
296 $s .= '<div class="clear"></div>';
298 $s .= '<label id="twitter-shortening-label" for="twitter-shortening">'.t('Shortening method that optimizes the tweet').'</label>';
299 $s .= '<input id="twitter-shortening" type="checkbox" name="twitter-shortening" value="1" '. $shorteningchecked . '/>';
300 $s .= '<div class="clear"></div>';
302 $s .= '<label id="twitter-sendtaglinks-label" for="twitter-sendtaglinks">'.t('Send linked #-tags and @-names to Twitter').'</label>';
303 $s .= '<input id="twitter-sendtaglinks" type="checkbox" name="twitter-sendtaglinks" value="1" '. $linkschecked . '/>';
304 $s .= '</div><div class="clear"></div>';
306 $s .= '<label id="twitter-import-label" for="twitter-import">'.t('Import the remote timeline').'</label>';
307 $s .= '<input id="twitter-import" type="checkbox" name="twitter-import" value="1" '. $importchecked . '/>';
308 $s .= '<div class="clear"></div>';
310 $s .= '<label id="twitter-create_user-label" for="twitter-create_user">'.t('Automatically create contacts').'</label>';
311 $s .= '<input id="twitter-create_user" type="checkbox" name="twitter-create_user" value="1" '. $create_userchecked . '/>';
312 $s .= '<div class="clear"></div>';
314 $s .= '<div id="twitter-disconnect-wrapper">';
315 $s .= '<label id="twitter-disconnect-label" for="twitter-disconnect">'. t('Clear OAuth configuration') .'</label>';
316 $s .= '<input id="twitter-disconnect" type="checkbox" name="twitter-disconnect" value="1" />';
317 $s .= '</div><div class="clear"></div>';
318 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Submit') . '" /></div>';
321 $s .= '</div><div class="clear"></div>';
325 function twitter_post_local(&$a,&$b) {
330 if((local_user()) && (local_user() == $b['uid']) && (! $b['private']) && (! $b['parent']) ) {
332 $twitter_post = intval(get_pconfig(local_user(),'twitter','post'));
333 $twitter_enable = (($twitter_post && x($_REQUEST,'twitter_enable')) ? intval($_REQUEST['twitter_enable']) : 0);
335 // if API is used, default to the chosen settings
336 if($_REQUEST['api_source'] && intval(get_pconfig(local_user(),'twitter','post_by_default')))
339 if(! $twitter_enable)
342 if(strlen($b['postopts']))
343 $b['postopts'] .= ',';
344 $b['postopts'] .= 'twitter';
348 if (! function_exists('short_link')) {
349 function short_link ($url) {
350 require_once('library/slinky.php');
351 $slinky = new Slinky( $url );
352 $yourls_url = get_config('yourls','url1');
354 $yourls_username = get_config('yourls','username1');
355 $yourls_password = get_config('yourls', 'password1');
356 $yourls_ssl = get_config('yourls', 'ssl1');
357 $yourls = new Slinky_YourLS();
358 $yourls->set( 'username', $yourls_username );
359 $yourls->set( 'password', $yourls_password );
360 $yourls->set( 'ssl', $yourls_ssl );
361 $yourls->set( 'yourls-url', $yourls_url );
362 $slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
365 // setup a cascade of shortening services
366 // try to get a short link from these services
367 // in the order ur1.ca, trim, id.gd, tinyurl
368 $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
370 return $slinky->short();
373 function twitter_shortenmsg($b, $shortlink = false) {
374 require_once("include/bbcode.php");
375 require_once("include/html2plain.php");
379 // Looking for the first image
381 if(preg_match("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/is",$b['body'],$matches))
382 $image = $matches[3];
385 if(preg_match("/\[img\](.*?)\[\/img\]/is",$b['body'],$matches))
386 $image = $matches[1];
388 $multipleimages = (strpos($b['body'], "[img") != strrpos($b['body'], "[img"));
390 // When saved into the database the content is sent through htmlspecialchars
391 // That means that we have to decode all image-urls
392 $image = htmlspecialchars_decode($image);
395 if ($b["title"] != "")
396 $body = $b["title"]."\n\n".$body;
398 if (strpos($body, "[bookmark") !== false) {
399 // splitting the text in two parts:
400 // before and after the bookmark
401 $pos = strpos($body, "[bookmark");
402 $body1 = substr($body, 0, $pos);
403 $body2 = substr($body, $pos);
405 // Removing all quotes after the bookmark
406 // they are mostly only the content after the bookmark.
407 $body2 = preg_replace("/\[quote\=([^\]]*)\](.*?)\[\/quote\]/ism",'',$body2);
408 $body2 = preg_replace("/\[quote\](.*?)\[\/quote\]/ism",'',$body2);
409 $body = $body1.$body2;
412 // Add some newlines so that the message could be cut better
413 $body = str_replace(array("[quote", "[bookmark", "[/bookmark]", "[/quote]"),
414 array("\n[quote", "\n[bookmark", "[/bookmark]\n", "[/quote]\n"), $body);
416 // remove the recycle signs and the names since they aren't helpful on twitter
418 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
419 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
421 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
422 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
424 // remove the share element
425 //$body = preg_replace("/\[share(.*?)\](.*?)\[\/share\]/ism","\n\n$2\n\n",$body);
427 // At first convert the text to html
428 $html = bbcode($body, false, false, 2);
430 // Then convert it to plain text
431 $msg = trim(html2plain($html, 0, true));
432 $msg = html_entity_decode($msg,ENT_QUOTES,'UTF-8');
434 // Removing multiple newlines
435 while (strpos($msg, "\n\n\n") !== false)
436 $msg = str_replace("\n\n\n", "\n\n", $msg);
438 // Removing multiple spaces
439 while (strpos($msg, " ") !== false)
440 $msg = str_replace(" ", " ", $msg);
442 $origmsg = trim($msg);
445 $msg = preg_replace('/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', "", $msg);
450 // look for bookmark-bbcode and handle it with priority
451 if(preg_match("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/is",$b['body'],$matches))
454 $multiplelinks = (strpos($b['body'], "[bookmark") != strrpos($b['body'], "[bookmark"));
456 // If there is no bookmark element then take the first link
458 $links = collecturls($html);
460 foreach($links AS $singlelink) {
461 $img_str = fetch_url($singlelink);
463 $tempfile = tempnam(get_config("system","temppath"), "cache");
464 file_put_contents($tempfile, $img_str);
465 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
468 if (substr($mime, 0, 6) == "image/") {
469 $image = $singlelink;
470 unset($links[$singlelink]);
474 if (sizeof($links) > 0) {
476 $link = current($links);
478 $multiplelinks = (sizeof($links) > 1);
483 $msglink = $b["plink"];
484 else if ($link != "")
486 else if ($multipleimages)
487 $msglink = $b["plink"];
488 else if ($image != "")
491 if (($msglink == "") and strlen($msg) > $max_char)
492 $msglink = $b["plink"];
494 // If the message is short enough then don't modify it.
495 if ((strlen($origmsg) <= $max_char) AND ($msglink == ""))
496 return(array("msg"=>$origmsg, "image"=>""));
498 // If the message is short enough and contains a picture then post the picture as well
499 if ((strlen($origmsg) <= ($max_char - 23)) AND strpos($origmsg, $msglink))
500 return(array("msg"=>$origmsg, "image"=>$image));
502 // If the message is short enough and the link exists in the original message don't modify it as well
503 // -3 because of the bad shortener of twitter
504 if ((strlen($origmsg) <= ($max_char - 3)) AND strpos($origmsg, $msglink))
505 return(array("msg"=>$origmsg, "image"=>""));
507 // Preserve the unshortened link
508 $orig_link = $msglink;
510 // Just replace the message link with a 22 character long string
511 // Twitter calculates with this length
512 if (trim($msglink) <> '')
513 $msglink = "1234567890123456789012";
515 if (strlen(trim($msg." ".$msglink)) > ($max_char)) {
516 $msg = substr($msg, 0, ($max_char) - (strlen($msglink)));
517 $lastchar = substr($msg, -1);
518 $msg = substr($msg, 0, -1);
519 $pos = strrpos($msg, "\n");
521 $msg = substr($msg, 0, $pos);
522 else if ($lastchar != "\n")
523 $msg = substr($msg, 0, -3)."...";
525 // if the post contains a picture and a link then the system tries to cut the post earlier.
526 // So the link and the picture can be posted.
527 if (($image != "") AND ($orig_link != $image)) {
528 $msg2 = substr($msg, 0, ($max_char - 20) - (strlen($msglink)));
529 $lastchar = substr($msg2, -1);
530 $msg2 = substr($msg2, 0, -1);
531 $pos = strrpos($msg2, "\n");
533 $msg = substr($msg2, 0, $pos);
534 else if ($lastchar == "\n")
539 // Removing multiple spaces - again
540 while (strpos($msg, " ") !== false)
541 $msg = str_replace(" ", " ", $msg);
545 // Removing multiple newlines
546 //while (strpos($msg, "\n\n") !== false)
547 // $msg = str_replace("\n\n", "\n", $msg);
549 // Looking if the link points to an image
550 $img_str = fetch_url($orig_link);
552 $tempfile = tempnam(get_config("system","temppath"), "cache");
553 file_put_contents($tempfile, $img_str);
554 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
557 if (($image == $orig_link) OR (substr($mime, 0, 6) == "image/"))
558 return(array("msg"=>$msg, "image"=>$orig_link));
559 else if (($image != $orig_link) AND ($image != "") AND (strlen($msg." ".$msglink) <= ($max_char - 23))) {
561 $orig_link = short_link($orig_link);
563 return(array("msg"=>$msg." ".$orig_link, "image"=>$image));
566 $orig_link = short_link($orig_link);
568 return(array("msg"=>$msg." ".$orig_link, "image"=>""));
572 function twitter_action($a, $uid, $pid, $action) {
574 $ckey = get_config('twitter', 'consumerkey');
575 $csecret = get_config('twitter', 'consumersecret');
576 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
577 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
579 require_once("addon/twitter/codebird.php");
581 $cb = \Codebird\Codebird::getInstance();
582 $cb->setConsumerKey($ckey, $csecret);
583 $cb->setToken($otoken, $osecret);
585 $post = array('id' => $pid);
587 logger("twitter_action '".$action."' ID: ".$pid." data: " . print_r($post, true), LOGGER_DATA);
591 $result = $cb->statuses_destroy($post);
594 $result = $cb->favorites_create($post);
597 $result = $cb->favorites_destroy($post);
600 logger("twitter_action '".$action."' send, result: " . print_r($result, true), LOGGER_DEBUG);
603 function twitter_post_hook(&$a,&$b) {
609 if (!get_pconfig($b["uid"],'twitter','import')) {
610 if($b['deleted'] || $b['private'] || ($b['created'] !== $b['edited']))
614 if($b['parent'] != $b['id']) {
615 logger("twitter_post_hook: parameter ".print_r($b, true), LOGGER_DATA);
617 // Looking if its a reply to a twitter post
618 if ((substr($b["parent-uri"], 0, 9) != "twitter::") AND (substr($b["extid"], 0, 9) != "twitter::") AND (substr($b["thr-parent"], 0, 9) != "twitter::")) {
619 logger("twitter_post_hook: no twitter post ".$b["parent"]);
623 $r = q("SELECT * FROM item WHERE item.uri = '%s' AND item.uid = %d LIMIT 1",
624 dbesc($b["thr-parent"]),
628 logger("twitter_post_hook: no parent found ".$b["thr-parent"]);
635 // To-Do: Ab dem letzten / nehmen
636 $b["body"] = "@".substr($orig_post["author-link"], 20)." ".$b["body"];
638 logger("twitter_post_hook: parent found ".print_r($orig_post, true), LOGGER_DATA);
642 if($b['private'] OR !strstr($b['postopts'],'twitter'))
646 if (($b['verb'] == ACTIVITY_POST) AND $b['deleted'])
647 twitter_action($a, $b["uid"], substr($orig_post["uri"], 9), "delete");
649 if($b['verb'] == ACTIVITY_LIKE) {
650 logger("twitter_post_hook: parameter 2 ".substr($b["thr-parent"], 9), LOGGER_DEBUG);
652 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "unlike");
654 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "like");
658 if($b['deleted'] || ($b['created'] !== $b['edited']))
661 // if post comes from twitter don't send it back
662 if($b['app'] == "Twitter")
665 logger('twitter post invoked');
668 load_pconfig($b['uid'], 'twitter');
670 $ckey = get_config('twitter', 'consumerkey');
671 $csecret = get_config('twitter', 'consumersecret');
672 $otoken = get_pconfig($b['uid'], 'twitter', 'oauthtoken');
673 $osecret = get_pconfig($b['uid'], 'twitter', 'oauthsecret');
674 $intelligent_shortening = get_pconfig($b['uid'], 'twitter', 'intelligent_shortening');
676 // Global setting overrides this
677 if (get_config('twitter','intelligent_shortening'))
678 $intelligent_shortening = get_config('twitter','intelligent_shortening');
680 if($ckey && $csecret && $otoken && $osecret) {
681 logger('twitter: we have customer key and oauth stuff, going to send.', LOGGER_DEBUG);
683 require_once('library/twitteroauth.php');
684 require_once('include/bbcode.php');
685 $tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
686 // in theory max char is 140 but T. uses t.co to make links
687 // longer so we give them 10 characters extra
688 if (!$intelligent_shortening) {
689 $max_char = 130; // max. length for a tweet
690 // we will only work with up to two times the length of the dent
691 // we can later send to Twitter. This way we can "gain" some
692 // information during shortening of potential links but do not
693 // shorten all the links in a 200000 character long essay.
694 if (! $b['title']=='') {
695 $tmp = $b['title'] . ' : '. $b['body'];
696 // $tmp = substr($tmp, 0, 4*$max_char);
698 $tmp = $b['body']; // substr($b['body'], 0, 3*$max_char);
700 // if [url=bla][img]blub.png[/img][/url] get blub.png
701 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\]\[img\](\\w+.*?)\\[\\/img\]\\[\\/url\]/i', '$2', $tmp);
702 // preserve links to images, videos and audios
703 $tmp = preg_replace( '/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism', '$3', $tmp);
704 $tmp = preg_replace( '/\[\\/?img(\\s+.*?\]|\])/i', '', $tmp);
705 $tmp = preg_replace( '/\[\\/?video(\\s+.*?\]|\])/i', '', $tmp);
706 $tmp = preg_replace( '/\[\\/?youtube(\\s+.*?\]|\])/i', '', $tmp);
707 $tmp = preg_replace( '/\[\\/?vimeo(\\s+.*?\]|\])/i', '', $tmp);
708 $tmp = preg_replace( '/\[\\/?audio(\\s+.*?\]|\])/i', '', $tmp);
709 $linksenabled = get_pconfig($b['uid'],'twitter','post_taglinks');
710 // if a #tag is linked, don't send the [url] over to SN
711 // that is, don't send if the option is not set in the
712 // connector settings
713 if ($linksenabled=='0') {
715 $tmp = preg_replace( '/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '#$2', $tmp);
717 $tmp = preg_replace( '/@\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '@$2', $tmp);
719 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
720 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
722 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
723 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
725 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/url\]/i', '$2 $1', $tmp);
726 $tmp = preg_replace( '/\[bookmark\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/bookmark\]/i', '$2 $1', $tmp);
727 // find all http or https links in the body of the entry and
728 // apply the shortener if the link is longer then 20 characters
729 if (( strlen($tmp)>$max_char ) && ( $max_char > 0 )) {
730 preg_match_all ( '/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', $tmp, $allurls );
731 foreach ($allurls as $url) {
732 foreach ($url as $u) {
734 $sl = short_link($u);
735 $tmp = str_replace( $u, $sl, $tmp );
740 // ok, all the links we want to send out are save, now strip
741 // away the remaining bbcode
742 //$msg = strip_tags(bbcode($tmp, false, false));
743 $msg = bbcode($tmp, false, false, true);
744 $msg = str_replace(array('<br>','<br />'),"\n",$msg);
745 $msg = strip_tags($msg);
747 // quotes not working - let's try this
748 $msg = html_entity_decode($msg);
749 if (( strlen($msg) > $max_char) && $max_char > 0) {
750 $shortlink = short_link( $b['plink'] );
751 // the new message will be shortened such that "... $shortlink"
752 // will fit into the character limit
753 $msg = nl2br(substr($msg, 0, $max_char-strlen($shortlink)-4));
754 $msg = str_replace(array('<br>','<br />'),' ',$msg);
755 $e = explode(' ', $msg);
756 // remove the last word from the cut down message to
757 // avoid sending cut words to the MicroBlog
759 $msg = implode(' ', $e);
760 $msg .= '... ' . $shortlink;
766 $msgarr = twitter_shortenmsg($b);
767 $msg = $msgarr["msg"];
768 $image = $msgarr["image"];
770 // and now tweet it :-)
771 if(strlen($msg) and ($image != "")) {
772 $img_str = fetch_url($image);
774 $tempfile = tempnam(get_config("system","temppath"), "cache");
775 file_put_contents($tempfile, $img_str);
777 // Twitter had changed something so that the old library doesn't work anymore
778 // so we are using a new library for twitter
780 // Switching completely to this library with all functions
781 require_once("addon/twitter/codebird.php");
783 $cb = \Codebird\Codebird::getInstance();
784 $cb->setConsumerKey($ckey, $csecret);
785 $cb->setToken($otoken, $osecret);
787 $post = array('status' => $msg, 'media[]' => $tempfile);
790 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
792 $result = $cb->statuses_updateWithMedia($post);
797 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
800 $filename = "upload";
802 $result = $tweet->post('statuses/update_with_media', array('media[]' => "{$img_str};type=".$mime.";filename={$filename}" , 'status' => $msg));
805 logger('twitter_post_with_media send, result: ' . print_r($result, true), LOGGER_DEBUG);
806 if ($result->errors OR $result->error) {
807 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
809 // Workaround: Remove the picture link so that the post can be reposted without it
812 } elseif ($iscomment) {
813 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
814 q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
815 dbesc("twitter::".$result->id_str),
816 dbesc($result->text),
822 if(strlen($msg) and ($image == "")) {
823 $url = 'statuses/update';
824 $post = array('status' => $msg);
827 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
829 $result = $tweet->post($url, $post);
830 logger('twitter_post send, result: ' . print_r($result, true), LOGGER_DEBUG);
831 if ($result->errors) {
832 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
834 $r = q("SELECT `id` FROM `contact` WHERE `uid` = %d AND `self`", intval($b['uid']));
836 $a->contact = $r[0]["id"];
838 $s = serialize(array('url' => $url, 'item' => $b['id'], 'post' => $post));
839 require_once('include/queue_fn.php');
840 add_to_queue($a->contact,NETWORK_TWITTER,$s);
841 notice(t('Twitter post failed. Queued for retry.').EOL);
842 } elseif ($iscomment) {
843 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
844 q("UPDATE `item` SET `extid` = '%s' WHERE `id` = %d",
845 dbesc("twitter::".$result->id_str),
848 //q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
849 // dbesc("twitter::".$result->id_str),
850 // dbesc($result->text),
858 function twitter_plugin_admin_post(&$a){
859 $consumerkey = ((x($_POST,'consumerkey')) ? notags(trim($_POST['consumerkey'])) : '');
860 $consumersecret = ((x($_POST,'consumersecret')) ? notags(trim($_POST['consumersecret'])): '');
861 $applicationname = ((x($_POST, 'applicationname')) ? notags(trim($_POST['applicationname'])):'');
862 set_config('twitter','consumerkey',$consumerkey);
863 set_config('twitter','consumersecret',$consumersecret);
864 set_config('twitter','application_name',$applicationname);
865 info( t('Settings updated.'). EOL );
867 function twitter_plugin_admin(&$a, &$o){
868 $t = get_markup_template( "admin.tpl", "addon/twitter/" );
870 $o = replace_macros($t, array(
871 '$submit' => t('Submit'),
872 // name, label, value, help, [extra values]
873 '$consumerkey' => array('consumerkey', t('Consumer key'), get_config('twitter', 'consumerkey' ), ''),
874 '$consumersecret' => array('consumersecret', t('Consumer secret'), get_config('twitter', 'consumersecret' ), ''),
875 '$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'))
879 function twitter_cron($a,$b) {
880 $last = get_config('twitter','last_poll');
882 $poll_interval = intval(get_config('twitter','poll_interval'));
884 $poll_interval = TWITTER_DEFAULT_POLL_INTERVAL;
887 $next = $last + ($poll_interval * 60);
889 logger('twitter: poll intervall not reached');
893 logger('twitter: cron_start');
895 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'mirror_posts' AND `v` = '1' ORDER BY RAND()");
898 logger('twitter: fetching for user '.$rr['uid']);
899 twitter_fetchtimeline($a, $rr['uid']);
904 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'import' AND `v` = '1' ORDER BY RAND()");
907 logger('twitter: importing timeline from user '.$rr['uid']);
908 twitter_fetchhometimeline($a, $rr["uid"]);
912 // check for new contacts once a day
913 $last_contact_check = get_pconfig($rr['uid'],'pumpio','contact_check');
914 if($last_contact_check)
915 $next_contact_check = $last_contact_check + 86400;
917 $next_contact_check = 0;
919 if($next_contact_check <= time()) {
920 pumpio_getallusers($a, $rr["uid"]);
921 set_pconfig($rr['uid'],'pumpio','contact_check',time());
928 logger('twitter: cron_end');
930 set_config('twitter','last_poll', time());
933 function twitter_fetchtimeline($a, $uid) {
934 $ckey = get_config('twitter', 'consumerkey');
935 $csecret = get_config('twitter', 'consumersecret');
936 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
937 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
938 $lastid = get_pconfig($uid, 'twitter', 'lastid');
940 $application_name = get_config('twitter', 'application_name');
942 if ($application_name == "")
943 $application_name = $a->get_hostname();
945 $has_picture = false;
947 require_once('mod/item.php');
949 require_once('library/twitteroauth.php');
950 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
952 $parameters = array("exclude_replies" => true, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
954 $first_time = ($lastid == "");
957 $parameters["since_id"] = $lastid;
959 $items = $connection->get('statuses/user_timeline', $parameters);
961 if (!is_array($items))
964 $posts = array_reverse($items);
967 foreach ($posts as $post) {
968 if ($post->id_str > $lastid)
969 $lastid = $post->id_str;
974 if (!strpos($post->source, $application_name)) {
975 $_SESSION["authenticated"] = true;
976 $_SESSION["uid"] = $uid;
979 $_REQUEST["type"] = "wall";
980 $_REQUEST["api_source"] = true;
981 $_REQUEST["profile_uid"] = $uid;
982 $_REQUEST["source"] = "Twitter";
984 //$_REQUEST["date"] = $post->created_at;
986 $_REQUEST["title"] = "";
988 if (is_object($post->retweeted_status)) {
990 $_REQUEST['body'] = $post->retweeted_status->text;
993 if (is_array($post->retweeted_status->entities->media)) {
994 foreach($post->retweeted_status->entities->media AS $media) {
995 switch($media->type) {
997 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1004 $converted = twitter_convertmsg($a, $_REQUEST['body'], true, $has_picture);
1005 $_REQUEST['body'] = $converted["body"];
1007 $_REQUEST['body'] = "[share author='".$post->retweeted_status->user->name.
1008 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1009 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1010 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1012 $_REQUEST['body'] .= "[/share]";
1014 $_REQUEST["body"] = $post->text;
1016 if (is_array($post->entities->media)) {
1017 foreach($post->entities->media AS $media) {
1018 switch($media->type) {
1020 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1021 $has_picture = true;
1027 $converted = twitter_convertmsg($a, $_REQUEST["body"], true, $has_picture);
1028 $_REQUEST['body'] = $converted["body"];
1031 if (is_string($post->place->name))
1032 $_REQUEST["location"] = $post->place->name;
1034 if (is_string($post->place->full_name))
1035 $_REQUEST["location"] = $post->place->full_name;
1037 if (is_array($post->geo->coordinates))
1038 $_REQUEST["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1040 if (is_array($post->coordinates->coordinates))
1041 $_REQUEST["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1043 //print_r($_REQUEST);
1044 logger('twitter: posting for user '.$uid);
1046 // require_once('mod/item.php');
1052 set_pconfig($uid, 'twitter', 'lastid', $lastid);
1055 function twitter_queue_hook(&$a,&$b) {
1057 $qi = q("SELECT * FROM `queue` WHERE `network` = '%s'",
1058 dbesc(NETWORK_TWITTER)
1063 require_once('include/queue_fn.php');
1065 foreach($qi as $x) {
1066 if($x['network'] !== NETWORK_TWITTER)
1069 logger('twitter_queue: run');
1071 $r = q("SELECT `user`.* FROM `user` LEFT JOIN `contact` on `contact`.`uid` = `user`.`uid`
1072 WHERE `contact`.`self` = 1 AND `contact`.`id` = %d LIMIT 1",
1080 $ckey = get_config('twitter', 'consumerkey');
1081 $csecret = get_config('twitter', 'consumersecret');
1082 $otoken = get_pconfig($user['uid'], 'twitter', 'oauthtoken');
1083 $osecret = get_pconfig($user['uid'], 'twitter', 'oauthsecret');
1087 if ($ckey AND $csecret AND $otoken AND $osecret) {
1089 logger('twitter_queue: able to post');
1091 $z = unserialize($x['content']);
1093 require_once("addon/twitter/codebird.php");
1095 $cb = \Codebird\Codebird::getInstance();
1096 $cb->setConsumerKey($ckey, $csecret);
1097 $cb->setToken($otoken, $osecret);
1099 if ($z['url'] == "statuses/update")
1100 $result = $cb->statuses_update($z['post']);
1102 logger('twitter_queue: post result: ' . print_r($result, true), LOGGER_DEBUG);
1104 if ($result->errors)
1105 logger('twitter_queue: Send to Twitter failed: "' . print_r($result->errors, true) . '"');
1108 remove_queue_item($x['id']);
1111 logger("twitter_queue: Error getting tokens for user ".$user['uid']);
1114 logger('twitter_queue: delayed');
1115 update_queue_time($x['id']);
1120 function twitter_fetch_contact($uid, $contact, $create_user) {
1122 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1123 intval($uid), dbesc("twitter::".$contact->id_str));
1125 if(!count($r) AND !$create_user)
1128 if (count($r) AND ($r[0]["readonly"] OR $r[0]["blocked"])) {
1129 logger("twitter_fetch_contact: Contact '".$r[0]["nick"]."' is blocked or readonly.", LOGGER_DEBUG);
1134 // create contact record
1135 q("INSERT INTO `contact` ( `uid`, `created`, `url`, `nurl`, `addr`, `alias`, `notify`, `poll`,
1136 `name`, `nick`, `photo`, `network`, `rel`, `priority`,
1137 `writable`, `blocked`, `readonly`, `pending` )
1138 VALUES ( %d, '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', %d, %d, %d, 0, 0, 0 ) ",
1140 dbesc(datetime_convert()),
1141 dbesc("https://twitter.com/".$contact->screen_name),
1142 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1143 dbesc($contact->screen_name."@twitter.com"),
1144 dbesc("twitter::".$contact->id_str),
1146 dbesc("twitter::".$contact->id_str),
1147 dbesc($contact->name),
1148 dbesc($contact->screen_name),
1149 dbesc($contact->profile_image_url_https),
1150 dbesc(NETWORK_TWITTER),
1151 intval(CONTACT_IS_FRIEND),
1156 $r = q("SELECT * FROM `contact` WHERE `alias` = '%s' AND `uid` = %d LIMIT 1",
1157 dbesc("twitter::".$contact->id_str),
1164 $contact_id = $r[0]['id'];
1166 $g = q("SELECT def_gid FROM user WHERE uid = %d LIMIT 1",
1170 if($g && intval($g[0]['def_gid'])) {
1171 require_once('include/group.php');
1172 group_add_member($uid,'',$contact_id,$g[0]['def_gid']);
1175 require_once("Photo.php");
1177 $photos = import_profile_photo($contact->profile_image_url_https,$uid,$contact_id);
1179 q("UPDATE `contact` SET `photo` = '%s',
1184 `avatar-date` = '%s'
1189 dbesc(datetime_convert()),
1190 dbesc(datetime_convert()),
1191 dbesc(datetime_convert()),
1195 // update profile photos once every two weeks as we have no notification of when they change.
1197 //$update_photo = (($r[0]['avatar-date'] < datetime_convert('','','now -2 days')) ? true : false);
1198 $update_photo = ($r[0]['avatar-date'] < datetime_convert('','','now -12 hours'));
1200 // check that we have all the photos, this has been known to fail on occasion
1202 if((! $r[0]['photo']) || (! $r[0]['thumb']) || (! $r[0]['micro']) || ($update_photo)) {
1204 logger("twitter_fetch_contact: Updating contact ".$contact->screen_name, LOGGER_DEBUG);
1206 require_once("Photo.php");
1208 $photos = import_profile_photo($contact->profile_image_url_https, $uid, $r[0]['id']);
1210 q("UPDATE `contact` SET `photo` = '%s',
1215 `avatar-date` = '%s',
1225 dbesc(datetime_convert()),
1226 dbesc(datetime_convert()),
1227 dbesc(datetime_convert()),
1228 dbesc("https://twitter.com/".$contact->screen_name),
1229 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1230 dbesc($contact->screen_name."@twitter.com"),
1231 dbesc($contact->name),
1232 dbesc($contact->screen_name),
1238 return($r[0]["id"]);
1241 function twitter_fetchuser($a, $uid, $screen_name = "", $user_id = "") {
1242 $ckey = get_config('twitter', 'consumerkey');
1243 $csecret = get_config('twitter', 'consumersecret');
1244 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1245 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1247 require_once("addon/twitter/codebird.php");
1249 $cb = \Codebird\Codebird::getInstance();
1250 $cb->setConsumerKey($ckey, $csecret);
1251 $cb->setToken($otoken, $osecret);
1253 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1261 $parameters = array();
1263 if ($screen_name != "")
1264 $parameters["screen_name"] = $screen_name;
1267 $parameters["user_id"] = $user_id;
1269 // Fetching user data
1270 $user = $cb->users_show($parameters);
1272 if (!is_object($user))
1275 $contact_id = twitter_fetch_contact($uid, $user, true);
1280 function twitter_createpost($a, $uid, $post, $self, $create_user, $only_existing_contact) {
1282 $has_picture = false;
1284 $postarray = array();
1285 $postarray['gravity'] = 0;
1286 $postarray['uid'] = $uid;
1287 $postarray['wall'] = 0;
1288 $postarray['uri'] = "twitter::".$post->id_str;
1290 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1291 dbesc($postarray['uri']),
1300 if ($post->in_reply_to_status_id_str != "") {
1302 $parent = "twitter::".$post->in_reply_to_status_id_str;
1304 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1309 $postarray['thr-parent'] = $r[0]["uri"];
1310 $postarray['parent-uri'] = $r[0]["parent-uri"];
1312 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1317 $postarray['thr-parent'] = $r[0]['uri'];
1318 $postarray['parent-uri'] = $r[0]['parent-uri'];
1320 $postarray['thr-parent'] = $postarray['uri'];
1321 $postarray['parent-uri'] = $postarray['uri'];
1326 $own_id = get_pconfig($uid, 'twitter', 'own_id');
1328 if ($post->user->id_str == $own_id) {
1329 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1333 $contactid = $r[0]["id"];
1335 $postarray['owner-name'] = $r[0]["name"];
1336 $postarray['owner-link'] = $r[0]["url"];
1337 $postarray['owner-avatar'] = $r[0]["photo"];
1342 $postarray['parent-uri'] = $postarray['uri'];
1344 if ($contactid == 0) {
1345 $contactid = twitter_fetch_contact($uid, $post->user, $create_user);
1347 $postarray['owner-name'] = $post->user->name;
1348 $postarray['owner-link'] = "https://twitter.com/".$post->user->screen_name;
1349 $postarray['owner-avatar'] = $post->user->profile_image_url_https;
1352 if(($contactid == 0) AND !$only_existing_contact)
1353 $contactid = $self['id'];
1354 elseif ($contactid <= 0)
1357 $postarray['contact-id'] = $contactid;
1359 $postarray['verb'] = ACTIVITY_POST;
1360 $postarray['author-name'] = $postarray['owner-name'];
1361 $postarray['author-link'] = $postarray['owner-link'];
1362 $postarray['author-avatar'] = $postarray['owner-avatar'];
1363 $postarray['plink'] = "https://twitter.com/".$post->user->screen_name."/status/".$post->id_str;
1364 $postarray['app'] = strip_tags($post->source);
1366 if ($post->user->protected) {
1367 $postarray['private'] = 1;
1368 $postarray['allow_cid'] = '<' . $self['id'] . '>';
1371 $postarray['body'] = $post->text;
1374 if (is_array($post->entities->media)) {
1375 foreach($post->entities->media AS $media) {
1376 switch($media->type) {
1378 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1379 $has_picture = true;
1382 $postarray['body'] .= print_r($media, true);
1387 $converted = twitter_convertmsg($a, $postarray['body'], false, $has_picture);
1388 $postarray['body'] = $converted["body"];
1389 $postarray['tag'] = $converted["tags"];
1391 $postarray['created'] = datetime_convert('UTC','UTC',$post->created_at);
1392 $postarray['edited'] = datetime_convert('UTC','UTC',$post->created_at);
1394 if (is_string($post->place->name))
1395 $postarray["location"] = $post->place->name;
1397 if (is_string($post->place->full_name))
1398 $postarray["location"] = $post->place->full_name;
1400 if (is_array($post->geo->coordinates))
1401 $postarray["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1403 if (is_array($post->coordinates->coordinates))
1404 $postarray["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1406 if (is_object($post->retweeted_status)) {
1408 $postarray['body'] = $post->retweeted_status->text;
1411 if (is_array($post->retweeted_status->entities->media)) {
1412 foreach($post->retweeted_status->entities->media AS $media) {
1413 switch($media->type) {
1415 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1416 $has_picture = true;
1419 $postarray['body'] .= print_r($media, true);
1424 $converted = twitter_convertmsg($a, $postarray['body'], false, $has_picture);
1425 $postarray['body'] = $converted["body"];
1426 $postarray['tag'] = $converted["tags"];
1429 // Deactivated at the moment, since there are problems with answers to retweets
1430 if (false AND !intval(get_config('system','wall-to-wall_share'))) {
1431 $postarray['body'] = "[share author='".$post->retweeted_status->user->name.
1432 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1433 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1434 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1436 $postarray['body'] .= "[/share]";
1438 // Let retweets look like wall-to-wall posts
1439 $postarray['author-name'] = $post->retweeted_status->user->name;
1440 $postarray['author-link'] = "https://twitter.com/".$post->retweeted_status->user->screen_name;
1441 $postarray['author-avatar'] = $post->retweeted_status->user->profile_image_url_https;
1448 function twitter_checknotification($a, $uid, $own_id, $top_item, $postarray) {
1450 $user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1",
1458 if (link_compare($user[0]["url"], $postarray['author-link']))
1461 $own_user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1463 dbesc("twitter::".$own_id)
1466 if(!count($own_user))
1469 // Is it me from twitter?
1470 if (link_compare($own_user[0]["url"], $postarray['author-link']))
1473 $myconv = q("SELECT `author-link`, `author-avatar`, `parent` FROM `item` WHERE `parent-uri` = '%s' AND `uid` = %d AND `parent` != 0 AND `deleted` = 0",
1474 dbesc($postarray['parent-uri']),
1478 if(count($myconv)) {
1480 foreach($myconv as $conv) {
1481 // now if we find a match, it means we're in this conversation
1483 if(!link_compare($conv['author-link'],$user[0]["url"]) AND !link_compare($conv['author-link'],$own_user[0]["url"]))
1486 require_once('include/enotify.php');
1488 $conv_parent = $conv['parent'];
1491 'type' => NOTIFY_COMMENT,
1492 'notify_flags' => $user[0]['notify-flags'],
1493 'language' => $user[0]['language'],
1494 'to_name' => $user[0]['username'],
1495 'to_email' => $user[0]['email'],
1496 'uid' => $user[0]['uid'],
1497 'item' => $postarray,
1498 'link' => $a->get_baseurl() . '/display/' . $user[0]['nickname'] . '/' . $top_item,
1499 'source_name' => $postarray['author-name'],
1500 'source_link' => $postarray['author-link'],
1501 'source_photo' => $postarray['author-avatar'],
1502 'verb' => ACTIVITY_POST,
1504 'parent' => $conv_parent,
1507 // only send one notification
1513 function twitter_fetchhometimeline($a, $uid) {
1514 $ckey = get_config('twitter', 'consumerkey');
1515 $csecret = get_config('twitter', 'consumersecret');
1516 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1517 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1518 $create_user = get_pconfig($uid, 'twitter', 'create_user');
1520 logger("twitter_fetchhometimeline: Fetching for user ".$uid, LOGGER_DEBUG);
1522 require_once('library/twitteroauth.php');
1523 require_once('include/items.php');
1525 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1527 $own_contact = twitter_fetch_own_contact($a, $uid);
1529 $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
1530 intval($own_contact),
1534 $own_id = $r[0]["nick"];
1536 logger("twitter_fetchhometimeline: Own twitter contact not found for user ".$uid, LOGGER_DEBUG);
1540 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1546 logger("twitter_fetchhometimeline: Own contact not found for user ".$uid, LOGGER_DEBUG);
1550 $u = q("SELECT * FROM user WHERE uid = %d LIMIT 1",
1553 logger("twitter_fetchhometimeline: Own user not found for user ".$uid, LOGGER_DEBUG);
1557 $parameters = array("exclude_replies" => false, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
1558 //$parameters["count"] = 200;
1561 // Fetching timeline
1562 $lastid = get_pconfig($uid, 'twitter', 'lasthometimelineid');
1564 $first_time = ($lastid == "");
1567 $parameters["since_id"] = $lastid;
1569 $items = $connection->get('statuses/home_timeline', $parameters);
1571 if (!is_array($items)) {
1572 logger("twitter_fetchhometimeline: Error fetching home timeline: ".print_r($items, true), LOGGER_DEBUG);
1576 $posts = array_reverse($items);
1578 logger("twitter_fetchhometimeline: Fetching timeline for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1580 if (count($posts)) {
1581 foreach ($posts as $post) {
1582 if ($post->id_str > $lastid)
1583 $lastid = $post->id_str;
1588 $postarray = twitter_createpost($a, $uid, $post, $self, $create_user, true);
1590 if (trim($postarray['body']) == "")
1593 $item = item_store($postarray);
1595 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted home timeline item '.$item);
1598 twitter_checknotification($a, $uid, $own_id, $item, $postarray);
1602 set_pconfig($uid, 'twitter', 'lasthometimelineid', $lastid);
1604 // Fetching mentions
1605 $lastid = get_pconfig($uid, 'twitter', 'lastmentionid');
1607 $first_time = ($lastid == "");
1610 $parameters["since_id"] = $lastid;
1612 $items = $connection->get('statuses/mentions_timeline', $parameters);
1614 if (!is_array($items)) {
1615 logger("twitter_fetchhometimeline: Error fetching mentions: ".print_r($items, true), LOGGER_DEBUG);
1619 $posts = array_reverse($items);
1621 logger("twitter_fetchhometimeline: Fetching mentions for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1623 if (count($posts)) {
1624 foreach ($posts as $post) {
1625 if ($post->id_str > $lastid)
1626 $lastid = $post->id_str;
1631 $postarray = twitter_createpost($a, $uid, $post, $self, false, false);
1633 if (trim($postarray['body']) == "")
1636 $item = item_store($postarray);
1638 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted mention timeline item '.$item);
1641 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1642 dbesc($postarray['uri']),
1646 $item = $r[0]['id'];
1650 require_once('include/enotify.php');
1652 'type' => NOTIFY_TAGSELF,
1653 'notify_flags' => $u[0]['notify-flags'],
1654 'language' => $u[0]['language'],
1655 'to_name' => $u[0]['username'],
1656 'to_email' => $u[0]['email'],
1657 'uid' => $u[0]['uid'],
1658 'item' => $postarray,
1659 'link' => $a->get_baseurl() . '/display/' . $u[0]['nickname'] . '/' . $item,
1660 'source_name' => $postarray['author-name'],
1661 'source_link' => $postarray['author-link'],
1662 'source_photo' => $postarray['author-avatar'],
1663 'verb' => ACTIVITY_TAG,
1670 set_pconfig($uid, 'twitter', 'lastmentionid', $lastid);
1673 function twitter_original_url($url, $depth=1, $fetchbody = false) {
1677 $siteinfo = array();
1679 curl_setopt($ch, CURLOPT_URL, $url);
1680 curl_setopt($ch, CURLOPT_HEADER, 1);
1683 curl_setopt($ch, CURLOPT_NOBODY, 0);
1685 curl_setopt($ch, CURLOPT_NOBODY, 1);
1687 curl_setopt($ch, CURLOPT_TIMEOUT, 10);
1688 curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
1689 curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8; rv:24.0) Gecko/20100101 Firefox/24.0');
1691 $header = curl_exec($ch);
1692 $curl_info = @curl_getinfo($ch);
1693 $http_code = $curl_info['http_code'];
1696 if ((($curl_info['http_code'] == "301") OR ($curl_info['http_code'] == "302"))
1697 AND (($curl_info['redirect_url'] != "") OR ($curl_info['location'] != ""))) {
1698 if ($curl_info['redirect_url'] != "")
1699 return(twitter_original_url($curl_info['redirect_url'], ++$depth, $fetchbody));
1701 return(twitter_original_url($curl_info['location'], ++$depth, $fetchbody));
1704 $pos = strpos($header, "\r\n\r\n");
1707 $body = trim(substr($header, $pos));
1711 if (trim($body) == "")
1712 return(twitter_original_url($url, ++$depth, true));
1714 $doc = new DOMDocument();
1715 @$doc->loadHTML($body);
1717 $xpath = new DomXPath($doc);
1719 $list = $xpath->query("//meta[@content]");
1720 foreach ($list as $node) {
1722 if ($node->attributes->length)
1723 foreach ($node->attributes as $attribute)
1724 $attr[$attribute->name] = $attribute->value;
1726 if (@$attr["http-equiv"] == 'refresh') {
1727 $path = $attr["content"];
1728 $pathinfo = explode(";", $path);
1730 foreach ($pathinfo AS $value)
1731 if (substr(strtolower($value), 0, 4) == "url=")
1732 return(twitter_original_url(substr($value, 4), ++$depth));
1739 function twitter_siteinfo($url, $dontincludemedia) {
1740 require_once("mod/parse_url.php");
1742 // Fetch site infos - but only from the meta data
1743 $data = parseurl_getsiteinfo($url, true);
1745 if ($dontincludemedia)
1746 unset($data["images"]);
1748 if (!is_string($data["text"]) AND (sizeof($data["images"]) == 0) AND ($data["title"] == $url))
1751 if (is_string($data["title"]))
1752 $text .= "[bookmark=".$url."]".trim($data["title"])."[/bookmark]\n";
1754 // Add a spoiler to the extra information
1755 //if ((sizeof($data["images"]) > 0) OR is_string($data["text"]))
1756 // $text .= "[spoiler]";
1758 if (sizeof($data["images"]) > 0) {
1759 $imagedata = $data["images"][0];
1760 $text .= '[img='.$imagedata["width"].'x'.$imagedata["height"].']'.$imagedata["src"].'[/img]' . "\n";
1763 if (is_string($data["text"]))
1764 $text .= "[quote]".$data["text"]."[/quote]";
1766 //if ((sizeof($data["images"]) > 0) OR is_string($data["text"]))
1767 // $text .= "[/spoiler]";
1773 function twitter_convertmsg($a, $body, $no_tags = false, $dontincludemedia) {
1775 $links = preg_match_all("/([^\]\='".'"'."]|^)(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism", $body,$matches,PREG_SET_ORDER);
1781 foreach ($matches AS $match) {
1782 $expanded_url = twitter_original_url($match[2]);
1787 if (strstr($expanded_url, "//www.youtube.com/"))
1788 $body = str_replace($match[2], "\n[youtube]".$expanded_url."[/youtube]\n", $body);
1789 elseif (strstr($expanded_url, "//player.vimeo.com/"))
1790 $body = str_replace($match[2], "\n[vimeo]".$expanded_url."[/vimeo]\n", $body);
1791 elseif (strstr($expanded_url, "//twitpic.com/")) // Test
1792 $body = str_replace($match[2], "\n[url]".$expanded_url."[/url]\n", $body);
1793 elseif (strstr($expanded_url, "//instagram.com/"))
1794 $body = str_replace($match[2], "\n[url]".$expanded_url."[/url]\n", $body);
1796 $img_str = fetch_url($expanded_url, true, $redirects, 4);
1798 $tempfile = tempnam(get_config("system","temppath"), "cache");
1799 file_put_contents($tempfile, $img_str);
1800 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
1803 if (substr($mime, 0, 6) == "image/") {
1804 $body = str_replace($match[2], "[img]".$expanded_url."[/img]", $body);
1805 $dontincludemedia = true;
1807 $footerurl = $expanded_url;
1808 $footerlink = "[url=".$expanded_url."]".$expanded_url."[/url]";
1810 $body = str_replace($match[2], $footerlink, $body);
1815 if ($footerurl != "")
1816 $footer = "\n\n".twitter_siteinfo($footerurl, $dontincludemedia);
1818 if (($footerlink != "") AND (trim($footer) != "")) {
1819 $removedlink = trim(str_replace($footerlink, "", $body));
1821 if (strstr($body, $removedlink))
1822 $body = $removedlink;
1829 return(array("body" => $body, $tags => ""));
1833 $tags = get_tags($body);
1836 foreach($tags as $tag) {
1837 if (strstr(trim($tag), " "))
1840 if(strpos($tag,'#') === 0) {
1841 if(strpos($tag,'[url='))
1844 // don't link tags that are already embedded in links
1846 if(preg_match('/\[(.*?)' . preg_quote($tag,'/') . '(.*?)\]/',$body))
1848 if(preg_match('/\[(.*?)\]\((.*?)' . preg_quote($tag,'/') . '(.*?)\)/',$body))
1851 $basetag = str_replace('_',' ',substr($tag,1));
1852 $body = str_replace($tag,'#[url=' . $a->get_baseurl() . '/search?tag=' . rawurlencode($basetag) . ']' . $basetag . '[/url]',$body);
1853 if(strlen($str_tags))
1855 $str_tags .= '#[url=' . $a->get_baseurl() . '/search?tag=' . rawurlencode($basetag) . ']' . $basetag . '[/url]';
1857 } elseif(strpos($tag,'@') === 0) {
1858 $basetag = substr($tag,1);
1859 $body = str_replace($tag,'@[url=https://twitter.com/' . rawurlencode($basetag) . ']' . $basetag . '[/url]',$body);
1865 $cnt = preg_match_all('/@\[url=(.*?)\[\/url\]/ism',$body,$matches,PREG_SET_ORDER);
1867 foreach($matches as $mtch) {
1868 if(strlen($str_tags))
1870 $str_tags .= '@[url=' . $mtch[1] . '[/url]';
1874 return(array("body"=>$body, "tags"=>$str_tags));
1878 function twitter_fetch_own_contact($a, $uid) {
1879 $ckey = get_config('twitter', 'consumerkey');
1880 $csecret = get_config('twitter', 'consumersecret');
1881 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1882 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1884 $own_id = get_pconfig($uid, 'twitter', 'own_id');
1888 if ($own_id == "") {
1889 require_once('library/twitteroauth.php');
1891 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1893 // Fetching user data
1894 $user = $connection->get('account/verify_credentials');
1896 set_pconfig($uid, 'twitter', 'own_id', $user->id_str);
1898 $contact_id = twitter_fetch_contact($uid, $user, true);
1901 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1902 intval($uid), dbesc("twitter::".$own_id));
1904 $contact_id = $r[0]["id"];
1907 return($contact_id);