jabber.c

   1 /*
   2 ** Copyright (C) 2006 Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
   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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17 **
  18 */
  19
  20 #include <gnet.h>
  21 #include <glib.h>
  22 #include <iksemel.h>
  23 #include "iksemel_extra.h"
  24 #include "jabber.h"
  25
  26 static void jabber_connect (net_hook_t* hook)
  27 {
  28 }
  29
  30 static void jabber_close (net_hook_t* hook)
  31 {
  32   if (hook->peer)
  33     {
  34       hook->peer->peer = NULL;
  35       gnet_conn_disconnect (hook->peer->conn);
  36     }
  37   gnet_conn_delete (hook->conn);
  38   iks_parser_delete (hook->data);
  39   g_slice_free (net_hook_t, hook);
  40 }
  41
  42 static void jabber_write (net_hook_t* hook)
  43 {
  44 }
  45
  46 static void jabber_read (net_hook_t* hook, gchar* buffer, size_t len)
  47 {
  48   iks_parse (hook->data, buffer, len, FALSE);
  49 }
  50
  51 void jabber_error (net_hook_t* hook)
  52 {
  53   g_message ("Error in jabber client connection.");
  54 }
  55
  56 GString* jabber_new_start (iks* node)
  57 {
  58   GString* buffer;
  59   iks* attrib;
  60   buffer = g_string_sized_new (256);
  61   g_string_append (buffer, iks_string (iks_stack (node), node));
  62   g_string_erase (buffer, buffer->len - 2, 1);
  63   return buffer;
  64 }
  65
  66 void jabber_connect_server (net_hook_t* hook, char* server, iks* node)
  67 {
  68   net_hook_t* server_hook;
  69   GString* buffer;
  70   g_message ("Received new stream.");
  71   if (hook->peer == NULL)
  72     {
  73       server_hook = jabber_server_hook_new (hook, server);
  74       hook->peer = server_hook;
  75       g_message ("Trying to connect to server %s.", server);
  76       gnet_conn_connect (hook->peer->conn);
  77       gnet_conn_read (hook->peer->conn);
  78     }
  79   buffer = jabber_new_start (node);
  80   gnet_conn_write (hook->peer->conn, buffer->str, buffer->len);
  81   g_string_free (buffer, TRUE);
  82 }
  83
  84 void jabber_send (net_hook_t* hook, iks* node)
  85 {
  86   GString* buffer;
  87   buffer = g_string_new (iks_string (iks_stack (node), node));
  88   gnet_conn_write (hook->peer->conn, buffer->str, buffer->len);
  89   g_string_free (buffer, TRUE);
  90 }
  91
  92 int jabber_parser (gpointer data, int type, iks* node)
  93 {
  94   net_hook_t* hook;
  95   char* server;
  96   hook = (net_hook_t*) data;
  97   switch (type)
  98     {
  99     case IKS_NODE_START:
 100       server = iks_find_attrib (node, "to");
 101       if (server == NULL)
 102         {
 103           jabber_error (hook);
 104         }
 105       jabber_connect_server (hook, server, node);
 106       iks_delete (node);
 107       break;
 108     case IKS_NODE_NORMAL:
 109       jabber_send (hook, node);
 110       iks_delete (node);
 111       break;
 112     case IKS_NODE_STOP:
 113       gnet_conn_write (hook->peer->conn, "</stream:stream>", 16);
 114       break;
 115     case IKS_NODE_ERROR:
 116       break;
 117     }
 118   return IKS_OK;
 119 }
 120
 121 net_hook_t* jabber_hook_new (GConn* conn)
 122 {
 123   net_hook_t* hook;
 124   hook = g_slice_new (net_hook_t);
 125   hook->conn = conn;
 126   hook->peer = NULL;
 127   hook->server = FALSE;
 128   hook->connect = jabber_connect;
 129   hook->close = jabber_close;
 130   hook->write = jabber_write;
 131   hook->read = jabber_read;
 132   hook->data = iks_extra_stream_new (hook, jabber_parser);
 133   gnet_conn_set_callback (hook->conn, nethook_event, hook);
 134   return hook;
 135 }
 136
 137 void jabber_destroy (net_hook_t* hook)
 138 {
 139   g_slice_free (net_hook_t, hook);
 140 }