2011-09-25 04:56:03 -04:00
< ? php
/**
* Name : Twitter Connector
2015-11-14 03:22:32 -05:00
* Description : Bidirectional ( posting , relaying and reading ) connector for Twitter .
2018-01-27 23:20:09 -05:00
* Version : 1.1 . 0
2013-06-14 13:40:10 -04:00
* Author : Tobias Diekershoff < https :// f . diekershoff . de / profile / tobias >
2013-04-01 03:02:38 -04:00
* Author : Michael Vogel < https :// pirati . ca / profile / heluecht >
2018-01-27 23:20:09 -05:00
* Maintainer : Hypolite Petovan < https :// friendica . mrpetovan . com / profile / hypolite >
2013-05-31 10:26:51 -04:00
*
2018-01-27 23:20:09 -05:00
* Copyright ( c ) 2011 - 2013 Tobias Diekershoff , Michael Vogel , Hypolite Petovan
2013-05-31 10:26:51 -04:00
* All rights reserved .
*
* Redistribution and use in source and binary forms , with or without
* modification , are permitted provided that the following conditions are met :
* * Redistributions of source code must retain the above copyright notice ,
* this list of conditions and the following disclaimer .
* * Redistributions in binary form must reproduce the above
* * copyright notice , this list of conditions and the following disclaimer in
* the documentation and / or other materials provided with the distribution .
* * Neither the name of the < organization > nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission .
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS " AS IS " AND
* ANY EXPRESS OR IMPLIED WARRANTIES , INCLUDING , BUT NOT LIMITED TO , THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED . IN NO EVENT SHALL < COPYRIGHT HOLDER > BE LIABLE FOR ANY DIRECT ,
* INDIRECT , INCIDENTAL , SPECIAL , EXEMPLARY , OR CONSEQUENTIAL DAMAGES ( INCLUDING ,
* BUT NOT LIMITED TO , PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES ; LOSS OF USE ,
* DATA , OR PROFITS ; OR BUSINESS INTERRUPTION ) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY , WHETHER IN CONTRACT , STRICT LIABILITY , OR TORT ( INCLUDING NEGLIGENCE
* OR OTHERWISE ) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE , EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE .
*
2011-09-25 04:56:03 -04:00
*/
2018-01-20 08:57:41 -05:00
/* Twitter Addon for Friendica
2011-09-25 04:56:03 -04:00
*
* Author : Tobias Diekershoff
* tobias . diekershoff @ gmx . net
*
* License : 3 - clause BSD license
*
* Configuration :
2018-01-20 08:57:41 -05:00
* To use this addon you need a OAuth Consumer key pair ( key & secret )
2011-09-25 04:56:03 -04:00
* you can get it from Twitter at https :// twitter . com / apps
*
2011-12-16 04:45:53 -05:00
* Register your Friendica site as " Client " application with " Read & Write " access
2011-09-25 04:56:03 -04:00
* we do not need " Twitter as login " . When you ' ve registered the app you get the
* OAuth Consumer key and secret pair for your application / site .
*
2012-01-16 02:02:39 -05:00
* Add this key pair to your global . htconfig . php or use the admin panel .
2011-09-25 04:56:03 -04:00
*
* $a -> config [ 'twitter' ][ 'consumerkey' ] = 'your consumer_key here' ;
* $a -> config [ 'twitter' ][ 'consumersecret' ] = 'your consumer_secret here' ;
*
2018-01-20 08:57:41 -05:00
* To activate the addon itself add it to the $a -> config [ 'system' ][ 'addon' ]
2011-09-25 04:56:03 -04:00
* setting . After this , your user can configure their Twitter account settings
2018-01-20 08:57:41 -05:00
* from " Settings -> Addon Settings " .
2011-09-25 04:56:03 -04:00
*
2018-01-27 23:20:09 -05:00
* Requirements : PHP5 , curl
2011-09-25 04:56:03 -04:00
*/
2018-01-27 23:12:04 -05:00
use Abraham\TwitterOAuth\TwitterOAuth ;
2018-06-02 11:28:13 -04:00
use Abraham\TwitterOAuth\TwitterOAuthException ;
2017-12-08 00:18:01 -05:00
use Friendica\App ;
2017-12-31 21:06:03 -05:00
use Friendica\Content\OEmbed ;
2018-01-26 20:30:38 -05:00
use Friendica\Content\Text\Plaintext ;
2018-01-16 19:51:12 -05:00
use Friendica\Core\Addon ;
2017-11-12 23:33:14 -05:00
use Friendica\Core\Config ;
2018-01-22 14:03:11 -05:00
use Friendica\Core\L10n ;
2017-11-12 23:33:14 -05:00
use Friendica\Core\PConfig ;
2017-11-05 10:07:52 -05:00
use Friendica\Core\Worker ;
2017-12-08 00:18:01 -05:00
use Friendica\Model\GContact ;
2018-05-09 11:40:07 -04:00
use Friendica\Model\Contact ;
2017-12-09 13:50:29 -05:00
use Friendica\Model\Group ;
2018-01-28 06:19:38 -05:00
use Friendica\Model\Item ;
2018-04-21 20:50:58 -04:00
use Friendica\Model\ItemContent ;
2018-01-22 17:52:51 -05:00
use Friendica\Model\Queue ;
2017-12-09 13:50:29 -05:00
use Friendica\Model\User ;
2017-12-08 00:18:01 -05:00
use Friendica\Object\Image ;
2018-01-26 21:39:02 -05:00
use Friendica\Util\DateTimeFormat ;
2018-01-27 08:52:02 -05:00
use Friendica\Util\Network ;
2018-05-04 17:13:28 -04:00
use Friendica\Database\DBM ;
2017-11-05 10:07:52 -05:00
2018-01-27 23:12:04 -05:00
require_once 'boot.php' ;
require_once 'include/dba.php' ;
2017-11-12 23:33:14 -05:00
require_once 'include/enotify.php' ;
2018-01-27 23:12:04 -05:00
require_once 'include/text.php' ;
2018-01-28 12:17:19 -05:00
require_once __DIR__ . DIRECTORY_SEPARATOR . 'vendor' . DIRECTORY_SEPARATOR . 'autoload.php' ;
2016-02-13 07:44:57 -05:00
2013-01-01 17:18:15 -05:00
define ( 'TWITTER_DEFAULT_POLL_INTERVAL' , 5 ); // given in minutes
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
function twitter_install ()
{
2011-09-25 04:56:03 -04:00
// we need some hooks, for the configuration and for sending tweets
2018-01-16 19:51:12 -05:00
Addon :: registerHook ( 'connector_settings' , 'addon/twitter/twitter.php' , 'twitter_settings' );
Addon :: registerHook ( 'connector_settings_post' , 'addon/twitter/twitter.php' , 'twitter_settings_post' );
Addon :: registerHook ( 'post_local' , 'addon/twitter/twitter.php' , 'twitter_post_local' );
Addon :: registerHook ( 'notifier_normal' , 'addon/twitter/twitter.php' , 'twitter_post_hook' );
Addon :: registerHook ( 'jot_networks' , 'addon/twitter/twitter.php' , 'twitter_jot_nets' );
Addon :: registerHook ( 'cron' , 'addon/twitter/twitter.php' , 'twitter_cron' );
Addon :: registerHook ( 'queue_predeliver' , 'addon/twitter/twitter.php' , 'twitter_queue_hook' );
Addon :: registerHook ( 'follow' , 'addon/twitter/twitter.php' , 'twitter_follow' );
Addon :: registerHook ( 'expire' , 'addon/twitter/twitter.php' , 'twitter_expire' );
Addon :: registerHook ( 'prepare_body' , 'addon/twitter/twitter.php' , 'twitter_prepare_body' );
Addon :: registerHook ( 'check_item_notification' , 'addon/twitter/twitter.php' , 'twitter_check_item_notification' );
2011-09-25 04:56:03 -04:00
logger ( " installed twitter " );
}
2017-12-08 00:18:01 -05:00
function twitter_uninstall ()
{
2018-01-16 19:51:12 -05:00
Addon :: unregisterHook ( 'connector_settings' , 'addon/twitter/twitter.php' , 'twitter_settings' );
Addon :: unregisterHook ( 'connector_settings_post' , 'addon/twitter/twitter.php' , 'twitter_settings_post' );
Addon :: unregisterHook ( 'post_local' , 'addon/twitter/twitter.php' , 'twitter_post_local' );
Addon :: unregisterHook ( 'notifier_normal' , 'addon/twitter/twitter.php' , 'twitter_post_hook' );
Addon :: unregisterHook ( 'jot_networks' , 'addon/twitter/twitter.php' , 'twitter_jot_nets' );
Addon :: unregisterHook ( 'cron' , 'addon/twitter/twitter.php' , 'twitter_cron' );
Addon :: unregisterHook ( 'queue_predeliver' , 'addon/twitter/twitter.php' , 'twitter_queue_hook' );
Addon :: unregisterHook ( 'follow' , 'addon/twitter/twitter.php' , 'twitter_follow' );
Addon :: unregisterHook ( 'expire' , 'addon/twitter/twitter.php' , 'twitter_expire' );
Addon :: unregisterHook ( 'prepare_body' , 'addon/twitter/twitter.php' , 'twitter_prepare_body' );
Addon :: unregisterHook ( 'check_item_notification' , 'addon/twitter/twitter.php' , 'twitter_check_item_notification' );
2011-10-11 21:46:33 -04:00
// old setting - remove only
2018-01-16 19:51:12 -05:00
Addon :: unregisterHook ( 'post_local_end' , 'addon/twitter/twitter.php' , 'twitter_post_hook' );
2018-01-20 08:57:41 -05:00
Addon :: unregisterHook ( 'addon_settings' , 'addon/twitter/twitter.php' , 'twitter_settings' );
Addon :: unregisterHook ( 'addon_settings_post' , 'addon/twitter/twitter.php' , 'twitter_settings_post' );
2011-09-25 04:56:03 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_check_item_notification ( App $a , & $notification_data )
{
2017-11-06 18:55:24 -05:00
$own_id = PConfig :: get ( $notification_data [ " uid " ], 'twitter' , 'own_id' );
2016-02-13 07:44:57 -05:00
$own_user = q ( " SELECT `url` FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1 " ,
intval ( $notification_data [ " uid " ]),
dbesc ( " twitter:: " . $own_id )
2017-12-08 00:18:01 -05:00
);
2016-02-13 07:44:57 -05:00
2017-12-08 00:18:01 -05:00
if ( $own_user ) {
2016-02-13 07:44:57 -05:00
$notification_data [ " profiles " ][] = $own_user [ 0 ][ " url " ];
2017-12-08 00:18:01 -05:00
}
2016-02-13 07:44:57 -05:00
}
2017-12-08 00:18:01 -05:00
function twitter_follow ( App $a , & $contact )
{
logger ( " twitter_follow: Check if contact is twitter contact. " . $contact [ " url " ], LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( ! strstr ( $contact [ " url " ], " ://twitter.com " ) && ! strstr ( $contact [ " url " ], " @twitter.com " )) {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
// contact seems to be a twitter contact, so continue
$nickname = preg_replace ( " =https?://twitter.com/(.*)=ism " , " $ 1 " , $contact [ " url " ]);
$nickname = str_replace ( " @twitter.com " , " " , $nickname );
$uid = $a -> user [ " uid " ];
2018-01-27 23:20:09 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
2017-11-06 18:55:24 -05:00
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
2018-01-27 23:20:09 -05:00
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
2017-11-06 18:55:24 -05:00
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
2013-10-14 18:52:01 -04:00
2018-01-30 13:52:06 -05:00
// If the addon is not configured (general or for this user) quit here
if ( empty ( $ckey ) || empty ( $csecret ) || empty ( $otoken ) || empty ( $osecret )) {
$contact = false ;
return ;
}
2018-01-27 23:12:04 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
$connection -> post ( 'friendships/create' , [ 'screen_name' => $nickname ]);
2013-10-14 18:52:01 -04:00
twitter_fetchuser ( $a , $uid , $nickname );
$r = q ( " SELECT name,nick,url,addr,batch,notify,poll,request,confirm,poco,photo,priority,network,alias,pubkey
FROM `contact` WHERE `uid` = % d AND `nick` = '%s' " ,
intval ( $uid ),
dbesc ( $nickname ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$contact [ " contact " ] = $r [ 0 ];
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_jot_nets ( App $a , & $b )
{
if ( ! local_user ()) {
2011-09-25 04:56:03 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2011-09-25 04:56:03 -04:00
2017-12-08 00:18:01 -05:00
$tw_post = PConfig :: get ( local_user (), 'twitter' , 'post' );
if ( intval ( $tw_post ) == 1 ) {
$tw_defpost = PConfig :: get ( local_user (), 'twitter' , 'post_by_default' );
2011-09-25 04:56:03 -04:00
$selected = (( intval ( $tw_defpost ) == 1 ) ? ' checked="checked" ' : '' );
2017-06-08 21:20:27 -04:00
$b .= '<div class="profile-jot-net"><input type="checkbox" name="twitter_enable"' . $selected . ' value="1" /> '
2018-01-22 14:03:11 -05:00
. L10n :: t ( 'Post to Twitter' ) . '</div>' ;
2011-09-25 04:56:03 -04:00
}
}
2017-12-08 00:18:01 -05:00
function twitter_settings_post ( App $a , $post )
{
if ( ! local_user ()) {
2011-09-25 04:56:03 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
// don't check twitter settings if twitter submit button is not clicked
2018-02-07 20:20:42 -05:00
if ( empty ( $_POST [ 'twitter-disconnect' ]) && empty ( $_POST [ 'twitter-submit' ])) {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-02-07 20:20:42 -05:00
if ( ! empty ( $_POST [ 'twitter-disconnect' ])) {
2017-12-08 00:18:01 -05:00
/* * *
2011-09-25 04:56:03 -04:00
* if the twitter - disconnect checkbox is set , clear the OAuth key / secret pair
* from the user configuration
*/
2017-11-08 00:59:33 -05:00
PConfig :: delete ( local_user (), 'twitter' , 'consumerkey' );
PConfig :: delete ( local_user (), 'twitter' , 'consumersecret' );
PConfig :: delete ( local_user (), 'twitter' , 'oauthtoken' );
PConfig :: delete ( local_user (), 'twitter' , 'oauthsecret' );
PConfig :: delete ( local_user (), 'twitter' , 'post' );
PConfig :: delete ( local_user (), 'twitter' , 'post_by_default' );
PConfig :: delete ( local_user (), 'twitter' , 'lastid' );
PConfig :: delete ( local_user (), 'twitter' , 'mirror_posts' );
PConfig :: delete ( local_user (), 'twitter' , 'import' );
PConfig :: delete ( local_user (), 'twitter' , 'create_user' );
PConfig :: delete ( local_user (), 'twitter' , 'own_id' );
2011-09-25 04:56:03 -04:00
} else {
2017-12-08 00:18:01 -05:00
if ( isset ( $_POST [ 'twitter-pin' ])) {
// if the user supplied us with a PIN from Twitter, let the magic of OAuth happen
logger ( 'got a Twitter PIN' );
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
// the token and secret for which the PIN was generated were hidden in the settings
// form as token and token2, we need a new connection to Twitter using these token
// and secret to request a Access Token with the PIN
2018-02-07 20:20:42 -05:00
try {
if ( empty ( $_POST [ 'twitter-pin' ])) {
throw new Exception ( L10n :: t ( 'You submitted an empty PIN, please Sign In with Twitter again to get a new one.' ));
}
$connection = new TwitterOAuth ( $ckey , $csecret , $_POST [ 'twitter-token' ], $_POST [ 'twitter-token2' ]);
$token = $connection -> oauth ( " oauth/access_token " , [ " oauth_verifier " => $_POST [ 'twitter-pin' ]]);
// ok, now that we have the Access Token, save them in the user config
PConfig :: set ( local_user (), 'twitter' , 'oauthtoken' , $token [ 'oauth_token' ]);
PConfig :: set ( local_user (), 'twitter' , 'oauthsecret' , $token [ 'oauth_token_secret' ]);
PConfig :: set ( local_user (), 'twitter' , 'post' , 1 );
} catch ( Exception $e ) {
info ( $e -> getMessage ());
2018-06-02 11:28:13 -04:00
} catch ( TwitterOAuthException $e ) {
info ( $e -> getMessage ());
2018-02-07 20:20:42 -05:00
}
2017-12-08 00:18:01 -05:00
// reload the Addon Settings page, if we don't do it see Bug #42
2017-12-31 21:04:02 -05:00
goaway ( 'settings/connectors' );
2017-12-08 00:18:01 -05:00
} else {
// if no PIN is supplied in the POST variables, the user has changed the setting
// to post a tweet for every new __public__ posting to the wall
PConfig :: set ( local_user (), 'twitter' , 'post' , intval ( $_POST [ 'twitter-enable' ]));
PConfig :: set ( local_user (), 'twitter' , 'post_by_default' , intval ( $_POST [ 'twitter-default' ]));
PConfig :: set ( local_user (), 'twitter' , 'mirror_posts' , intval ( $_POST [ 'twitter-mirror' ]));
PConfig :: set ( local_user (), 'twitter' , 'import' , intval ( $_POST [ 'twitter-import' ]));
PConfig :: set ( local_user (), 'twitter' , 'create_user' , intval ( $_POST [ 'twitter-create_user' ]));
if ( ! intval ( $_POST [ 'twitter-mirror' ])) {
PConfig :: delete ( local_user (), 'twitter' , 'lastid' );
}
2018-01-22 14:03:11 -05:00
info ( L10n :: t ( 'Twitter settings updated.' ) . EOL );
2017-12-08 00:18:01 -05:00
}
}
2011-09-25 04:56:03 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_settings ( App $a , & $s )
{
if ( ! local_user ()) {
2014-06-10 14:13:11 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2014-06-10 14:13:11 -04:00
$a -> page [ 'htmlhead' ] .= '<link rel="stylesheet" type="text/css" href="' . $a -> get_baseurl () . '/addon/twitter/twitter.css' . '" media="all" />' . " \r \n " ;
2017-12-08 00:18:01 -05:00
/* * *
2011-09-25 04:56:03 -04:00
* 1 ) Check that we have global consumer key & secret
* 2 ) If no OAuthtoken & stuff is present , generate button to get some
2017-11-07 17:44:39 -05:00
* 3 ) Checkbox for " Send public notices (280 chars only)
2011-09-25 04:56:03 -04:00
*/
2018-01-27 23:20:09 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( local_user (), 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( local_user (), 'twitter' , 'oauthsecret' );
2018-01-05 02:53:24 -05:00
$enabled = intval ( PConfig :: get ( local_user (), 'twitter' , 'post' ));
$defenabled = intval ( PConfig :: get ( local_user (), 'twitter' , 'post_by_default' ));
$mirrorenabled = intval ( PConfig :: get ( local_user (), 'twitter' , 'mirror_posts' ));
$importenabled = intval ( PConfig :: get ( local_user (), 'twitter' , 'import' ));
$create_userenabled = intval ( PConfig :: get ( local_user (), 'twitter' , 'create_user' ));
2011-09-25 04:56:03 -04:00
2014-04-24 10:18:36 -04:00
$css = (( $enabled ) ? '' : '-disabled' );
2013-12-01 18:43:47 -05:00
$s .= '<span id="settings_twitter_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">' ;
2018-01-22 14:03:11 -05:00
$s .= '<img class="connector' . $css . '" src="images/twitter.png" /><h3 class="connector">' . L10n :: t ( 'Twitter Import/Export/Mirror' ) . '</h3>' ;
2013-12-01 18:43:47 -05:00
$s .= '</span>' ;
$s .= '<div id="settings_twitter_expanded" class="settings-block" style="display: none;">' ;
$s .= '<span class="fakelink" onclick="openClose(\'settings_twitter_expanded\'); openClose(\'settings_twitter_inflated\');">' ;
2018-01-22 14:03:11 -05:00
$s .= '<img class="connector' . $css . '" src="images/twitter.png" /><h3 class="connector">' . L10n :: t ( 'Twitter Import/Export/Mirror' ) . '</h3>' ;
2013-12-01 18:43:47 -05:00
$s .= '</span>' ;
2011-09-25 04:56:03 -04:00
2017-12-08 00:18:01 -05:00
if (( ! $ckey ) && ( ! $csecret )) {
2018-02-07 20:19:22 -05:00
/* no global consumer keys
2011-09-25 04:56:03 -04:00
* display warning and skip personal config
*/
2018-01-22 14:03:11 -05:00
$s .= '<p>' . L10n :: t ( 'No consumer key pair for Twitter found. Please contact your site administrator.' ) . '</p>' ;
2011-09-25 04:56:03 -04:00
} else {
2018-02-07 20:19:22 -05:00
// ok we have a consumer key pair now look into the OAuth stuff
2017-12-08 00:18:01 -05:00
if (( ! $otoken ) && ( ! $osecret )) {
2018-02-07 20:19:22 -05:00
/* the user has not yet connected the account to twitter ...
2011-09-25 04:56:03 -04:00
* get a temporary OAuth key / secret pair and display a button with
* which the user can request a PIN to connect the account to a
* account at Twitter .
*/
$connection = new TwitterOAuth ( $ckey , $csecret );
2018-06-02 11:28:13 -04:00
try {
$result = $connection -> oauth ( 'oauth/request_token' , [ 'oauth_callback' => 'oob' ]);
$s .= '<p>' . L10n :: t ( 'At this Friendica instance the Twitter addon 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>' ;
$s .= '<a href="' . $connection -> url ( 'oauth/authorize' , [ 'oauth_token' => $result [ 'oauth_token' ]]) . '" target="_twitter"><img src="addon/twitter/lighter.png" alt="' . L10n :: t ( 'Log in with Twitter' ) . '"></a>' ;
$s .= '<div id="twitter-pin-wrapper">' ;
$s .= '<label id="twitter-pin-label" for="twitter-pin">' . L10n :: t ( 'Copy the PIN from Twitter here' ) . '</label>' ;
$s .= '<input id="twitter-pin" type="text" name="twitter-pin" />' ;
$s .= '<input id="twitter-token" type="hidden" name="twitter-token" value="' . $result [ 'oauth_token' ] . '" />' ;
$s .= '<input id="twitter-token2" type="hidden" name="twitter-token2" value="' . $result [ 'oauth_token_secret' ] . '" />' ;
$s .= '</div><div class="clear"></div>' ;
$s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . L10n :: t ( 'Save Settings' ) . '" /></div>' ;
} catch ( TwitterOAuthException $e ) {
$s .= '<p>' . L10n :: t ( 'An error occured: ' ) . $e -> getMessage () . '</p>' ;
}
2011-09-25 04:56:03 -04:00
} else {
2017-12-08 00:18:01 -05:00
/* * *
2011-09-25 04:56:03 -04:00
* we have an OAuth key / secret pair for the user
* so let ' s give a chance to disable the postings to Twitter
*/
2017-12-08 00:18:01 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2018-06-02 11:28:13 -04:00
try {
$details = $connection -> get ( 'account/verify_credentials' );
$field_checkbox = get_markup_template ( 'field_checkbox.tpl' );
$s .= ' < div id = " twitter-info " >
< p > ' . L10n::t(' Currently connected to : ') . ' < a href = " https://twitter.com/' . $details->screen_name . ' " target = " _twitter " > ' . $details->screen_name . ' </ a >
< button type = " submit " name = " twitter-disconnect " value = " 1 " > ' . L10n::t(' Disconnect ') . ' </ button >
</ p >
< p id = " twitter-info-block " >
< a href = " https://twitter.com/' . $details->screen_name . ' " target = " _twitter " >< img id = " twitter-avatar " src = " ' . $details->profile_image_url . ' " /></ a >
< em > ' . $details->description . ' </ em >
</ p >
</ div > ' ;
$s .= '<div class="clear"></div>' ;
$s .= replace_macros ( $field_checkbox , [
'$field' => [ 'twitter-enable' , L10n :: t ( 'Allow posting to Twitter' ), $enabled , L10n :: 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.' )]
]);
if ( $a -> user [ 'hidewall' ]) {
$s .= '<p>' . L10n :: t ( '<strong>Note</strong>: Due to 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>' ;
}
$s .= replace_macros ( $field_checkbox , [
'$field' => [ 'twitter-default' , L10n :: t ( 'Send public postings to Twitter by default' ), $defenabled , '' ]
]);
$s .= replace_macros ( $field_checkbox , [
'$field' => [ 'twitter-mirror' , L10n :: t ( 'Mirror all posts from twitter that are no replies' ), $mirrorenabled , '' ]
]);
$s .= replace_macros ( $field_checkbox , [
'$field' => [ 'twitter-import' , L10n :: t ( 'Import the remote timeline' ), $importenabled , '' ]
]);
$s .= replace_macros ( $field_checkbox , [
'$field' => [ 'twitter-create_user' , L10n :: t ( 'Automatically create contacts' ), $create_userenabled , L10n :: t ( 'This will automatically create a contact in Friendica as soon as you receive a message from an existing contact via the Twitter network. If you do not enable this, you need to manually add those Twitter contacts in Friendica from whom you would like to see posts here. However if enabled, you cannot merely remove a twitter contact from the Friendica contact list, as it will recreate this contact when they post again.' )]
]);
$s .= '<div class="clear"></div>' ;
$s .= '<div class="settings-submit-wrapper" ><input type="submit" name="twitter-submit" class="settings-submit" value="' . L10n :: t ( 'Save Settings' ) . '" /></div>' ;
} catch ( TwitterOAuthException $e ) {
$s .= '<p>' . L10n :: t ( 'An error occured: ' ) . $e -> getMessage () . '</p>' ;
2018-01-05 02:53:24 -05:00
}
2011-09-25 04:56:03 -04:00
}
}
2014-06-10 14:13:11 -04:00
$s .= '</div><div class="clear"></div>' ;
2011-09-25 04:56:03 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_post_local ( App $a , & $b )
{
2017-09-06 12:16:33 -04:00
if ( $b [ 'edit' ]) {
2011-10-11 21:46:33 -04:00
return ;
2017-09-06 12:16:33 -04:00
}
2011-10-11 21:46:33 -04:00
2017-09-06 12:16:33 -04:00
if ( ! local_user () || ( local_user () != $b [ 'uid' ])) {
return ;
}
2011-10-11 21:46:33 -04:00
2017-11-06 18:55:24 -05:00
$twitter_post = intval ( PConfig :: get ( local_user (), 'twitter' , 'post' ));
2017-09-06 12:16:33 -04:00
$twitter_enable = (( $twitter_post && x ( $_REQUEST , 'twitter_enable' )) ? intval ( $_REQUEST [ 'twitter_enable' ]) : 0 );
2011-10-11 21:46:33 -04:00
2017-09-06 12:16:33 -04:00
// if API is used, default to the chosen settings
2017-11-06 18:55:24 -05:00
if ( $b [ 'api_source' ] && intval ( PConfig :: get ( local_user (), 'twitter' , 'post_by_default' ))) {
2017-09-06 12:16:33 -04:00
$twitter_enable = 1 ;
}
2011-10-11 21:46:33 -04:00
2017-09-06 12:16:33 -04:00
if ( ! $twitter_enable ) {
2014-06-10 14:13:11 -04:00
return ;
2017-09-06 12:16:33 -04:00
}
2011-10-11 21:46:33 -04:00
2017-09-06 12:16:33 -04:00
if ( strlen ( $b [ 'postopts' ])) {
2014-06-10 14:13:11 -04:00
$b [ 'postopts' ] .= ',' ;
2011-10-11 21:46:33 -04:00
}
2017-09-06 12:16:33 -04:00
$b [ 'postopts' ] .= 'twitter' ;
2011-10-11 21:46:33 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_action ( App $a , $uid , $pid , $action )
{
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
2017-11-06 18:55:24 -05:00
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
2017-12-08 00:18:01 -05:00
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
2017-11-06 18:55:24 -05:00
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
2013-10-14 18:52:01 -04:00
2018-01-27 23:12:04 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2013-10-14 18:52:01 -04:00
2018-01-15 08:15:33 -05:00
$post = [ 'id' => $pid ];
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_action ' " . $action . " ' ID: " . $pid . " data: " . print_r ( $post , true ), LOGGER_DATA );
2013-10-14 18:52:01 -04:00
switch ( $action ) {
case " delete " :
2018-01-27 23:12:04 -05:00
// To-Do: $result = $connection->post('statuses/destroy', $post);
2013-10-14 18:52:01 -04:00
break ;
case " like " :
2018-01-27 23:12:04 -05:00
$result = $connection -> post ( 'favorites/create' , $post );
2013-10-14 18:52:01 -04:00
break ;
case " unlike " :
2018-01-27 23:12:04 -05:00
$result = $connection -> post ( 'favorites/destroy' , $post );
2013-10-14 18:52:01 -04:00
break ;
}
2017-12-08 00:18:01 -05:00
logger ( " twitter_action ' " . $action . " ' send, result: " . print_r ( $result , true ), LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_post_hook ( App $a , & $b )
{
// Post to Twitter
if ( ! PConfig :: get ( $b [ " uid " ], 'twitter' , 'import' )
&& ( $b [ 'deleted' ] || $b [ 'private' ] || ( $b [ 'created' ] !== $b [ 'edited' ]))) {
return ;
2013-10-14 19:12:36 -04:00
}
2011-09-25 04:56:03 -04:00
2017-11-25 18:56:18 -05:00
if ( $b [ 'parent' ] != $b [ 'id' ]) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_post_hook: parameter " . print_r ( $b , true ), LOGGER_DATA );
2013-10-14 18:52:01 -04:00
2014-06-10 14:13:11 -04:00
// Looking if its a reply to a twitter post
2018-01-27 23:20:09 -05:00
if (( substr ( $b [ " parent-uri " ], 0 , 9 ) != " twitter:: " )
&& ( substr ( $b [ " extid " ], 0 , 9 ) != " twitter:: " )
&& ( substr ( $b [ " thr-parent " ], 0 , 9 ) != " twitter:: " ))
{
2017-12-08 00:18:01 -05:00
logger ( " twitter_post_hook: no twitter post " . $b [ " parent " ]);
2014-06-10 14:13:11 -04:00
return ;
2013-10-14 18:52:01 -04:00
}
2014-06-10 14:13:11 -04:00
$r = q ( " SELECT * FROM item WHERE item.uri = '%s' AND item.uid = %d LIMIT 1 " ,
dbesc ( $b [ " thr-parent " ]),
intval ( $b [ " uid " ]));
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $r )) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_post_hook: no parent found " . $b [ " thr-parent " ]);
2014-06-10 14:13:11 -04:00
return ;
} else {
$iscomment = true ;
$orig_post = $r [ 0 ];
}
2013-10-14 18:52:01 -04:00
2014-06-10 14:13:11 -04:00
$nicknameplain = preg_replace ( " =https?://twitter.com/(.*)=ism " , " $ 1 " , $orig_post [ " author-link " ]);
2017-12-08 00:18:01 -05:00
$nickname = " @[url= " . $orig_post [ " author-link " ] . " ] " . $nicknameplain . " [/url] " ;
$nicknameplain = " @ " . $nicknameplain ;
2013-12-26 20:02:48 -05:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_post_hook: comparing " . $nickname . " and " . $nicknameplain . " with " . $b [ " body " ], LOGGER_DEBUG );
if (( strpos ( $b [ " body " ], $nickname ) === false ) && ( strpos ( $b [ " body " ], $nicknameplain ) === false )) {
$b [ " body " ] = $nickname . " " . $b [ " body " ];
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_post_hook: parent found " . print_r ( $orig_post , true ), LOGGER_DATA );
2013-10-14 18:52:01 -04:00
} else {
$iscomment = false ;
2011-09-25 04:56:03 -04:00
2017-12-08 00:18:01 -05:00
if ( $b [ 'private' ] || ! strstr ( $b [ 'postopts' ], 'twitter' )) {
2013-10-14 18:52:01 -04:00
return ;
2017-11-25 18:56:18 -05:00
}
// Dont't post if the post doesn't belong to us.
// This is a check for forum postings
2018-01-10 08:37:11 -05:00
$self = dba :: selectFirst ( 'contact' , [ 'id' ], [ 'uid' => $b [ 'uid' ], 'self' => true ]);
2017-11-25 18:56:18 -05:00
if ( $b [ 'contact-id' ] != $self [ 'id' ]) {
return ;
}
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
if (( $b [ 'verb' ] == ACTIVITY_POST ) && $b [ 'deleted' ]) {
2013-10-14 18:52:01 -04:00
twitter_action ( $a , $b [ " uid " ], substr ( $orig_post [ " uri " ], 9 ), " delete " );
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $b [ 'verb' ] == ACTIVITY_LIKE ) {
logger ( " twitter_post_hook: parameter 2 " . substr ( $b [ " thr-parent " ], 9 ), LOGGER_DEBUG );
2018-01-27 23:20:09 -05:00
if ( $b [ 'deleted' ]) {
2013-10-14 18:52:01 -04:00
twitter_action ( $a , $b [ " uid " ], substr ( $b [ " thr-parent " ], 9 ), " unlike " );
2018-01-27 23:20:09 -05:00
} else {
2013-10-14 18:52:01 -04:00
twitter_action ( $a , $b [ " uid " ], substr ( $b [ " thr-parent " ], 9 ), " like " );
2018-01-27 23:20:09 -05:00
}
2011-10-11 21:46:33 -04:00
return ;
2014-06-10 14:13:11 -04:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $b [ 'deleted' ] || ( $b [ 'created' ] !== $b [ 'edited' ])) {
2014-06-10 14:13:11 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2011-09-25 04:56:03 -04:00
2013-01-01 17:18:15 -05:00
// if post comes from twitter don't send it back
2017-12-08 00:18:01 -05:00
if ( $b [ 'extid' ] == NETWORK_TWITTER ) {
2014-11-07 14:06:51 -05:00
return ;
2017-12-08 00:18:01 -05:00
}
2014-11-07 14:06:51 -05:00
2017-12-08 00:18:01 -05:00
if ( $b [ 'app' ] == " Twitter " ) {
2013-01-01 10:11:07 -05:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-01-01 10:11:07 -05:00
2011-10-11 21:46:33 -04:00
logger ( 'twitter post invoked' );
2011-09-25 04:56:03 -04:00
2017-11-07 11:10:01 -05:00
PConfig :: load ( $b [ 'uid' ], 'twitter' );
2011-10-11 21:46:33 -04:00
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $b [ 'uid' ], 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $b [ 'uid' ], 'twitter' , 'oauthsecret' );
2011-10-11 21:46:33 -04:00
2017-12-08 00:18:01 -05:00
if ( $ckey && $csecret && $otoken && $osecret ) {
2011-10-11 21:46:33 -04:00
logger ( 'twitter: we have customer key and oauth stuff, going to send.' , LOGGER_DEBUG );
2013-12-29 11:49:29 -05:00
// If it's a repeated message from twitter then do a native retweet and exit
2017-12-08 00:18:01 -05:00
if ( twitter_is_retweet ( $a , $b [ 'uid' ], $b [ 'body' ])) {
2013-12-29 11:49:29 -05:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-12-29 11:49:29 -05:00
2018-01-28 11:41:58 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2013-12-29 11:49:29 -05:00
2018-04-02 03:12:43 -04:00
// Set the timeout for upload to 30 seconds
$connection -> setTimeouts ( 10 , 30 );
2018-03-31 14:55:17 -04:00
2017-11-07 17:44:39 -05:00
$max_char = 280 ;
2018-04-21 20:50:58 -04:00
$msgarr = ItemContent :: getPlaintextPost ( $b , $max_char , true , 8 );
2014-05-29 06:42:25 -04:00
$msg = $msgarr [ " text " ];
2012-11-04 17:21:15 -05:00
2017-12-08 00:18:01 -05:00
if (( $msg == " " ) && isset ( $msgarr [ " title " ])) {
2018-01-26 20:30:38 -05:00
$msg = Plaintext :: shorten ( $msgarr [ " title " ], $max_char - 50 );
2017-12-08 00:18:01 -05:00
}
2014-05-29 06:42:25 -04:00
$image = " " ;
2017-12-08 00:18:01 -05:00
if ( isset ( $msgarr [ " url " ]) && ( $msgarr [ " type " ] != " photo " )) {
$msg .= " \n " . $msgarr [ " url " ];
2018-04-02 03:12:43 -04:00
$url_added = true ;
} else {
$url_added = false ;
2017-12-08 00:18:01 -05:00
}
2016-12-13 03:57:03 -05:00
2017-12-08 00:18:01 -05:00
if ( isset ( $msgarr [ " image " ]) && ( $msgarr [ " type " ] != " video " )) {
2014-05-29 06:42:25 -04:00
$image = $msgarr [ " image " ];
2017-12-08 00:18:01 -05:00
}
2013-12-29 11:49:29 -05:00
2018-04-02 01:42:33 -04:00
if ( empty ( $msg )) {
return ;
}
2011-10-11 21:46:33 -04:00
// and now tweet it :-)
2018-04-02 01:42:33 -04:00
$post = [];
if ( ! empty ( $image )) {
2018-03-31 02:03:56 -04:00
try {
2018-03-31 14:55:17 -04:00
$img_str = Network :: fetchUrl ( $image );
$tempfile = tempnam ( get_temppath (), 'cache' );
file_put_contents ( $tempfile , $img_str );
$media = $connection -> upload ( 'media/upload' , [ 'media' => $tempfile ]);
unlink ( $tempfile );
2013-10-14 18:52:01 -04:00
2018-04-02 01:42:33 -04:00
$post [ 'media_ids' ] = $media -> media_id_string ;
2018-03-31 02:03:56 -04:00
} catch ( Exception $e ) {
logger ( 'Exception when trying to send to Twitter: ' . $e -> getMessage ());
2013-09-05 02:35:37 -04:00
2013-07-28 14:40:37 -04:00
// Workaround: Remove the picture link so that the post can be reposted without it
2018-04-02 03:12:43 -04:00
// When there is another url already added, a second url would be superfluous.
if ( ! $url_added ) {
$msg .= " \n " . $image ;
}
2013-07-28 14:40:37 -04:00
$image = " " ;
2012-05-13 02:48:25 -04:00
}
2011-09-25 04:56:03 -04:00
}
2013-07-28 14:40:37 -04:00
2018-04-02 01:42:33 -04:00
$post [ 'status' ] = $msg ;
2017-10-19 02:40:00 -04:00
2018-04-02 01:42:33 -04:00
if ( $iscomment ) {
$post [ " in_reply_to_status_id " ] = substr ( $orig_post [ " uri " ], 9 );
}
2017-10-19 02:40:00 -04:00
2018-04-02 01:42:33 -04:00
$url = 'statuses/update' ;
$result = $connection -> post ( $url , $post );
logger ( 'twitter_post send, result: ' . print_r ( $result , true ), LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
2018-04-02 01:42:33 -04:00
if ( $result -> source ) {
Config :: set ( " twitter " , " application_name " , strip_tags ( $result -> source ));
}
2013-10-14 18:52:01 -04:00
2018-04-02 01:42:33 -04:00
if ( $result -> errors ) {
logger ( 'Send to Twitter failed: "' . print_r ( $result -> errors , true ) . '"' );
2015-03-22 03:55:45 -04:00
2018-04-02 01:42:33 -04:00
$r = q ( " SELECT `id` FROM `contact` WHERE `uid` = %d AND `self` " , intval ( $b [ 'uid' ]));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2018-04-02 01:42:33 -04:00
$a -> contact = $r [ 0 ][ " id " ];
2017-12-08 00:18:01 -05:00
}
2015-03-22 03:55:45 -04:00
2018-04-02 01:42:33 -04:00
$s = serialize ([ 'url' => $url , 'item' => $b [ 'id' ], 'post' => $post ]);
2013-09-05 02:35:37 -04:00
2018-04-02 01:42:33 -04:00
Queue :: add ( $a -> contact , NETWORK_TWITTER , $s );
notice ( L10n :: t ( 'Twitter post failed. Queued for retry.' ) . EOL );
} elseif ( $iscomment ) {
logger ( 'twitter_post: Update extid ' . $result -> id_str . " for post id " . $b [ 'id' ]);
Item :: update ([ 'extid' => " twitter:: " . $result -> id_str ], [ 'id' => $b [ 'id' ]]);
2013-07-28 14:40:37 -04:00
}
2011-09-25 04:56:03 -04:00
}
}
2018-01-20 08:57:41 -05:00
function twitter_addon_admin_post ( App $a )
2017-12-08 00:18:01 -05:00
{
2018-01-27 23:20:09 -05:00
$consumerkey = x ( $_POST , 'consumerkey' ) ? notags ( trim ( $_POST [ 'consumerkey' ])) : '' ;
$consumersecret = x ( $_POST , 'consumersecret' ) ? notags ( trim ( $_POST [ 'consumersecret' ])) : '' ;
2017-12-08 00:18:01 -05:00
Config :: set ( 'twitter' , 'consumerkey' , $consumerkey );
Config :: set ( 'twitter' , 'consumersecret' , $consumersecret );
2018-01-22 14:03:11 -05:00
info ( L10n :: t ( 'Settings updated.' ) . EOL );
2011-09-25 04:56:03 -04:00
}
2017-12-08 00:18:01 -05:00
2018-01-20 08:57:41 -05:00
function twitter_addon_admin ( App $a , & $o )
2017-12-08 00:18:01 -05:00
{
$t = get_markup_template ( " admin.tpl " , " addon/twitter/ " );
2012-12-22 15:36:35 -05:00
2018-01-15 08:15:33 -05:00
$o = replace_macros ( $t , [
2018-01-22 14:03:11 -05:00
'$submit' => L10n :: t ( 'Save Settings' ),
2017-12-08 00:18:01 -05:00
// name, label, value, help, [extra values]
2018-01-22 14:03:11 -05:00
'$consumerkey' => [ 'consumerkey' , L10n :: t ( 'Consumer key' ), Config :: get ( 'twitter' , 'consumerkey' ), '' ],
'$consumersecret' => [ 'consumersecret' , L10n :: t ( 'Consumer secret' ), Config :: get ( 'twitter' , 'consumersecret' ), '' ],
2018-01-15 08:15:33 -05:00
]);
2011-09-25 04:56:03 -04:00
}
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
function twitter_cron ( App $a , $b )
{
$last = Config :: get ( 'twitter' , 'last_poll' );
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
$poll_interval = intval ( Config :: get ( 'twitter' , 'poll_interval' ));
if ( ! $poll_interval ) {
2013-01-01 10:11:07 -05:00
$poll_interval = TWITTER_DEFAULT_POLL_INTERVAL ;
2017-12-08 00:18:01 -05:00
}
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
if ( $last ) {
2013-01-01 10:11:07 -05:00
$next = $last + ( $poll_interval * 60 );
2017-12-08 00:18:01 -05:00
if ( $next > time ()) {
2013-01-01 10:11:07 -05:00
logger ( 'twitter: poll intervall not reached' );
return ;
}
}
logger ( 'twitter: cron_start' );
2017-06-21 08:03:06 -04:00
$r = q ( " SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'mirror_posts' AND `v` = '1' " );
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2017-12-08 00:18:01 -05:00
foreach ( $r as $rr ) {
logger ( 'twitter: fetching for user ' . $rr [ 'uid' ]);
Worker :: add ( PRIORITY_MEDIUM , " addon/twitter/twitter_sync.php " , 1 , ( int ) $rr [ 'uid' ]);
2013-01-01 10:11:07 -05:00
}
}
2017-12-08 00:18:01 -05:00
$abandon_days = intval ( Config :: get ( 'system' , 'account_abandon_days' ));
2018-01-27 23:20:09 -05:00
if ( $abandon_days < 1 ) {
2015-01-09 01:07:07 -05:00
$abandon_days = 0 ;
2018-01-27 23:20:09 -05:00
}
2015-01-09 01:07:07 -05:00
2018-01-26 21:39:02 -05:00
$abandon_limit = date ( DateTimeFormat :: MYSQL , time () - $abandon_days * 86400 );
2013-10-14 18:52:01 -04:00
2017-06-21 08:03:06 -04:00
$r = q ( " SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'import' AND `v` = '1' " );
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2017-12-08 00:18:01 -05:00
foreach ( $r as $rr ) {
2015-01-09 01:07:07 -05:00
if ( $abandon_days != 0 ) {
$user = q ( " SELECT `login_date` FROM `user` WHERE uid=%d AND `login_date` >= '%s' " , $rr [ 'uid' ], $abandon_limit );
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $user )) {
2017-12-08 00:18:01 -05:00
logger ( 'abandoned account: timeline from user ' . $rr [ 'uid' ] . ' will not be imported' );
2015-01-09 01:07:07 -05:00
continue ;
}
}
2017-12-08 00:18:01 -05:00
logger ( 'twitter: importing timeline from user ' . $rr [ 'uid' ]);
Worker :: add ( PRIORITY_MEDIUM , " addon/twitter/twitter_sync.php " , 2 , ( int ) $rr [ 'uid' ]);
/*
// To-Do
// check for new contacts once a day
$last_contact_check = PConfig :: get ( $rr [ 'uid' ], 'pumpio' , 'contact_check' );
if ( $last_contact_check )
$next_contact_check = $last_contact_check + 86400 ;
else
$next_contact_check = 0 ;
if ( $next_contact_check <= time ()) {
pumpio_getallusers ( $a , $rr [ " uid " ]);
PConfig :: set ( $rr [ 'uid' ], 'pumpio' , 'contact_check' , time ());
}
*/
2014-06-10 14:13:11 -04:00
}
}
2013-10-14 18:52:01 -04:00
2013-01-01 10:11:07 -05:00
logger ( 'twitter: cron_end' );
2017-12-08 00:18:01 -05:00
Config :: set ( 'twitter' , 'last_poll' , time ());
2013-01-01 10:11:07 -05:00
}
2017-12-08 00:18:01 -05:00
function twitter_expire ( App $a , $b )
{
2017-11-06 18:55:24 -05:00
$days = Config :: get ( 'twitter' , 'expire' );
2014-06-05 11:45:13 -04:00
2017-12-08 00:18:01 -05:00
if ( $days == 0 ) {
2014-06-10 14:13:11 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2014-06-05 11:45:13 -04:00
2017-05-12 23:28:33 -04:00
if ( method_exists ( 'dba' , 'delete' )) {
2018-01-15 08:15:33 -05:00
$r = dba :: select ( 'item' , [ 'id' ], [ 'deleted' => true , 'network' => NETWORK_TWITTER ]);
2017-05-12 23:28:33 -04:00
while ( $row = dba :: fetch ( $r )) {
2018-01-15 08:15:33 -05:00
dba :: delete ( 'item' , [ 'id' => $row [ 'id' ]]);
2017-05-12 23:28:33 -04:00
}
dba :: close ( $r );
} else {
$r = q ( " DELETE FROM `item` WHERE `deleted` AND `network` = '%s' " , dbesc ( NETWORK_TWITTER ));
}
2014-06-05 11:45:13 -04:00
2017-12-08 00:18:01 -05:00
require_once " include/items.php " ;
2014-06-05 11:45:13 -04:00
2014-06-10 14:13:11 -04:00
logger ( 'twitter_expire: expire_start' );
2014-06-05 11:45:13 -04:00
2014-06-10 14:13:11 -04:00
$r = q ( " SELECT * FROM `pconfig` WHERE `cat` = 'twitter' AND `k` = 'import' AND `v` = '1' ORDER BY RAND() " );
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2017-12-08 00:18:01 -05:00
foreach ( $r as $rr ) {
logger ( 'twitter_expire: user ' . $rr [ 'uid' ]);
2018-01-28 06:19:38 -05:00
Item :: expire ( $rr [ 'uid' ], $days , NETWORK_TWITTER , true );
2014-06-10 14:13:11 -04:00
}
}
2014-06-05 11:45:13 -04:00
2014-06-10 14:13:11 -04:00
logger ( 'twitter_expire: expire_end' );
2014-06-05 11:45:13 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_prepare_body ( App $a , & $b )
{
if ( $b [ " item " ][ " network " ] != NETWORK_TWITTER ) {
2014-07-09 16:31:52 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2014-07-09 16:31:52 -04:00
if ( $b [ " preview " ]) {
2017-11-07 17:44:39 -05:00
$max_char = 280 ;
2014-07-09 16:31:52 -04:00
$item = $b [ " item " ];
2017-12-08 00:18:01 -05:00
$item [ " plink " ] = $a -> get_baseurl () . " /display/ " . $a -> user [ " nickname " ] . " / " . $item [ " parent " ];
2014-07-09 16:31:52 -04:00
$r = q ( " SELECT `author-link` FROM item WHERE item.uri = '%s' AND item.uid = %d LIMIT 1 " ,
dbesc ( $item [ " thr-parent " ]),
intval ( local_user ()));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2014-07-09 16:31:52 -04:00
$orig_post = $r [ 0 ];
$nicknameplain = preg_replace ( " =https?://twitter.com/(.*)=ism " , " $ 1 " , $orig_post [ " author-link " ]);
2017-12-08 00:18:01 -05:00
$nickname = " @[url= " . $orig_post [ " author-link " ] . " ] " . $nicknameplain . " [/url] " ;
$nicknameplain = " @ " . $nicknameplain ;
2014-07-09 16:31:52 -04:00
2017-12-08 00:18:01 -05:00
if (( strpos ( $item [ " body " ], $nickname ) === false ) && ( strpos ( $item [ " body " ], $nicknameplain ) === false )) {
$item [ " body " ] = $nickname . " " . $item [ " body " ];
}
2014-07-09 16:31:52 -04:00
}
2018-04-21 20:50:58 -04:00
$msgarr = ItemContent :: getPlaintextPost ( $item , $max_char , true , 8 );
2014-07-09 16:31:52 -04:00
$msg = $msgarr [ " text " ];
2017-12-08 00:18:01 -05:00
if ( isset ( $msgarr [ " url " ]) && ( $msgarr [ " type " ] != " photo " )) {
$msg .= " " . $msgarr [ " url " ];
}
2014-07-09 16:31:52 -04:00
2017-12-08 00:18:01 -05:00
if ( isset ( $msgarr [ " image " ])) {
$msg .= " " . $msgarr [ " image " ];
}
2014-07-09 16:31:52 -04:00
2017-12-08 00:18:01 -05:00
$b [ 'html' ] = nl2br ( htmlspecialchars ( $msg ));
2014-07-09 16:31:52 -04:00
}
}
2016-12-10 03:14:14 -05:00
/**
* @ brief Build the item array for the mirrored post
*
2017-12-08 00:18:01 -05:00
* @ param App $a Application class
2016-12-10 03:14:14 -05:00
* @ param integer $uid User id
* @ param object $post Twitter object with the post
*
* @ return array item data to be posted
*/
2017-12-08 00:18:01 -05:00
function twitter_do_mirrorpost ( App $a , $uid , $post )
{
2016-12-10 02:15:00 -05:00
$datarray [ " type " ] = " wall " ;
$datarray [ " api_source " ] = true ;
$datarray [ " profile_uid " ] = $uid ;
$datarray [ " extid " ] = NETWORK_TWITTER ;
2018-06-16 02:46:25 -04:00
$datarray [ 'message_id' ] = Item :: newURI ( $uid , NETWORK_TWITTER . " : " . $post -> id );
2016-12-12 18:40:28 -05:00
$datarray [ 'object' ] = json_encode ( $post );
2016-12-10 02:15:00 -05:00
$datarray [ " title " ] = " " ;
if ( is_object ( $post -> retweeted_status )) {
2016-12-10 03:07:59 -05:00
// We don't support nested shares, so we mustn't show quotes as shares on retweets
2018-01-15 08:15:33 -05:00
$item = twitter_createpost ( $a , $uid , $post -> retweeted_status , [ 'id' => 0 ], false , false , true );
2016-12-10 02:15:00 -05:00
2018-01-27 23:20:09 -05:00
$datarray [ 'body' ] = " \n " . share_header (
$item [ 'author-name' ],
$item [ 'author-link' ],
$item [ 'author-avatar' ],
" " ,
$item [ 'created' ],
$item [ 'plink' ]
);
2016-12-10 02:15:00 -05:00
2017-12-08 00:18:01 -05:00
$datarray [ 'body' ] .= $item [ 'body' ] . '[/share]' ;
2016-12-10 02:15:00 -05:00
} else {
2018-01-15 08:15:33 -05:00
$item = twitter_createpost ( $a , $uid , $post , [ 'id' => 0 ], false , false , false );
2016-12-10 02:15:00 -05:00
$datarray [ 'body' ] = $item [ 'body' ];
}
$datarray [ " source " ] = $item [ 'app' ];
$datarray [ " verb " ] = $item [ 'verb' ];
if ( isset ( $item [ " location " ])) {
$datarray [ " location " ] = $item [ " location " ];
}
if ( isset ( $item [ " coord " ])) {
$datarray [ " coord " ] = $item [ " coord " ];
}
return $datarray ;
}
2017-12-08 00:18:01 -05:00
function twitter_fetchtimeline ( App $a , $uid )
{
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
$lastid = PConfig :: get ( $uid , 'twitter' , 'lastid' );
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
$application_name = Config :: get ( 'twitter' , 'application_name' );
2013-01-03 16:11:46 -05:00
2017-12-08 00:18:01 -05:00
if ( $application_name == " " ) {
2013-01-03 16:11:46 -05:00
$application_name = $a -> get_hostname ();
2017-12-08 00:18:01 -05:00
}
2013-01-03 16:11:46 -05:00
2013-12-01 18:43:47 -05:00
$has_picture = false ;
2017-12-08 00:18:01 -05:00
require_once 'mod/item.php' ;
require_once 'include/items.php' ;
require_once 'mod/share.php' ;
2013-10-18 18:26:26 -04:00
2017-12-08 00:18:01 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2013-01-01 10:11:07 -05:00
2018-01-15 08:15:33 -05:00
$parameters = [ " exclude_replies " => true , " trim_user " => false , " contributor_details " => true , " include_rts " => true , " tweet_mode " => " extended " ];
2013-01-01 10:11:07 -05:00
2013-01-07 13:30:18 -05:00
$first_time = ( $lastid == " " );
2017-12-08 00:18:01 -05:00
if ( $lastid != " " ) {
2013-01-01 10:11:07 -05:00
$parameters [ " since_id " ] = $lastid ;
2017-12-08 00:18:01 -05:00
}
2013-01-01 10:11:07 -05:00
2018-06-02 11:28:13 -04:00
try {
$items = $connection -> get ( 'statuses/user_timeline' , $parameters );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchtimeline: Error fetching timeline for user ' . $uid . ': ' . $e -> getMessage ());
return ;
}
2013-02-20 15:46:19 -05:00
2017-12-08 00:18:01 -05:00
if ( ! is_array ( $items )) {
2013-02-20 15:46:19 -05:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-02-20 15:46:19 -05:00
2013-01-01 10:11:07 -05:00
$posts = array_reverse ( $items );
2014-06-10 14:13:11 -04:00
if ( count ( $posts )) {
2017-12-08 00:18:01 -05:00
foreach ( $posts as $post ) {
if ( $post -> id_str > $lastid ) {
$lastid = $post -> id_str ;
PConfig :: set ( $uid , 'twitter' , 'lastid' , $lastid );
}
2016-12-10 02:15:00 -05:00
2017-12-08 00:18:01 -05:00
if ( $first_time ) {
continue ;
}
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
if ( ! stristr ( $post -> source , $application_name )) {
$_SESSION [ " authenticated " ] = true ;
$_SESSION [ " uid " ] = $uid ;
2016-12-10 02:15:00 -05:00
2017-12-08 00:18:01 -05:00
$_REQUEST = twitter_do_mirrorpost ( $a , $uid , $post );
2013-01-01 10:11:07 -05:00
2017-12-08 00:18:01 -05:00
logger ( 'twitter: posting for user ' . $uid );
2017-12-07 23:24:41 -05:00
2017-12-08 00:18:01 -05:00
item_post ( $a );
}
2014-06-10 14:13:11 -04:00
}
2013-01-01 10:11:07 -05:00
}
2017-11-06 18:55:24 -05:00
PConfig :: set ( $uid , 'twitter' , 'lastid' , $lastid );
2013-01-01 10:11:07 -05:00
}
2013-09-05 02:35:37 -04:00
2017-12-08 00:18:01 -05:00
function twitter_queue_hook ( App $a , & $b )
{
2013-09-05 02:35:37 -04:00
$qi = q ( " SELECT * FROM `queue` WHERE `network` = '%s' " ,
dbesc ( NETWORK_TWITTER )
2017-12-08 00:18:01 -05:00
);
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $qi )) {
2013-09-05 02:35:37 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-09-05 02:35:37 -04:00
2017-12-08 00:18:01 -05:00
foreach ( $qi as $x ) {
if ( $x [ 'network' ] !== NETWORK_TWITTER ) {
2013-09-05 02:35:37 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-09-05 02:35:37 -04:00
logger ( 'twitter_queue: run' );
2017-06-08 21:20:27 -04:00
$r = q ( " SELECT `user`.* FROM `user` LEFT JOIN `contact` on `contact`.`uid` = `user`.`uid`
2013-09-05 02:35:37 -04:00
WHERE `contact` . `self` = 1 AND `contact` . `id` = % d LIMIT 1 " ,
intval ( $x [ 'cid' ])
);
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $r )) {
2013-09-05 02:35:37 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-09-05 02:35:37 -04:00
$user = $r [ 0 ];
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $user [ 'uid' ], 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $user [ 'uid' ], 'twitter' , 'oauthsecret' );
2013-09-05 02:35:37 -04:00
$success = false ;
2017-06-08 21:20:27 -04:00
if ( $ckey && $csecret && $otoken && $osecret ) {
2013-09-05 02:35:37 -04:00
logger ( 'twitter_queue: able to post' );
$z = unserialize ( $x [ 'content' ]);
2018-01-27 23:12:04 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
$result = $connection -> post ( $z [ 'url' ], $z [ 'post' ]);
2013-09-05 02:35:37 -04:00
logger ( 'twitter_queue: post result: ' . print_r ( $result , true ), LOGGER_DEBUG );
2017-12-08 00:18:01 -05:00
if ( $result -> errors ) {
2013-09-05 02:35:37 -04:00
logger ( 'twitter_queue: Send to Twitter failed: "' . print_r ( $result -> errors , true ) . '"' );
2017-12-08 00:18:01 -05:00
} else {
2013-09-05 02:35:37 -04:00
$success = true ;
2018-01-22 17:52:51 -05:00
Queue :: removeItem ( $x [ 'id' ]);
2013-09-05 02:35:37 -04:00
}
2017-12-08 00:18:01 -05:00
} else {
logger ( " twitter_queue: Error getting tokens for user " . $user [ 'uid' ]);
}
2013-09-05 02:35:37 -04:00
if ( ! $success ) {
logger ( 'twitter_queue: delayed' );
2018-01-22 17:52:51 -05:00
Queue :: updateTime ( $x [ 'id' ]);
2013-09-05 02:35:37 -04:00
}
}
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
function twitter_fix_avatar ( $avatar )
{
2016-01-05 09:35:49 -05:00
$new_avatar = str_replace ( " _normal. " , " . " , $avatar );
2017-12-08 00:18:01 -05:00
$info = Image :: getInfoFromURL ( $new_avatar );
if ( ! $info ) {
2016-01-05 09:35:49 -05:00
$new_avatar = $avatar ;
2017-12-08 00:18:01 -05:00
}
2016-01-05 09:35:49 -05:00
return $new_avatar ;
}
2018-05-09 11:40:07 -04:00
function twitter_fetch_contact ( $uid , $data , $create_user )
2017-12-08 00:18:01 -05:00
{
2018-05-09 11:40:07 -04:00
if ( $data -> id_str == " " ) {
2017-12-08 00:18:01 -05:00
return - 1 ;
}
2014-10-18 18:05:06 -04:00
2018-05-09 11:40:07 -04:00
$avatar = twitter_fix_avatar ( $data -> profile_image_url_https );
$url = " https://twitter.com/ " . $data -> screen_name ;
$addr = $data -> screen_name . " @twitter.com " ;
2014-08-25 17:43:04 -04:00
2018-05-09 11:40:07 -04:00
GContact :: update ([ " url " => $url , " network " => NETWORK_TWITTER ,
" photo " => $avatar , " hide " => true ,
" name " => $data -> name , " nick " => $data -> screen_name ,
" location " => $data -> location , " about " => $data -> description ,
" addr " => $addr , " generation " => 2 ]);
2015-01-09 01:07:07 -05:00
2018-05-09 11:40:07 -04:00
$fields = [ 'url' => $url , 'network' => NETWORK_TWITTER ,
'name' => $data -> name , 'nick' => $data -> screen_name , 'addr' => $addr ,
'location' => $data -> location , 'about' => $data -> description ];
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
$cid = Contact :: getIdForURL ( $url , 0 , true , $fields );
if ( ! empty ( $cid )) {
dba :: update ( 'contact' , $fields , [ 'id' => $cid ]);
Contact :: updateAvatar ( $avatar , 0 , $cid );
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
$contact = dba :: selectFirst ( 'contact' , [], [ 'uid' => $uid , 'alias' => " twitter:: " . $data -> id_str ]);
if ( ! DBM :: is_result ( $contact ) && ! $create_user ) {
return 0 ;
2013-10-15 17:22:03 -04:00
}
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $contact )) {
2013-10-14 18:52:01 -04:00
// create contact record
2018-05-09 11:40:07 -04:00
$fields [ 'uid' ] = $uid ;
$fields [ 'created' ] = DateTimeFormat :: utcNow ();
$fields [ 'nurl' ] = normalise_link ( $url );
$fields [ 'alias' ] = 'twitter::' . $data -> id_str ;
$fields [ 'poll' ] = 'twitter::' . $data -> id_str ;
$fields [ 'rel' ] = CONTACT_IS_FRIEND ;
$fields [ 'priority' ] = 1 ;
$fields [ 'writable' ] = true ;
$fields [ 'blocked' ] = false ;
$fields [ 'readonly' ] = false ;
$fields [ 'pending' ] = false ;
if ( ! dba :: insert ( 'contact' , $fields )) {
2017-12-08 00:18:01 -05:00
return false ;
}
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
$contact_id = dba :: lastInsertId ();
2013-10-14 18:52:01 -04:00
2017-12-09 13:50:29 -05:00
Group :: addMember ( User :: getDefaultGroup ( $uid ), $contact_id );
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
Contact :: updateAvatar ( $avatar , $uid , $contact_id );
2013-10-14 18:52:01 -04:00
} else {
2018-05-09 11:40:07 -04:00
if ( $contact [ " readonly " ] || $contact [ " blocked " ]) {
logger ( " twitter_fetch_contact: Contact ' " . $contact [ " nick " ] . " ' is blocked or readonly. " , LOGGER_DEBUG );
return - 1 ;
}
$contact_id = $contact [ 'id' ];
// update profile photos once every twelve hours as we have no notification of when they change.
$update_photo = ( $contact [ 'avatar-date' ] < DateTimeFormat :: utc ( 'now -12 hours' ));
2013-10-14 18:52:01 -04:00
// check that we have all the photos, this has been known to fail on occasion
2018-05-09 11:40:07 -04:00
if ( empty ( $contact [ 'photo' ]) || empty ( $contact [ 'thumb' ]) || empty ( $contact [ 'micro' ]) || $update_photo ) {
logger ( " twitter_fetch_contact: Updating contact " . $data -> screen_name , LOGGER_DEBUG );
Contact :: updateAvatar ( $avatar , $uid , $contact [ 'id' ]);
$fields [ 'name-date' ] = DateTimeFormat :: utcNow ();
$fields [ 'uri-date' ] = DateTimeFormat :: utcNow ();
dba :: update ( 'contact' , $fields , [ 'id' => $contact [ 'id' ]]);
2013-10-14 18:52:01 -04:00
}
}
2018-05-09 11:40:07 -04:00
return $contact_id ;
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_fetchuser ( App $a , $uid , $screen_name = " " , $user_id = " " )
{
2018-01-27 23:20:09 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
2017-11-06 18:55:24 -05:00
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
2018-01-27 23:20:09 -05:00
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
2017-11-06 18:55:24 -05:00
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
2013-10-14 18:52:01 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1 " ,
intval ( $uid ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$self = $r [ 0 ];
2017-12-08 00:18:01 -05:00
} else {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-01-15 08:15:33 -05:00
$parameters = [];
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $screen_name != " " ) {
2013-10-14 18:52:01 -04:00
$parameters [ " screen_name " ] = $screen_name ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $user_id != " " ) {
2013-10-14 18:52:01 -04:00
$parameters [ " user_id " ] = $user_id ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
// Fetching user data
2018-01-27 23:12:04 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2018-06-02 11:28:13 -04:00
try {
$user = $connection -> get ( 'users/show' , $parameters );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchuser: Error fetching user ' . $uid . ': ' . $e -> getMessage ());
return ;
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( ! is_object ( $user )) {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
$contact_id = twitter_fetch_contact ( $uid , $user , true );
return $contact_id ;
}
2018-02-07 22:41:25 -05:00
function twitter_expand_entities ( App $a , $body , $item , $picture )
2017-12-08 00:18:01 -05:00
{
2016-12-09 04:59:08 -05:00
$plain = $body ;
2018-02-07 22:43:22 -05:00
$tags_arr = [];
foreach ( $item -> entities -> hashtags AS $hashtag ) {
$url = " #[url= " . $a -> get_baseurl () . " /search?tag= " . rawurlencode ( $hashtag -> text ) . " ] " . $hashtag -> text . " [/url] " ;
$tags_arr [ " # " . $hashtag -> text ] = $url ;
$body = str_replace ( " # " . $hashtag -> text , $url , $body );
}
foreach ( $item -> entities -> user_mentions AS $mention ) {
$url = " @[url=https://twitter.com/ " . rawurlencode ( $mention -> screen_name ) . " ] " . $mention -> screen_name . " [/url] " ;
$tags_arr [ " @ " . $mention -> screen_name ] = $url ;
$body = str_replace ( " @ " . $mention -> screen_name , $url , $body );
}
2014-01-26 03:53:12 -05:00
if ( isset ( $item -> entities -> urls )) {
$type = " " ;
$footerurl = " " ;
$footerlink = " " ;
$footer = " " ;
2018-01-27 08:52:02 -05:00
foreach ( $item -> entities -> urls as $url ) {
2016-12-09 04:59:08 -05:00
$plain = str_replace ( $url -> url , '' , $plain );
2017-06-08 21:20:27 -04:00
if ( $url -> url && $url -> expanded_url && $url -> display_url ) {
2018-01-27 11:23:04 -05:00
$expanded_url = Network :: finalUrl ( $url -> expanded_url );
2014-01-26 03:53:12 -05:00
2017-12-31 21:06:03 -05:00
$oembed_data = OEmbed :: fetchURL ( $expanded_url );
2014-01-26 03:53:12 -05:00
// Quickfix: Workaround for URL with "[" and "]" in it
2017-12-08 00:18:01 -05:00
if ( strpos ( $expanded_url , " [ " ) || strpos ( $expanded_url , " ] " )) {
2014-01-26 03:53:12 -05:00
$expanded_url = $url -> url ;
2017-12-08 00:18:01 -05:00
}
2014-01-26 03:53:12 -05:00
2017-12-08 00:18:01 -05:00
if ( $type == " " ) {
2014-01-26 03:53:12 -05:00
$type = $oembed_data -> type ;
2017-12-08 00:18:01 -05:00
}
2014-01-26 03:53:12 -05:00
if ( $oembed_data -> type == " video " ) {
2014-05-29 06:42:25 -04:00
//$body = str_replace($url->url,
// "[video]".$expanded_url."[/video]", $body);
//$dontincludemedia = true;
$type = $oembed_data -> type ;
$footerurl = $expanded_url ;
2017-12-08 00:18:01 -05:00
$footerlink = " [url= " . $expanded_url . " ] " . $expanded_url . " [/url] " ;
2014-05-29 06:42:25 -04:00
$body = str_replace ( $url -> url , $footerlink , $body );
2017-12-08 00:18:01 -05:00
//} elseif (($oembed_data->type == "photo") AND isset($oembed_data->url) AND !$dontincludemedia) {
2017-06-08 21:20:27 -04:00
} elseif (( $oembed_data -> type == " photo " ) && isset ( $oembed_data -> url )) {
2017-12-08 00:18:01 -05:00
$body = str_replace ( $url -> url , " [url= " . $expanded_url . " ][img] " . $oembed_data -> url . " [/img][/url] " , $body );
2014-06-15 17:34:51 -04:00
//$dontincludemedia = true;
2017-12-08 00:18:01 -05:00
} elseif ( $oembed_data -> type != " link " ) {
$body = str_replace ( $url -> url , " [url= " . $expanded_url . " ] " . $expanded_url . " [/url] " , $body );
} else {
2018-01-27 11:23:04 -05:00
$img_str = Network :: fetchUrl ( $expanded_url , true , $redirects , 4 );
2014-01-26 03:53:12 -05:00
2014-06-23 16:35:00 -04:00
$tempfile = tempnam ( get_temppath (), " cache " );
2014-01-26 03:53:12 -05:00
file_put_contents ( $tempfile , $img_str );
$mime = image_type_to_mime_type ( exif_imagetype ( $tempfile ));
unlink ( $tempfile );
if ( substr ( $mime , 0 , 6 ) == " image/ " ) {
$type = " photo " ;
2017-12-08 00:18:01 -05:00
$body = str_replace ( $url -> url , " [img] " . $expanded_url . " [/img] " , $body );
2014-06-15 17:34:51 -04:00
//$dontincludemedia = true;
2014-01-26 03:53:12 -05:00
} else {
$type = $oembed_data -> type ;
$footerurl = $expanded_url ;
2017-12-08 00:18:01 -05:00
$footerlink = " [url= " . $expanded_url . " ] " . $expanded_url . " [/url] " ;
2014-01-26 03:53:12 -05:00
$body = str_replace ( $url -> url , $footerlink , $body );
}
}
}
}
2017-12-08 00:18:01 -05:00
if ( $footerurl != " " ) {
2014-06-15 17:34:51 -04:00
$footer = add_page_info ( $footerurl , false , $picture );
2017-12-08 00:18:01 -05:00
}
2014-01-26 03:53:12 -05:00
2017-06-08 21:20:27 -04:00
if (( $footerlink != " " ) && ( trim ( $footer ) != " " )) {
2014-01-26 03:53:12 -05:00
$removedlink = trim ( str_replace ( $footerlink , " " , $body ));
2017-12-08 00:18:01 -05:00
if (( $removedlink == " " ) || strstr ( $body , $removedlink )) {
2014-01-26 03:53:12 -05:00
$body = $removedlink ;
2017-12-08 00:18:01 -05:00
}
2014-01-26 03:53:12 -05:00
2014-04-04 05:13:39 -04:00
$body .= $footer ;
2014-01-26 03:53:12 -05:00
}
2017-12-08 00:18:01 -05:00
if (( $footer == " " ) && ( $picture != " " )) {
$body .= " \n \n [img] " . $picture . " [/img] \n " ;
} elseif (( $footer == " " ) && ( $picture == " " )) {
2016-01-05 09:35:49 -05:00
$body = add_page_info_to_body ( $body );
2017-12-08 00:18:01 -05:00
}
2018-02-07 22:43:22 -05:00
}
2014-06-15 17:34:51 -04:00
2018-02-07 22:43:22 -05:00
// it seems as if the entities aren't always covering all mentions. So the rest will be checked here
$tags = get_tags ( $body );
2014-01-26 03:53:12 -05:00
2018-02-07 22:43:22 -05:00
if ( count ( $tags )) {
foreach ( $tags as $tag ) {
if ( strstr ( trim ( $tag ), " " )) {
continue ;
}
2014-01-26 03:53:12 -05:00
2018-02-07 22:43:22 -05:00
if ( strpos ( $tag , '#' ) === 0 ) {
if ( strpos ( $tag , '[url=' )) {
2014-01-26 03:53:12 -05:00
continue ;
2017-12-08 00:18:01 -05:00
}
2014-01-26 03:53:12 -05:00
2018-02-07 22:43:22 -05:00
// don't link tags that are already embedded in links
if ( preg_match ( '/\[(.*?)' . preg_quote ( $tag , '/' ) . '(.*?)\]/' , $body )) {
continue ;
}
if ( preg_match ( '/\[(.*?)\]\((.*?)' . preg_quote ( $tag , '/' ) . '(.*?)\)/' , $body )) {
continue ;
}
2014-01-26 03:53:12 -05:00
2018-02-07 22:43:22 -05:00
$basetag = str_replace ( '_' , ' ' , substr ( $tag , 1 ));
$url = '#[url=' . $a -> get_baseurl () . '/search?tag=' . rawurlencode ( $basetag ) . ']' . $basetag . '[/url]' ;
$body = str_replace ( $tag , $url , $body );
$tags_arr [ " # " . $basetag ] = $url ;
} elseif ( strpos ( $tag , '@' ) === 0 ) {
if ( strpos ( $tag , '[url=' )) {
continue ;
2014-01-26 03:53:12 -05:00
}
2018-02-07 22:43:22 -05:00
$basetag = substr ( $tag , 1 );
$url = '@[url=https://twitter.com/' . rawurlencode ( $basetag ) . ']' . $basetag . '[/url]' ;
$body = str_replace ( $tag , $url , $body );
$tags_arr [ " @ " . $basetag ] = $url ;
2014-01-26 03:53:12 -05:00
}
}
}
2018-02-07 22:43:22 -05:00
$tags = implode ( $tags_arr , " , " );
2018-01-15 08:15:33 -05:00
return [ " body " => $body , " tags " => $tags , " plain " => $plain ];
2014-01-26 03:53:12 -05:00
}
2016-12-10 02:15:00 -05:00
/**
* @ brief Fetch media entities and add media links to the body
*
* @ param object $post Twitter object with the post
* @ param array $postarray Array of the item that is about to be posted
*
2018-02-07 22:41:25 -05:00
* @ return $picture string Image URL or empty string
2016-12-10 02:15:00 -05:00
*/
2017-12-08 00:18:01 -05:00
function twitter_media_entities ( $post , & $postarray )
{
2016-12-10 02:15:00 -05:00
// There are no media entities? So we quit.
if ( ! is_array ( $post -> extended_entities -> media )) {
return " " ;
}
// When the post links to an external page, we only take one picture.
2016-12-10 03:07:59 -05:00
// We only do this when there is exactly one media.
2017-06-08 21:20:27 -04:00
if (( count ( $post -> entities -> urls ) > 0 ) && ( count ( $post -> extended_entities -> media ) == 1 )) {
2016-12-10 02:15:00 -05:00
$picture = " " ;
2017-12-08 00:18:01 -05:00
foreach ( $post -> extended_entities -> media AS $medium ) {
2016-12-10 02:15:00 -05:00
if ( isset ( $medium -> media_url_https )) {
$picture = $medium -> media_url_https ;
$postarray [ 'body' ] = str_replace ( $medium -> url , " " , $postarray [ 'body' ]);
}
}
return $picture ;
}
// This is a pure media post, first search for all media urls
2018-01-15 08:15:33 -05:00
$media = [];
2017-12-08 00:18:01 -05:00
foreach ( $post -> extended_entities -> media AS $medium ) {
switch ( $medium -> type ) {
2016-12-10 02:15:00 -05:00
case 'photo' :
2017-12-08 00:18:01 -05:00
$media [ $medium -> url ] .= " \n [img] " . $medium -> media_url_https . " [/img] " ;
2016-12-10 02:15:00 -05:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_IMAGE ;
break ;
case 'video' :
case 'animated_gif' :
2017-12-08 00:18:01 -05:00
$media [ $medium -> url ] .= " \n [img] " . $medium -> media_url_https . " [/img] " ;
2016-12-10 02:15:00 -05:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_VIDEO ;
if ( is_array ( $medium -> video_info -> variants )) {
$bitrate = 0 ;
// We take the video with the highest bitrate
foreach ( $medium -> video_info -> variants AS $variant ) {
2017-06-08 21:20:27 -04:00
if (( $variant -> content_type == " video/mp4 " ) && ( $variant -> bitrate >= $bitrate )) {
2017-12-08 00:18:01 -05:00
$media [ $medium -> url ] = " \n [video] " . $variant -> url . " [/video] " ;
2016-12-10 02:15:00 -05:00
$bitrate = $variant -> bitrate ;
}
}
}
break ;
// The following code will only be activated for test reasons
//default:
// $postarray['body'] .= print_r($medium, true);
}
}
// Now we replace the media urls.
foreach ( $media AS $key => $value ) {
2017-12-08 00:18:01 -05:00
$postarray [ 'body' ] = str_replace ( $key , " \n " . $value . " \n " , $postarray [ 'body' ]);
2016-12-10 02:15:00 -05:00
}
return " " ;
}
2017-12-08 00:18:01 -05:00
function twitter_createpost ( App $a , $uid , $post , $self , $create_user , $only_existing_contact , $noquote )
{
2018-01-15 08:15:33 -05:00
$postarray = [];
2013-12-26 20:02:48 -05:00
$postarray [ 'network' ] = NETWORK_TWITTER ;
2013-10-14 18:52:01 -04:00
$postarray [ 'gravity' ] = 0 ;
$postarray [ 'uid' ] = $uid ;
$postarray [ 'wall' ] = 0 ;
2017-12-08 00:18:01 -05:00
$postarray [ 'uri' ] = " twitter:: " . $post -> id_str ;
2016-12-09 04:59:08 -05:00
$postarray [ 'object' ] = json_encode ( $post );
2013-10-14 18:52:01 -04:00
2016-12-10 06:15:37 -05:00
// Don't import our own comments
2013-10-14 18:52:01 -04:00
$r = q ( " SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
dbesc ( $postarray [ 'uri' ]),
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2017-12-08 00:18:01 -05:00
logger ( " Item with extid " . $postarray [ 'uri' ] . " found. " , LOGGER_DEBUG );
2018-01-15 08:15:33 -05:00
return [];
2016-12-09 04:59:08 -05:00
}
2013-10-14 18:52:01 -04:00
$contactid = 0 ;
if ( $post -> in_reply_to_status_id_str != " " ) {
2017-12-08 00:18:01 -05:00
$parent = " twitter:: " . $post -> in_reply_to_status_id_str ;
2013-10-14 18:52:01 -04:00
$r = q ( " SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
dbesc ( $parent ),
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$postarray [ 'thr-parent' ] = $r [ 0 ][ " uri " ];
$postarray [ 'parent-uri' ] = $r [ 0 ][ " parent-uri " ];
2014-08-20 19:02:13 -04:00
$postarray [ 'parent' ] = $r [ 0 ][ " parent " ];
2014-07-21 18:40:02 -04:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_COMMENT ;
2013-10-14 18:52:01 -04:00
} else {
$r = q ( " SELECT * FROM `item` WHERE `extid` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
dbesc ( $parent ),
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$postarray [ 'thr-parent' ] = $r [ 0 ][ 'uri' ];
$postarray [ 'parent-uri' ] = $r [ 0 ][ 'parent-uri' ];
2014-08-20 19:02:13 -04:00
$postarray [ 'parent' ] = $r [ 0 ][ 'parent' ];
2014-07-21 18:40:02 -04:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_COMMENT ;
2013-10-14 18:52:01 -04:00
} else {
$postarray [ 'thr-parent' ] = $postarray [ 'uri' ];
$postarray [ 'parent-uri' ] = $postarray [ 'uri' ];
2014-07-21 18:40:02 -04:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_NOTE ;
2013-10-14 18:52:01 -04:00
}
}
// Is it me?
2017-11-06 18:55:24 -05:00
$own_id = PConfig :: get ( $uid , 'twitter' , 'own_id' );
2013-10-14 18:52:01 -04:00
if ( $post -> user -> id_str == $own_id ) {
$r = q ( " SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1 " ,
intval ( $uid ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$contactid = $r [ 0 ][ " id " ];
2017-12-08 00:18:01 -05:00
$postarray [ 'owner-name' ] = $r [ 0 ][ " name " ];
$postarray [ 'owner-link' ] = $r [ 0 ][ " url " ];
$postarray [ 'owner-avatar' ] = $r [ 0 ][ " photo " ];
2016-12-09 04:59:08 -05:00
} else {
2017-12-08 00:18:01 -05:00
logger ( " No self contact for user " . $uid , LOGGER_DEBUG );
2018-01-15 08:15:33 -05:00
return [];
2016-12-09 04:59:08 -05:00
}
2013-10-14 18:52:01 -04:00
}
2014-06-24 19:20:04 -04:00
// Don't create accounts of people who just comment something
$create_user = false ;
2014-07-21 18:40:02 -04:00
} else {
2013-10-14 18:52:01 -04:00
$postarray [ 'parent-uri' ] = $postarray [ 'uri' ];
2014-07-21 18:40:02 -04:00
$postarray [ 'object-type' ] = ACTIVITY_OBJ_NOTE ;
}
2013-10-14 18:52:01 -04:00
if ( $contactid == 0 ) {
$contactid = twitter_fetch_contact ( $uid , $post -> user , $create_user );
$postarray [ 'owner-name' ] = $post -> user -> name ;
2017-12-08 00:18:01 -05:00
$postarray [ 'owner-link' ] = " https://twitter.com/ " . $post -> user -> screen_name ;
2016-01-05 09:35:49 -05:00
$postarray [ 'owner-avatar' ] = twitter_fix_avatar ( $post -> user -> profile_image_url_https );
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
if (( $contactid == 0 ) && ! $only_existing_contact ) {
2013-10-14 18:52:01 -04:00
$contactid = $self [ 'id' ];
2016-12-09 04:59:08 -05:00
} elseif ( $contactid <= 0 ) {
2016-12-12 18:40:28 -05:00
logger ( " Contact ID is zero or less than zero. " , LOGGER_DEBUG );
2018-01-15 08:15:33 -05:00
return [];
2016-12-09 04:59:08 -05:00
}
2013-10-14 18:52:01 -04:00
$postarray [ 'contact-id' ] = $contactid ;
$postarray [ 'verb' ] = ACTIVITY_POST ;
$postarray [ 'author-name' ] = $postarray [ 'owner-name' ];
$postarray [ 'author-link' ] = $postarray [ 'owner-link' ];
$postarray [ 'author-avatar' ] = $postarray [ 'owner-avatar' ];
2017-12-08 00:18:01 -05:00
$postarray [ 'plink' ] = " https://twitter.com/ " . $post -> user -> screen_name . " /status/ " . $post -> id_str ;
2013-10-14 18:52:01 -04:00
$postarray [ 'app' ] = strip_tags ( $post -> source );
if ( $post -> user -> protected ) {
$postarray [ 'private' ] = 1 ;
$postarray [ 'allow_cid' ] = '<' . $self [ 'id' ] . '>' ;
}
2016-12-09 04:59:08 -05:00
if ( is_string ( $post -> full_text )) {
$postarray [ 'body' ] = $post -> full_text ;
} else {
$postarray [ 'body' ] = $post -> text ;
}
2013-10-14 18:52:01 -04:00
2016-12-10 02:15:00 -05:00
// When the post contains links then use the correct object type
if ( count ( $post -> entities -> urls ) > 0 ) {
$postarray [ 'object-type' ] = ACTIVITY_OBJ_BOOKMARK ;
2013-10-14 18:52:01 -04:00
}
2016-12-10 02:15:00 -05:00
// Search for media links
$picture = twitter_media_entities ( $post , $postarray );
2018-02-07 22:41:25 -05:00
$converted = twitter_expand_entities ( $a , $postarray [ 'body' ], $post , $picture );
2013-10-14 18:52:01 -04:00
$postarray [ 'body' ] = $converted [ " body " ];
$postarray [ 'tag' ] = $converted [ " tags " ];
2018-01-26 21:39:02 -05:00
$postarray [ 'created' ] = DateTimeFormat :: utc ( $post -> created_at );
$postarray [ 'edited' ] = DateTimeFormat :: utc ( $post -> created_at );
2013-10-14 18:52:01 -04:00
2016-12-09 04:59:08 -05:00
$statustext = $converted [ " plain " ];
2013-10-14 18:52:01 -04:00
2016-12-09 04:59:08 -05:00
if ( is_string ( $post -> place -> name )) {
$postarray [ " location " ] = $post -> place -> name ;
}
if ( is_string ( $post -> place -> full_name )) {
2013-10-14 18:52:01 -04:00
$postarray [ " location " ] = $post -> place -> full_name ;
2016-12-09 04:59:08 -05:00
}
if ( is_array ( $post -> geo -> coordinates )) {
2017-12-08 00:18:01 -05:00
$postarray [ " coord " ] = $post -> geo -> coordinates [ 0 ] . " " . $post -> geo -> coordinates [ 1 ];
2016-12-09 04:59:08 -05:00
}
if ( is_array ( $post -> coordinates -> coordinates )) {
2017-12-08 00:18:01 -05:00
$postarray [ " coord " ] = $post -> coordinates -> coordinates [ 1 ] . " " . $post -> coordinates -> coordinates [ 0 ];
2016-12-09 04:59:08 -05:00
}
2013-10-14 18:52:01 -04:00
if ( is_object ( $post -> retweeted_status )) {
2016-12-10 02:15:00 -05:00
$retweet = twitter_createpost ( $a , $uid , $post -> retweeted_status , $self , false , false , $noquote );
2013-10-14 18:52:01 -04:00
2016-12-10 02:15:00 -05:00
$retweet [ 'object' ] = $postarray [ 'object' ];
2016-12-10 06:15:37 -05:00
$retweet [ 'private' ] = $postarray [ 'private' ];
$retweet [ 'allow_cid' ] = $postarray [ 'allow_cid' ];
2016-12-09 04:59:08 -05:00
$retweet [ 'contact-id' ] = $postarray [ 'contact-id' ];
$retweet [ 'owner-name' ] = $postarray [ 'owner-name' ];
$retweet [ 'owner-link' ] = $postarray [ 'owner-link' ];
$retweet [ 'owner-avatar' ] = $postarray [ 'owner-avatar' ];
2013-10-14 18:52:01 -04:00
2016-12-09 04:59:08 -05:00
$postarray = $retweet ;
}
2017-06-08 21:20:27 -04:00
if ( is_object ( $post -> quoted_status ) && ! $noquote ) {
2016-12-10 02:15:00 -05:00
$quoted = twitter_createpost ( $a , $uid , $post -> quoted_status , $self , false , false , true );
2013-10-14 18:52:01 -04:00
2016-12-09 04:59:08 -05:00
$postarray [ 'body' ] = $statustext ;
2018-01-27 23:20:09 -05:00
$postarray [ 'body' ] .= " \n " . share_header (
$quoted [ 'author-name' ],
$quoted [ 'author-link' ],
$quoted [ 'author-avatar' ],
" " ,
$quoted [ 'created' ],
$quoted [ 'plink' ]
);
2016-12-09 04:59:08 -05:00
2017-12-08 00:18:01 -05:00
$postarray [ 'body' ] .= $quoted [ 'body' ] . '[/share]' ;
2013-10-14 18:52:01 -04:00
}
2016-12-09 04:59:08 -05:00
2017-12-08 00:18:01 -05:00
return $postarray ;
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_checknotification ( App $a , $uid , $own_id , $top_item , $postarray )
{
/// TODO: this whole function doesn't seem to work. Needs complete check
2013-10-18 18:26:26 -04:00
$user = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $user )) {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2013-10-15 17:22:03 -04:00
// Is it me?
2017-12-08 00:18:01 -05:00
if ( link_compare ( $user [ 0 ][ " url " ], $postarray [ 'author-link' ])) {
2013-10-15 17:22:03 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-15 17:22:03 -04:00
2013-10-18 18:26:26 -04:00
$own_user = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
intval ( $uid ),
dbesc ( " twitter:: " . $own_id )
2017-12-08 00:18:01 -05:00
);
2013-10-15 17:22:03 -04:00
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $own_user )) {
2013-10-15 17:22:03 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2013-10-15 17:22:03 -04:00
// Is it me from twitter?
2017-12-08 00:18:01 -05:00
if ( link_compare ( $own_user [ 0 ][ " url " ], $postarray [ 'author-link' ])) {
2013-10-14 18:52:01 -04:00
return ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
$myconv = q ( " SELECT `author-link`, `author-avatar`, `parent` FROM `item` WHERE `parent-uri` = '%s' AND `uid` = %d AND `parent` != 0 AND `deleted` = 0 " ,
2018-01-27 23:20:09 -05:00
dbesc ( $postarray [ 'parent-uri' ]),
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2013-10-14 18:52:01 -04:00
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $myconv )) {
2017-12-08 00:18:01 -05:00
foreach ( $myconv as $conv ) {
2013-10-14 18:52:01 -04:00
// now if we find a match, it means we're in this conversation
2017-12-08 00:18:01 -05:00
if ( ! link_compare ( $conv [ 'author-link' ], $user [ 0 ][ " url " ]) && ! link_compare ( $conv [ 'author-link' ], $own_user [ 0 ][ " url " ])) {
2013-10-14 18:52:01 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
require_once 'include/enotify.php' ;
2013-10-14 18:52:01 -04:00
$conv_parent = $conv [ 'parent' ];
2018-01-15 08:15:33 -05:00
notification ([
2017-12-08 00:18:01 -05:00
'type' => NOTIFY_COMMENT ,
2013-10-14 18:52:01 -04:00
'notify_flags' => $user [ 0 ][ 'notify-flags' ],
2017-12-08 00:18:01 -05:00
'language' => $user [ 0 ][ 'language' ],
'to_name' => $user [ 0 ][ 'username' ],
'to_email' => $user [ 0 ][ 'email' ],
'uid' => $user [ 0 ][ 'uid' ],
'item' => $postarray ,
2018-01-28 06:19:38 -05:00
'link' => $a -> get_baseurl () . '/display/' . urlencode ( Item :: getGuidById ( $top_item )),
2017-12-08 00:18:01 -05:00
'source_name' => $postarray [ 'author-name' ],
'source_link' => $postarray [ 'author-link' ],
2013-10-14 18:52:01 -04:00
'source_photo' => $postarray [ 'author-avatar' ],
2017-12-08 00:18:01 -05:00
'verb' => ACTIVITY_POST ,
'otype' => 'item' ,
'parent' => $conv_parent ,
2018-01-15 08:15:33 -05:00
]);
2013-10-14 18:52:01 -04:00
// only send one notification
break ;
}
}
}
2018-06-15 20:54:19 -04:00
function twitter_fetchparentposts ( App $a , $uid , $post , TwitterOAuth $connection , $self , $own_id )
2017-12-08 00:18:01 -05:00
{
logger ( " twitter_fetchparentposts: Fetching for user " . $uid . " and post " . $post -> id_str , LOGGER_DEBUG );
2015-07-18 17:46:27 -04:00
2018-01-15 08:15:33 -05:00
$posts = [];
2015-07-18 17:46:27 -04:00
while ( $post -> in_reply_to_status_id_str != " " ) {
2018-01-15 08:15:33 -05:00
$parameters = [ " trim_user " => false , " tweet_mode " => " extended " , " id " => $post -> in_reply_to_status_id_str ];
2015-07-18 17:46:27 -04:00
2018-06-02 11:28:13 -04:00
try {
$post = $connection -> get ( 'statuses/show' , $parameters );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchparentposts: Error fetching for user ' . $uid . ' and post ' . $post -> id_str . ': ' . $e -> getMessage ());
break ;
}
2015-07-18 17:46:27 -04:00
2018-06-15 20:53:50 -04:00
if ( empty ( $post )) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchparentposts: Can't fetch post " . $parameters -> id , LOGGER_DEBUG );
2015-07-18 17:46:27 -04:00
break ;
}
$r = q ( " SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-01-27 23:20:09 -05:00
dbesc ( " twitter:: " . $post -> id_str ),
intval ( $uid )
2017-12-08 00:18:01 -05:00
);
2015-07-18 17:46:27 -04:00
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2015-07-18 17:46:27 -04:00
break ;
2017-12-08 00:18:01 -05:00
}
2016-02-13 07:44:57 -05:00
2015-07-18 17:46:27 -04:00
$posts [] = $post ;
}
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchparentposts: Fetching " . count ( $posts ) . " parents " , LOGGER_DEBUG );
2015-07-18 17:46:27 -04:00
$posts = array_reverse ( $posts );
if ( count ( $posts )) {
foreach ( $posts as $post ) {
2016-12-10 02:15:00 -05:00
$postarray = twitter_createpost ( $a , $uid , $post , $self , false , false , false );
2015-07-18 17:46:27 -04:00
2018-01-27 23:20:09 -05:00
if ( trim ( $postarray [ 'body' ]) == " " ) {
2015-07-18 17:46:27 -04:00
continue ;
2018-01-27 23:20:09 -05:00
}
2015-07-18 17:46:27 -04:00
2018-01-28 06:19:38 -05:00
$item = Item :: insert ( $postarray );
2018-05-04 17:13:28 -04:00
if ( $notify ) {
$item = $notify ;
}
2015-07-18 17:46:27 -04:00
$postarray [ " id " ] = $item ;
2017-12-08 00:18:01 -05:00
logger ( 'twitter_fetchparentpost: User ' . $self [ " nick " ] . ' posted parent timeline item ' . $item );
2015-07-18 17:46:27 -04:00
2017-12-08 00:18:01 -05:00
if ( $item && ! function_exists ( " check_item_notification " )) {
2015-07-18 17:46:27 -04:00
twitter_checknotification ( $a , $uid , $own_id , $item , $postarray );
2017-12-08 00:18:01 -05:00
}
2015-07-18 17:46:27 -04:00
}
}
}
2017-12-08 00:18:01 -05:00
function twitter_fetchhometimeline ( App $a , $uid )
{
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
$create_user = PConfig :: get ( $uid , 'twitter' , 'create_user' );
$mirror_posts = PConfig :: get ( $uid , 'twitter' , 'mirror_posts' );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Fetching for user " . $uid , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
$application_name = Config :: get ( 'twitter' , 'application_name' );
2015-07-18 05:03:58 -04:00
2017-12-08 00:18:01 -05:00
if ( $application_name == " " ) {
2015-07-18 05:03:58 -04:00
$application_name = $a -> get_hostname ();
2017-12-08 00:18:01 -05:00
}
2015-07-18 05:03:58 -04:00
2017-12-08 00:18:01 -05:00
require_once 'include/items.php' ;
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2013-10-14 18:52:01 -04:00
2018-06-02 11:28:13 -04:00
try {
$own_contact = twitter_fetch_own_contact ( $a , $uid );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchhometimeline: Error fetching own contact for user ' . $uid . ': ' . $e -> getMessage ());
return ;
}
2013-10-14 18:52:01 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1 " ,
intval ( $own_contact ),
intval ( $uid ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$own_id = $r [ 0 ][ " nick " ];
2013-10-29 03:09:44 -04:00
} else {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Own twitter contact not found for user " . $uid , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
return ;
2013-10-29 03:09:44 -04:00
}
2013-10-14 18:52:01 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1 " ,
intval ( $uid ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$self = $r [ 0 ];
2013-10-29 03:09:44 -04:00
} else {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Own contact not found for user " . $uid , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
return ;
2013-10-29 03:09:44 -04:00
}
2013-10-14 18:52:01 -04:00
2013-10-16 02:57:51 -04:00
$u = q ( " SELECT * FROM user WHERE uid = %d LIMIT 1 " ,
2013-10-14 18:52:01 -04:00
intval ( $uid ));
2018-05-09 11:40:07 -04:00
if ( ! DBM :: is_result ( $u )) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Own user not found for user " . $uid , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
return ;
2013-10-29 03:09:44 -04:00
}
2013-10-14 18:52:01 -04:00
2018-01-15 08:15:33 -05:00
$parameters = [ " exclude_replies " => false , " trim_user " => false , " contributor_details " => true , " include_rts " => true , " tweet_mode " => " extended " ];
2013-10-14 18:52:01 -04:00
//$parameters["count"] = 200;
// Fetching timeline
2017-12-08 00:18:01 -05:00
$lastid = PConfig :: get ( $uid , 'twitter' , 'lasthometimelineid' );
2013-10-14 18:52:01 -04:00
$first_time = ( $lastid == " " );
2017-12-08 00:18:01 -05:00
if ( $lastid != " " ) {
2013-10-14 18:52:01 -04:00
$parameters [ " since_id " ] = $lastid ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-06-02 11:28:13 -04:00
try {
$items = $connection -> get ( 'statuses/home_timeline' , $parameters );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchhometimeline: Error fetching home timeline: ' . $e -> getMessage ());
return ;
}
2013-10-14 18:52:01 -04:00
2013-10-29 03:09:44 -04:00
if ( ! is_array ( $items )) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Error fetching home timeline: " . print_r ( $items , true ), LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
return ;
2013-10-29 03:09:44 -04:00
}
2013-10-14 18:52:01 -04:00
2014-06-10 14:13:11 -04:00
$posts = array_reverse ( $items );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Fetching timeline for user " . $uid . " " . sizeof ( $posts ) . " items " , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
if ( count ( $posts )) {
foreach ( $posts as $post ) {
2016-07-11 00:44:36 -04:00
if ( $post -> id_str > $lastid ) {
2013-10-14 18:52:01 -04:00
$lastid = $post -> id_str ;
2017-11-06 18:55:24 -05:00
PConfig :: set ( $uid , 'twitter' , 'lasthometimelineid' , $lastid );
2016-07-11 00:44:36 -04:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $first_time ) {
2013-10-14 18:52:01 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2015-07-18 05:03:58 -04:00
if ( stristr ( $post -> source , $application_name ) && $post -> user -> screen_name == $own_id ) {
2015-07-18 17:46:27 -04:00
logger ( " twitter_fetchhometimeline: Skip previously sended post " , LOGGER_DEBUG );
2015-07-18 05:03:58 -04:00
continue ;
}
if ( $mirror_posts && $post -> user -> screen_name == $own_id && $post -> in_reply_to_status_id_str == " " ) {
2015-07-18 17:46:27 -04:00
logger ( " twitter_fetchhometimeline: Skip post that will be mirrored " , LOGGER_DEBUG );
2015-07-18 05:03:58 -04:00
continue ;
}
2017-12-08 00:18:01 -05:00
if ( $post -> in_reply_to_status_id_str != " " ) {
2015-07-18 17:46:27 -04:00
twitter_fetchparentposts ( $a , $uid , $post , $connection , $self , $own_id );
2017-12-08 00:18:01 -05:00
}
2015-07-18 17:46:27 -04:00
2016-12-10 02:15:00 -05:00
$postarray = twitter_createpost ( $a , $uid , $post , $self , $create_user , true , false );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( trim ( $postarray [ 'body' ]) == " " ) {
2013-10-14 18:52:01 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-05-04 17:13:28 -04:00
$notify = false ;
if ( $postarray [ 'uri' ] == $postarray [ 'parent-uri' ]) {
$contact = dba :: selectFirst ( 'contact' , [], [ 'id' => $postarray [ 'contact-id' ], 'self' => false ]);
if ( DBM :: is_result ( $contact )) {
$notify = Item :: isRemoteSelf ( $contact , $postarray );
}
}
$item = Item :: insert ( $postarray , false , $notify );
2015-04-26 08:43:42 -04:00
$postarray [ " id " ] = $item ;
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( 'twitter_fetchhometimeline: User ' . $self [ " nick " ] . ' posted home timeline item ' . $item );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $item && ! function_exists ( " check_item_notification " )) {
2013-10-14 18:52:01 -04:00
twitter_checknotification ( $a , $uid , $own_id , $item , $postarray );
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
}
}
2017-11-06 18:55:24 -05:00
PConfig :: set ( $uid , 'twitter' , 'lasthometimelineid' , $lastid );
2013-10-14 18:52:01 -04:00
// Fetching mentions
2017-12-08 00:18:01 -05:00
$lastid = PConfig :: get ( $uid , 'twitter' , 'lastmentionid' );
2013-10-14 18:52:01 -04:00
$first_time = ( $lastid == " " );
2017-12-08 00:18:01 -05:00
if ( $lastid != " " ) {
2013-10-14 18:52:01 -04:00
$parameters [ " since_id " ] = $lastid ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-06-02 11:28:13 -04:00
try {
$items = $connection -> get ( 'statuses/mentions_timeline' , $parameters );
} catch ( TwitterOAuthException $e ) {
logger ( 'twitter_fetchhometimeline: Error fetching mentions: ' . $e -> getMessage ());
return ;
}
2013-10-14 18:52:01 -04:00
2013-10-29 03:09:44 -04:00
if ( ! is_array ( $items )) {
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Error fetching mentions: " . print_r ( $items , true ), LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
return ;
2013-10-29 03:09:44 -04:00
}
2013-10-14 18:52:01 -04:00
2014-06-10 14:13:11 -04:00
$posts = array_reverse ( $items );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
logger ( " twitter_fetchhometimeline: Fetching mentions for user " . $uid . " " . sizeof ( $posts ) . " items " , LOGGER_DEBUG );
2013-10-14 18:52:01 -04:00
if ( count ( $posts )) {
foreach ( $posts as $post ) {
2017-12-08 00:18:01 -05:00
if ( $post -> id_str > $lastid ) {
2013-10-14 18:52:01 -04:00
$lastid = $post -> id_str ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $first_time ) {
2013-10-14 18:52:01 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $post -> in_reply_to_status_id_str != " " ) {
2015-07-18 17:46:27 -04:00
twitter_fetchparentposts ( $a , $uid , $post , $connection , $self , $own_id );
2017-12-08 00:18:01 -05:00
}
2015-07-18 17:46:27 -04:00
2016-12-10 02:15:00 -05:00
$postarray = twitter_createpost ( $a , $uid , $post , $self , false , false , false );
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( trim ( $postarray [ 'body' ]) == " " ) {
2013-10-14 18:52:01 -04:00
continue ;
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
2018-01-28 06:19:38 -05:00
$item = Item :: insert ( $postarray );
2015-04-26 08:43:42 -04:00
$postarray [ " id " ] = $item ;
2013-10-14 18:52:01 -04:00
2017-12-08 00:18:01 -05:00
if ( $item && function_exists ( " check_item_notification " )) {
2016-02-13 07:44:57 -05:00
check_item_notification ( $item , $uid , NOTIFY_TAGSELF );
2017-12-08 00:18:01 -05:00
}
2016-02-13 07:44:57 -05:00
2017-12-08 00:18:01 -05:00
if ( ! isset ( $postarray [ " parent " ]) || ( $postarray [ " parent " ] == 0 )) {
2014-08-20 19:02:13 -04:00
$postarray [ " parent " ] = $item ;
2017-12-08 00:18:01 -05:00
}
2014-08-20 19:02:13 -04:00
2017-12-08 00:18:01 -05:00
logger ( 'twitter_fetchhometimeline: User ' . $self [ " nick " ] . ' posted mention timeline item ' . $item );
2013-10-14 18:52:01 -04:00
if ( $item == 0 ) {
$r = q ( " SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1 " ,
dbesc ( $postarray [ 'uri' ]),
intval ( $uid )
);
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$item = $r [ 0 ][ 'id' ];
2014-08-20 19:02:13 -04:00
$parent_id = $r [ 0 ][ 'parent' ];
}
2018-01-27 23:20:09 -05:00
} else {
2014-08-20 19:02:13 -04:00
$parent_id = $postarray [ 'parent' ];
2018-01-27 23:20:09 -05:00
}
2013-10-14 18:52:01 -04:00
2017-06-08 21:20:27 -04:00
if (( $item != 0 ) && ! function_exists ( " check_item_notification " )) {
2017-12-08 00:18:01 -05:00
require_once 'include/enotify.php' ;
2018-01-15 08:15:33 -05:00
notification ([
2013-10-14 18:52:01 -04:00
'type' => NOTIFY_TAGSELF ,
2014-06-10 14:13:11 -04:00
'notify_flags' => $u [ 0 ][ 'notify-flags' ],
'language' => $u [ 0 ][ 'language' ],
'to_name' => $u [ 0 ][ 'username' ],
'to_email' => $u [ 0 ][ 'email' ],
'uid' => $u [ 0 ][ 'uid' ],
'item' => $postarray ,
2018-01-28 06:19:38 -05:00
'link' => $a -> get_baseurl () . '/display/' . urlencode ( Item :: getGuidById ( $item )),
2014-06-10 14:13:11 -04:00
'source_name' => $postarray [ 'author-name' ],
'source_link' => $postarray [ 'author-link' ],
2013-10-14 18:52:01 -04:00
'source_photo' => $postarray [ 'author-avatar' ],
2014-06-10 14:13:11 -04:00
'verb' => ACTIVITY_TAG ,
2014-08-20 19:02:13 -04:00
'otype' => 'item' ,
'parent' => $parent_id
2018-01-15 08:15:33 -05:00
]);
2013-10-14 18:52:01 -04:00
}
}
}
2017-11-06 18:55:24 -05:00
PConfig :: set ( $uid , 'twitter' , 'lastmentionid' , $lastid );
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
function twitter_fetch_own_contact ( App $a , $uid )
{
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
2013-10-14 18:52:01 -04:00
2017-11-06 18:55:24 -05:00
$own_id = PConfig :: get ( $uid , 'twitter' , 'own_id' );
2013-10-14 18:52:01 -04:00
$contact_id = 0 ;
if ( $own_id == " " ) {
2017-12-08 00:18:01 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
2013-10-14 18:52:01 -04:00
// Fetching user data
2018-06-02 11:28:13 -04:00
// get() may throw TwitterOAuthException, but we will catch it later
2013-10-14 18:52:01 -04:00
$user = $connection -> get ( 'account/verify_credentials' );
2017-11-06 18:55:24 -05:00
PConfig :: set ( $uid , 'twitter' , 'own_id' , $user -> id_str );
2013-10-14 18:52:01 -04:00
$contact_id = twitter_fetch_contact ( $uid , $user , true );
} else {
2014-06-10 14:13:11 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `alias` = '%s' LIMIT 1 " ,
2017-12-08 00:18:01 -05:00
intval ( $uid ),
dbesc ( " twitter:: " . $own_id ));
2018-05-09 11:40:07 -04:00
if ( DBM :: is_result ( $r )) {
2013-10-14 18:52:01 -04:00
$contact_id = $r [ 0 ][ " id " ];
2017-12-08 00:18:01 -05:00
} else {
2017-11-08 00:59:33 -05:00
PConfig :: delete ( $uid , 'twitter' , 'own_id' );
2017-12-08 00:18:01 -05:00
}
2013-10-14 18:52:01 -04:00
}
2017-12-08 00:18:01 -05:00
return $contact_id ;
2013-10-14 18:52:01 -04:00
}
2013-12-29 11:49:29 -05:00
2017-12-08 00:18:01 -05:00
function twitter_is_retweet ( App $a , $uid , $body )
{
2013-12-29 11:49:29 -05:00
$body = trim ( $body );
// Skip if it isn't a pure repeated messages
// Does it start with a share?
2017-12-08 00:18:01 -05:00
if ( strpos ( $body , " [share " ) > 0 ) {
return false ;
}
2013-12-29 11:49:29 -05:00
// Does it end with a share?
2017-12-08 00:18:01 -05:00
if ( strlen ( $body ) > ( strrpos ( $body , " [/share] " ) + 8 )) {
return false ;
}
2013-12-29 11:49:29 -05:00
2017-12-08 00:18:01 -05:00
$attributes = preg_replace ( " / \ [share(.*?) \ ] \ s?(.*?) \ s? \ [ \ /share \ ] \ s?/ism " , " $ 1 " , $body );
2013-12-29 11:49:29 -05:00
// Skip if there is no shared message in there
2017-12-08 00:18:01 -05:00
if ( $body == $attributes ) {
return false ;
}
2013-12-29 11:49:29 -05:00
$link = " " ;
preg_match ( " /link='(.*?)'/ism " , $attributes , $matches );
2017-12-08 00:18:01 -05:00
if ( $matches [ 1 ] != " " ) {
2013-12-29 11:49:29 -05:00
$link = $matches [ 1 ];
2017-12-08 00:18:01 -05:00
}
2013-12-29 11:49:29 -05:00
preg_match ( '/link="(.*?)"/ism' , $attributes , $matches );
2017-12-08 00:18:01 -05:00
if ( $matches [ 1 ] != " " ) {
2013-12-29 11:49:29 -05:00
$link = $matches [ 1 ];
2017-12-08 00:18:01 -05:00
}
2013-12-29 11:49:29 -05:00
$id = preg_replace ( " =https?://twitter.com/(.*)/status/(.*)=ism " , " $ 2 " , $link );
2017-12-08 00:18:01 -05:00
if ( $id == $link ) {
return false ;
}
2013-12-29 11:49:29 -05:00
2017-12-08 00:18:01 -05:00
logger ( 'twitter_is_retweet: Retweeting id ' . $id . ' for user ' . $uid , LOGGER_DEBUG );
2013-12-29 11:49:29 -05:00
2017-11-06 18:55:24 -05:00
$ckey = Config :: get ( 'twitter' , 'consumerkey' );
$csecret = Config :: get ( 'twitter' , 'consumersecret' );
$otoken = PConfig :: get ( $uid , 'twitter' , 'oauthtoken' );
$osecret = PConfig :: get ( $uid , 'twitter' , 'oauthsecret' );
2013-12-29 11:49:29 -05:00
2017-12-08 00:18:01 -05:00
$connection = new TwitterOAuth ( $ckey , $csecret , $otoken , $osecret );
$result = $connection -> post ( 'statuses/retweet/' . $id );
2013-12-29 11:49:29 -05:00
2017-12-08 00:18:01 -05:00
logger ( 'twitter_is_retweet: result ' . print_r ( $result , true ), LOGGER_DEBUG );
2014-01-26 03:53:12 -05:00
2017-12-08 00:18:01 -05:00
return ! isset ( $result -> errors );
2013-12-29 11:49:29 -05:00
}