?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Replace functions which called once with their bodies
[pidgin-git.git] / finch / plugins / gnttinyurl.c
blobd463cc0ea08091bd151b5b53059597f16d77b3cc
1 /**
2 * Copyright (C) 2009 Richard Nelson <wabz@whatsbeef.net>
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA
17 */
18
19 #include "internal.h"
20 #include <glib.h>
21 #include <libsoup/soup.h>
22
23 #define PLUGIN_STATIC_NAME TinyURL
24 #define PREFS_BASE "/plugins/gnt/tinyurl"
25 #define PREF_LENGTH PREFS_BASE "/length"
26 #define PREF_URL PREFS_BASE "/url"
27
28 #include <conversation.h>
29 #include <signals.h>
30
31 #include <glib.h>
32
33 #include <plugins.h>
34 #include <version.h>
35 #include <debug.h>
36 #include <notify.h>
37
38 #include <gntconv.h>
39
40 #include <gntplugin.h>
41
42 #include <gntlabel.h>
43 #include <gnttextview.h>
44 #include <gntwindow.h>
45
46 static int tag_num = 0;
47 static SoupSession *session = NULL;
48 static GHashTable *tinyurl_cache = NULL;
49
50 typedef struct
51 {
52 gchar *original_url;
53 PurpleConversation *conv;
54 gchar *tag;
55 int num;
56 } CbInfo;
57
58 static void process_urls(PurpleConversation *conv, GList *urls);
59
60 /* 3 functions from util.c */
61 static gboolean
62 badchar(char c)
63 {
64 switch (c) {
65 case ' ':
66 case ',':
67 case '\0':
68 case '\n':
69 case '\r':
70 case '<':
71 case '>':
72 case '"':
73 case '\'':
74 return TRUE;
75 default:
76 return FALSE;
77 }
78 }
79
80 static gboolean
81 badentity(const char *c)
82 {
83 if (!g_ascii_strncasecmp(c, "&lt;", 4) ||
84 !g_ascii_strncasecmp(c, "&gt;", 4) ||
85 !g_ascii_strncasecmp(c, "&quot;", 6)) {
86 return TRUE;
87 }
88 return FALSE;
89 }
90
91 static GList *extract_urls(const char *text)
92 {
93 const char *t, *c, *q = NULL;
94 char *url_buf;
95 GList *ret = NULL;
96 gboolean inside_html = FALSE;
97 int inside_paren = 0;
98 c = text;
99 while (*c) {
100 if (*c == '(' && !inside_html) {
101 inside_paren++;
102 c++;
103 }
104 if (inside_html) {
105 if (*c == '>') {
106 inside_html = FALSE;
107 } else if (!q && (*c == '\"' || *c == '\'')) {
108 q = c;
109 } else if(q) {
110 if(*c == *q)
111 q = NULL;
112 }
113 } else if (*c == '<') {
114 inside_html = TRUE;
115 if (!g_ascii_strncasecmp(c, "<A", 2)) {
116 while (1) {
117 if (*c == '>') {
118 inside_html = FALSE;
119 break;
120 }
121 c++;
122 if (!(*c))
123 break;
124 }
125 }
126 } else if ((*c=='h') && (!g_ascii_strncasecmp(c, "http://", 7) ||
127 (!g_ascii_strncasecmp(c, "https://", 8)))) {
128 t = c;
129 while (1) {
130 if (badchar(*t) || badentity(t)) {
131
132 if ((!g_ascii_strncasecmp(c, "http://", 7) && (t - c == 7)) ||
133 (!g_ascii_strncasecmp(c, "https://", 8) && (t - c == 8))) {
134 break;
135 }
136
137 if (*(t) == ',' && (*(t + 1) != ' ')) {
138 t++;
139 continue;
140 }
141
142 if (*(t - 1) == '.')
143 t--;
144 if ((*(t - 1) == ')' && (inside_paren > 0))) {
145 t--;
146 }
147
148 url_buf = g_strndup(c, t - c);
149 if (!g_list_find_custom(ret, url_buf, (GCompareFunc)strcmp)) {
150 purple_debug_info("TinyURL", "Added URL %s\n", url_buf);
151 ret = g_list_append(ret, url_buf);
152 } else {
153 g_free(url_buf);
154 }
155 c = t;
156 break;
157 }
158 t++;
159
160 }
161 } else if (!g_ascii_strncasecmp(c, "www.", 4) && (c == text || badchar(c[-1]) || badentity(c-1))) {
162 if (c[4] != '.') {
163 t = c;
164 while (1) {
165 if (badchar(*t) || badentity(t)) {
166 if (t - c == 4) {
167 break;
168 }
169
170 if (*(t) == ',' && (*(t + 1) != ' ')) {
171 t++;
172 continue;
173 }
174
175 if (*(t - 1) == '.')
176 t--;
177 if ((*(t - 1) == ')' && (inside_paren > 0))) {
178 t--;
179 }
180 url_buf = g_strndup(c, t - c);
181 if (!g_list_find_custom(ret, url_buf, (GCompareFunc)strcmp)) {
182 purple_debug_info("TinyURL", "Added URL %s\n", url_buf);
183 ret = g_list_append(ret, url_buf);
184 } else {
185 g_free(url_buf);
186 }
187 c = t;
188 break;
189 }
190 t++;
191 }
192 }
193 }
194 if (*c == ')' && !inside_html) {
195 inside_paren--;
196 c++;
197 }
198 if (*c == 0)
199 break;
200 c++;
201 }
202 return ret;
203 }
204
205 static void
206 url_fetched(G_GNUC_UNUSED SoupSession *session, SoupMessage *msg,
207 gpointer _data)
208 {
209 CbInfo *data = (CbInfo *)_data;
210 PurpleConversation *conv = data->conv;
211 GList *convs = purple_conversations_get_all();
212 const gchar *url;
213
214 if (SOUP_STATUS_IS_SUCCESSFUL(msg->status_code)) {
215 url = msg->response_body->data;
216 g_hash_table_insert(tinyurl_cache, data->original_url, g_strdup(url));
217 } else {
218 url = _("Error while querying TinyURL");
219 g_free(data->original_url);
220 }
221
222 /* ensure the conversation still exists */
223 if (g_list_find(convs, conv)) {
224 FinchConv *fconv = FINCH_CONV(conv);
225 gchar *str = g_strdup_printf("[%d] %s", data->num, url);
226 GntTextView *tv = GNT_TEXT_VIEW(fconv->tv);
227 gnt_text_view_tag_change(tv, data->tag, str, FALSE);
228 g_free(str);
229 g_free(data->tag);
230 g_free(data);
231 return;
232 }
233 g_free(data->tag);
234 g_free(data);
235 purple_debug_info("TinyURL", "Conversation no longer exists... :(\n");
236 }
237
238 static gboolean writing_msg(PurpleConversation *conv, PurpleMessage *msg, gpointer _unused)
239 {
240 GString *t;
241 GList *iter, *urls, *next;
242 int c = 0;
243
244 if (purple_message_get_flags(msg) & (PURPLE_MESSAGE_SEND | PURPLE_MESSAGE_INVISIBLE))
245 return FALSE;
246
247 urls = g_object_get_data(G_OBJECT(conv), "TinyURLs");
248 g_list_free_full(urls, g_free);
249 urls = extract_urls(purple_message_get_contents(msg));
250 if (!urls)
251 return FALSE;
252
253 t = g_string_new(g_strdup(purple_message_get_contents(msg)));
254 for (iter = urls; iter; iter = next) {
255 next = iter->next;
256 if (g_utf8_strlen((char *)iter->data, -1) >= purple_prefs_get_int(PREF_LENGTH)) {
257 int pos, x = 0;
258 gchar *j, *s, *str, *orig;
259 glong len = g_utf8_strlen(iter->data, -1);
260 s = g_strdup(t->str);
261 orig = s;
262 str = g_strdup_printf("[%d]", ++c);
263 while ((j = strstr(s, iter->data))) { /* replace all occurrences */
264 pos = j - orig + (x++ * 3);
265 s = j + len;
266 t = g_string_insert(t, pos + len, str);
267 if (*s == '\0') break;
268 }
269 g_free(orig);
270 g_free(str);
271 continue;
272 } else {
273 g_free(iter->data);
274 urls = g_list_delete_link(urls, iter);
275 }
276 }
277 purple_message_set_contents(msg, t->str);
278 g_string_free(t, TRUE);
279 if (conv != NULL)
280 g_object_set_data(G_OBJECT(conv), "TinyURLs", urls);
281 return FALSE;
282 }
283
284 static void wrote_msg(PurpleConversation *conv, PurpleMessage *pmsg,
285 gpointer _unused)
286 {
287 GList *urls;
288
289 if (purple_message_get_flags(pmsg) & PURPLE_MESSAGE_SEND)
290 return;
291
292 urls = g_object_get_data(G_OBJECT(conv), "TinyURLs");
293 if (urls == NULL)
294 return;
295
296 process_urls(conv, urls);
297 g_object_set_data(G_OBJECT(conv), "TinyURLs", NULL);
298 }
299
300 /* Frees 'urls' */
301 static void
302 process_urls(PurpleConversation *conv, GList *urls)
303 {
304 GList *iter;
305 int c;
306 FinchConv *fconv = FINCH_CONV(conv);
307 GntTextView *tv = GNT_TEXT_VIEW(fconv->tv);
308
309 for (iter = urls, c = 1; iter; iter = iter->next, c++) {
310 int i;
311 SoupMessage *msg;
312 CbInfo *cbdata;
313 gchar *url;
314 gchar *original_url;
315 const gchar *tiny_url;
316
317 i = gnt_text_view_get_lines_below(tv);
318
319 original_url = purple_unescape_html((char *)iter->data);
320 tiny_url = g_hash_table_lookup(tinyurl_cache, original_url);
321 if (tiny_url) {
322 gchar *str = g_strdup_printf("\n[%d] %s", c, tiny_url);
323
324 g_free(original_url);
325 gnt_text_view_append_text_with_flags(tv, str, GNT_TEXT_FLAG_DIM);
326 if (i == 0)
327 gnt_text_view_scroll(tv, 0);
328 g_free(str);
329 continue;
330 }
331 cbdata = g_new(CbInfo, 1);
332 cbdata->num = c;
333 cbdata->original_url = original_url;
334 cbdata->tag = g_strdup_printf("%s%d", "tiny_", tag_num++);
335 cbdata->conv = conv;
336 if (g_ascii_strncasecmp(original_url, "http://", 7) && g_ascii_strncasecmp(original_url, "https://", 8)) {
337 url = g_strdup_printf("%shttp%%3A%%2F%%2F%s", purple_prefs_get_string(PREF_URL), purple_url_encode(original_url));
338 } else {
339 url = g_strdup_printf("%s%s", purple_prefs_get_string(PREF_URL), purple_url_encode(original_url));
340 }
341 msg = soup_message_new("GET", url);
342 soup_session_queue_message(session, msg, url_fetched, cbdata);
343 gnt_text_view_append_text_with_tag((tv), _("\nFetching TinyURL..."),
344 GNT_TEXT_FLAG_DIM, cbdata->tag);
345 if (i == 0)
346 gnt_text_view_scroll(tv, 0);
347 g_free(iter->data);
348 g_free(url);
349 }
350 g_list_free(urls);
351 }
352
353 static void
354 free_conv_urls(PurpleConversation *conv)
355 {
356 GList *urls = g_object_get_data(G_OBJECT(conv), "TinyURLs");
357 g_list_free_full(urls, g_free);
358 }
359
360 static void
361 tinyurl_notify_tinyuri(GntWidget *win, const gchar *url)
362 {
363 gchar *message;
364 GntWidget *label = g_object_get_data(G_OBJECT(win), "info-widget");
365
366 message = g_strdup_printf(_("TinyURL for above: %s"), url);
367 gnt_label_set_text(GNT_LABEL(label), message);
368 g_free(message);
369 }
370
371 static void
372 cancel_notify_fetch(GntWidget *win, SoupMessage *msg)
373 {
374 soup_session_cancel_message(session, msg, SOUP_STATUS_CANCELLED);
375 }
376
377 static void
378 tinyurl_notify_fetch_cb(G_GNUC_UNUSED SoupSession *session, SoupMessage *msg,
379 gpointer _win)
380 {
381 GntWidget *win = _win;
382 const gchar *url;
383 const gchar *original_url;
384
385 if (!SOUP_STATUS_IS_SUCCESSFUL(msg->status_code)) {
386 return;
387 }
388
389 original_url = g_object_get_data(G_OBJECT(win), "gnttinyurl-original");
390 url = msg->response_body->data;
391 g_hash_table_insert(tinyurl_cache,
392 g_strdup(original_url), g_strdup(url));
393
394 tinyurl_notify_tinyuri(win, url);
395
396 g_signal_handlers_disconnect_matched(G_OBJECT(win), G_SIGNAL_MATCH_FUNC, 0,
397 0, NULL,
398 G_CALLBACK(cancel_notify_fetch), NULL);
399 }
400
401 static void *
402 tinyurl_notify_uri(const char *uri)
403 {
404 char *fullurl = NULL;
405 GntWidget *win;
406 SoupMessage *msg;
407 const gchar *tiny_url;
408
409 /* XXX: The following expects that finch_notify_message gets called. This
410 * may not always happen, e.g. when another plugin sets its own
411 * notify_message. So tread carefully. */
412 win = purple_notify_message(NULL, PURPLE_NOTIFY_MSG_INFO, _("URI"), uri,
413 _("Please wait while TinyURL fetches a shorter URL ..."), NULL, NULL, NULL);
414 if (!GNT_IS_WINDOW(win) || !g_object_get_data(G_OBJECT(win), "info-widget"))
415 return win;
416
417 tiny_url = g_hash_table_lookup(tinyurl_cache, uri);
418 if (tiny_url) {
419 tinyurl_notify_tinyuri(win, tiny_url);
420 return win;
421 }
422
423 if (g_ascii_strncasecmp(uri, "http://", 7) && g_ascii_strncasecmp(uri, "https://", 8)) {
424 fullurl = g_strdup_printf("%shttp%%3A%%2F%%2F%s",
425 purple_prefs_get_string(PREF_URL), purple_url_encode(uri));
426 } else {
427 fullurl = g_strdup_printf("%s%s", purple_prefs_get_string(PREF_URL),
428 purple_url_encode(uri));
429 }
430
431 g_object_set_data_full(G_OBJECT(win), "gnttinyurl-original", g_strdup(uri), g_free);
432
433 /* Store the SoupMessage and cancel that when the window is destroyed,
434 * so that the callback does not try to use a non-existent window.
435 */
436 msg = soup_message_new("GET", fullurl);
437 soup_session_queue_message(session, msg, tinyurl_notify_fetch_cb, win);
438 g_free(fullurl);
439 g_signal_connect(G_OBJECT(win), "destroy", G_CALLBACK(cancel_notify_fetch),
440 msg);
441
442 return win;
443 }
444
445 static PurplePluginPrefFrame *
446 get_plugin_pref_frame(PurplePlugin *plugin) {
447
448 PurplePluginPrefFrame *frame;
449 PurplePluginPref *pref;
450
451 frame = purple_plugin_pref_frame_new();
452
453 pref = purple_plugin_pref_new_with_name(PREF_LENGTH);
454 purple_plugin_pref_set_label(pref, _("Only create TinyURL for URLs"
455 " of this length or greater"));
456 purple_plugin_pref_frame_add(frame, pref);
457 pref = purple_plugin_pref_new_with_name(PREF_URL);
458 purple_plugin_pref_set_label(pref, _("TinyURL (or other) address prefix"));
459 purple_plugin_pref_frame_add(frame, pref);
460
461 return frame;
462 }
463
464 static FinchPluginInfo *
465 plugin_query(GError **error)
466 {
467 const gchar * const authors[] = {
468 "Richard Nelson <wabz@whatsbeef.net>",
469 NULL
470 };
471
472 return finch_plugin_info_new(
473 "id", "TinyURL",
474 "name", N_("TinyURL"),
475 "version", DISPLAY_VERSION,
476 "category", N_("Utility"),
477 "summary", N_("TinyURL plugin"),
478 "description", N_("When receiving a message with URL(s), "
479 "use TinyURL for easier copying"),
480 "authors", authors,
481 "website", PURPLE_WEBSITE,
482 "abi-version", PURPLE_ABI_VERSION,
483 "pref-frame-cb", get_plugin_pref_frame,
484 NULL
485 );
486 }
487
488 static gboolean
489 plugin_load(PurplePlugin *plugin, GError **error)
490 {
491 PurpleNotifyUiOps *ops = purple_notify_get_ui_ops();
492
493 session = soup_session_new();
494
495 purple_prefs_add_none(PREFS_BASE);
496 purple_prefs_add_int(PREF_LENGTH, 30);
497 purple_prefs_add_string(PREF_URL, "http://tinyurl.com/api-create.php?url=");
498
499 g_object_set_data(G_OBJECT(plugin), "notify-uri", ops->notify_uri);
500 ops->notify_uri = tinyurl_notify_uri;
501
502 tinyurl_cache = g_hash_table_new_full(g_str_hash, g_str_equal,
503 g_free, g_free);
504
505 purple_signal_connect(purple_conversations_get_handle(),
506 "wrote-im-msg",
507 plugin, PURPLE_CALLBACK(wrote_msg), NULL);
508 purple_signal_connect(purple_conversations_get_handle(),
509 "wrote-chat-msg",
510 plugin, PURPLE_CALLBACK(wrote_msg), NULL);
511 purple_signal_connect(purple_conversations_get_handle(),
512 "writing-im-msg",
513 plugin, PURPLE_CALLBACK(writing_msg), NULL);
514 purple_signal_connect(purple_conversations_get_handle(),
515 "writing-chat-msg",
516 plugin, PURPLE_CALLBACK(writing_msg), NULL);
517 purple_signal_connect(purple_conversations_get_handle(),
518 "deleting-conversation",
519 plugin, PURPLE_CALLBACK(free_conv_urls), NULL);
520
521 return TRUE;
522 }
523
524 static gboolean
525 plugin_unload(PurplePlugin *plugin, GError **error)
526 {
527 PurpleNotifyUiOps *ops = purple_notify_get_ui_ops();
528 if (ops->notify_uri == tinyurl_notify_uri)
529 ops->notify_uri = g_object_get_data(G_OBJECT(plugin), "notify-uri");
530
531 soup_session_abort(session);
532 g_clear_object(&session);
533
534 g_hash_table_destroy(tinyurl_cache);
535 tinyurl_cache = NULL;
536
537 return TRUE;
538 }
539
540 PURPLE_PLUGIN_INIT(PLUGIN_STATIC_NAME, plugin_query, plugin_load, plugin_unload);
Git mirror of Pidgin's Mercurial repository