pidgin/purple-plugin-pack

Fix the glib version update in the changelog. We depend on 2.32.0 not 2.23.0.

2020-07-21, Gary Kramlich
873c08a2aa96
Fix the glib version update in the changelog. We depend on 2.32.0 not 2.23.0.
/*
* libokcupid
*
* libokcupid is the property of its developers. See the COPYRIGHT file
* for more details.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "okc_connection.h"
static void okc_attempt_connection(OkCupidConnection *);
static void okc_next_connection(OkCupidAccount *oca);
static gchar *okc_gunzip(const guchar *gzip_data, ssize_t *len_ptr)
{
gsize gzip_data_len = *len_ptr;
z_stream zstr;
int gzip_err = 0;
gchar *data_buffer;
gulong gzip_len = G_MAXUINT16;
GString *output_string = NULL;
data_buffer = g_new0(gchar, gzip_len);
zstr.next_in = NULL;
zstr.avail_in = 0;
zstr.zalloc = Z_NULL;
zstr.zfree = Z_NULL;
zstr.opaque = 0;
gzip_err = inflateInit2(&zstr, MAX_WBITS+32);
if (gzip_err != Z_OK)
{
g_free(data_buffer);
purple_debug_error("okcupid", "no built-in gzip support in zlib\n");
return NULL;
}
zstr.next_in = (Bytef *)gzip_data;
zstr.avail_in = gzip_data_len;
zstr.next_out = (Bytef *)data_buffer;
zstr.avail_out = gzip_len;
gzip_err = inflate(&zstr, Z_SYNC_FLUSH);
if (gzip_err == Z_DATA_ERROR)
{
inflateEnd(&zstr);
inflateInit2(&zstr, -MAX_WBITS);
if (gzip_err != Z_OK)
{
g_free(data_buffer);
purple_debug_error("okcupid", "Cannot decode gzip header\n");
return NULL;
}
zstr.next_in = (Bytef *)gzip_data;
zstr.avail_in = gzip_data_len;
zstr.next_out = (Bytef *)data_buffer;
zstr.avail_out = gzip_len;
gzip_err = inflate(&zstr, Z_SYNC_FLUSH);
}
output_string = g_string_new("");
while (gzip_err == Z_OK)
{
//append data to buffer
output_string = g_string_append_len(output_string, data_buffer, gzip_len - zstr.avail_out);
//reset buffer pointer
zstr.next_out = (Bytef *)data_buffer;
zstr.avail_out = gzip_len;
gzip_err = inflate(&zstr, Z_SYNC_FLUSH);
}
if (gzip_err == Z_STREAM_END)
{
output_string = g_string_append_len(output_string, data_buffer, gzip_len - zstr.avail_out);
} else {
purple_debug_error("okcupid", "gzip inflate error\n");
}
inflateEnd(&zstr);
g_free(data_buffer);
gchar *output_data = g_strdup(output_string->str);
*len_ptr = output_string->len;
g_string_free(output_string, TRUE);
return output_data;
}
void okc_connection_destroy(OkCupidConnection *okconn)
{
okconn->oca->conns = g_slist_remove(okconn->oca->conns, okconn);
if (okconn->request != NULL)
g_string_free(okconn->request, TRUE);
g_free(okconn->rx_buf);
if (okconn->connect_data != NULL)
purple_proxy_connect_cancel(okconn->connect_data);
if (okconn->ssl_conn != NULL)
purple_ssl_close(okconn->ssl_conn);
if (okconn->fd >= 0) {
close(okconn->fd);
}
if (okconn->input_watcher > 0)
purple_input_remove(okconn->input_watcher);
g_free(okconn->hostname);
g_free(okconn);
}
static void okc_update_cookies(OkCupidAccount *oca, const gchar *headers)
{
const gchar *cookie_start;
const gchar *cookie_end;
gchar *cookie_name;
gchar *cookie_value;
int header_len;
g_return_if_fail(headers != NULL);
header_len = strlen(headers);
/* look for the next "Set-Cookie: " */
/* grab the data up until ';' */
cookie_start = headers;
while ((cookie_start = strstr(cookie_start, "\r\nSet-Cookie: ")) &&
(headers-cookie_start) < header_len)
{
cookie_start += 14;
cookie_end = strchr(cookie_start, '=');
cookie_name = g_strndup(cookie_start, cookie_end-cookie_start);
cookie_start = cookie_end + 1;
cookie_end = strchr(cookie_start, ';');
cookie_value= g_strndup(cookie_start, cookie_end-cookie_start);
cookie_start = cookie_end;
purple_debug_info("okcupid", "got cookie %s=%s\n",
cookie_name, cookie_value);
g_hash_table_replace(oca->cookie_table, cookie_name,
cookie_value);
}
}
static void okc_connection_process_data(OkCupidConnection *okconn)
{
ssize_t len;
gchar *tmp;
len = okconn->rx_len;
tmp = g_strstr_len(okconn->rx_buf, len, "\r\n\r\n");
if (tmp == NULL) {
/* This is a corner case that occurs when the connection is
* prematurely closed either on the client or the server.
* This can either be no data at all or a partial set of
* headers. We pass along the data to be good, but don't
* do any fancy massaging. In all likelihood the result will
* be tossed by the connection callback func anyways
*/
tmp = g_strndup(okconn->rx_buf, len);
} else {
tmp += 4;
len -= g_strstr_len(okconn->rx_buf, len, "\r\n\r\n") -
okconn->rx_buf + 4;
tmp = g_memdup(tmp, len + 1);
tmp[len] = '\0';
okconn->rx_buf[okconn->rx_len - len] = '\0';
//purple_debug_misc("okcupid", "response headers\n%s\n",
// okconn->rx_buf);
okc_update_cookies(okconn->oca, okconn->rx_buf);
if (strstr(okconn->rx_buf, "Content-Encoding: gzip"))
{
/* we've received compressed gzip data, decompress */
gchar *gunzipped;
gunzipped = okc_gunzip((const guchar *)tmp, &len);
g_free(tmp);
tmp = gunzipped;
}
}
g_free(okconn->rx_buf);
okconn->rx_buf = NULL;
if (okconn->callback != NULL)
okconn->callback(okconn->oca, tmp, len, okconn->user_data);
g_free(tmp);
}
static void okc_fatal_connection_cb(OkCupidConnection *okconn)
{
PurpleConnection *pc = okconn->oca->pc;
purple_debug_error("okcupid", "fatal connection error\n");
okc_connection_destroy(okconn);
/* We died. Do not pass Go. Do not collect $200 */
/* In all seriousness, don't attempt to call the normal callback here.
* That may lead to the wrong error message being displayed */
purple_connection_error_reason(pc,
PURPLE_CONNECTION_ERROR_NETWORK_ERROR,
_("Server closed the connection."));
}
static void okc_post_or_get_readdata_cb(gpointer data, gint source,
PurpleInputCondition cond)
{
OkCupidAccount *oca;
OkCupidConnection *okconn;
gchar buf[4096];
ssize_t len;
okconn = data;
oca = okconn->oca;
if (okconn->method & OKC_METHOD_SSL) {
len = purple_ssl_read(okconn->ssl_conn,
buf, sizeof(buf) - 1);
} else {
len = recv(okconn->fd, buf, sizeof(buf) - 1, 0);
}
if (len < 0)
{
if (errno == EAGAIN || errno == EWOULDBLOCK || errno == EINTR) {
/* Try again later */
return;
}
if (okconn->method & OKC_METHOD_SSL && okconn->rx_len > 0) {
/*
* This is a slightly hacky workaround for a bug in either
* GNU TLS or in the SSL implementation on Facebook's web
* servers. The sequence of events is:
* 1. We attempt to read the first time and successfully read
* the server's response.
* 2. We attempt to read a second time and libpurple's call
* to gnutls_record_recv() returns the error
* GNUTLS_E_UNEXPECTED_PACKET_LENGTH, or
* "A TLS packet with unexpected length was received."
*
* Normally the server would have closed the connection
* cleanly and this second read() request would have returned
* 0. Or maybe it's normal for SSL connections to be severed
* in this manner? In any case, this differs from the behavior
* of the standard recv() system call.
*/
purple_debug_warning("okcupid",
"ssl error, but data received. attempting to continue\n");
} else {
/* TODO: Is this a regular occurrence? If so then maybe resend the request? */
okc_fatal_connection_cb(okconn);
return;
}
}
if (len > 0)
{
buf[len] = '\0';
okconn->rx_buf = g_realloc(okconn->rx_buf,
okconn->rx_len + len + 1);
memcpy(okconn->rx_buf + okconn->rx_len, buf, len + 1);
okconn->rx_len += len;
/* Wait for more data before processing */
return;
}
/* The server closed the connection, let's parse the data */
okc_connection_process_data(okconn);
okc_connection_destroy(okconn);
okc_next_connection(oca);
}
static void okc_post_or_get_ssl_readdata_cb (gpointer data,
PurpleSslConnection *ssl, PurpleInputCondition cond)
{
okc_post_or_get_readdata_cb(data, -1, cond);
}
static void okc_post_or_get_connect_cb(gpointer data, gint source,
const gchar *error_message)
{
OkCupidConnection *okconn;
ssize_t len;
okconn = data;
okconn->connect_data = NULL;
if (error_message)
{
purple_debug_error("okcupid", "post_or_get_connect_cb %s\n",
error_message);
okc_fatal_connection_cb(okconn);
return;
}
purple_debug_info("okcupid", "post_or_get_connect_cb\n");
okconn->fd = source;
len = write(okconn->fd, okconn->request->str,
okconn->request->len);
if(len != okconn->request->len) {
purple_debug_error("okcupid", "post_or_get_connect_cb failed to write request\n");
okc_fatal_connection_cb(okconn);
return;
}
okconn->input_watcher = purple_input_add(okconn->fd,
PURPLE_INPUT_READ,
okc_post_or_get_readdata_cb, okconn);
}
static void okc_post_or_get_ssl_connect_cb(gpointer data,
PurpleSslConnection *ssl, PurpleInputCondition cond)
{
OkCupidConnection *okconn;
ssize_t len;
okconn = data;
purple_debug_info("okcupid", "post_or_get_ssl_connect_cb\n");
len = purple_ssl_write(okconn->ssl_conn,
okconn->request->str, okconn->request->len);
if(len != okconn->request->len) {
purple_debug_error("okcupid", "post_or_get_ssl_connect_cb failed to write request\n");
okc_fatal_connection_cb(okconn);
return;
}
purple_ssl_input_add(okconn->ssl_conn,
okc_post_or_get_ssl_readdata_cb, okconn);
}
static void okc_host_lookup_cb(GSList *hosts, gpointer data,
const char *error_message)
{
GSList *host_lookup_list;
struct sockaddr_in *addr;
gchar *hostname;
gchar *ip_address;
OkCupidAccount *oca;
PurpleDnsQueryData *query;
purple_debug_info("okcupid", "updating cache of dns addresses\n");
/* Extract variables */
host_lookup_list = data;
oca = host_lookup_list->data;
host_lookup_list =
g_slist_delete_link(host_lookup_list, host_lookup_list);
hostname = host_lookup_list->data;
host_lookup_list =
g_slist_delete_link(host_lookup_list, host_lookup_list);
query = host_lookup_list->data;
host_lookup_list =
g_slist_delete_link(host_lookup_list, host_lookup_list);
/* The callback has executed, so we no longer need to keep track of
* the original query. This always needs to run when the cb is
* executed. */
oca->dns_queries = g_slist_remove(oca->dns_queries, query);
/* Any problems, capt'n? */
if (error_message != NULL)
{
purple_debug_warning("okcupid",
"Error doing host lookup: %s\n", error_message);
return;
}
if (hosts == NULL)
{
purple_debug_warning("okcupid",
"Could not resolve host name\n");
return;
}
/* Discard the length... */
hosts = g_slist_delete_link(hosts, hosts);
/* Copy the address then free it... */
addr = hosts->data;
ip_address = g_strdup(inet_ntoa(addr->sin_addr));
g_free(addr);
hosts = g_slist_delete_link(hosts, hosts);
/*
* DNS lookups can return a list of IP addresses, but we only cache
* the first one. So free the rest.
*/
while (hosts != NULL)
{
/* Discard the length... */
hosts = g_slist_delete_link(hosts, hosts);
/* Free the address... */
g_free(hosts->data);
hosts = g_slist_delete_link(hosts, hosts);
}
purple_debug_info("okcupid", "Host %s has IP %s\n",
hostname, ip_address);
g_hash_table_insert(oca->hostname_ip_cache, hostname, ip_address);
}
static void okc_cookie_foreach_cb(gchar *cookie_name,
gchar *cookie_value, GString *str)
{
/* TODO: Need to escape name and value? */
g_string_append_printf(str, "%s=%s;", cookie_name, cookie_value);
}
static gchar *okc_cookies_to_string(OkCupidAccount *oca)
{
GString *str;
str = g_string_new(NULL);
g_hash_table_foreach(oca->cookie_table,
(GHFunc)okc_cookie_foreach_cb, str);
return g_string_free(str, FALSE);
}
static void okc_ssl_connection_error(PurpleSslConnection *ssl,
PurpleSslErrorType errortype, gpointer data)
{
OkCupidConnection *okconn = data;
PurpleConnection *pc = okconn->oca->pc;
okconn->ssl_conn = NULL;
okc_connection_destroy(okconn);
purple_connection_ssl_error(pc, errortype);
}
void okc_post_or_get(OkCupidAccount *oca, OkCupidMethod method,
const gchar *host, const gchar *url, const gchar *postdata,
OkCupidProxyCallbackFunc callback_func, gpointer user_data,
gboolean keepalive)
{
GString *request;
gchar *cookies;
OkCupidConnection *okconn;
gchar *real_url;
gboolean is_proxy = FALSE;
const gchar* const *languages;
gchar *language_names;
PurpleProxyInfo *proxy_info = NULL;
gchar *proxy_auth;
gchar *proxy_auth_base64;
/* TODO: Fix keepalive and use it as much as possible */
keepalive = FALSE;
if (purple_account_get_bool(oca->account, "force_https", TRUE) && !(method & OKC_METHOD_SSL) &&
(!host || g_str_equal(host, "www.okcupid.com") || g_str_equal(host, "api.okcupid.com")))
{
method |= OKC_METHOD_SSL;
}
if (method & OKC_METHOD_SSL)
host = "www.okcupid.com";
if (host == NULL && oca && oca->account)
host = purple_account_get_string(oca->account, "host", "api.okcupid.com");
if (host == NULL)
host = "api.okcupid.com";
if (oca && oca->account && !(method & OKC_METHOD_SSL))
{
proxy_info = purple_proxy_get_setup(oca->account);
if (purple_proxy_info_get_type(proxy_info) == PURPLE_PROXY_USE_GLOBAL)
proxy_info = purple_global_proxy_get_info();
if (purple_proxy_info_get_type(proxy_info) == PURPLE_PROXY_HTTP)
{
is_proxy = TRUE;
}
}
if (is_proxy == TRUE)
{
real_url = g_strdup_printf("http://%s%s", host, url);
} else {
real_url = g_strdup(url);
}
cookies = okc_cookies_to_string(oca);
if (method & OKC_METHOD_POST && !postdata)
postdata = "";
/* Build the request */
request = g_string_new(NULL);
g_string_append_printf(request, "%s %s HTTP/1.0\r\n",
(method & OKC_METHOD_POST) ? "POST" : "GET",
real_url);
if (is_proxy == FALSE)
g_string_append_printf(request, "Host: %s\r\n", host);
g_string_append_printf(request, "Connection: %s\r\n",
(keepalive ? "Keep-Alive" : "close"));
g_string_append_printf(request, "User-Agent: %s (libpurple %s)\r\n", purple_core_get_ui(), purple_core_get_version());
if (method & OKC_METHOD_POST) {
g_string_append_printf(request,
"Content-Type: application/x-www-form-urlencoded\r\n");
g_string_append_printf(request,
"Content-length: %zu\r\n", strlen(postdata));
}
g_string_append_printf(request, "Accept: */*\r\n");
g_string_append_printf(request, "Cookie: %s\r\n", cookies);
g_string_append_printf(request, "Accept-Encoding: gzip\r\n");
g_string_append_printf(request, "X-OkCupid-Api-Version: 1\r\n");
if (is_proxy == TRUE)
{
if (purple_proxy_info_get_username(proxy_info) &&
purple_proxy_info_get_password(proxy_info))
{
proxy_auth = g_strdup_printf("%s:%s", purple_proxy_info_get_username(proxy_info), purple_proxy_info_get_password(proxy_info));
proxy_auth_base64 = purple_base64_encode((guchar *)proxy_auth, strlen(proxy_auth));
g_string_append_printf(request, "Proxy-Authorization: Basic %s\r\n", proxy_auth_base64);
g_free(proxy_auth_base64);
g_free(proxy_auth);
}
}
/* Tell the server what language we accept, so that we get error messages in our language (rather than our IP's) */
languages = g_get_language_names();
language_names = g_strjoinv(", ", (gchar **)languages);
purple_util_chrreplace(language_names, '_', '-');
g_string_append_printf(request, "Accept-Language: %s\r\n", language_names);
g_free(language_names);
purple_debug_misc("okcupid", "requesting url %s\n", url);
g_string_append_printf(request, "\r\n");
if (method & OKC_METHOD_POST)
g_string_append_printf(request, "%s", postdata);
/* If it needs to go over a SSL connection, we probably shouldn't print
* it in the debug log. Without this condition a user's password is
* printed in the debug log */
if (method == OKC_METHOD_POST)
purple_debug_misc("okcupid", "sending request data:\n%s\n",
postdata);
g_free(cookies);
g_free(real_url);
/*
* Do a separate DNS lookup for the given host name and cache it
* for next time.
*
* TODO: It would be better if we did this before we call
* purple_proxy_connect(), so we could re-use the result.
* Or even better: Use persistent HTTP connections for servers
* that we access continually.
*
* TODO: This cache of the hostname<-->IP address does not respect
* the TTL returned by the DNS server. We should expire things
* from the cache after some amount of time.
*/
if (!is_proxy && !g_hostname_is_ip_address(host) && !(method & OKC_METHOD_SSL))
{
/* Don't do this for proxy connections, since proxies do the DNS lookup */
gchar *host_ip;
host_ip = g_hash_table_lookup(oca->hostname_ip_cache, host);
if (host_ip != NULL) {
purple_debug_info("okcupid",
"swapping original host %s with cached value of %s\n",
host, host_ip);
host = host_ip;
} else if (oca->account && !oca->account->disconnecting) {
GSList *host_lookup_list = NULL;
PurpleDnsQueryData *query;
host_lookup_list = g_slist_prepend(
host_lookup_list, g_strdup(host));
host_lookup_list = g_slist_prepend(
host_lookup_list, oca);
query = purple_dnsquery_a(host, 80,
okc_host_lookup_cb, host_lookup_list);
oca->dns_queries = g_slist_prepend(oca->dns_queries, query);
host_lookup_list = g_slist_append(host_lookup_list, query);
}
}
okconn = g_new0(OkCupidConnection, 1);
okconn->oca = oca;
okconn->method = method;
okconn->hostname = g_strdup(host);
okconn->request = request;
okconn->callback = callback_func;
okconn->user_data = user_data;
okconn->fd = -1;
okconn->connection_keepalive = keepalive;
okconn->request_time = time(NULL);
g_queue_push_head(oca->waiting_conns, okconn);
okc_next_connection(oca);
}
static void okc_next_connection(OkCupidAccount *oca)
{
OkCupidConnection *okconn;
g_return_if_fail(oca != NULL);
if (!g_queue_is_empty(oca->waiting_conns))
{
if(g_slist_length(oca->conns) < OKC_MAX_CONNECTIONS)
{
okconn = g_queue_pop_tail(oca->waiting_conns);
okc_attempt_connection(okconn);
}
}
}
static void okc_attempt_connection(OkCupidConnection *okconn)
{
OkCupidAccount *oca = okconn->oca;
oca->conns = g_slist_prepend(oca->conns, okconn);
if (okconn->method & OKC_METHOD_SSL) {
okconn->ssl_conn = purple_ssl_connect(oca->account, okconn->hostname,
443, okc_post_or_get_ssl_connect_cb,
okc_ssl_connection_error, okconn);
} else {
okconn->connect_data = purple_proxy_connect(NULL, oca->account,
okconn->hostname, 80, okc_post_or_get_connect_cb, okconn);
}
return;
}