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 $s .= '<span id="settings_twitter_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
234 $s .= '<h3>'. t('Twitter Settings') .'</h3>';
236 $s .= '<div id="settings_twitter_expanded" class="settings-block" style="display: none;">';
237 $s .= '<span class="fakelink" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">';
238 $s .= '<h3>'. t('Twitter Settings') .'</h3>';
241 if ( (!$ckey) && (!$csecret) ) {
243 * no global consumer keys
244 * display warning and skip personal config
246 $s .= '<p>'. t('No consumer key pair for Twitter found. Please contact your site administrator.') .'</p>';
249 * ok we have a consumer key pair now look into the OAuth stuff
251 if ( (!$otoken) && (!$osecret) ) {
253 * the user has not yet connected the account to twitter...
254 * get a temporary OAuth key/secret pair and display a button with
255 * which the user can request a PIN to connect the account to a
256 * account at Twitter.
258 require_once('library/twitteroauth.php');
259 $connection = new TwitterOAuth($ckey, $csecret);
260 $request_token = $connection->getRequestToken();
261 $token = $request_token['oauth_token'];
263 * make some nice form
265 $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>';
266 $s .= '<a href="'.$connection->getAuthorizeURL($token).'" target="_twitter"><img src="addon/twitter/lighter.png" alt="'.t('Log in with Twitter').'"></a>';
267 $s .= '<div id="twitter-pin-wrapper">';
268 $s .= '<label id="twitter-pin-label" for="twitter-pin">'. t('Copy the PIN from Twitter here') .'</label>';
269 $s .= '<input id="twitter-pin" type="text" name="twitter-pin" />';
270 $s .= '<input id="twitter-token" type="hidden" name="twitter-token" value="'.$token.'" />';
271 $s .= '<input id="twitter-token2" type="hidden" name="twitter-token2" value="'.$request_token['oauth_token_secret'].'" />';
272 $s .= '</div><div class="clear"></div>';
273 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
276 * we have an OAuth key / secret pair for the user
277 * so let's give a chance to disable the postings to Twitter
279 require_once('library/twitteroauth.php');
280 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
281 $details = $connection->get('account/verify_credentials');
282 $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>';
283 $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>';
284 if ($a->user['hidewall']) {
285 $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>';
287 $s .= '<div id="twitter-enable-wrapper">';
288 $s .= '<label id="twitter-enable-label" for="twitter-checkbox">'. t('Allow posting to Twitter'). '</label>';
289 $s .= '<input id="twitter-checkbox" type="checkbox" name="twitter-enable" value="1" ' . $checked . '/>';
290 $s .= '<div class="clear"></div>';
291 $s .= '<label id="twitter-default-label" for="twitter-default">'. t('Send public postings to Twitter by default') .'</label>';
292 $s .= '<input id="twitter-default" type="checkbox" name="twitter-default" value="1" ' . $defchecked . '/>';
293 $s .= '<div class="clear"></div>';
295 $s .= '<label id="twitter-mirror-label" for="twitter-mirror">'.t('Mirror all posts from twitter that are no replies').'</label>';
296 $s .= '<input id="twitter-mirror" type="checkbox" name="twitter-mirror" value="1" '. $mirrorchecked . '/>';
297 $s .= '<div class="clear"></div>';
299 $s .= '<label id="twitter-shortening-label" for="twitter-shortening">'.t('Shortening method that optimizes the tweet').'</label>';
300 $s .= '<input id="twitter-shortening" type="checkbox" name="twitter-shortening" value="1" '. $shorteningchecked . '/>';
301 $s .= '<div class="clear"></div>';
303 $s .= '<label id="twitter-sendtaglinks-label" for="twitter-sendtaglinks">'.t('Send linked #-tags and @-names to Twitter').'</label>';
304 $s .= '<input id="twitter-sendtaglinks" type="checkbox" name="twitter-sendtaglinks" value="1" '. $linkschecked . '/>';
305 $s .= '</div><div class="clear"></div>';
307 $s .= '<label id="twitter-import-label" for="twitter-import">'.t('Import the remote timeline').'</label>';
308 $s .= '<input id="twitter-import" type="checkbox" name="twitter-import" value="1" '. $importchecked . '/>';
309 $s .= '<div class="clear"></div>';
311 $s .= '<label id="twitter-create_user-label" for="twitter-create_user">'.t('Automatically create contacts').'</label>';
312 $s .= '<input id="twitter-create_user" type="checkbox" name="twitter-create_user" value="1" '. $create_userchecked . '/>';
313 $s .= '<div class="clear"></div>';
315 $s .= '<div id="twitter-disconnect-wrapper">';
316 $s .= '<label id="twitter-disconnect-label" for="twitter-disconnect">'. t('Clear OAuth configuration') .'</label>';
317 $s .= '<input id="twitter-disconnect" type="checkbox" name="twitter-disconnect" value="1" />';
318 $s .= '</div><div class="clear"></div>';
319 $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
322 $s .= '</div><div class="clear"></div>';
326 function twitter_post_local(&$a,&$b) {
331 if((local_user()) && (local_user() == $b['uid']) && (! $b['private']) && (! $b['parent']) ) {
333 $twitter_post = intval(get_pconfig(local_user(),'twitter','post'));
334 $twitter_enable = (($twitter_post && x($_REQUEST,'twitter_enable')) ? intval($_REQUEST['twitter_enable']) : 0);
336 // if API is used, default to the chosen settings
337 if($_REQUEST['api_source'] && intval(get_pconfig(local_user(),'twitter','post_by_default')))
340 if(! $twitter_enable)
343 if(strlen($b['postopts']))
344 $b['postopts'] .= ',';
345 $b['postopts'] .= 'twitter';
349 if (! function_exists('short_link')) {
350 function short_link ($url) {
351 require_once('library/slinky.php');
352 $slinky = new Slinky( $url );
353 $yourls_url = get_config('yourls','url1');
355 $yourls_username = get_config('yourls','username1');
356 $yourls_password = get_config('yourls', 'password1');
357 $yourls_ssl = get_config('yourls', 'ssl1');
358 $yourls = new Slinky_YourLS();
359 $yourls->set( 'username', $yourls_username );
360 $yourls->set( 'password', $yourls_password );
361 $yourls->set( 'ssl', $yourls_ssl );
362 $yourls->set( 'yourls-url', $yourls_url );
363 $slinky->set_cascade( array( $yourls, new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
366 // setup a cascade of shortening services
367 // try to get a short link from these services
368 // in the order ur1.ca, trim, id.gd, tinyurl
369 $slinky->set_cascade( array( new Slinky_UR1ca(), new Slinky_Trim(), new Slinky_IsGd(), new Slinky_TinyURL() ) );
371 return $slinky->short();
374 function twitter_shortenmsg($b, $shortlink = false) {
375 require_once("include/api.php");
376 require_once("include/bbcode.php");
377 require_once("include/html2plain.php");
381 // Looking for the first image
382 $cleaned_body = api_clean_plain_items($b['body']);
384 if(preg_match("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/is",$cleaned_body,$matches))
385 $image = $matches[3];
388 if(preg_match("/\[img\](.*?)\[\/img\]/is",$cleaned_body,$matches))
389 $image = $matches[1];
391 $multipleimages = (strpos($cleaned_body, "[img") != strrpos($cleaned_body, "[img"));
393 // When saved into the database the content is sent through htmlspecialchars
394 // That means that we have to decode all image-urls
395 $image = htmlspecialchars_decode($image);
398 if ($b["title"] != "")
399 $body = $b["title"]."\n\n".$body;
401 if (strpos($body, "[bookmark") !== false) {
402 // splitting the text in two parts:
403 // before and after the bookmark
404 $pos = strpos($body, "[bookmark");
405 $body1 = substr($body, 0, $pos);
406 $body2 = substr($body, $pos);
408 // Removing all quotes after the bookmark
409 // they are mostly only the content after the bookmark.
410 $body2 = preg_replace("/\[quote\=([^\]]*)\](.*?)\[\/quote\]/ism",'',$body2);
411 $body2 = preg_replace("/\[quote\](.*?)\[\/quote\]/ism",'',$body2);
412 $body = $body1.$body2;
415 // Add some newlines so that the message could be cut better
416 $body = str_replace(array("[quote", "[bookmark", "[/bookmark]", "[/quote]"),
417 array("\n[quote", "\n[bookmark", "[/bookmark]\n", "[/quote]\n"), $body);
419 // remove the recycle signs and the names since they aren't helpful on twitter
421 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
422 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
424 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
425 $body = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', "\n", $body);
427 // remove the share element
428 //$body = preg_replace("/\[share(.*?)\](.*?)\[\/share\]/ism","\n\n$2\n\n",$body);
430 // At first convert the text to html
431 $html = bbcode(api_clean_plain_items($body), false, false, 2);
433 // Then convert it to plain text
434 $msg = trim(html2plain($html, 0, true));
435 $msg = html_entity_decode($msg,ENT_QUOTES,'UTF-8');
437 // Removing multiple newlines
438 while (strpos($msg, "\n\n\n") !== false)
439 $msg = str_replace("\n\n\n", "\n\n", $msg);
441 // Removing multiple spaces
442 while (strpos($msg, " ") !== false)
443 $msg = str_replace(" ", " ", $msg);
445 $origmsg = trim($msg);
448 $msg = preg_replace('/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', "", $msg);
453 // look for bookmark-bbcode and handle it with priority
454 if(preg_match("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/is",$b['body'],$matches))
457 $multiplelinks = (strpos($b['body'], "[bookmark") != strrpos($b['body'], "[bookmark"));
459 // If there is no bookmark element then take the first link
461 $links = collecturls($html);
463 foreach($links AS $singlelink) {
464 $img_str = fetch_url($singlelink);
466 $tempfile = tempnam(get_config("system","temppath"), "cache");
467 file_put_contents($tempfile, $img_str);
468 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
471 if (substr($mime, 0, 6) == "image/") {
472 $image = $singlelink;
473 unset($links[$singlelink]);
477 if (sizeof($links) > 0) {
479 $link = current($links);
481 $multiplelinks = (sizeof($links) > 1);
486 $msglink = $b["plink"];
487 else if ($link != "")
489 else if ($multipleimages)
490 $msglink = $b["plink"];
491 else if ($image != "")
494 if (($msglink == "") and strlen($msg) > $max_char)
495 $msglink = $b["plink"];
497 // If the message is short enough then don't modify it.
498 if ((strlen($origmsg) <= $max_char) AND ($msglink == ""))
499 return(array("msg"=>$origmsg, "image"=>""));
501 // If the message is short enough and contains a picture then post the picture as well
502 if ((strlen($origmsg) <= ($max_char - 23)) AND strpos($origmsg, $msglink))
503 return(array("msg"=>$origmsg, "image"=>$image));
505 // If the message is short enough and the link exists in the original message don't modify it as well
506 // -3 because of the bad shortener of twitter
507 if ((strlen($origmsg) <= ($max_char - 3)) AND strpos($origmsg, $msglink))
508 return(array("msg"=>$origmsg, "image"=>""));
510 // Preserve the unshortened link
511 $orig_link = $msglink;
513 // Just replace the message link with a 22 character long string
514 // Twitter calculates with this length
515 if (trim($msglink) <> '')
516 $msglink = "1234567890123456789012";
518 if (strlen(trim($msg." ".$msglink)) > ($max_char)) {
519 $msg = substr($msg, 0, ($max_char) - (strlen($msglink)));
520 $lastchar = substr($msg, -1);
521 $msg = substr($msg, 0, -1);
522 $pos = strrpos($msg, "\n");
524 $msg = substr($msg, 0, $pos);
525 else if ($lastchar != "\n")
526 $msg = substr($msg, 0, -3)."...";
528 // if the post contains a picture and a link then the system tries to cut the post earlier.
529 // So the link and the picture can be posted.
530 if (($image != "") AND ($orig_link != $image)) {
531 $msg2 = substr($msg, 0, ($max_char - 20) - (strlen($msglink)));
532 $lastchar = substr($msg2, -1);
533 $msg2 = substr($msg2, 0, -1);
534 $pos = strrpos($msg2, "\n");
536 $msg = substr($msg2, 0, $pos);
537 else if ($lastchar == "\n")
542 // Removing multiple spaces - again
543 while (strpos($msg, " ") !== false)
544 $msg = str_replace(" ", " ", $msg);
548 // Removing multiple newlines
549 //while (strpos($msg, "\n\n") !== false)
550 // $msg = str_replace("\n\n", "\n", $msg);
552 // Looking if the link points to an image
553 $img_str = fetch_url($orig_link);
555 $tempfile = tempnam(get_config("system","temppath"), "cache");
556 file_put_contents($tempfile, $img_str);
557 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
560 if (($image == $orig_link) OR (substr($mime, 0, 6) == "image/"))
561 return(array("msg"=>$msg, "image"=>$orig_link));
562 else if (($image != $orig_link) AND ($image != "") AND (strlen($msg." ".$msglink) <= ($max_char - 23))) {
564 $orig_link = short_link($orig_link);
566 return(array("msg"=>$msg." ".$orig_link, "image"=>$image));
569 $orig_link = short_link($orig_link);
571 return(array("msg"=>$msg." ".$orig_link, "image"=>""));
575 function twitter_action($a, $uid, $pid, $action) {
577 $ckey = get_config('twitter', 'consumerkey');
578 $csecret = get_config('twitter', 'consumersecret');
579 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
580 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
582 require_once("addon/twitter/codebird.php");
584 $cb = \Codebird\Codebird::getInstance();
585 $cb->setConsumerKey($ckey, $csecret);
586 $cb->setToken($otoken, $osecret);
588 $post = array('id' => $pid);
590 logger("twitter_action '".$action."' ID: ".$pid." data: " . print_r($post, true), LOGGER_DATA);
594 $result = $cb->statuses_destroy($post);
597 $result = $cb->favorites_create($post);
600 $result = $cb->favorites_destroy($post);
603 logger("twitter_action '".$action."' send, result: " . print_r($result, true), LOGGER_DEBUG);
606 function twitter_post_hook(&$a,&$b) {
612 if (!get_pconfig($b["uid"],'twitter','import')) {
613 if($b['deleted'] || $b['private'] || ($b['created'] !== $b['edited']))
617 if($b['parent'] != $b['id']) {
618 logger("twitter_post_hook: parameter ".print_r($b, true), LOGGER_DATA);
620 // Looking if its a reply to a twitter post
621 if ((substr($b["parent-uri"], 0, 9) != "twitter::") AND (substr($b["extid"], 0, 9) != "twitter::") AND (substr($b["thr-parent"], 0, 9) != "twitter::")) {
622 logger("twitter_post_hook: no twitter post ".$b["parent"]);
626 $r = q("SELECT * FROM item WHERE item.uri = '%s' AND item.uid = %d LIMIT 1",
627 dbesc($b["thr-parent"]),
631 logger("twitter_post_hook: no parent found ".$b["thr-parent"]);
638 $nickname = preg_replace("=https?://twitter.com/(.*)=ism", "$1", $orig_post["author-link"]);
639 $nickname = "@[url=".$orig_post["author-link"]."]".$nickname."[/url]";
641 logger("twitter_post_hook: comparing ".$nickname." with ".$b["body"], LOGGER_DEBUG);
642 if (strpos($b["body"], $nickname) === false)
643 $b["body"] = $nickname." ".$b["body"];
645 logger("twitter_post_hook: parent found ".print_r($orig_post, true), LOGGER_DATA);
649 if($b['private'] OR !strstr($b['postopts'],'twitter'))
653 if (($b['verb'] == ACTIVITY_POST) AND $b['deleted'])
654 twitter_action($a, $b["uid"], substr($orig_post["uri"], 9), "delete");
656 if($b['verb'] == ACTIVITY_LIKE) {
657 logger("twitter_post_hook: parameter 2 ".substr($b["thr-parent"], 9), LOGGER_DEBUG);
659 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "unlike");
661 twitter_action($a, $b["uid"], substr($b["thr-parent"], 9), "like");
665 if($b['deleted'] || ($b['created'] !== $b['edited']))
668 // if post comes from twitter don't send it back
669 if($b['app'] == "Twitter")
672 logger('twitter post invoked');
675 load_pconfig($b['uid'], 'twitter');
677 $ckey = get_config('twitter', 'consumerkey');
678 $csecret = get_config('twitter', 'consumersecret');
679 $otoken = get_pconfig($b['uid'], 'twitter', 'oauthtoken');
680 $osecret = get_pconfig($b['uid'], 'twitter', 'oauthsecret');
681 $intelligent_shortening = get_pconfig($b['uid'], 'twitter', 'intelligent_shortening');
683 // Global setting overrides this
684 if (get_config('twitter','intelligent_shortening'))
685 $intelligent_shortening = get_config('twitter','intelligent_shortening');
687 if($ckey && $csecret && $otoken && $osecret) {
688 logger('twitter: we have customer key and oauth stuff, going to send.', LOGGER_DEBUG);
690 // If it's a repeated message from twitter then do a native retweet and exit
691 if (twitter_is_retweet($a, $b['uid'], $b['body']))
694 require_once('library/twitteroauth.php');
695 require_once('include/bbcode.php');
696 $tweet = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
698 // in theory max char is 140 but T. uses t.co to make links
699 // longer so we give them 10 characters extra
700 if (!$intelligent_shortening) {
701 $max_char = 130; // max. length for a tweet
702 // we will only work with up to two times the length of the dent
703 // we can later send to Twitter. This way we can "gain" some
704 // information during shortening of potential links but do not
705 // shorten all the links in a 200000 character long essay.
706 if (! $b['title']=='') {
707 $tmp = $b['title'] . ' : '. $b['body'];
708 // $tmp = substr($tmp, 0, 4*$max_char);
710 $tmp = $b['body']; // substr($b['body'], 0, 3*$max_char);
712 // if [url=bla][img]blub.png[/img][/url] get blub.png
713 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\]\[img\](\\w+.*?)\\[\\/img\]\\[\\/url\]/i', '$2', $tmp);
714 // preserve links to images, videos and audios
715 $tmp = preg_replace( '/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism', '$3', $tmp);
716 $tmp = preg_replace( '/\[\\/?img(\\s+.*?\]|\])/i', '', $tmp);
717 $tmp = preg_replace( '/\[\\/?video(\\s+.*?\]|\])/i', '', $tmp);
718 $tmp = preg_replace( '/\[\\/?youtube(\\s+.*?\]|\])/i', '', $tmp);
719 $tmp = preg_replace( '/\[\\/?vimeo(\\s+.*?\]|\])/i', '', $tmp);
720 $tmp = preg_replace( '/\[\\/?audio(\\s+.*?\]|\])/i', '', $tmp);
721 $linksenabled = get_pconfig($b['uid'],'twitter','post_taglinks');
722 // if a #tag is linked, don't send the [url] over to SN
723 // that is, don't send if the option is not set in the
724 // connector settings
725 if ($linksenabled=='0') {
727 $tmp = preg_replace( '/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '#$2', $tmp);
729 $tmp = preg_replace( '/@\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '@$2', $tmp);
731 $recycle = html_entity_decode("♲ ", ENT_QUOTES, 'UTF-8');
732 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
734 $recycle = html_entity_decode("◌ ", ENT_QUOTES, 'UTF-8');
735 $tmp = preg_replace( '/'.$recycle.'\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', $recycle.'$2', $tmp);
737 $tmp = preg_replace( '/\[url\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/url\]/i', '$2 $1', $tmp);
738 $tmp = preg_replace( '/\[bookmark\=(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)\](\w+.*?)\[\/bookmark\]/i', '$2 $1', $tmp);
739 // find all http or https links in the body of the entry and
740 // apply the shortener if the link is longer then 20 characters
741 if (( strlen($tmp)>$max_char ) && ( $max_char > 0 )) {
742 preg_match_all ( '/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/i', $tmp, $allurls );
743 foreach ($allurls as $url) {
744 foreach ($url as $u) {
746 $sl = short_link($u);
747 $tmp = str_replace( $u, $sl, $tmp );
752 // ok, all the links we want to send out are save, now strip
753 // away the remaining bbcode
754 //$msg = strip_tags(bbcode($tmp, false, false));
755 $msg = bbcode($tmp, false, false, true);
756 $msg = str_replace(array('<br>','<br />'),"\n",$msg);
757 $msg = strip_tags($msg);
759 // quotes not working - let's try this
760 $msg = html_entity_decode($msg);
761 if (( strlen($msg) > $max_char) && $max_char > 0) {
762 $shortlink = short_link( $b['plink'] );
763 // the new message will be shortened such that "... $shortlink"
764 // will fit into the character limit
765 $msg = nl2br(substr($msg, 0, $max_char-strlen($shortlink)-4));
766 $msg = str_replace(array('<br>','<br />'),' ',$msg);
767 $e = explode(' ', $msg);
768 // remove the last word from the cut down message to
769 // avoid sending cut words to the MicroBlog
771 $msg = implode(' ', $e);
772 $msg .= '... ' . $shortlink;
778 $msgarr = twitter_shortenmsg($b);
779 $msg = $msgarr["msg"];
780 $image = $msgarr["image"];
783 // and now tweet it :-)
784 if(strlen($msg) and ($image != "")) {
785 $img_str = fetch_url($image);
787 $tempfile = tempnam(get_config("system","temppath"), "cache");
788 file_put_contents($tempfile, $img_str);
790 // Twitter had changed something so that the old library doesn't work anymore
791 // so we are using a new library for twitter
793 // Switching completely to this library with all functions
794 require_once("addon/twitter/codebird.php");
796 $cb = \Codebird\Codebird::getInstance();
797 $cb->setConsumerKey($ckey, $csecret);
798 $cb->setToken($otoken, $osecret);
800 $post = array('status' => $msg, 'media[]' => $tempfile);
803 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
805 $result = $cb->statuses_updateWithMedia($post);
808 logger('twitter_post_with_media send, result: ' . print_r($result, true), LOGGER_DEBUG);
809 if ($result->errors OR $result->error) {
810 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
812 // Workaround: Remove the picture link so that the post can be reposted without it
815 } elseif ($iscomment) {
816 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
817 q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
818 dbesc("twitter::".$result->id_str),
819 dbesc($result->text),
825 if(strlen($msg) and ($image == "")) {
826 $url = 'statuses/update';
827 $post = array('status' => $msg);
830 $post["in_reply_to_status_id"] = substr($orig_post["uri"], 9);
832 $result = $tweet->post($url, $post);
833 logger('twitter_post send, result: ' . print_r($result, true), LOGGER_DEBUG);
834 if ($result->errors) {
835 logger('Send to Twitter failed: "' . print_r($result->errors, true) . '"');
837 $r = q("SELECT `id` FROM `contact` WHERE `uid` = %d AND `self`", intval($b['uid']));
839 $a->contact = $r[0]["id"];
841 $s = serialize(array('url' => $url, 'item' => $b['id'], 'post' => $post));
842 require_once('include/queue_fn.php');
843 add_to_queue($a->contact,NETWORK_TWITTER,$s);
844 notice(t('Twitter post failed. Queued for retry.').EOL);
845 } elseif ($iscomment) {
846 logger('twitter_post: Update extid '.$result->id_str." for post id ".$b['id']);
847 q("UPDATE `item` SET `extid` = '%s' WHERE `id` = %d",
848 dbesc("twitter::".$result->id_str),
851 //q("UPDATE `item` SET `extid` = '%s', `body` = '%s' WHERE `id` = %d",
852 // dbesc("twitter::".$result->id_str),
853 // dbesc($result->text),
861 function twitter_plugin_admin_post(&$a){
862 $consumerkey = ((x($_POST,'consumerkey')) ? notags(trim($_POST['consumerkey'])) : '');
863 $consumersecret = ((x($_POST,'consumersecret')) ? notags(trim($_POST['consumersecret'])): '');
864 $applicationname = ((x($_POST, 'applicationname')) ? notags(trim($_POST['applicationname'])):'');
865 set_config('twitter','consumerkey',$consumerkey);
866 set_config('twitter','consumersecret',$consumersecret);
867 set_config('twitter','application_name',$applicationname);
868 info( t('Settings updated.'). EOL );
870 function twitter_plugin_admin(&$a, &$o){
871 $t = get_markup_template( "admin.tpl", "addon/twitter/" );
873 $o = replace_macros($t, array(
874 '$submit' => t('Save Settings'),
875 // name, label, value, help, [extra values]
876 '$consumerkey' => array('consumerkey', t('Consumer key'), get_config('twitter', 'consumerkey' ), ''),
877 '$consumersecret' => array('consumersecret', t('Consumer secret'), get_config('twitter', 'consumersecret' ), ''),
878 '$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'))
882 function twitter_cron($a,$b) {
883 $last = get_config('twitter','last_poll');
885 $poll_interval = intval(get_config('twitter','poll_interval'));
887 $poll_interval = TWITTER_DEFAULT_POLL_INTERVAL;
890 $next = $last + ($poll_interval * 60);
892 logger('twitter: poll intervall not reached');
896 logger('twitter: cron_start');
898 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'mirror_posts' AND `v` = '1' ORDER BY RAND()");
901 logger('twitter: fetching for user '.$rr['uid']);
902 twitter_fetchtimeline($a, $rr['uid']);
907 $r = q("SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'import' AND `v` = '1' ORDER BY RAND()");
910 logger('twitter: importing timeline from user '.$rr['uid']);
911 twitter_fetchhometimeline($a, $rr["uid"]);
915 // check for new contacts once a day
916 $last_contact_check = get_pconfig($rr['uid'],'pumpio','contact_check');
917 if($last_contact_check)
918 $next_contact_check = $last_contact_check + 86400;
920 $next_contact_check = 0;
922 if($next_contact_check <= time()) {
923 pumpio_getallusers($a, $rr["uid"]);
924 set_pconfig($rr['uid'],'pumpio','contact_check',time());
931 logger('twitter: cron_end');
933 set_config('twitter','last_poll', time());
936 function twitter_fetchtimeline($a, $uid) {
937 $ckey = get_config('twitter', 'consumerkey');
938 $csecret = get_config('twitter', 'consumersecret');
939 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
940 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
941 $lastid = get_pconfig($uid, 'twitter', 'lastid');
943 $application_name = get_config('twitter', 'application_name');
945 if ($application_name == "")
946 $application_name = $a->get_hostname();
948 $has_picture = false;
950 require_once('mod/item.php');
952 require_once('library/twitteroauth.php');
953 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
955 $parameters = array("exclude_replies" => true, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
957 $first_time = ($lastid == "");
960 $parameters["since_id"] = $lastid;
962 $items = $connection->get('statuses/user_timeline', $parameters);
964 if (!is_array($items))
967 $posts = array_reverse($items);
970 foreach ($posts as $post) {
971 if ($post->id_str > $lastid)
972 $lastid = $post->id_str;
977 if (!strpos($post->source, $application_name)) {
978 $_SESSION["authenticated"] = true;
979 $_SESSION["uid"] = $uid;
982 $_REQUEST["type"] = "wall";
983 $_REQUEST["api_source"] = true;
984 $_REQUEST["profile_uid"] = $uid;
985 $_REQUEST["source"] = "Twitter";
987 //$_REQUEST["date"] = $post->created_at;
989 $_REQUEST["title"] = "";
991 if (is_object($post->retweeted_status)) {
993 $_REQUEST['body'] = $post->retweeted_status->text;
996 if (is_array($post->retweeted_status->entities->media)) {
997 foreach($post->retweeted_status->entities->media AS $media) {
998 switch($media->type) {
1000 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1001 $has_picture = true;
1007 //$converted = twitter_convertmsg($a, $_REQUEST['body'], true, $has_picture);
1008 $converted = twitter_expand_entities($a, $_REQUEST['body'], $post->retweeted_status, true, $has_picture);
1009 $_REQUEST['body'] = $converted["body"];
1011 $_REQUEST['body'] = "[share author='".$post->retweeted_status->user->name.
1012 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1013 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1014 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1016 $_REQUEST['body'] .= "[/share]";
1018 $_REQUEST["body"] = $post->text;
1020 if (is_array($post->entities->media)) {
1021 foreach($post->entities->media AS $media) {
1022 switch($media->type) {
1024 $_REQUEST['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $_REQUEST['body']);
1025 $has_picture = true;
1031 //$converted = twitter_convertmsg($a, $_REQUEST["body"], true, $has_picture);
1032 $converted = twitter_expand_entities($a, $_REQUEST["body"], $post, true, $has_picture);
1033 $_REQUEST['body'] = $converted["body"];
1036 if (is_string($post->place->name))
1037 $_REQUEST["location"] = $post->place->name;
1039 if (is_string($post->place->full_name))
1040 $_REQUEST["location"] = $post->place->full_name;
1042 if (is_array($post->geo->coordinates))
1043 $_REQUEST["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1045 if (is_array($post->coordinates->coordinates))
1046 $_REQUEST["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1048 //print_r($_REQUEST);
1049 logger('twitter: posting for user '.$uid);
1051 // require_once('mod/item.php');
1057 set_pconfig($uid, 'twitter', 'lastid', $lastid);
1060 function twitter_queue_hook(&$a,&$b) {
1062 $qi = q("SELECT * FROM `queue` WHERE `network` = '%s'",
1063 dbesc(NETWORK_TWITTER)
1068 require_once('include/queue_fn.php');
1070 foreach($qi as $x) {
1071 if($x['network'] !== NETWORK_TWITTER)
1074 logger('twitter_queue: run');
1076 $r = q("SELECT `user`.* FROM `user` LEFT JOIN `contact` on `contact`.`uid` = `user`.`uid`
1077 WHERE `contact`.`self` = 1 AND `contact`.`id` = %d LIMIT 1",
1085 $ckey = get_config('twitter', 'consumerkey');
1086 $csecret = get_config('twitter', 'consumersecret');
1087 $otoken = get_pconfig($user['uid'], 'twitter', 'oauthtoken');
1088 $osecret = get_pconfig($user['uid'], 'twitter', 'oauthsecret');
1092 if ($ckey AND $csecret AND $otoken AND $osecret) {
1094 logger('twitter_queue: able to post');
1096 $z = unserialize($x['content']);
1098 require_once("addon/twitter/codebird.php");
1100 $cb = \Codebird\Codebird::getInstance();
1101 $cb->setConsumerKey($ckey, $csecret);
1102 $cb->setToken($otoken, $osecret);
1104 if ($z['url'] == "statuses/update")
1105 $result = $cb->statuses_update($z['post']);
1107 logger('twitter_queue: post result: ' . print_r($result, true), LOGGER_DEBUG);
1109 if ($result->errors)
1110 logger('twitter_queue: Send to Twitter failed: "' . print_r($result->errors, true) . '"');
1113 remove_queue_item($x['id']);
1116 logger("twitter_queue: Error getting tokens for user ".$user['uid']);
1119 logger('twitter_queue: delayed');
1120 update_queue_time($x['id']);
1125 function twitter_fetch_contact($uid, $contact, $create_user) {
1127 // Check if the unique contact is existing
1128 // To-Do: only update once a while
1129 $r = q("SELECT id FROM unique_contacts WHERE url='%s' LIMIT 1",
1130 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)));
1133 q("INSERT INTO unique_contacts (url, name, nick, avatar) VALUES ('%s', '%s', '%s', '%s')",
1134 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1135 dbesc($contact->name),
1136 dbesc($contact->screen_name),
1137 dbesc($contact->profile_image_url_https));
1139 q("UPDATE unique_contacts SET name = '%s', nick = '%s', avatar = '%s' WHERE url = '%s'",
1140 dbesc($contact->name),
1141 dbesc($contact->screen_name),
1142 dbesc($contact->profile_image_url_https),
1143 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)));
1145 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1146 intval($uid), dbesc("twitter::".$contact->id_str));
1148 if(!count($r) AND !$create_user)
1151 if (count($r) AND ($r[0]["readonly"] OR $r[0]["blocked"])) {
1152 logger("twitter_fetch_contact: Contact '".$r[0]["nick"]."' is blocked or readonly.", LOGGER_DEBUG);
1157 // create contact record
1158 q("INSERT INTO `contact` ( `uid`, `created`, `url`, `nurl`, `addr`, `alias`, `notify`, `poll`,
1159 `name`, `nick`, `photo`, `network`, `rel`, `priority`,
1160 `writable`, `blocked`, `readonly`, `pending` )
1161 VALUES ( %d, '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', %d, %d, %d, 0, 0, 0 ) ",
1163 dbesc(datetime_convert()),
1164 dbesc("https://twitter.com/".$contact->screen_name),
1165 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1166 dbesc($contact->screen_name."@twitter.com"),
1167 dbesc("twitter::".$contact->id_str),
1169 dbesc("twitter::".$contact->id_str),
1170 dbesc($contact->name),
1171 dbesc($contact->screen_name),
1172 dbesc($contact->profile_image_url_https),
1173 dbesc(NETWORK_TWITTER),
1174 intval(CONTACT_IS_FRIEND),
1179 $r = q("SELECT * FROM `contact` WHERE `alias` = '%s' AND `uid` = %d LIMIT 1",
1180 dbesc("twitter::".$contact->id_str),
1187 $contact_id = $r[0]['id'];
1189 $g = q("SELECT def_gid FROM user WHERE uid = %d LIMIT 1",
1193 if($g && intval($g[0]['def_gid'])) {
1194 require_once('include/group.php');
1195 group_add_member($uid,'',$contact_id,$g[0]['def_gid']);
1198 require_once("Photo.php");
1200 $photos = import_profile_photo($contact->profile_image_url_https,$uid,$contact_id);
1202 q("UPDATE `contact` SET `photo` = '%s',
1207 `avatar-date` = '%s'
1212 dbesc(datetime_convert()),
1213 dbesc(datetime_convert()),
1214 dbesc(datetime_convert()),
1219 // update profile photos once every two weeks as we have no notification of when they change.
1221 //$update_photo = (($r[0]['avatar-date'] < datetime_convert('','','now -2 days')) ? true : false);
1222 $update_photo = ($r[0]['avatar-date'] < datetime_convert('','','now -12 hours'));
1224 // check that we have all the photos, this has been known to fail on occasion
1226 if((! $r[0]['photo']) || (! $r[0]['thumb']) || (! $r[0]['micro']) || ($update_photo)) {
1228 logger("twitter_fetch_contact: Updating contact ".$contact->screen_name, LOGGER_DEBUG);
1230 require_once("Photo.php");
1232 $photos = import_profile_photo($contact->profile_image_url_https, $uid, $r[0]['id']);
1234 q("UPDATE `contact` SET `photo` = '%s',
1239 `avatar-date` = '%s',
1249 dbesc(datetime_convert()),
1250 dbesc(datetime_convert()),
1251 dbesc(datetime_convert()),
1252 dbesc("https://twitter.com/".$contact->screen_name),
1253 dbesc(normalise_link("https://twitter.com/".$contact->screen_name)),
1254 dbesc($contact->screen_name."@twitter.com"),
1255 dbesc($contact->name),
1256 dbesc($contact->screen_name),
1262 return($r[0]["id"]);
1265 function twitter_fetchuser($a, $uid, $screen_name = "", $user_id = "") {
1266 $ckey = get_config('twitter', 'consumerkey');
1267 $csecret = get_config('twitter', 'consumersecret');
1268 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1269 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1271 require_once("addon/twitter/codebird.php");
1273 $cb = \Codebird\Codebird::getInstance();
1274 $cb->setConsumerKey($ckey, $csecret);
1275 $cb->setToken($otoken, $osecret);
1277 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1285 $parameters = array();
1287 if ($screen_name != "")
1288 $parameters["screen_name"] = $screen_name;
1291 $parameters["user_id"] = $user_id;
1293 // Fetching user data
1294 $user = $cb->users_show($parameters);
1296 if (!is_object($user))
1299 $contact_id = twitter_fetch_contact($uid, $user, true);
1304 function twitter_expand_entities($a, $body, $item, $no_tags = false, $dontincludemedia) {
1305 require_once("include/oembed.php");
1309 if (isset($item->entities->urls)) {
1315 foreach ($item->entities->urls AS $url) {
1316 if ($url->url AND $url->expanded_url AND $url->display_url) {
1318 $expanded_url = twitter_original_url($url->expanded_url);
1320 $oembed_data = oembed_fetch_url($expanded_url);
1322 // Quickfix: Workaround for URL with "[" and "]" in it
1323 if (strpos($expanded_url, "[") OR strpos($expanded_url, "]"))
1324 $expanded_url = $url->url;
1327 $type = $oembed_data->type;
1329 if ($oembed_data->type == "video") {
1330 $body = str_replace($url->url,
1331 "[video]".$expanded_url."[/video]", $body);
1332 $dontincludemedia = true;
1333 } elseif (($oembed_data->type == "photo") AND isset($oembed_data->url) AND !$dontincludemedia) {
1334 $body = str_replace($url->url,
1335 "[url=".$expanded_url."][img]".$oembed_data->url."[/img][/url]",
1337 $dontincludemedia = true;
1338 } elseif ($oembed_data->type != "link")
1339 $body = str_replace($url->url,
1340 "[url=".$expanded_url."]".$expanded_url."[/url]",
1342 //"[url=".$expanded_url."]".$url->display_url."[/url]",
1344 $img_str = fetch_url($expanded_url, true, $redirects, 4);
1346 $tempfile = tempnam(get_config("system","temppath"), "cache");
1347 file_put_contents($tempfile, $img_str);
1348 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
1351 if (substr($mime, 0, 6) == "image/") {
1353 $body = str_replace($url->url, "[img]".$expanded_url."[/img]", $body);
1354 $dontincludemedia = true;
1356 $type = $oembed_data->type;
1357 $footerurl = $expanded_url;
1358 $footerlink = "[url=".$expanded_url."]".$expanded_url."[/url]";
1359 //$footerlink = "[url=".$expanded_url."]".$url->display_url."[/url]";
1361 $body = str_replace($url->url, $footerlink, $body);
1367 if ($footerurl != "")
1368 $footer = twitter_siteinfo($footerurl, $dontincludemedia);
1370 if (($footerlink != "") AND (trim($footer) != "")) {
1371 $removedlink = trim(str_replace($footerlink, "", $body));
1373 if (strstr($body, $removedlink))
1374 $body = $removedlink;
1376 $body .= "\n\n[class=type-".$type."]".$footer."[/class]";
1380 return(array("body" => $body, "tags" => ""));
1382 $tags_arr = array();
1384 foreach ($item->entities->hashtags AS $hashtag) {
1385 $url = "#[url=".$a->get_baseurl()."/search?tag=".rawurlencode($hashtag->text)."]".$hashtag->text."[/url]";
1386 $tags_arr["#".$hashtag->text] = $url;
1387 $body = str_replace("#".$hashtag->text, $url, $body);
1390 foreach ($item->entities->user_mentions AS $mention) {
1391 $url = "@[url=https://twitter.com/".rawurlencode($mention->screen_name)."]".$mention->screen_name."[/url]";
1392 $tags_arr["@".$mention->screen_name] = $url;
1393 $body = str_replace("@".$mention->screen_name, $url, $body);
1396 // it seems as if the entities aren't always covering all mentions. So the rest will be checked here
1397 $tags = get_tags($body);
1400 foreach($tags as $tag) {
1401 if (strstr(trim($tag), " "))
1404 if(strpos($tag,'#') === 0) {
1405 if(strpos($tag,'[url='))
1408 // don't link tags that are already embedded in links
1410 if(preg_match('/\[(.*?)' . preg_quote($tag,'/') . '(.*?)\]/',$body))
1412 if(preg_match('/\[(.*?)\]\((.*?)' . preg_quote($tag,'/') . '(.*?)\)/',$body))
1415 $basetag = str_replace('_',' ',substr($tag,1));
1416 $url = '#[url='.$a->get_baseurl().'/search?tag='.rawurlencode($basetag).']'.$basetag.'[/url]';
1417 $body = str_replace($tag,$url,$body);
1418 $tags_arr["#".$basetag] = $url;
1420 } elseif(strpos($tag,'@') === 0) {
1421 if(strpos($tag,'[url='))
1424 $basetag = substr($tag,1);
1425 $url = '@[url=https://twitter.com/'.rawurlencode($basetag).']'.$basetag.'[/url]';
1426 $body = str_replace($tag,$url,$body);
1427 $tags_arr["@".$basetag] = $url;
1433 $tags = implode($tags_arr, ",");
1436 return(array("body" => $body, "tags" => $tags));
1439 function twitter_createpost($a, $uid, $post, $self, $create_user, $only_existing_contact) {
1441 $has_picture = false;
1443 $postarray = array();
1444 $postarray['network'] = NETWORK_TWITTER;
1445 $postarray['gravity'] = 0;
1446 $postarray['uid'] = $uid;
1447 $postarray['wall'] = 0;
1448 $postarray['uri'] = "twitter::".$post->id_str;
1450 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1451 dbesc($postarray['uri']),
1460 if ($post->in_reply_to_status_id_str != "") {
1462 $parent = "twitter::".$post->in_reply_to_status_id_str;
1464 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1469 $postarray['thr-parent'] = $r[0]["uri"];
1470 $postarray['parent-uri'] = $r[0]["parent-uri"];
1472 $r = q("SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1",
1477 $postarray['thr-parent'] = $r[0]['uri'];
1478 $postarray['parent-uri'] = $r[0]['parent-uri'];
1480 $postarray['thr-parent'] = $postarray['uri'];
1481 $postarray['parent-uri'] = $postarray['uri'];
1486 $own_id = get_pconfig($uid, 'twitter', 'own_id');
1488 if ($post->user->id_str == $own_id) {
1489 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1493 $contactid = $r[0]["id"];
1495 $postarray['owner-name'] = $r[0]["name"];
1496 $postarray['owner-link'] = $r[0]["url"];
1497 $postarray['owner-avatar'] = $r[0]["photo"];
1502 $postarray['parent-uri'] = $postarray['uri'];
1504 if ($contactid == 0) {
1505 $contactid = twitter_fetch_contact($uid, $post->user, $create_user);
1507 $postarray['owner-name'] = $post->user->name;
1508 $postarray['owner-link'] = "https://twitter.com/".$post->user->screen_name;
1509 $postarray['owner-avatar'] = $post->user->profile_image_url_https;
1512 if(($contactid == 0) AND !$only_existing_contact)
1513 $contactid = $self['id'];
1514 elseif ($contactid <= 0)
1517 $postarray['contact-id'] = $contactid;
1519 $postarray['verb'] = ACTIVITY_POST;
1520 $postarray['author-name'] = $postarray['owner-name'];
1521 $postarray['author-link'] = $postarray['owner-link'];
1522 $postarray['author-avatar'] = $postarray['owner-avatar'];
1523 $postarray['plink'] = "https://twitter.com/".$post->user->screen_name."/status/".$post->id_str;
1524 $postarray['app'] = strip_tags($post->source);
1526 if ($post->user->protected) {
1527 $postarray['private'] = 1;
1528 $postarray['allow_cid'] = '<' . $self['id'] . '>';
1531 $postarray['body'] = $post->text;
1534 if (is_array($post->entities->media)) {
1535 foreach($post->entities->media AS $media) {
1536 switch($media->type) {
1538 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1539 $has_picture = true;
1542 $postarray['body'] .= print_r($media, true);
1547 //$converted = twitter_convertmsg($a, $postarray['body'], false, $has_picture);
1548 $converted = twitter_expand_entities($a, $postarray['body'], $post, false, $has_picture);
1549 $postarray['body'] = $converted["body"];
1550 $postarray['tag'] = $converted["tags"];
1552 $postarray['created'] = datetime_convert('UTC','UTC',$post->created_at);
1553 $postarray['edited'] = datetime_convert('UTC','UTC',$post->created_at);
1555 if (is_string($post->place->name))
1556 $postarray["location"] = $post->place->name;
1558 if (is_string($post->place->full_name))
1559 $postarray["location"] = $post->place->full_name;
1561 if (is_array($post->geo->coordinates))
1562 $postarray["coord"] = $post->geo->coordinates[0]." ".$post->geo->coordinates[1];
1564 if (is_array($post->coordinates->coordinates))
1565 $postarray["coord"] = $post->coordinates->coordinates[1]." ".$post->coordinates->coordinates[0];
1567 if (is_object($post->retweeted_status)) {
1569 $postarray['body'] = $post->retweeted_status->text;
1572 if (is_array($post->retweeted_status->entities->media)) {
1573 foreach($post->retweeted_status->entities->media AS $media) {
1574 switch($media->type) {
1576 $postarray['body'] = str_replace($media->url, "\n\n[img]".$media->media_url_https."[/img]\n", $postarray['body']);
1577 $has_picture = true;
1580 $postarray['body'] .= print_r($media, true);
1585 //$converted = twitter_convertmsg($a, $postarray['body'], false, $has_picture);
1586 $converted = twitter_expand_entities($a, $postarray['body'], $post->retweeted_status, false, $has_picture);
1587 $postarray['body'] = $converted["body"];
1588 $postarray['tag'] = $converted["tags"];
1590 twitter_fetch_contact($uid, $post->retweeted_status->user, false);
1592 // Deactivated at the moment, since there are problems with answers to retweets
1593 if (false AND !intval(get_config('system','wall-to-wall_share'))) {
1594 $postarray['body'] = "[share author='".$post->retweeted_status->user->name.
1595 "' profile='https://twitter.com/".$post->retweeted_status->user->screen_name.
1596 "' avatar='".$post->retweeted_status->user->profile_image_url_https.
1597 "' link='https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str."']".
1599 $postarray['body'] .= "[/share]";
1601 // Let retweets look like wall-to-wall posts
1602 $postarray['author-name'] = $post->retweeted_status->user->name;
1603 $postarray['author-link'] = "https://twitter.com/".$post->retweeted_status->user->screen_name;
1604 $postarray['author-avatar'] = $post->retweeted_status->user->profile_image_url_https;
1605 //if (($post->retweeted_status->user->screen_name != "") AND ($post->retweeted_status->id_str != "")) {
1606 // $postarray['plink'] = "https://twitter.com/".$post->retweeted_status->user->screen_name."/status/".$post->retweeted_status->id_str;
1607 // $postarray['uri'] = "twitter::".$post->retweeted_status->id_str;
1615 function twitter_checknotification($a, $uid, $own_id, $top_item, $postarray) {
1617 $user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1",
1625 if (link_compare($user[0]["url"], $postarray['author-link']))
1628 $own_user = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
1630 dbesc("twitter::".$own_id)
1633 if(!count($own_user))
1636 // Is it me from twitter?
1637 if (link_compare($own_user[0]["url"], $postarray['author-link']))
1640 $myconv = q("SELECT `author-link`, `author-avatar`, `parent` FROM `item` WHERE `parent-uri` = '%s' AND `uid` = %d AND `parent` != 0 AND `deleted` = 0",
1641 dbesc($postarray['parent-uri']),
1645 if(count($myconv)) {
1647 foreach($myconv as $conv) {
1648 // now if we find a match, it means we're in this conversation
1650 if(!link_compare($conv['author-link'],$user[0]["url"]) AND !link_compare($conv['author-link'],$own_user[0]["url"]))
1653 require_once('include/enotify.php');
1655 $conv_parent = $conv['parent'];
1658 'type' => NOTIFY_COMMENT,
1659 'notify_flags' => $user[0]['notify-flags'],
1660 'language' => $user[0]['language'],
1661 'to_name' => $user[0]['username'],
1662 'to_email' => $user[0]['email'],
1663 'uid' => $user[0]['uid'],
1664 'item' => $postarray,
1665 'link' => $a->get_baseurl() . '/display/' . $user[0]['nickname'] . '/' . $top_item,
1666 'source_name' => $postarray['author-name'],
1667 'source_link' => $postarray['author-link'],
1668 'source_photo' => $postarray['author-avatar'],
1669 'verb' => ACTIVITY_POST,
1671 'parent' => $conv_parent,
1674 // only send one notification
1680 function twitter_fetchhometimeline($a, $uid) {
1681 $ckey = get_config('twitter', 'consumerkey');
1682 $csecret = get_config('twitter', 'consumersecret');
1683 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
1684 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
1685 $create_user = get_pconfig($uid, 'twitter', 'create_user');
1687 logger("twitter_fetchhometimeline: Fetching for user ".$uid, LOGGER_DEBUG);
1689 require_once('library/twitteroauth.php');
1690 require_once('include/items.php');
1692 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
1694 $own_contact = twitter_fetch_own_contact($a, $uid);
1696 $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
1697 intval($own_contact),
1701 $own_id = $r[0]["nick"];
1703 logger("twitter_fetchhometimeline: Own twitter contact not found for user ".$uid, LOGGER_DEBUG);
1707 $r = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
1713 logger("twitter_fetchhometimeline: Own contact not found for user ".$uid, LOGGER_DEBUG);
1717 $u = q("SELECT * FROM user WHERE uid = %d LIMIT 1",
1720 logger("twitter_fetchhometimeline: Own user not found for user ".$uid, LOGGER_DEBUG);
1724 $parameters = array("exclude_replies" => false, "trim_user" => false, "contributor_details" => true, "include_rts" => true);
1725 //$parameters["count"] = 200;
1728 // Fetching timeline
1729 $lastid = get_pconfig($uid, 'twitter', 'lasthometimelineid');
1731 $first_time = ($lastid == "");
1734 $parameters["since_id"] = $lastid;
1736 $items = $connection->get('statuses/home_timeline', $parameters);
1738 if (!is_array($items)) {
1739 logger("twitter_fetchhometimeline: Error fetching home timeline: ".print_r($items, true), LOGGER_DEBUG);
1743 $posts = array_reverse($items);
1745 logger("twitter_fetchhometimeline: Fetching timeline for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1747 if (count($posts)) {
1748 foreach ($posts as $post) {
1749 if ($post->id_str > $lastid)
1750 $lastid = $post->id_str;
1755 $postarray = twitter_createpost($a, $uid, $post, $self, $create_user, true);
1757 if (trim($postarray['body']) == "")
1760 $item = item_store($postarray);
1762 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted home timeline item '.$item);
1765 twitter_checknotification($a, $uid, $own_id, $item, $postarray);
1769 set_pconfig($uid, 'twitter', 'lasthometimelineid', $lastid);
1771 // Fetching mentions
1772 $lastid = get_pconfig($uid, 'twitter', 'lastmentionid');
1774 $first_time = ($lastid == "");
1777 $parameters["since_id"] = $lastid;
1779 $items = $connection->get('statuses/mentions_timeline', $parameters);
1781 if (!is_array($items)) {
1782 logger("twitter_fetchhometimeline: Error fetching mentions: ".print_r($items, true), LOGGER_DEBUG);
1786 $posts = array_reverse($items);
1788 logger("twitter_fetchhometimeline: Fetching mentions for user ".$uid." ".sizeof($posts)." items", LOGGER_DEBUG);
1790 if (count($posts)) {
1791 foreach ($posts as $post) {
1792 if ($post->id_str > $lastid)
1793 $lastid = $post->id_str;
1798 $postarray = twitter_createpost($a, $uid, $post, $self, false, false);
1800 if (trim($postarray['body']) == "")
1803 $item = item_store($postarray);
1805 logger('twitter_fetchhometimeline: User '.$self["nick"].' posted mention timeline item '.$item);
1808 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
1809 dbesc($postarray['uri']),
1813 $item = $r[0]['id'];
1817 require_once('include/enotify.php');
1819 'type' => NOTIFY_TAGSELF,
1820 'notify_flags' => $u[0]['notify-flags'],
1821 'language' => $u[0]['language'],
1822 'to_name' => $u[0]['username'],
1823 'to_email' => $u[0]['email'],
1824 'uid' => $u[0]['uid'],
1825 'item' => $postarray,
1826 'link' => $a->get_baseurl() . '/display/' . $u[0]['nickname'] . '/' . $item,
1827 'source_name' => $postarray['author-name'],
1828 'source_link' => $postarray['author-link'],
1829 'source_photo' => $postarray['author-avatar'],
1830 'verb' => ACTIVITY_TAG,
1837 set_pconfig($uid, 'twitter', 'lastmentionid', $lastid);
1840 function twitter_original_url($url, $depth=1, $fetchbody = false) {
1844 $siteinfo = array();
1846 curl_setopt($ch, CURLOPT_URL, $url);
1847 curl_setopt($ch, CURLOPT_HEADER, 1);
1850 curl_setopt($ch, CURLOPT_NOBODY, 0);
1852 curl_setopt($ch, CURLOPT_NOBODY, 1);
1854 curl_setopt($ch, CURLOPT_TIMEOUT, 10);
1855 curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
1856 curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8; rv:24.0) Gecko/20100101 Firefox/24.0');
1858 $header = curl_exec($ch);
1859 $curl_info = @curl_getinfo($ch);
1860 $http_code = $curl_info['http_code'];
1863 if ((($curl_info['http_code'] == "301") OR ($curl_info['http_code'] == "302"))
1864 AND (($curl_info['redirect_url'] != "") OR ($curl_info['location'] != ""))) {
1865 if ($curl_info['redirect_url'] != "")
1866 return(twitter_original_url($curl_info['redirect_url'], ++$depth, $fetchbody));
1868 return(twitter_original_url($curl_info['location'], ++$depth, $fetchbody));
1871 $pos = strpos($header, "\r\n\r\n");
1874 $body = trim(substr($header, $pos));
1878 if (trim($body) == "")
1879 return(twitter_original_url($url, ++$depth, true));
1881 $doc = new DOMDocument();
1882 @$doc->loadHTML($body);
1884 $xpath = new DomXPath($doc);
1886 $list = $xpath->query("//meta[@content]");
1887 foreach ($list as $node) {
1889 if ($node->attributes->length)
1890 foreach ($node->attributes as $attribute)
1891 $attr[$attribute->name] = $attribute->value;
1893 if (@$attr["http-equiv"] == 'refresh') {
1894 $path = $attr["content"];
1895 $pathinfo = explode(";", $path);
1897 foreach ($pathinfo AS $value)
1898 if (substr(strtolower($value), 0, 4) == "url=")
1899 return(twitter_original_url(substr($value, 4), ++$depth));
1906 function twitter_siteinfo($url, $dontincludemedia) {
1907 require_once("mod/parse_url.php");
1909 // Fetch site infos - but only from the meta data
1910 $data = parseurl_getsiteinfo($url, true);
1912 if ($dontincludemedia)
1913 unset($data["images"]);
1915 if (!is_string($data["text"]) AND (sizeof($data["images"]) == 0) AND ($data["title"] == $url))
1918 if (is_string($data["title"]))
1919 $text .= "[bookmark=".$url."]".trim($data["title"])."[/bookmark]\n";
1921 // Add a spoiler to the extra information
1922 //if ((sizeof($data["images"]) > 0) OR is_string($data["text"]))
1923 // $text .= "[spoiler]";
1925 if (sizeof($data["images"]) > 0) {
1926 $imagedata = $data["images"][0];
1927 //$text .= '[img='.$imagedata["width"].'x'.$imagedata["height"].']'.$imagedata["src"].'[/img]' . "\n";
1928 $text .= '[img]'.$imagedata["src"].'[/img]'."\n";
1931 if (is_string($data["text"]))
1932 $text .= "[quote]".$data["text"]."[/quote]";
1934 //if ((sizeof($data["images"]) > 0) OR is_string($data["text"]))
1935 // $text .= "[/spoiler]";
1941 function twitter_convertmsg($a, $body, $no_tags = false, $dontincludemedia) {
1943 require_once("include/oembed.php");
1945 $links = preg_match_all("/([^\]\='".'"'."]|^)(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism", $body,$matches,PREG_SET_ORDER);
1952 foreach ($matches AS $match) {
1953 $expanded_url = twitter_original_url($match[2]);
1955 $oembed_data = oembed_fetch_url($expanded_url);
1958 $type = $oembed_data->type;
1960 if ($oembed_data->type != "link")
1961 $body = str_replace($match[2], "\n[url]".$expanded_url."[/url]\n", $body);
1963 $img_str = fetch_url($expanded_url, true, $redirects, 4);
1965 $tempfile = tempnam(get_config("system","temppath"), "cache");
1966 file_put_contents($tempfile, $img_str);
1967 $mime = image_type_to_mime_type(exif_imagetype($tempfile));
1970 if (substr($mime, 0, 6) == "image/") {
1972 $body = str_replace($match[2], "[img]".$expanded_url."[/img]", $body);
1973 $dontincludemedia = true;
1975 $type = $oembed_data->type;
1976 $footerurl = $expanded_url;
1977 $footerlink = "[url=".$expanded_url."]".$expanded_url."[/url]";
1979 $body = str_replace($match[2], $footerlink, $body);
1984 if ($footerurl != "")
1985 $footer = twitter_siteinfo($footerurl, $dontincludemedia);
1987 if (($footerlink != "") AND (trim($footer) != "")) {
1988 $removedlink = trim(str_replace($footerlink, "", $body));
1990 if (strstr($body, $removedlink))
1991 $body = $removedlink;
1993 $body .= "\n\n[class=type-".$type."]".$footer."[/class]";
1998 return(array("body" => $body, "tags" => ""));
2002 $tags = get_tags($body);
2005 foreach($tags as $tag) {
2006 if (strstr(trim($tag), " "))
2009 if(strpos($tag,'#') === 0) {
2010 if(strpos($tag,'[url='))
2013 // don't link tags that are already embedded in links
2015 if(preg_match('/\[(.*?)' . preg_quote($tag,'/') . '(.*?)\]/',$body))
2017 if(preg_match('/\[(.*?)\]\((.*?)' . preg_quote($tag,'/') . '(.*?)\)/',$body))
2020 $basetag = str_replace('_',' ',substr($tag,1));
2021 $body = str_replace($tag,'#[url=' . $a->get_baseurl() . '/search?tag=' . rawurlencode($basetag) . ']' . $basetag . '[/url]',$body);
2022 if(strlen($str_tags))
2024 $str_tags .= '#[url=' . $a->get_baseurl() . '/search?tag=' . rawurlencode($basetag) . ']' . $basetag . '[/url]';
2026 } elseif(strpos($tag,'@') === 0) {
2027 $basetag = substr($tag,1);
2028 $body = str_replace($tag,'@[url=https://twitter.com/' . rawurlencode($basetag) . ']' . $basetag . '[/url]',$body);
2034 $cnt = preg_match_all('/@\[url=(.*?)\[\/url\]/ism',$body,$matches,PREG_SET_ORDER);
2036 foreach($matches as $mtch) {
2037 if(strlen($str_tags))
2039 $str_tags .= '@[url=' . $mtch[1] . '[/url]';
2043 return(array("body"=>$body, "tags"=>$str_tags));
2047 function twitter_fetch_own_contact($a, $uid) {
2048 $ckey = get_config('twitter', 'consumerkey');
2049 $csecret = get_config('twitter', 'consumersecret');
2050 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
2051 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
2053 $own_id = get_pconfig($uid, 'twitter', 'own_id');
2057 if ($own_id == "") {
2058 require_once('library/twitteroauth.php');
2060 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
2062 // Fetching user data
2063 $user = $connection->get('account/verify_credentials');
2065 set_pconfig($uid, 'twitter', 'own_id', $user->id_str);
2067 $contact_id = twitter_fetch_contact($uid, $user, true);
2070 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1",
2071 intval($uid), dbesc("twitter::".$own_id));
2073 $contact_id = $r[0]["id"];
2075 del_pconfig($uid, 'twitter', 'own_id');
2079 return($contact_id);
2082 function twitter_is_retweet($a, $uid, $body) {
2083 $body = trim($body);
2085 // Skip if it isn't a pure repeated messages
2086 // Does it start with a share?
2087 if (strpos($body, "[share") > 0)
2090 // Does it end with a share?
2091 if (strlen($body) > (strrpos($body, "[/share]") + 8))
2094 $attributes = preg_replace("/\[share(.*?)\]\s?(.*?)\s?\[\/share\]\s?/ism","$1",$body);
2095 // Skip if there is no shared message in there
2096 if ($body == $attributes)
2100 preg_match("/link='(.*?)'/ism", $attributes, $matches);
2101 if ($matches[1] != "")
2102 $link = $matches[1];
2104 preg_match('/link="(.*?)"/ism', $attributes, $matches);
2105 if ($matches[1] != "")
2106 $link = $matches[1];
2108 $id = preg_replace("=https?://twitter.com/(.*)/status/(.*)=ism", "$2", $link);
2112 logger('twitter_is_retweet: Retweeting id '.$id.' for user '.$uid, LOGGER_DEBUG);
2114 $ckey = get_config('twitter', 'consumerkey');
2115 $csecret = get_config('twitter', 'consumersecret');
2116 $otoken = get_pconfig($uid, 'twitter', 'oauthtoken');
2117 $osecret = get_pconfig($uid, 'twitter', 'oauthsecret');
2119 require_once('library/twitteroauth.php');
2120 $connection = new TwitterOAuth($ckey,$csecret,$otoken,$osecret);
2122 $result = $connection->post('statuses/retweet/'.$id);
2124 logger('twitter_is_retweet: result '.print_r($result, true), LOGGER_DEBUG);
2126 return(!isset($result->errors));