From: Michael <heluecht@pirati.ca>
Date: Tue, 15 Aug 2023 20:25:17 +0000 (+0000)
Subject: Nluesky/Twitter: Resize picture before uploading
X-Git-Url: https://git.mxchange.org/?a=commitdiff_plain;h=8b66b3a1946cdafa6efe0bbeee858de7eaccae5d;p=friendica-addons.git

Nluesky/Twitter: Resize picture before uploading
---

diff --git a/bluesky/bluesky.php b/bluesky/bluesky.php
index 252becc1..5ca9c951 100644
--- a/bluesky/bluesky.php
+++ b/bluesky/bluesky.php
@@ -43,6 +43,7 @@ use Friendica\Model\Photo;
 use Friendica\Model\Post;
 use Friendica\Network\HTTPClient\Client\HttpClientAccept;
 use Friendica\Network\HTTPClient\Client\HttpClientOptions;
+use Friendica\Object\Image;
 use Friendica\Protocol\Activity;
 use Friendica\Protocol\Relay;
 use Friendica\Util\DateTimeFormat;
@@ -50,6 +51,7 @@ use Friendica\Util\Strings;
 
 const BLUESKY_DEFAULT_POLL_INTERVAL = 10; // given in minutes
 const BLUESKY_HOST = 'https://bsky.app'; // Hard wired until Bluesky will run on multiple systems
+const BLUESKY_IMAGE_SIZE = [1000000, 500000, 100000, 50000];
 
 function bluesky_install()
 {
@@ -634,6 +636,12 @@ function bluesky_create_post(array $item, stdClass $root = null, stdClass $paren
 
 		if ($key == count($msg['parts']) - 1) {
 			$record = bluesky_add_embed($uid, $msg, $record);
+			if (empty($record)) {
+				if (Worker::getRetrial() < 3) {
+					Worker::defer();
+				}
+				return;
+			}
 		}
 
 		$post = [
@@ -644,6 +652,9 @@ function bluesky_create_post(array $item, stdClass $root = null, stdClass $paren
 
 		$parent = bluesky_xrpc_post($uid, 'com.atproto.repo.createRecord', $post);
 		if (empty($parent)) {
+			if ($part == 0) {
+				Worker::defer();
+			}
 			return;
 		}
 		Logger::debug('Posting done', ['return' => $parent]);
@@ -663,6 +674,7 @@ function bluesky_get_urls(string $body): array
 	// Remove all hashtag and mention links
 	$body = preg_replace("/([#@!])\[url\=(.*?)\](.*?)\[\/url\]/ism", '$1$3', $body);
 
+	$body = BBCode::expandVideoLinks($body);
 	$urls = [];
 
 	// Search for pure links
@@ -746,12 +758,15 @@ function bluesky_add_embed(int $uid, array $msg, array $record): array
 	if (($msg['type'] != 'link') && !empty($msg['images'])) {
 		$images = [];
 		foreach ($msg['images'] as $image) {
-			$photo = Photo::selectFirst(['resource-id'], ['id' => $image['id']]);
-			$photo = Photo::selectFirst([], ["`resource-id` = ? AND `scale` > ?", $photo['resource-id'], 0], ['order' => ['scale']]);
+			if (count($images) == 4) {
+				continue;
+			}
+			$photo = Photo::selectFirst([], ['id' => $image['id']]);
 			$blob = bluesky_upload_blob($uid, $photo);
-			if (!empty($blob) && count($images) < 4) {
-				$images[] = ['alt' => $image['description'] ?? '', 'image' => $blob];
+			if (empty($blob)) {
+				return [];
 			}
+			$images[] = ['alt' => $image['description'] ?? '', 'image' => $blob];
 		}
 		if (!empty($images)) {
 			$record['embed'] = ['$type' => 'app.bsky.embed.images', 'images' => $images];
@@ -778,13 +793,29 @@ function bluesky_add_embed(int $uid, array $msg, array $record): array
 
 function bluesky_upload_blob(int $uid, array $photo): ?stdClass
 {
+	$retrial = Worker::getRetrial();
 	$content = Photo::getImageForPhoto($photo);
+
+	$picture = new Image($content, $photo['type']);
+	$height  = $picture->getHeight();
+	$width   = $picture->getWidth(); 
+	$size    = strlen($content);
+
+	$picture    = Photo::resizeToFileSize($picture, BLUESKY_IMAGE_SIZE[$retrial]);
+	$new_height = $picture->getHeight();
+	$new_width  = $picture->getWidth(); 
+	$content    = $picture->asString();
+	$new_size   = strlen($content);
+
+	Logger::info('Uploading', ['uid' => $uid, 'retrial' => $retrial, 'height' => $new_height, 'width' => $new_width, 'size' => $new_size, 'orig-height' => $height, 'orig-width' => $width, 'orig-size' => $size]);
+
 	$data = bluesky_post($uid, '/xrpc/com.atproto.repo.uploadBlob', $content, ['Content-type' => $photo['type'], 'Authorization' => ['Bearer ' . bluesky_get_token($uid)]]);
 	if (empty($data)) {
+		Logger::info('Uploading failed', ['uid' => $uid, 'retrial' => $retrial, 'height' => $new_height, 'width' => $new_width, 'size' => $new_size, 'orig-height' => $height, 'orig-width' => $width, 'orig-size' => $size]);
 		return null;
 	}
 
-	Logger::debug('Uploaded blob', ['return' => $data]);
+	Logger::debug('Uploaded blob', ['return' => $data, 'uid' => $uid, 'retrial' => $retrial, 'height' => $new_height, 'width' => $new_width, 'size' => $new_size, 'orig-height' => $height, 'orig-width' => $width, 'orig-size' => $size]);
 	return $data->blob;
 }
 
diff --git a/twitter/templates/connector_settings.tpl b/twitter/templates/connector_settings.tpl
index bdb59891..534f39dc 100644
--- a/twitter/templates/connector_settings.tpl
+++ b/twitter/templates/connector_settings.tpl
@@ -4,4 +4,5 @@
 {{include file="field_input.tpl" field=$api_key}}
 {{include file="field_input.tpl" field=$api_secret}}
 {{include file="field_input.tpl" field=$access_token}}
-{{include file="field_input.tpl" field=$access_secret}}
\ No newline at end of file
+{{include file="field_input.tpl" field=$access_secret}}
+{{include file="field_textarea.tpl" field=$status}}
\ No newline at end of file
diff --git a/twitter/twitter.php b/twitter/twitter.php
index 4343e801..7b2e424c 100644
--- a/twitter/twitter.php
+++ b/twitter/twitter.php
@@ -47,12 +47,12 @@ use Friendica\Model\Post;
 use Friendica\Core\Config\Util\ConfigFileManager;
 use Friendica\Model\Photo;
 use Friendica\Object\Image;
-use Friendica\Util\Images;
 use GuzzleHttp\Client;
+use GuzzleHttp\Exception\RequestException;
 use GuzzleHttp\HandlerStack;
 use GuzzleHttp\Subscriber\Oauth\Oauth1;
 
-const TWITTER_MAX_IMAGE_SIZE = 500000;
+const TWITTER_IMAGE_SIZE = [2000000, 1000000, 500000, 100000, 50000];
 
 function twitter_install()
 {
@@ -115,6 +115,15 @@ function twitter_settings(array &$data)
 	$api_secret    = DI::pConfig()->get(DI::userSession()->getLocalUserId(), 'twitter', 'api_secret');
 	$access_token  = DI::pConfig()->get(DI::userSession()->getLocalUserId(), 'twitter', 'access_token');
 	$access_secret = DI::pConfig()->get(DI::userSession()->getLocalUserId(), 'twitter', 'access_secret');
+	
+	$last_status = DI::pConfig()->get(DI::userSession()->getLocalUserId(), 'twitter', 'last_status');
+	if (empty($last_status)) {
+		$status = DI::l10n()->t('No status.');
+	} elseif (!empty($last_status['code'])) {
+		$status = print_r($last_status, true);
+	} else {
+		$status = print_r($last_status, true);
+	}
 
 	$t    = Renderer::getMarkupTemplate('connector_settings.tpl', 'addon/twitter/');
 	$html = Renderer::replaceMacros($t, [
@@ -125,6 +134,7 @@ function twitter_settings(array &$data)
 		'$access_token'  => ['twitter-access-token', DI::l10n()->t('Access Token'), $access_token],
 		'$access_secret' => ['twitter-access-secret', DI::l10n()->t('Access Secret'), $access_secret],
 		'$help'          => DI::l10n()->t('Each user needs to register their own app to be able to post to Twitter. Please visit https://developer.twitter.com/en/portal/projects-and-apps to register a project. Inside the project you then have to register an app. You will find the needed data for the connector on the page "Keys and token" in the app settings.'),
+		'$status'        => ['twitter-status', DI::l10n()->t('Last Status'), $status, '', '', 'readonly'],
 	]);
 
 	$data = [
@@ -216,16 +226,19 @@ function twitter_post_hook(array &$b)
 	if (!empty($msgarr['images']) || !empty($msgarr['remote_images'])) {
 		Logger::info('Got images', ['id' => $b['id'], 'images' => $msgarr['images'] ?? []]);
 
+		$retrial = Worker::getRetrial();
+		if ($retrial > 4) {
+			return;
+		}
 		foreach ($msgarr['images'] ?? [] as $image) {
 			if (count($media_ids) == 4) {
 				continue;
 			}
 			try {
-				$media_ids[] = twitter_upload_image($b['uid'], $image, $b);
-			} catch (\Throwable $th) {
-				Logger::warning('Error while uploading image', ['image' => $image, 'code' => $th->getCode(), 'message' => $th->getMessage()]);
-				// Currently don't defer to avoid a loop.
-				//Worker::defer();
+				$media_ids[] = twitter_upload_image($b['uid'], $image, $retrial);
+			} catch (RequestException $exception) {
+				Logger::warning('Error while uploading image', ['image' => $image, 'code' => $exception->getCode(), 'message' => $exception->getMessage()]);
+				Worker::defer();
 				return;
 			}
 		}
@@ -238,9 +251,17 @@ function twitter_post_hook(array &$b)
 		try {
 			$id = twitter_post_status($b['uid'], $part, $media_ids, $in_reply_to_tweet_id);
 			Logger::info('twitter_post send', ['part' => $key, 'id' => $b['id'], 'result' => $id]);
-		} catch (\Throwable $th) {
-			Logger::warning('Error while posting message', ['part' => $key, 'id' => $b['id'], 'code' => $th->getCode(), 'message' => $th->getMessage()]);
-			Worker::defer();
+		} catch (RequestException $exception) {
+			Logger::warning('Error while posting message', ['part' => $key, 'id' => $b['id'], 'code' => $exception->getCode(), 'message' => $exception->getMessage()]);
+			$status = [
+				'code'    => $exception->getCode(),
+				'reason'  => $exception->getResponse()->getReasonPhrase(),
+				'content' => $exception->getMessage()
+			];
+			DI::pConfig()->set($b['uid'], 'twitter', 'last_status', $status);
+			if ($key == 0) {
+				Worker::defer();
+			}
 			break;
 		}
 
@@ -264,7 +285,7 @@ function twitter_post_status(int $uid, string $status, array $media_ids = [], st
 	return $response->data->id;
 }
 
-function twitter_upload_image(int $uid, array $image)
+function twitter_upload_image(int $uid, array $image, int $retrial)
 {
 	if (!empty($image['id'])) {
 		$photo = Photo::selectFirst([], ['id' => $image['id']]);
@@ -274,14 +295,20 @@ function twitter_upload_image(int $uid, array $image)
 
 	$picturedata = Photo::getImageForPhoto($photo);
 
-	$type = Images::getMimeTypeByData($picturedata, $photo['filename'], $photo['type']);
-
-	$picture = Photo::resizeToFileSize(new Image($picturedata, $type), TWITTER_MAX_IMAGE_SIZE);
+	$picture = new Image($picturedata, $photo['type']);
+	$height  = $picture->getHeight();
+	$width   = $picture->getWidth(); 
+	$size    = strlen($picturedata);
 
+	$picture     = Photo::resizeToFileSize($picture, TWITTER_IMAGE_SIZE[$retrial]);
+	$new_height  = $picture->getHeight();
+	$new_width   = $picture->getWidth(); 
 	$picturedata = $picture->asString();
+	$new_size    = strlen($picturedata);
 
-	Logger::info('Uploading', ['uid' => $uid, 'size' => strlen($picturedata), 'type' => @getimagesizefromstring($picturedata), 'photo' => $photo]);
+	Logger::info('Uploading', ['uid' => $uid, 'retrial' => $retrial, 'height' => $new_height, 'width' => $new_width, 'size' => $new_size, 'orig-height' => $height, 'orig-width' => $width, 'orig-size' => $size, 'image' => $image]);
 	$media = twitter_post($uid, 'https://upload.twitter.com/1.1/media/upload.json', 'form_params', ['media' => base64_encode($picturedata)]);
+	Logger::info('Uploading done', ['uid' => $uid, 'retrial' => $retrial, 'height' => $new_height, 'width' => $new_width, 'size' => $new_size, 'orig-height' => $height, 'orig-width' => $width, 'orig-size' => $size, 'image' => $image]);
 
 	if (isset($media->media_id_string)) {
 		$media_id = $media->media_id_string;
@@ -323,6 +350,14 @@ function twitter_post(int $uid, string $url, string $type, array $data): stdClas
 
 	$response = $client->post($url, ['auth' => 'oauth', $type => $data]);
 
+	$status = [
+		'code'    => $response->getStatusCode(), 
+		'reason'  => $response->getReasonPhrase(), 
+		'content' => $response->getBody()->getContents()
+	];
+
+	DI::pConfig()->set($uid, 'twitter', 'last_status', $status);
+
 	$content = json_decode($response->getBody()->getContents()) ?? new stdClass;
 	Logger::debug('Success', ['content' => $content]);
 	return $content;