src/admin.c


#define FAIM_INTERNAL
#include <aim.h>

/* called for both reply and change-reply */
static int infochange(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{
#ifdef MID_FINALLY_REWROTE_ALL_THE_CRAP
	int i;

	/*
	 * struct {
	 *    unsigned short perms;
	 *    unsigned short tlvcount;
	 *    aim_tlv_t tlvs[tlvcount];
	 *  } admin_info[n];
	 */
	for (i = 0; i < datalen; ) {
		int perms, tlvcount;

		perms = aimutil_get16(data+i);
		i += 2;

		tlvcount = aimutil_get16(data+i);
		i += 2;

		while (tlvcount) {
			aim_rxcallback_t userfunc;
			aim_tlv_t *tlv;
			int str = 0;

			if ((aimutil_get16(data+i) == 0x0011) ||
					(aimutil_get16(data+i) == 0x0004))
				str = 1;

			if (str)
				tlv = aim_grabtlvstr(data+i);
			else
				tlv = aim_grabtlv(data+i);

			/* XXX fix so its only called once for the entire packet */
			if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
				userfunc(sess, rx, perms, tlv->type, tlv->length, tlv->value, str);

			if (tlv)
				i += 2+2+tlv->length;

			if (tlv && tlv->value)
				free(tlv->value);
			if (tlv)
				free(tlv);

			tlvcount--;
		}
	}
#endif /* MID_FINALLY_REWROTE_ALL_THE_CRAP */
	return 1;
}

static int accountconfirm(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{
	aim_rxcallback_t userfunc;
	fu16_t status;

	status = aimbs_get16(bs);

	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
		return userfunc(sess, rx, status);

	return 0;
}

static int snachandler(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{

	if ((snac->subtype == 0x0003) || (snac->subtype == 0x0005))
		return infochange(sess, mod, rx, snac, bs);
	else if (snac->subtype == 0x0007)
		return accountconfirm(sess, mod, rx, snac, bs);

	return 0;
}

faim_internal int admin_modfirst(aim_session_t *sess, aim_module_t *mod)
{

	mod->family = 0x0007;
	mod->version = 0x0000;
	mod->flags = 0;
	strncpy(mod->name, "admin", sizeof(mod->name));
	mod->snachandler = snachandler;

	return 0;
}

faim_export int aim_auth_clientready(aim_session_t *sess, aim_conn_t *conn)
{
	static const struct aim_tool_version tools[] = {
		{0x0001, 0x0003,    AIM_TOOL_NEWWIN, 0x0361},
		{0x0007, 0x0001,    AIM_TOOL_NEWWIN, 0x0361},
	};
	int j;
	aim_frame_t *tx;
	int toolcount = sizeof(tools) / sizeof(struct aim_tool_version);
	aim_snacid_t snacid;

	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x0002, 1152)))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
	aim_putsnac(&tx->data, 0x0001, 0x0002, 0x0000, snacid);

	for (j = 0; j < toolcount; j++) {
		aimbs_put16(&tx->data, tools[j].group);
		aimbs_put16(&tx->data, tools[j].version);
		aimbs_put16(&tx->data, tools[j].tool);
		aimbs_put16(&tx->data, tools[j].toolversion);
	}

	aim_tx_enqueue(sess, tx);

	return 0;
}

faim_export int aim_auth_changepasswd(aim_session_t *sess, aim_conn_t *conn, const char *newpw, const char *curpw)
{
	aim_frame_t *tx;
	aim_tlvlist_t *tl = NULL;
	aim_snacid_t snacid;

	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+4+strlen(curpw)+4+strlen(newpw))))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
	aim_putsnac(&tx->data, 0x0007, 0x0004, 0x0000, snacid);

	/* new password TLV t(0002) */
	aim_addtlvtochain_raw(&tl, 0x0002, strlen(newpw), newpw);

	/* current password TLV t(0012) */
	aim_addtlvtochain_raw(&tl, 0x0012, strlen(curpw), curpw);

	aim_writetlvchain(&tx->data, &tl);
	aim_freetlvchain(&tl);

	aim_tx_enqueue(sess, tx);

	return 0;
}

faim_export int aim_auth_setversions(aim_session_t *sess, aim_conn_t *conn)
{
	aim_frame_t *tx;
	aim_snacid_t snacid;

	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 18)))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0001, 0x0017, 0x0000, NULL, 0);
	aim_putsnac(&tx->data, 0x0001, 0x0017, 0x0000, snacid);

	aimbs_put16(&tx->data, 0x0001);
	aimbs_put16(&tx->data, 0x0003);

	aimbs_put16(&tx->data, 0x0007);
	aimbs_put16(&tx->data, 0x0001);

	aim_tx_enqueue(sess, tx);

	return 0;
}

/*
 * Request account confirmation.
 *
 * This will cause an email to be sent to the address associated with
 * the account.  By following the instructions in the mail, you can
 * get the TRIAL flag removed from your account.
 *
 */
faim_export int aim_auth_reqconfirm(aim_session_t *sess, aim_conn_t *conn)
{
	return aim_genericreq_n(sess, conn, 0x0007, 0x0006);
}

/*
 * Request a bit of account info.
 *
 * The only known valid tag is 0x0011 (email address).
 *
 */
faim_export int aim_auth_getinfo(aim_session_t *sess, aim_conn_t *conn, fu16_t info)
{
	aim_frame_t *tx;
	aim_snacid_t snacid;

	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 14)))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0002, 0x0002, 0x0000, NULL, 0);
	aim_putsnac(&tx->data, 0x0007, 0x0002, 0x0000, snacid);

	aimbs_put16(&tx->data, info);
	aimbs_put16(&tx->data, 0x0000);

	aim_tx_enqueue(sess, tx);

	return 0;
}

faim_export int aim_auth_setemail(aim_session_t *sess, aim_conn_t *conn, const char *newemail)
{
	aim_frame_t *tx;
	aim_snacid_t snacid;
	aim_tlvlist_t *tl = NULL;

	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+2+2+strlen(newemail))))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
	aim_putsnac(&tx->data, 0x0007, 0x0004, 0x0000, snacid);

	aim_addtlvtochain_raw(&tl, 0x0011, strlen(newemail), newemail);

	aim_writetlvchain(&tx->data, &tl);
	aim_freetlvchain(&tl);

	aim_tx_enqueue(sess, tx);

	return 0;
}
Commit	Line	Data
	1
	2	#define FAIM_INTERNAL
	3	#include <aim.h>
	4
	5	/* called for both reply and change-reply */
	6	static int infochange(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
	7	{
	8	#ifdef MID_FINALLY_REWROTE_ALL_THE_CRAP
	9	int i;
	10
	11	/*
	12	* struct {
	13	* unsigned short perms;
	14	* unsigned short tlvcount;
	15	* aim_tlv_t tlvs[tlvcount];
	16	* } admin_info[n];
	17	*/
	18	for (i = 0; i < datalen; ) {
	19	int perms, tlvcount;
	20
	21	perms = aimutil_get16(data+i);
	22	i += 2;
	23
	24	tlvcount = aimutil_get16(data+i);
	25	i += 2;
	26
	27	while (tlvcount) {
	28	aim_rxcallback_t userfunc;
	29	aim_tlv_t *tlv;
	30	int str = 0;
	31
	32	if ((aimutil_get16(data+i) == 0x0011) \|\|
	33	(aimutil_get16(data+i) == 0x0004))
	34	str = 1;
	35
	36	if (str)
	37	tlv = aim_grabtlvstr(data+i);
	38	else
	39	tlv = aim_grabtlv(data+i);
	40
	41	/* XXX fix so its only called once for the entire packet */
	42	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
	43	userfunc(sess, rx, perms, tlv->type, tlv->length, tlv->value, str);
	44
	45	if (tlv)
	46	i += 2+2+tlv->length;
	47
	48	if (tlv && tlv->value)
	49	free(tlv->value);
	50	if (tlv)
	51	free(tlv);
	52
	53	tlvcount--;
	54	}
	55	}
	56	#endif /* MID_FINALLY_REWROTE_ALL_THE_CRAP */
	57	return 1;
	58	}
	59
	60	static int accountconfirm(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
	61	{
	62	aim_rxcallback_t userfunc;
	63	fu16_t status;
	64
	65	status = aimbs_get16(bs);
	66
	67	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
	68	return userfunc(sess, rx, status);
	69
	70	return 0;
	71	}
	72
	73	static int snachandler(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
	74	{
	75
	76	if ((snac->subtype == 0x0003) \|\| (snac->subtype == 0x0005))
	77	return infochange(sess, mod, rx, snac, bs);
	78	else if (snac->subtype == 0x0007)
	79	return accountconfirm(sess, mod, rx, snac, bs);
	80
	81	return 0;
	82	}
	83
	84	faim_internal int admin_modfirst(aim_session_t sess, aim_module_t mod)
	85	{
	86
	87	mod->family = 0x0007;
	88	mod->version = 0x0000;
	89	mod->flags = 0;
	90	strncpy(mod->name, "admin", sizeof(mod->name));
	91	mod->snachandler = snachandler;
	92
	93	return 0;
	94	}
	95
	96	faim_export int aim_auth_clientready(aim_session_t sess, aim_conn_t conn)
	97	{
	98	static const struct aim_tool_version tools[] = {
	99	{0x0001, 0x0003, AIM_TOOL_NEWWIN, 0x0361},
	100	{0x0007, 0x0001, AIM_TOOL_NEWWIN, 0x0361},
	101	};
	102	int j;
	103	aim_frame_t *tx;
	104	int toolcount = sizeof(tools) / sizeof(struct aim_tool_version);
	105	aim_snacid_t snacid;
	106
	107	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x0002, 1152)))
	108	return -ENOMEM;
	109
	110	snacid = aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
	111	aim_putsnac(&tx->data, 0x0001, 0x0002, 0x0000, snacid);
	112
	113	for (j = 0; j < toolcount; j++) {
	114	aimbs_put16(&tx->data, tools[j].group);
	115	aimbs_put16(&tx->data, tools[j].version);
	116	aimbs_put16(&tx->data, tools[j].tool);
	117	aimbs_put16(&tx->data, tools[j].toolversion);
	118	}
	119
	120	aim_tx_enqueue(sess, tx);
	121
	122	return 0;
	123	}
	124
	125	faim_export int aim_auth_changepasswd(aim_session_t sess, aim_conn_t conn, const char newpw, const char curpw)
	126	{
	127	aim_frame_t *tx;
	128	aim_tlvlist_t *tl = NULL;
	129	aim_snacid_t snacid;
	130
	131	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+4+strlen(curpw)+4+strlen(newpw))))
	132	return -ENOMEM;
	133
	134	snacid = aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
	135	aim_putsnac(&tx->data, 0x0007, 0x0004, 0x0000, snacid);
	136
	137	/* new password TLV t(0002) */
	138	aim_addtlvtochain_raw(&tl, 0x0002, strlen(newpw), newpw);
	139
	140	/* current password TLV t(0012) */
	141	aim_addtlvtochain_raw(&tl, 0x0012, strlen(curpw), curpw);
	142
	143	aim_writetlvchain(&tx->data, &tl);
	144	aim_freetlvchain(&tl);
	145
	146	aim_tx_enqueue(sess, tx);
	147
	148	return 0;
	149	}
	150
	151	faim_export int aim_auth_setversions(aim_session_t sess, aim_conn_t conn)
	152	{
	153	aim_frame_t *tx;
	154	aim_snacid_t snacid;
	155
	156	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 18)))
	157	return -ENOMEM;
	158
	159	snacid = aim_cachesnac(sess, 0x0001, 0x0017, 0x0000, NULL, 0);
	160	aim_putsnac(&tx->data, 0x0001, 0x0017, 0x0000, snacid);
	161
	162	aimbs_put16(&tx->data, 0x0001);
	163	aimbs_put16(&tx->data, 0x0003);
	164
	165	aimbs_put16(&tx->data, 0x0007);
	166	aimbs_put16(&tx->data, 0x0001);
	167
	168	aim_tx_enqueue(sess, tx);
	169
	170	return 0;
	171	}
	172
	173	/*
	174	* Request account confirmation.
	175	*
	176	* This will cause an email to be sent to the address associated with
	177	* the account. By following the instructions in the mail, you can
	178	* get the TRIAL flag removed from your account.
	179	*
	180	*/
	181	faim_export int aim_auth_reqconfirm(aim_session_t sess, aim_conn_t conn)
	182	{
	183	return aim_genericreq_n(sess, conn, 0x0007, 0x0006);
	184	}
	185
	186	/*
	187	* Request a bit of account info.
	188	*
	189	* The only known valid tag is 0x0011 (email address).
	190	*
	191	*/
	192	faim_export int aim_auth_getinfo(aim_session_t sess, aim_conn_t conn, fu16_t info)
	193	{
	194	aim_frame_t *tx;
	195	aim_snacid_t snacid;
	196
	197	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 14)))
	198	return -ENOMEM;
	199
	200	snacid = aim_cachesnac(sess, 0x0002, 0x0002, 0x0000, NULL, 0);
	201	aim_putsnac(&tx->data, 0x0007, 0x0002, 0x0000, snacid);
	202
	203	aimbs_put16(&tx->data, info);
	204	aimbs_put16(&tx->data, 0x0000);
	205
	206	aim_tx_enqueue(sess, tx);
	207
	208	return 0;
	209	}
	210
	211	faim_export int aim_auth_setemail(aim_session_t sess, aim_conn_t conn, const char *newemail)
	212	{
	213	aim_frame_t *tx;
	214	aim_snacid_t snacid;
	215	aim_tlvlist_t *tl = NULL;
	216
	217	if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+2+2+strlen(newemail))))
	218	return -ENOMEM;
	219
	220	snacid = aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
	221	aim_putsnac(&tx->data, 0x0007, 0x0004, 0x0000, snacid);
	222
	223	aim_addtlvtochain_raw(&tl, 0x0011, strlen(newemail), newemail);
	224
	225	aim_writetlvchain(&tx->data, &tl);
	226	aim_freetlvchain(&tl);
	227
	228	aim_tx_enqueue(sess, tx);
	229
	230	return 0;
	231	}