aboutsummaryrefslogtreecommitdiffstats
path: root/lib/xmltree.h
blob: 85b109839cd31ce21bf490dee802a12efcf13418 (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
/***************************************************************************\
*                                                                           *
*  BitlBee - An IRC to IM gateway                                           *
*  Simple XML (stream) parse tree handling code (Jabber/XMPP, mainly)       *
*                                                                           *
*  Copyright 2006-2012 Wilmer van der Gaast <wilmer@gaast.net>              *
*                                                                           *
*  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.              *
*                                                                           *
****************************************************************************/

#ifndef _XMLTREE_H
#define _XMLTREE_H

typedef enum {
	XT_COMPLETE     = 1,    /* </tag> reached */
	XT_SEEN         = 2,    /* Handler called (or not defined) */
} xt_flags;

typedef enum {
	XT_ABORT,               /* Abort, don't handle the rest anymore */
	XT_HANDLED,             /* Handled this tag properly, go to the next one */
	XT_NEXT                 /* Try if there's another matching handler */
} xt_status;

struct xt_attr {
	char *key, *value;
};

struct xt_node {
	struct xt_node *parent;
	struct xt_node *children;

	char *name;
	struct xt_attr *attr;
	char *text;
	int text_len;

	struct xt_node *next;
	xt_flags flags;
};

typedef xt_status (*xt_handler_func) (struct xt_node *node, gpointer data);

struct xt_handler_entry {
	char *name, *parent;
	xt_handler_func func;
};

struct xt_parser {
	GMarkupParseContext *parser;
	struct xt_node *root;
	struct xt_node *cur;

	const struct xt_handler_entry *handlers;
	gpointer data;

	GError *gerr;
};

struct xt_parser *xt_new(const struct xt_handler_entry *handlers, gpointer data);
void xt_reset(struct xt_parser *xt);
int xt_feed(struct xt_parser *xt, const char *text, int text_len);
int xt_handle(struct xt_parser *xt, struct xt_node *node, int depth);
void xt_cleanup(struct xt_parser *xt, struct xt_node *node, int depth);
struct xt_node *xt_from_string(const char *in, int text_len);
char *xt_to_string(struct xt_node *node);
char *xt_to_string_i(struct xt_node *node);
void xt_print(struct xt_node *node);
struct xt_node *xt_dup(struct xt_node *node);
void xt_free_node(struct xt_node *node);
void xt_free(struct xt_parser *xt);
struct xt_node *xt_find_node(struct xt_node *node, const char *name);
struct xt_node *xt_find_path(struct xt_node *node, const char *name);
char *xt_find_attr(struct xt_node *node, const char *key);
struct xt_node *xt_find_node_by_attr(struct xt_node *xt, const char *tag, const char *key, const char *value);

struct xt_node *xt_new_node(char *name, const char *text, struct xt_node *children);
void xt_add_child(struct xt_node *parent, struct xt_node *child);
void xt_insert_child(struct xt_node *parent, struct xt_node *child);
void xt_add_attr(struct xt_node *node, const char *key, const char *value);
int xt_remove_attr(struct xt_node *node, const char *key);

#endif
id='n832' href='#n832'>832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188
  /********************************************************************\
  * BitlBee -- An IRC to other IM-networks gateway                     *
  *                                                                    *
  * Copyright 2002-2010 Wilmer van der Gaast and others                *
  \********************************************************************/

/* User manager (root) commands                                         */

/*
  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 with
  the Debian GNU/Linux distribution in /usr/share/common-licenses/GPL;
  if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  Suite 330, Boston, MA  02111-1307  USA
*/

#define BITLBEE_CORE
#include "commands.h"
#include "bitlbee.h"
#include "help.h"
#include "chat.h"

#include <string.h>

void root_command_string( irc_t *irc, char *command )
{
	root_command( irc, split_command_parts( command ) );
}

#define MIN_ARGS( x, y... )                                                    \
	do                                                                     \
	{                                                                      \
		int blaat;                                                     \
		for( blaat = 0; blaat <= x; blaat ++ )                         \
			if( cmd[blaat] == NULL )                               \
			{                                                      \
				irc_usermsg( irc, "Not enough parameters given (need %d).", x ); \
				return y;                                      \
			}                                                      \
	} while( 0 )

void root_command( irc_t *irc, char *cmd[] )
{	
	int i, len;
	
	if( !cmd[0] )
		return;
	
	len = strlen( cmd[0] );
	for( i = 0; commands[i].command; i++ )
		if( g_strncasecmp( commands[i].command, cmd[0], len ) == 0 )
		{
			if( commands[i+1].command &&
		            g_strncasecmp( commands[i+1].command, cmd[0], len ) == 0 )
		        	/* Only match on the first letters if the match is unique. */
		        	break;
		        
			MIN_ARGS( commands[i].required_parameters );
			
			commands[i].execute( irc, cmd );
			return;
		}
	
	irc_usermsg( irc, "Unknown command: %s. Please use \x02help commands\x02 to get a list of available commands.", cmd[0] );
}

static void cmd_help( irc_t *irc, char **cmd )
{
	char param[80];
	int i;
	char *s;
	
	memset( param, 0, sizeof(param) );
	for ( i = 1; (cmd[i] != NULL && ( strlen(param) < (sizeof(param)-1) ) ); i++ ) {
		if ( i != 1 )	// prepend space except for the first parameter
			strcat(param, " ");
		strncat( param, cmd[i], sizeof(param) - strlen(param) - 1 );
	}

	s = help_get( &(global.help), param );
	if( !s ) s = help_get( &(global.help), "" );
	
	if( s )
	{
		irc_usermsg( irc, "%s", s );
		g_free( s );
	}
	else
	{
		irc_usermsg( irc, "Error opening helpfile." );
	}
}

static void cmd_account( irc_t *irc, char **cmd );

static void cmd_identify( irc_t *irc, char **cmd )
{
	storage_status_t status;
	char *account_on[] = { "account", "on", NULL };
	gboolean load = TRUE;
	char *password = cmd[1];
	
	if( irc->status & USTATUS_IDENTIFIED )
	{
		irc_usermsg( irc, "You're already logged in." );
		return;
	}
	
	if( strncmp( cmd[1], "-no", 3 ) == 0 )
	{
		load = FALSE;
		password = cmd[2];
	}
	else if( strncmp( cmd[1], "-force", 6 ) == 0 )
	{
		password = cmd[2];
	}
	else if( irc->b->accounts != NULL )
	{
		irc_usermsg( irc,
		             "You're trying to identify yourself, but already have "
		             "at least one IM account set up. "
		             "Use \x02identify -noload\x02 or \x02identify -force\x02 "
		             "instead (see \x02help identify\x02)." );
		return;
	}
	
	if( password == NULL )
	{
		MIN_ARGS( 2 );
	}
	
	if( load )
		status = storage_load( irc, password );
	else
		status = storage_check_pass( irc->user->nick, password );
	
	switch (status) {
	case STORAGE_INVALID_PASSWORD:
		irc_usermsg( irc, "Incorrect password" );
		break;
	case STORAGE_NO_SUCH_USER:
		irc_usermsg( irc, "The nick is (probably) not registered" );
		break;
	case STORAGE_OK:
		irc_usermsg( irc, "Password accepted%s",
		             load ? ", settings and accounts loaded" : "" );
		irc_setpass( irc, password );
		irc->status |= USTATUS_IDENTIFIED;
		irc_umode_set( irc, "+R", 1 );
		if( load && set_getbool( &irc->b->set, "auto_connect" ) )
			cmd_account( irc, account_on );
		break;
	case STORAGE_OTHER_ERROR:
	default:
		irc_usermsg( irc, "Unknown error while loading configuration" );
		break;
	}
}

static void cmd_register( irc_t *irc, char **cmd )
{
	if( global.conf->authmode == AUTHMODE_REGISTERED )
	{
		irc_usermsg( irc, "This server does not allow registering new accounts" );
		return;
	}

	switch( storage_save( irc, cmd[1], FALSE ) ) {
		case STORAGE_ALREADY_EXISTS:
			irc_usermsg( irc, "Nick is already registered" );
			break;
			
		case STORAGE_OK:
			irc_usermsg( irc, "Account successfully created" );
			irc_setpass( irc, cmd[1] );
			irc->status |= USTATUS_IDENTIFIED;
			irc_umode_set( irc, "+R", 1 );
			break;

		default:
			irc_usermsg( irc, "Error registering" );
			break;
	}
}

static void cmd_drop( irc_t *irc, char **cmd )
{
	storage_status_t status;
	
	status = storage_remove (irc->user->nick, cmd[1]);
	switch (status) {
	case STORAGE_NO_SUCH_USER:
		irc_usermsg( irc, "That account does not exist" );
		break;
	case STORAGE_INVALID_PASSWORD:
		irc_usermsg( irc, "Password invalid" );
		break;
	case STORAGE_OK:
		irc_setpass( irc, NULL );
		irc->status &= ~USTATUS_IDENTIFIED;
		irc_umode_set( irc, "-R", 1 );
		irc_usermsg( irc, "Account `%s' removed", irc->user->nick );
		break;
	default:
		irc_usermsg( irc, "Error: `%d'", status );
		break;
	}
}

static void cmd_save( irc_t *irc, char **cmd )
{
	if( ( irc->status & USTATUS_IDENTIFIED ) == 0 )
		irc_usermsg( irc, "Please create an account first" );
	else if( storage_save( irc, NULL, TRUE ) == STORAGE_OK )
		irc_usermsg( irc, "Configuration saved" );
	else
		irc_usermsg( irc, "Configuration could not be saved!" );
}

static void cmd_showset( irc_t *irc, set_t **head, char *key )
{
	char *val;
	
	if( ( val = set_getstr( head, key ) ) )
		irc_usermsg( irc, "%s = `%s'", key, val );
	else
		irc_usermsg( irc, "%s is empty", key );
}

typedef set_t** (*cmd_set_findhead)( irc_t*, char* );
typedef int (*cmd_set_checkflags)( irc_t*, set_t *set );

static int cmd_set_real( irc_t *irc, char **cmd, cmd_set_findhead findhead, cmd_set_checkflags checkflags )
{
	char *set_full = NULL, *set_name = NULL, *tmp;
	set_t **head;
	
	if( cmd[1] && g_strncasecmp( cmd[1], "-del", 4 ) == 0 )
	{
		MIN_ARGS( 2, 0 );
		set_full = cmd[2];
	}
	else
		set_full = cmd[1];
	
	if( findhead == NULL )
	{
		set_name = set_full;
		
		head = &irc->b->set;
	}
	else 
	{
		char *id;
		
		if( ( tmp = strchr( set_full, '/' ) ) )
		{
			id = g_strndup( set_full, ( tmp - set_full ) );
			set_name = tmp + 1;
		}
		else
		{
			id = g_strdup( set_full );
		}
		
		if( ( head = findhead( irc, id ) ) == NULL )
		{
			g_free( id );
			irc_usermsg( irc, "Could not find setting." );
			return 0;
		}
		g_free( id );
	}
	
	if( cmd[1] && cmd[2] && set_name )
	{
		set_t *s = set_find( head, set_name );
		int st;
		
		if( s && checkflags && checkflags( irc, s ) == 0 )
			return 0;
		
		if( g_strncasecmp( cmd[1], "-del", 4 ) == 0 )
			st = set_reset( head, set_name );
		else
			st = set_setstr( head, set_name, cmd[2] );
		
		if( set_getstr( head, set_name ) == NULL )
		{
			if( st )
				irc_usermsg( irc, "Setting changed successfully" );
			else
				irc_usermsg( irc, "Failed to change setting" );
		}
		else
		{
			cmd_showset( irc, head, set_name );
		}
	}
	else if( set_name )
	{
		cmd_showset( irc, head, set_name );
	}
	else
	{
		set_t *s = *head;
		while( s )
		{
			cmd_showset( irc, &s, s->key );
			s = s->next;
		}
	}
	
	return 1;
}

static set_t **cmd_account_set_findhead( irc_t *irc, char *id )
{
	account_t *a;
	
	if( ( a = account_get( irc->b, id ) ) )
		return &a->set;
	else
		return NULL;
}

static int cmd_account_set_checkflags( irc_t *irc, set_t *s )
{
	account_t *a = s->data;
	
	if( a->ic && s && s->flags & ACC_SET_OFFLINE_ONLY )
	{
		irc_usermsg( irc, "This setting can only be changed when the account is %s-line", "off" );
		return 0;
	}
	else if( !a->ic && s && s->flags & ACC_SET_ONLINE_ONLY )
	{
		irc_usermsg( irc, "This setting can only be changed when the account is %s-line", "on" );
		return 0;
	}
	
	return 1;
}

static void cmd_account( irc_t *irc, char **cmd )
{
	account_t *a;
	
	if( global.conf->authmode == AUTHMODE_REGISTERED && !( irc->status & USTATUS_IDENTIFIED ) )
	{
		irc_usermsg( irc, "This server only accepts registered users" );
		return;
	}
	
	if( g_strcasecmp( cmd[1], "add" ) == 0 )
	{
		struct prpl *prpl;
		
		MIN_ARGS( 4 );
		
		prpl = find_protocol( cmd[2] );
		
		if( prpl == NULL )
		{
			irc_usermsg( irc, "Unknown protocol" );
			return;
		}

		a = account_add( irc->b, prpl, cmd[3], cmd[4] );
		if( cmd[5] )
		{
			irc_usermsg( irc, "Warning: Passing a servername/other flags to `account add' "
			                  "is now deprecated. Use `account set' instead." );
			set_setstr( &a->set, "server", cmd[5] );
		}
		
		irc_usermsg( irc, "Account successfully added" );
	}
	else if( g_strcasecmp( cmd[1], "del" ) == 0 )
	{
		MIN_ARGS( 2 );

		if( !( a = account_get( irc->b, cmd[2] ) ) )
		{
			irc_usermsg( irc, "Invalid account" );
		}
		else if( a->ic )
		{
			irc_usermsg( irc, "Account is still logged in, can't delete" );
		}
		else
		{
			account_del( irc->b, a );
			irc_usermsg( irc, "Account deleted" );
		}
	}
	else if( g_strcasecmp( cmd[1], "list" ) == 0 )
	{
		int i = 0;
		
		if( strchr( irc->umode, 'b' ) )
			irc_usermsg( irc, "Account list:" );
		
		for( a = irc->b->accounts; a; a = a->next )
		{
			char *con;
			
			if( a->ic && ( a->ic->flags & OPT_LOGGED_IN ) )
				con = " (connected)";
			else if( a->ic )
				con = " (connecting)";
			else if( a->reconnect )
				con = " (awaiting reconnect)";
			else
				con = "";
			
			irc_usermsg( irc, "%2d. %s, %s%s", i, a->prpl->name, a->user, con );
			
			i ++;
		}
		irc_usermsg( irc, "End of account list" );
	}
	else if( g_strcasecmp( cmd[1], "on" ) == 0 )
	{
		if( cmd[2] )
		{
			if( ( a = account_get( irc->b, cmd[2] ) ) )
			{
				if( a->ic )
				{
					irc_usermsg( irc, "Account already online" );
					return;
				}
				else
				{
					account_on( irc->b, a );
				}
			}
			else
			{
				irc_usermsg( irc, "Invalid account" );
				return;
			}
		}
		else
		{
			if ( irc->b->accounts )
			{
				irc_usermsg( irc, "Trying to get all accounts connected..." );
			
				for( a = irc->b->accounts; a; a = a->next )
					if( !a->ic && a->auto_connect )
						account_on( irc->b, a );
			} 
			else
			{
				irc_usermsg( irc, "No accounts known. Use `account add' to add one." );
			}
		}
	}
	else if( g_strcasecmp( cmd[1], "off" ) == 0 )
	{
		if( !cmd[2] )
		{
			irc_usermsg( irc, "Deactivating all active (re)connections..." );
			
			for( a = irc->b->accounts; a; a = a->next )
			{
				if( a->ic )
					account_off( irc->b, a );
				else if( a->reconnect )
					cancel_auto_reconnect( a );
			}
		}
		else if( ( a = account_get( irc->b, cmd[2] ) ) )
		{
			if( a->ic )
			{
				account_off( irc->b, a );
			}
			else if( a->reconnect )
			{
				cancel_auto_reconnect( a );
				irc_usermsg( irc, "Reconnect cancelled" );
			}
			else
			{
				irc_usermsg( irc, "Account already offline" );
				return;
			}
		}
		else
		{
			irc_usermsg( irc, "Invalid account" );
			return;
		}
	}
	else if( g_strcasecmp( cmd[1], "set" ) == 0 )
	{
		MIN_ARGS( 2 );
		
		cmd_set_real( irc, cmd + 1, cmd_account_set_findhead, cmd_account_set_checkflags );
	}
	else
	{
		irc_usermsg( irc, "Unknown command: %s %s. Please use \x02help commands\x02 to get a list of available commands.", "account", cmd[1] );
	}
}

static set_t **cmd_channel_set_findhead( irc_t *irc, char *id )
{
	irc_channel_t *ic;
	
	if( ( ic = irc_channel_get( irc, id ) ) )
		return &ic->set;
	else
		return NULL;
}

static void cmd_channel( irc_t *irc, char **cmd )
{
	if( g_strcasecmp( cmd[1], "set" ) == 0 )
	{
		MIN_ARGS( 2 );
		
		cmd_set_real( irc, cmd + 1, cmd_channel_set_findhead, NULL );
	}
	else if( g_strcasecmp( cmd[1], "list" ) == 0 )
	{
		GSList *l;
		int i = 0;
		
		if( strchr( irc->umode, 'b' ) )
			irc_usermsg( irc, "Channel list:" );
		
		for( l = irc->channels; l; l = l->next )
		{
			irc_channel_t *ic = l->data;
			
			irc_usermsg( irc, "%2d. %s, %s channel%s", i, ic->name,
			             set_getstr( &ic->set, "type" ),
			             ic->flags & IRC_CHANNEL_JOINED ? " (joined)" : "" );
			
			i ++;
		}
		irc_usermsg( irc, "End of channel list" );
	}
	else if( g_strcasecmp( cmd[1], "del" ) == 0 )
	{
		irc_channel_t *ic;
		
		MIN_ARGS( 2 );
		
		if( ( ic = irc_channel_get( irc, cmd[2] ) ) &&
		   !( ic->flags & IRC_CHANNEL_JOINED ) &&
		    ic != ic->irc->default_channel )
		{
			irc_usermsg( irc, "Channel %s deleted.", ic->name );
			irc_channel_free( ic );
		}
		else
			irc_usermsg( irc, "Couldn't remove channel (main channel %s or "
			                  "channels you're still in cannot be deleted).",
			                  ic->irc->default_channel->name );
	}
	else
	{
		irc_usermsg( irc, "Unknown command: %s %s. Please use \x02help commands\x02 to get a list of available commands.", "channel", cmd[1] );
	}
}

static void cmd_add( irc_t *irc, char **cmd )
{
	account_t *a;
	int add_on_server = 1;
	
	if( g_strcasecmp( cmd[1], "-tmp" ) == 0 )
	{
		MIN_ARGS( 3 );
		add_on_server = 0;
		cmd ++;
	}
	
	if( !( a = account_get( irc->b, cmd[1] ) ) )
	{
		irc_usermsg( irc, "Invalid account" );
		return;
	}
	else if( !( a->ic && ( a->ic->flags & OPT_LOGGED_IN ) ) )
	{
		irc_usermsg( irc, "That account is not on-line" );
		return;
	}
	
	if( cmd[3] )
	{
		if( !nick_ok( cmd[3] ) )
		{
			irc_usermsg( irc, "The requested nick `%s' is invalid", cmd[3] );
			return;
		}
		else if( irc_user_by_name( irc, cmd[3] ) )
		{
			irc_usermsg( irc, "The requested nick `%s' already exists", cmd[3] );
			return;
		}
		else
		{
			nick_set( a, cmd[2], cmd[3] );
		}
	}
	
	if( add_on_server )
		a->prpl->add_buddy( a->ic, cmd[2], NULL );
	else
		/* Only for add -tmp. For regular adds, this callback will
		   be called once the IM server confirms. */
		bee_user_new( irc->b, a->ic, cmd[2], BEE_USER_LOCAL );
	
	irc_usermsg( irc, "Adding `%s' to your contact list", cmd[2]  );
}

static void cmd_remove( irc_t *irc, char **cmd )
{
	irc_user_t *iu;
	bee_user_t *bu;
	char *s;
	
	if( !( iu = irc_user_by_name( irc, cmd[1] ) ) || !( bu = iu->bu ) )
	{
		irc_usermsg( irc, "Buddy `%s' not found", cmd[1] );
		return;
	}
	s = g_strdup( bu->handle );
	
	bu->ic->acc->prpl->remove_buddy( bu->ic, bu->handle, NULL );
	nick_del( bu->ic->acc, bu->handle );
	//TODO(wilmer): bee_user_free() and/or let the IM mod do it? irc_user_free( irc, cmd[1] );
	
	irc_usermsg( irc, "Buddy `%s' (nick %s) removed from contact list", s, cmd[1] );
	g_free( s );
	
	return;
}

static void cmd_info( irc_t *irc, char **cmd )
{
	struct im_connection *ic;
	account_t *a;
	
	if( !cmd[2] )
	{
		irc_user_t *iu = irc_user_by_name( irc, cmd[1] );
		if( !iu || !iu->bu )
		{
			irc_usermsg( irc, "Nick `%s' does not exist", cmd[1] );
			return;
		}
		ic = iu->bu->ic;
		cmd[2] = iu->bu->handle;
	}
	else if( !( a = account_get( irc->b, cmd[1] ) ) )
	{
		irc_usermsg( irc, "Invalid account" );
		return;
	}
	else if( !( ( ic = a->ic ) && ( a->ic->flags & OPT_LOGGED_IN ) ) )
	{
		irc_usermsg( irc, "That account is not on-line" );
		return;
	}
	
	if( !ic->acc->prpl->get_info )
	{
		irc_usermsg( irc, "Command `%s' not supported by this protocol", cmd[0] );
	}
	else
	{
		ic->acc->prpl->get_info( ic, cmd[2] );
	}
}

static void cmd_rename( irc_t *irc, char **cmd )
{
	irc_user_t *iu;
	
	iu = irc_user_by_name( irc, cmd[1] );
	
	if( iu == NULL )
	{
		irc_usermsg( irc, "Nick `%s' does not exist", cmd[1] );
	}
	else if( iu == irc->user )
	{
		irc_usermsg( irc, "Nick `%s' can't be changed", cmd[1] );
	}
	else if( !nick_ok( cmd[2] ) )
	{
		irc_usermsg( irc, "Nick `%s' is invalid", cmd[2] );
	}
	else if( irc_user_by_name( irc, cmd[2] ) )
	{
		irc_usermsg( irc, "Nick `%s' already exists", cmd[2] );
	}
	else
	{
		if( !irc_user_set_nick( iu, cmd[2] ) )
		{
			irc_usermsg( irc, "Error while changing nick" );
			return;
		}
		
		if( iu == irc->root )
		{
			/* If we're called internally (user did "set root_nick"),
			   let's not go O(INF). :-) */
			if( strcmp( cmd[0], "set_rename" ) != 0 )
				set_setstr( &irc->b->set, "root_nick", cmd[2] );
		}
		else if( iu->bu )
		{
			nick_set( iu->bu->ic->acc, iu->bu->handle, cmd[2] );
		}
		
		irc_usermsg( irc, "Nick successfully changed" );
	}
}

char *set_eval_root_nick( set_t *set, char *new_nick )
{
	irc_t *irc = set->data;
	
	if( strcmp( irc->root->nick, new_nick ) != 0 )
	{
		char *cmd[] = { "set_rename", irc->root->nick, new_nick, NULL };
		
		cmd_rename( irc, cmd );
	}
	
	return strcmp( irc->root->nick, new_nick ) == 0 ? new_nick : SET_INVALID;
}

static void cmd_block( irc_t *irc, char **cmd )
{
	struct im_connection *ic;
	account_t *a;
	
	if( !cmd[2] && ( a = account_get( irc->b, cmd[1] ) ) && a->ic )
	{
		char *format;
		GSList *l;
		
		if( strchr( irc->umode, 'b' ) != NULL )
			format = "%s\t%s";
		else
			format = "%-32.32s  %-16.16s";
		
		irc_usermsg( irc, format, "Handle", "Nickname" );
		for( l = a->ic->deny; l; l = l->next )
		{
			bee_user_t *bu = bee_user_by_handle( irc->b, a->ic, l->data );
			irc_user_t *iu = bu ? bu->ui_data : NULL;
			irc_usermsg( irc, format, l->data, iu ? iu->nick : "(none)" );
		}
		irc_usermsg( irc, "End of list." );
		
		return;
	}
	else if( !cmd[2] )
	{
		irc_user_t *iu = irc_user_by_name( irc, cmd[1] );
		if( !iu || !iu->bu )
		{
			irc_usermsg( irc, "Nick `%s' does not exist", cmd[1] );
			return;
		}
		ic = iu->bu->ic;
		cmd[2] = iu->bu->handle;
	}
	else if( !( a = account_get( irc->b, cmd[1] ) ) )
	{
		irc_usermsg( irc, "Invalid account" );
		return;
	}
	else if( !( ( ic = a->ic ) && ( a->ic->flags & OPT_LOGGED_IN ) ) )
	{
		irc_usermsg( irc, "That account is not on-line" );
		return;
	}
	
	if( !ic->acc->prpl->add_deny || !ic->acc->prpl->rem_permit )
	{
		irc_usermsg( irc, "Command `%s' not supported by this protocol", cmd[0] );
	}
	else
	{
		imc_rem_allow( ic, cmd[2] );
		imc_add_block( ic, cmd[2] );
		irc_usermsg( irc, "Buddy `%s' moved from your allow- to your block-list", cmd[2] );
	}
}

static void cmd_allow( irc_t *irc, char **cmd )
{
	struct im_connection *ic;
	account_t *a;
	
	if( !cmd[2] && ( a = account_get( irc->b, cmd[1] ) ) && a->ic )
	{
		char *format;
		GSList *l;
		
		if( strchr( irc->umode, 'b' ) != NULL )
			format = "%s\t%s";
		else
			format = "%-32.32s  %-16.16s";
		
		irc_usermsg( irc, format, "Handle", "Nickname" );
		for( l = a->ic->permit; l; l = l->next )
		{
			bee_user_t *bu = bee_user_by_handle( irc->b, a->ic, l->data );
			irc_user_t *iu = bu ? bu->ui_data : NULL;
			irc_usermsg( irc, format, l->data, iu ? iu->nick : "(none)" );
		}
		irc_usermsg( irc, "End of list." );
		
		return;
	}
	else if( !cmd[2] )
	{
		irc_user_t *iu = irc_user_by_name( irc, cmd[1] );
		if( !iu || !iu->bu )
		{
			irc_usermsg( irc, "Nick `%s' does not exist", cmd[1] );
			return;
		}
		ic = iu->bu->ic;
		cmd[2] = iu->bu->handle;
	}
	else if( !( a = account_get( irc->b, cmd[1] ) ) )
	{
		irc_usermsg( irc, "Invalid account" );
		return;
	}
	else if( !( ( ic = a->ic ) && ( a->ic->flags & OPT_LOGGED_IN ) ) )
	{
		irc_usermsg( irc, "That account is not on-line" );
		return;
	}
	
	if( !ic->acc->prpl->rem_deny || !ic->acc->prpl->add_permit )
	{
		irc_usermsg( irc, "Command `%s' not supported by this protocol", cmd[0] );
	}
	else
	{
		imc_rem_block( ic, cmd[2] );
		imc_add_allow( ic, cmd[2] );
		
		irc_usermsg( irc, "Buddy `%s' moved from your block- to your allow-list", cmd[2] );
	}
}

static void cmd_yesno( irc_t *irc, char **cmd )
{
	query_t *q = NULL;
	int numq = 0;
	
	if( irc->queries == NULL )
	{
		irc_usermsg( irc, "Did I ask you something?" );
		return;
	}
	
	/* If there's an argument, the user seems to want to answer another question than the
	   first/last (depending on the query_order setting) one. */
	if( cmd[1] )
	{
		if( sscanf( cmd[1], "%d", &numq ) != 1 )
		{
			irc_usermsg( irc, "Invalid query number" );
			return;
		}
		
		for( q = irc->queries; q; q = q->next, numq -- )
			if( numq == 0 )
				break;
		
		if( !q )
		{
			irc_usermsg( irc, "Uhm, I never asked you something like that..." );
			return;
		}
	}
	
	if( g_strcasecmp( cmd[0], "yes" ) == 0 )
		query_answer( irc, q, 1 );
	else if( g_strcasecmp( cmd[0], "no" ) == 0 )
		query_answer( irc, q, 0 );
}

static void cmd_set( irc_t *irc, char **cmd )
{
	cmd_set_real( irc, cmd, NULL, NULL );
}

static void cmd_blist( irc_t *irc, char **cmd )
{
	int online = 0, away = 0, offline = 0;
	GSList *l;
	char s[256];
	char *format;
	int n_online = 0, n_away = 0, n_offline = 0;
	
	if( cmd[1] && g_strcasecmp( cmd[1], "all" ) == 0 )
		online = offline = away = 1;
	else if( cmd[1] && g_strcasecmp( cmd[1], "offline" ) == 0 )
		offline = 1;
	else if( cmd[1] && g_strcasecmp( cmd[1], "away" ) == 0 )
		away = 1;
	else if( cmd[1] && g_strcasecmp( cmd[1], "online" ) == 0 )
		online = 1;
	else
		online = away = 1;
	
	if( strchr( irc->umode, 'b' ) != NULL )
		format = "%s\t%s\t%s";
	else
		format = "%-16.16s  %-40.40s  %s";
	
	irc_usermsg( irc, format, "Nick", "Handle/Account", "Status" );
	
	for( l = irc->users; l; l = l->next )
	{
		irc_user_t *iu = l->data;
		bee_user_t *bu = iu->bu;
		
		if( !bu || ( bu->flags & ( BEE_USER_ONLINE | BEE_USER_AWAY ) ) != BEE_USER_ONLINE )
			continue;
		
		if( online == 1 )
		{
			char st[256] = "Online";
			
			if( bu->status_msg )
				g_snprintf( st, sizeof( st ) - 1, "Online (%s)", bu->status_msg );
			
			g_snprintf( s, sizeof( s ) - 1, "%s %s(%s)", bu->handle, bu->ic->acc->prpl->name, bu->ic->acc->user );
			irc_usermsg( irc, format, iu->nick, s, st );
		}
		
		n_online ++;
	}

	for( l = irc->users; l; l = l->next )
	{
		irc_user_t *iu = l->data;
		bee_user_t *bu = iu->bu;
		
		if( !bu || !( bu->flags & BEE_USER_ONLINE ) || !( bu->flags & BEE_USER_AWAY ) )
			continue;
		
		if( away == 1 )
		{
			g_snprintf( s, sizeof( s ) - 1, "%s %s(%s)", bu->handle, bu->ic->acc->prpl->name, bu->ic->acc->user );
			irc_usermsg( irc, format, iu->nick, s, irc_user_get_away( iu ) );
		}
		n_away ++;
	}
	
	for( l = irc->users; l; l = l->next )
	{
		irc_user_t *iu = l->data;
		bee_user_t *bu = iu->bu;
		
		if( !bu || bu->flags & BEE_USER_ONLINE )
			continue;
		
		if( offline == 1 )
		{
			g_snprintf( s, sizeof( s ) - 1, "%s %s(%s)", bu->handle, bu->ic->acc->prpl->name, bu->ic->acc->user );
			irc_usermsg( irc, format, iu->nick, s, "Offline" );
		}
		n_offline ++;
	}
	
	irc_usermsg( irc, "%d buddies (%d available, %d away, %d offline)", n_online + n_away + n_offline, n_online, n_away, n_offline );
}

static void cmd_qlist( irc_t *irc, char **cmd )
{
	query_t *q = irc->queries;
	int num;
	
	if( !q )
	{
		irc_usermsg( irc, "There are no pending questions." );
		return;
	}
	
	irc_usermsg( irc, "Pending queries:" );
	
	for( num = 0; q; q = q->next, num ++ )
		if( q->ic ) /* Not necessary yet, but it might come later */
			irc_usermsg( irc, "%d, %s(%s): %s", num, q->ic->acc->prpl->name, q->ic->acc->user, q->question );
		else
			irc_usermsg( irc, "%d, BitlBee: %s", num, q->question );
}

static void cmd_chat( irc_t *irc, char **cmd )
{
	account_t *acc;
	
	if( g_strcasecmp( cmd[1], "add" ) == 0 )
	{
		char *channel, *s;
		struct irc_channel *ic;
		
		MIN_ARGS( 3 );
		
		if( !( acc = account_get( irc->b, cmd[2] ) ) )
		{
			irc_usermsg( irc, "Invalid account" );
			return;
		}
		else if( !acc->prpl->chat_join )
		{
			irc_usermsg( irc, "Named chatrooms not supported on that account." );
			return;
		}
		
		if( cmd[4] == NULL )
		{
			channel = g_strdup( cmd[3] );
			if( ( s = strchr( channel, '@' ) ) )
				*s = 0;
		}
		else
		{
			channel = g_strdup( cmd[4] );
		}
		
		if( strchr( CTYPES, channel[0] ) == NULL )
		{
			s = g_strdup_printf( "#%s", channel );
			g_free( channel );
			channel = s;
		}
		
		if( ( ic = irc_channel_new( irc, channel ) ) &&
		    set_setstr( &ic->set, "chat_type", "room" ) &&
		    set_setstr( &ic->set, "account", cmd[2] ) &&
		    set_setstr( &ic->set, "room", cmd[3] ) )
		{
			irc_usermsg( irc, "Chatroom successfully added." );
		}
		else
		{
			if( ic )
				irc_channel_free( ic );
			
			irc_usermsg( irc, "Could not add chatroom." );
		}
		g_free( channel );
	}
	else if( g_strcasecmp( cmd[1], "with" ) == 0 )
	{
		irc_user_t *iu;
		
		MIN_ARGS( 2 );
		
		if( ( iu = irc_user_by_name( irc, cmd[2] ) ) &&
		    iu->bu && iu->bu->ic->acc->prpl->chat_with )
		{
			if( !iu->bu->ic->acc->prpl->chat_with( iu->bu->ic, iu->bu->handle ) )
			{
				irc_usermsg( irc, "(Possible) failure while trying to open "
				                  "a groupchat with %s.", iu->nick );
			}
		}
		else
		{
			irc_usermsg( irc, "Can't open a groupchat with %s.", cmd[2] );
		}
	}
	else
	{
		irc_usermsg( irc, "Unknown command: %s %s. Please use \x02help commands\x02 to get a list of available commands.", "chat", cmd[1] );
	}
}

static void cmd_transfer( irc_t *irc, char **cmd )
{
	GSList *files = irc->file_transfers;
	enum { LIST, REJECT, CANCEL };
	int subcmd = LIST;
	int fid;

	if( !files )
	{
		irc_usermsg( irc, "No pending transfers" );
		return;
	}

	if( cmd[1] && ( strcmp( cmd[1], "reject" ) == 0 ) )
	{
		subcmd = REJECT;
	}
	else if( cmd[1] && ( strcmp( cmd[1], "cancel" ) == 0 ) && 
		 cmd[2] && ( sscanf( cmd[2], "%d", &fid ) == 1 ) )
	{
		subcmd = CANCEL;
	}

	for( ; files; files = g_slist_next( files ) )
	{
		file_transfer_t *file = files->data;
		
		switch( subcmd ) {
		case LIST:
			if ( file->status == FT_STATUS_LISTENING )
				irc_usermsg( irc, 
					"Pending file(id %d): %s (Listening...)", file->local_id, file->file_name);
			else 
			{
				int kb_per_s = 0;
				time_t diff = time( NULL ) - file->started ? : 1;
				if ( ( file->started > 0 ) && ( file->bytes_transferred > 0 ) )
					kb_per_s = file->bytes_transferred / 1024 / diff;
					
				irc_usermsg( irc, 
					"Pending file(id %d): %s (%10zd/%zd kb, %d kb/s)", file->local_id, file->file_name, 
					file->bytes_transferred/1024, file->file_size/1024, kb_per_s);
			}
			break;
		case REJECT:
			if( file->status == FT_STATUS_LISTENING )
			{
				irc_usermsg( irc, "Rejecting file transfer for %s", file->file_name );
				imcb_file_canceled( file->ic, file, "Denied by user" );
			}
			break;
		case CANCEL:
			if( file->local_id == fid )
			{
				irc_usermsg( irc, "Canceling file transfer for %s", file->file_name );
				imcb_file_canceled( file->ic, file, "Canceled by user" );
			}
			break;
		}
	}
}

/* IMPORTANT: Keep this list sorted! The short command logic needs that. */
const command_t commands[] = {
	{ "account",        1, cmd_account,        0 },
	{ "add",            2, cmd_add,            0 },
	{ "allow",          1, cmd_allow,          0 },
	{ "blist",          0, cmd_blist,          0 },
	{ "block",          1, cmd_block,          0 },
	{ "channel",        1, cmd_channel,        0 },
	{ "chat",           1, cmd_chat,           0 },
	{ "drop",           1, cmd_drop,           0 },
	{ "ft",             0, cmd_transfer,       0 },
	{ "help",           0, cmd_help,           0 }, 
	{ "identify",       1, cmd_identify,       0 },
	{ "info",           1, cmd_info,           0 },
	{ "no",             0, cmd_yesno,          0 },
	{ "qlist",          0, cmd_qlist,          0 },
	{ "register",       1, cmd_register,       0 },
	{ "remove",         1, cmd_remove,         0 },
	{ "rename",         2, cmd_rename,         0 },
	{ "save",           0, cmd_save,           0 },
	{ "set",            0, cmd_set,            0 },
	{ "transfer",       0, cmd_transfer,       0 },
	{ "yes",            0, cmd_yesno,          0 },
	{ NULL }
};