aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ftutil.c
blob: 71c09b50cbe76a384c803d8e512682ee92a79df1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
/***************************************************************************\
*                                                                           *
*  BitlBee - An IRC to IM gateway                                           *
*  Utility functions for file transfer                                      *
*                                                                           *
*  Copyright 2008 Uli Meis <a.sporto+bee@gmail.com>                         *
*                                                                           *
*  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 2 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, write to the Free Software Foundation, Inc.,  *
*  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.              *
*                                                                           *
\***************************************************************************/

#define BITLBEE_CORE
#include "bitlbee.h"
#include <poll.h>
#include <netinet/tcp.h>
#include "lib/ftutil.h"

#define ASSERTSOCKOP(op, msg) \
	if( (op) == -1 ) {\
		g_snprintf( errmsg, sizeof( errmsg ), msg ": %s", strerror( errno ) ); \
		return -1; }

/*
 * Creates a listening socket and returns it in saddr_ptr.
 */
int ft_listen( struct sockaddr_storage *saddr_ptr, char *host, char *port, int copy_fd, int for_bitlbee_client, char **errptr )
{
	int fd, gret, saddrlen;
	struct addrinfo hints, *rp;
	socklen_t ssize = sizeof( struct sockaddr_storage );
	struct sockaddr_storage saddrs, *saddr = &saddrs;
	static char errmsg[1024];
	char *ftlisten = global.conf->ft_listen;

	if( errptr )
		*errptr = errmsg;

	strcpy( port, "0" );

	/* Format is <IP-A>[:<Port-A>];<IP-B>[:<Port-B>] where
	 * A is for connections with the bitlbee client (DCC)
	 * and B is for connections with IM peers.
	 */
	if( ftlisten )
	{
		char *scolon = strchr( ftlisten, ';' );
		char *colon;

		if( scolon )
		{
			if( for_bitlbee_client )
			{
				*scolon = '\0';
				strncpy( host, ftlisten, HOST_NAME_MAX );
				*scolon = ';';
			}
			else
			{
				strncpy( host, scolon + 1, HOST_NAME_MAX );
			}
		}
		else
		{
			strncpy( host, ftlisten, HOST_NAME_MAX );
		}

		if( ( colon = strchr( host, ':' ) ) )
		{
			*colon = '\0';
			strncpy( port, colon + 1, 5 );
		}
	}
	else if( copy_fd >= 0 && getsockname( copy_fd, (struct sockaddr*) &saddrs, &ssize ) == 0 &&
	         ( saddrs.ss_family == AF_INET || saddrs.ss_family == AF_INET6 ) &&
	         getnameinfo( (struct sockaddr*) &saddrs, ssize, host, HOST_NAME_MAX,
	                      NULL, 0, NI_NUMERICHOST ) == 0 )
	{
		/* We just took our local address on copy_fd, which is likely to be a
		   sensible address from which we can do a file transfer now - the
		   most sensible we can get easily. */
	}
	else
	{
		ASSERTSOCKOP( gethostname( host, HOST_NAME_MAX + 1 ), "gethostname()" );
	}

	memset( &hints, 0, sizeof( struct addrinfo ) );
	hints.ai_socktype = SOCK_STREAM;
	hints.ai_flags = AI_NUMERICSERV;

	if ( ( gret = getaddrinfo( host, port, &hints, &rp ) ) != 0 )
	{
		sprintf( errmsg, "getaddrinfo() failed: %s", gai_strerror( gret ) );
		return -1;
	}

	saddrlen = rp->ai_addrlen;

	memcpy( saddr, rp->ai_addr, saddrlen );

	freeaddrinfo( rp );

	ASSERTSOCKOP( fd = socket( saddr->ss_family, SOCK_STREAM, 0 ), "Opening socket" );
	ASSERTSOCKOP( bind( fd, ( struct sockaddr *)saddr, saddrlen ), "Binding socket" );
	ASSERTSOCKOP( listen( fd, 1 ), "Making socket listen" );

	if ( !inet_ntop( saddr->ss_family, saddr->ss_family == AF_INET ?
			( void * )&( ( struct sockaddr_in * ) saddr )->sin_addr.s_addr :
			( void * )&( ( struct sockaddr_in6 * ) saddr )->sin6_addr.s6_addr,
			host, HOST_NAME_MAX ) )
	{
		strcpy( errmsg, "inet_ntop failed on listening socket" );
		return -1;
	}

	ssize = sizeof( struct sockaddr_storage );
	ASSERTSOCKOP( getsockname( fd, ( struct sockaddr *)saddr, &ssize ), "Getting socket name" );

	if( saddr->ss_family == AF_INET )
		g_snprintf( port, 6, "%d", ntohs( ( (struct sockaddr_in *) saddr )->sin_port ) );
	else
		g_snprintf( port, 6, "%d", ntohs( ( (struct sockaddr_in6 *) saddr )->sin6_port ) );

	if( saddr_ptr )
		memcpy( saddr_ptr, saddr, saddrlen );

	/* I hate static-length strings.. */
	host[HOST_NAME_MAX] = '\0';
	port[5] = '\0';
	
	return fd;
}
>->data; jc = ret->data; if( strcmp( normalized, jc->name ) == 0 ) break; } g_free( normalized ); return l ? ret : NULL; } void jabber_chat_free( struct groupchat *c ) { struct jabber_chat *jc = c->data; jabber_buddy_remove_bare( c->ic, jc->name ); g_free( jc->my_full_jid ); g_free( jc->name ); g_free( jc ); imcb_chat_free( c ); } int jabber_chat_msg( struct groupchat *c, char *message, int flags ) { struct im_connection *ic = c->ic; struct jabber_chat *jc = c->data; struct xt_node *node; jc->flags |= JCFLAG_MESSAGE_SENT; node = xt_new_node( "body", message, NULL ); node = jabber_make_packet( "message", "groupchat", jc->name, node ); if( !jabber_write_packet( ic, node ) ) { xt_free_node( node ); return 0; } xt_free_node( node ); return 1; } int jabber_chat_topic( struct groupchat *c, char *topic ) { struct im_connection *ic = c->ic; struct jabber_chat *jc = c->data; struct xt_node *node; node = xt_new_node( "subject", topic, NULL ); node = jabber_make_packet( "message", "groupchat", jc->name, node ); if( !jabber_write_packet( ic, node ) ) { xt_free_node( node ); return 0; } xt_free_node( node ); return 1; } int jabber_chat_leave( struct groupchat *c, const char *reason ) { struct im_connection *ic = c->ic; struct jabber_chat *jc = c->data; struct xt_node *node; node = xt_new_node( "x", NULL, NULL ); xt_add_attr( node, "xmlns", XMLNS_MUC ); node = jabber_make_packet( "presence", "unavailable", jc->my_full_jid, node ); if( !jabber_write_packet( ic, node ) ) { xt_free_node( node ); return 0; } xt_free_node( node ); return 1; } void jabber_chat_invite( struct groupchat *c, char *who, char *message ) { struct xt_node *node; struct im_connection *ic = c->ic; struct jabber_chat *jc = c->data; node = xt_new_node( "reason", message, NULL ); node = xt_new_node( "invite", NULL, node ); xt_add_attr( node, "to", who ); node = xt_new_node( "x", NULL, node ); xt_add_attr( node, "xmlns", XMLNS_MUC_USER ); node = jabber_make_packet( "message", NULL, jc->name, node ); jabber_write_packet( ic, node ); xt_free_node( node ); } /* Not really the same syntax as the normal pkt_ functions, but this isn't called by the xmltree parser directly and this way I can add some extra parameters so we won't have to repeat too many things done by the caller already. */ void jabber_chat_pkt_presence( struct im_connection *ic, struct jabber_buddy *bud, struct xt_node *node ) { struct groupchat *chat; struct xt_node *c; char *type = xt_find_attr( node, "type" ); struct jabber_chat *jc; char *s; if( ( chat = jabber_chat_by_jid( ic, bud->bare_jid ) ) == NULL ) { /* How could this happen?? We could do kill( self, 11 ) now or just wait for the OS to do it. :-) */ return; } jc = chat->data; if( type == NULL && !( bud->flags & JBFLAG_IS_CHATROOM ) ) { bud->flags |= JBFLAG_IS_CHATROOM; /* If this one wasn't set yet, this buddy just joined the chat. Slightly hackish way of finding out eh? ;-) */ /* This is pretty messy... Here it sets ext_jid to the real JID of the participant. Works for non-anonymized channels. Might break if someone joins a chat twice, though. */ for( c = node->children; ( c = xt_find_node( c, "x" ) ); c = c->next ) if( ( s = xt_find_attr( c, "xmlns" ) ) && ( strcmp( s, XMLNS_MUC_USER ) == 0 ) ) { struct xt_node *item; item = xt_find_node( c->children, "item" ); if( ( s = xt_find_attr( item, "jid" ) ) ) { /* Yay, found what we need. :-) */ bud->ext_jid = jabber_normalize( s ); break; } } /* Make up some other handle, if necessary. */ if( bud->ext_jid == NULL ) { if( bud == jc->me ) { bud->ext_jid = jabber_normalize( ic->acc->user ); } else { int i; /* Don't want the nick to be at the end, so let's think of some slightly different notation to use for anonymous groupchat participants in BitlBee. */ bud->ext_jid = g_strdup_printf( "%s=%s", bud->resource, bud->bare_jid ); /* And strip any unwanted characters. */ for( i = 0; bud->resource[i]; i ++ ) if( bud->ext_jid[i] == '=' || bud->ext_jid[i] == '@' ) bud->ext_jid[i] = '_'; /* Some program-specific restrictions. */ imcb_clean_handle( ic, bud->ext_jid ); } bud->flags |= JBFLAG_IS_ANONYMOUS; } if( bud != jc->me && bud->flags & JBFLAG_IS_ANONYMOUS ) { /* If JIDs are anonymized, add them to the local list for the duration of this chat. */ imcb_add_buddy( ic, bud->ext_jid, NULL ); imcb_buddy_nick_hint( ic, bud->ext_jid, bud->resource ); } s = strchr( bud->ext_jid, '/' ); if( s ) *s = 0; /* Should NEVER be NULL, but who knows... */ imcb_chat_add_buddy( chat, bud->ext_jid ); if( s ) *s = '/'; } else if( type ) /* type can only be NULL or "unavailable" in this function */ { if( ( bud->flags & JBFLAG_IS_CHATROOM ) && bud->ext_jid ) { s = strchr( bud->ext_jid, '/' ); if( s ) *s = 0; imcb_chat_remove_buddy( chat, bud->ext_jid, NULL ); if( bud != jc->me && bud->flags & JBFLAG_IS_ANONYMOUS ) imcb_remove_buddy( ic, bud->ext_jid, NULL ); if( s ) *s = '/'; } if( bud == jc->me ) jabber_chat_free( chat ); } } void jabber_chat_pkt_message( struct im_connection *ic, struct jabber_buddy *bud, struct xt_node *node ) { struct xt_node *subject = xt_find_node( node->children, "subject" ); struct xt_node *body = xt_find_node( node->children, "body" ); struct groupchat *chat = bud ? jabber_chat_by_jid( ic, bud->bare_jid ) : NULL; struct jabber_chat *jc = chat ? chat->data : NULL; char *s; if( subject && chat ) { s = bud ? strchr( bud->ext_jid, '/' ) : NULL; if( s ) *s = 0; imcb_chat_topic( chat, bud ? bud->ext_jid : NULL, subject->text_len > 0 ? subject->text : NULL, jabber_get_timestamp( node ) ); if( s ) *s = '/'; } if( bud == NULL || ( jc && ~jc->flags & JCFLAG_MESSAGE_SENT && bud == jc->me ) ) { char *nick; if( body == NULL || body->text_len == 0 ) /* Meh. Empty messages aren't very interesting, no matter how much some servers love to send them. */ return; s = xt_find_attr( node, "from" ); /* pkt_message() already NULL-checked this one. */ nick = strchr( s, '/' ); if( nick ) { /* If this message included a resource/nick we don't know, we might still know the groupchat itself. */ *nick = 0; chat = jabber_chat_by_jid( ic, s ); *nick = '/'; nick ++; } else { /* message.c uses the EXACT_JID option, so bud should always be NULL here for bare JIDs. */ chat = jabber_chat_by_jid( ic, s ); } if( nick == NULL ) { /* This is fine, the groupchat itself isn't in jd->buddies. */ if( chat ) imcb_chat_log( chat, "From conference server: %s", body->text ); else imcb_log( ic, "System message from unknown groupchat %s: %s", s, body->text ); } else { /* This can happen too, at least when receiving a backlog when just joining a channel. */ if( chat ) imcb_chat_log( chat, "Message from unknown participant %s: %s", nick, body->text ); else imcb_log( ic, "Groupchat message from unknown JID %s: %s", s, body->text ); } return; } else if( chat == NULL ) { /* How could this happen?? We could do kill( self, 11 ) now or just wait for the OS to do it. :-) */ return; } if( body && body->text_len > 0 ) { s = strchr( bud->ext_jid, '/' ); if( s ) *s = 0; imcb_chat_msg( chat, bud->ext_jid, body->text, 0, jabber_get_timestamp( node ) ); if( s ) *s = '/'; } }