prot-a.c 9.99 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
Per Cederqvist's avatar
Per Cederqvist committed
2
 * $Id: prot-a.c,v 0.22 1993/10/16 17:49:35 ceder Exp $
Linus Tolke Y's avatar
Linus Tolke Y committed
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 * Copyright (C) 1991  Lysator Academic Computer Association.
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM 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 1, or (at your option) 
 * any later version.
 * 
 * LysKOM 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 LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25
26
27
28
/*
 * Protocol A.
 */

Per Cederqvist's avatar
Per Cederqvist committed
29
static char *rcsid = "$Id: prot-a.c,v 0.22 1993/10/16 17:49:35 ceder Exp $";
30
31
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
32

Per Cederqvist's avatar
Per Cederqvist committed
33
34
35
#ifdef HAVE_STDDEF_H
#  include <stddef.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
36
37
#include <setjmp.h>

Per Cederqvist's avatar
Per Cederqvist committed
38
39
#include "misc-types.h"
#include "kom-types.h"
Per Cederqvist's avatar
Per Cederqvist committed
40
41
#include "com.h"
#include "connections.h"
Per Cederqvist's avatar
Per Cederqvist committed
42
43
44
45
46
#include "debug.h"
#include "isc-interface.h"
#include "mux.h"
#include "kom-errno.h"
#include "server/smalloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
47
48
49
#include "prot-a.h"
#include "prot-a-output.h"
#include "prot-a-parse.h"
Per Cederqvist's avatar
Per Cederqvist committed
50
#include "isc-parse.h"
Per Cederqvist's avatar
Per Cederqvist committed
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

BUGDECL;

void
prot_a_reply(Connection *client,
	     Bool status,
	     Result_holder *res)
{
    /*
     * The function is called. Now return the answer.
     */

    if ( status == OK )
    {
	mux_printf(client, "=%d", client->ref_no);

	switch ( fnc_defs[ client->function ].result )
	{
69
	case rt_number:
Per Cederqvist's avatar
Per Cederqvist committed
70
71
72
73
	    mux_printf(client, " %ld", (u_long)res->number);
	    BUG(("=%d\n", res->number));
	    break;

74
	case rt_success:
Per Cederqvist's avatar
Per Cederqvist committed
75
76
77
	    BUG(("=Success\n"));
	    break;
	    
78
	case rt_person:
Per Cederqvist's avatar
Per Cederqvist committed
79
80
81
82
	    prot_a_output_person(client, &res->person);
	    BUG(("={Person struct not listed}\n"));
	    break;

83
	case rt_membership:
Per Cederqvist's avatar
Per Cederqvist committed
84
85
86
87
	    prot_a_output_membership(client, &res->membership);
	    BUG(("={Membership struct not listed}\n"));
	    break;

88
	case rt_conf_list:
Per Cederqvist's avatar
Per Cederqvist committed
89
90
91
92
	    prot_a_output_conf_list(client, res->conf_list);
	    BUG(("={Conf_list not listed}\n"));
	    break;

93
	case rt_conf_no_list:
Per Cederqvist's avatar
Per Cederqvist committed
94
95
96
97
	    prot_a_output_conf_no_list(client, res->conf_no_list);
	    BUG(("={Conf_no_list not listed}\n"));
	    break;
	    	    
98
	case rt_conference:
Per Cederqvist's avatar
Per Cederqvist committed
99
100
101
102
	    prot_a_output_conference(client, &res->conference);
	    BUG(("={Conference struct not listed}\n"));
	    break;

103
	case rt_string:
Per Cederqvist's avatar
Per Cederqvist committed
104
105
106
107
108
109
	    prot_a_output_string(client, res->string);
	    BUG(("={%dH", res->string.len));
	    BUGSTR(res->string);
	    BUG(("}\n"));
	    break;
	    
110
	case rt_mark_list:
Per Cederqvist's avatar
Per Cederqvist committed
111
112
113
114
	    prot_a_output_mark_list(client, res->mark_list);
	    BUG(("={Mark_list not listed}\n"));
	    break;
	    
115
	case rt_text_stat:
Per Cederqvist's avatar
Per Cederqvist committed
116
117
118
119
	    prot_a_output_text_stat(client, &res->text_stat);
	    BUG(("={Text_stat struct not listed}\n"));
	    break;
	    
120
	case rt_text_list:
Per Cederqvist's avatar
Per Cederqvist committed
121
122
123
124
	    prot_a_output_text_list(client, res->text_list);
	    BUG(("={Text_list not listed}\n"));
	    break;

125
	case rt_who_info_list:
Per Cederqvist's avatar
Per Cederqvist committed
126
127
128
129
	    prot_a_output_who_info_list(client, res->who_info_list);
	    BUG(("={Who_info_list not listed}\n"));
	    break;

130
	case rt_who_info_list_old:
Per Cederqvist's avatar
Per Cederqvist committed
131
132
133
134
135
	    prot_a_output_who_info_list_old(client,
					    res->who_info_list_old);
	    BUG(("={Old who_info_list not listed}\n"));
	    break;

136
	case rt_session_info:
Per Cederqvist's avatar
Per Cederqvist committed
137
138
	    prot_a_output_session_info(client,
				       &res->session_info);
139
140
141
	    /* Clear username, since it is allocated (in get_session_info()
	       in session.c).  See comment abover the definition of
	       typedef Result_holder in connections.h.  */
Per Cederqvist's avatar
Per Cederqvist committed
142
	    s_clear(&res->session_info.username);
Per Cederqvist's avatar
Per Cederqvist committed
143
144
145
	    BUG(("={Session_info not listed}\n"));
	    break;
    
146
	case rt_info:
Per Cederqvist's avatar
Per Cederqvist committed
147
148
149
150
	    prot_a_output_info(client, &res->info);
	    BUG(("={Who_info struct not listed}\n"));
	    break;

151
	case rt_membership_list:
Per Cederqvist's avatar
Per Cederqvist committed
152
153
154
155
	    prot_a_output_membership_list (client, res->membership_list);
	    BUG (("={Membership_list not listed}\n"));
	    break;
	    
156
	case rt_member_list:
Per Cederqvist's avatar
Per Cederqvist committed
157
158
159
160
	    prot_a_output_member_list (client, res->member_list);
	    BUG(("={Member_list not listed}\n"));
	    break;

161
	case rt_time_date:
Per Cederqvist's avatar
Per Cederqvist committed
162
163
164
165
	    prot_a_output_time (client, res->time_date);
	    BUG(("=(time_t)%d\n", res->time_date));
	    break;

166
	case rt_session_no:
Per Cederqvist's avatar
Per Cederqvist committed
167
168
169
	    prot_a_output_session_no (client, res->session_no);
	    BUG(("=(Session_no)%d\n", res->session_no));
	    break;
170
171
172
173
174

	case rt_text_no:
	    prot_a_output_text_no (client, res->text_no);
	    BUG(("=(Text_no)%d\n", res->text_no));
	    break;
175
176
177
178
179
180
181
182
183

	case rt_who_info_ident_list:
	    prot_a_output_who_info_ident_list(client,
					      res->who_info_ident_list);
	    BUG(("={Who_info_ident_list not listed}\n"));
	    break;

	case rt_session_info_ident:
	    prot_a_output_session_info_ident(client,
Per Cederqvist's avatar
Per Cederqvist committed
184
					     &res->session_info_ident);
185
186
	    BUG(("={Session_info_ident not listed}\n"));
	    break;
Per Cederqvist's avatar
Per Cederqvist committed
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
	}
	mux_putc('\n', client);
    }
    else
    {
	/* Failure. Give a reply with the error message. */
	mux_printf(client, "%%%d %d %d\n",
		client->ref_no, kom_errno, err_stat);
	BUG(("%%Err %d\n", kom_errno));
    }

    mux_flush(client);
}

/*
 * Check if it is a legal function.
 *
 * BUG: This should be generated from fncdef.txt.
 */


/*
 * Set up all data structures that are private to protocol A. This
 * function is called from connections.c whenever a connection says
 * that it is of type A.
 */
void
prot_a_init(Connection *conn)
{
    conn->parse_pos = 0;
    conn->fnc_parse_pos = 0;
    conn->array_parse_pos = 0;
    conn->struct_parse_pos = 0;
    conn->string_parse_pos = 0;
    conn->ref_no = 0;
    conn->function = 0;
    conn->num0 = 0;
    conn->num1 = 0;
    conn->num2 = 0;
    conn->num3 = 0;
    conn->c_string0 = EMPTY_STRING;
    conn->c_string1 = EMPTY_STRING;
    conn->string0 = EMPTY_STRING;
    conn->c_misc_info_p = NULL;
    conn->c_local_text_no_p = NULL;
    conn->priv_bits = DEFAULT_PRIV_BITS;
    conn->conf_type = NULL_CONF_TYPE;
}

void
prot_a_destruct(Connection *conn)
{

    /*
     * All strings et c should already by free:d - that is done at the
     * end of each atomic call. But free them anyhow, just in case
     * this client is forced of.
     */

    s_clear(&conn->string0);
    s_clear(&conn->c_string0);
    s_clear(&conn->c_string1);
    sfree(conn->c_misc_info_p);
    sfree(conn->c_local_text_no_p);
}


static Bool
prot_a_is_legal_fnc(Call_header fnc)
{
    switch(fnc)
    {
259
    case call_fnc_login_old:
Per Cederqvist's avatar
Per Cederqvist committed
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
    case call_fnc_logout: 
    case call_fnc_pepsi: 
    case call_fnc_change_name: 
    case call_fnc_change_what_i_am_doing: 
    case call_fnc_create_person: 
    case call_fnc_get_person_stat_old:
    case call_fnc_set_priv_bits:
    case call_fnc_set_passwd: 
    case call_fnc_query_read_texts: 
    case call_fnc_create_conf: 
    case call_fnc_delete_conf: 
    case call_fnc_lookup_name: 
    case call_fnc_get_conf_stat_old: 
    case call_fnc_add_member: 
    case call_fnc_sub_member: 
    case call_fnc_set_presentation: 
    case call_fnc_set_etc_motd: 
    case call_fnc_set_supervisor: 
    case call_fnc_set_permitted_submitters: 
    case call_fnc_set_super_conf: 
    case call_fnc_set_conf_type: 
    case call_fnc_set_garb_nice: 
    case call_fnc_get_marks: 
283
    case call_fnc_mark_text_old: 
Per Cederqvist's avatar
Per Cederqvist committed
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
    case call_fnc_get_text: 
    case call_fnc_get_text_stat: 
    case call_fnc_mark_as_read: 
    case call_fnc_create_text: 
    case call_fnc_delete_text: 
    case call_fnc_add_recipient: 
    case call_fnc_sub_recipient: 
    case call_fnc_add_comment: 
    case call_fnc_sub_comment: 
    case call_fnc_get_map: 
    case call_fnc_get_time: 
    case call_fnc_get_info:
    case call_fnc_add_footnote:
    case call_fnc_sub_footnote:
    case call_fnc_who_is_on_old:
    case call_fnc_set_unread:
    case call_fnc_set_motd_of_lyskom:
    case call_fnc_enable:
Per Cederqvist's avatar
Per Cederqvist committed
302
    case call_fnc_sync_kom:
Per Cederqvist's avatar
Per Cederqvist committed
303
    case call_fnc_shutdown_kom:
Per Cederqvist's avatar
Per Cederqvist committed
304
305
306
307
308
309
310
311
312
313
314
315
    case call_fnc_broadcast:
    case call_fnc_get_membership:
    case call_fnc_get_created_texts:
    case call_fnc_get_members:
    case call_fnc_get_person_stat:
    case call_fnc_get_conf_stat:
    case call_fnc_who_is_on:
    case call_fnc_get_unread_confs:
    case call_fnc_send_message:
    case call_fnc_get_session_info:
    case call_fnc_disconnect:
    case call_fnc_who_am_i:
Per Cederqvist's avatar
Per Cederqvist committed
316
    case call_fnc_set_user_area:
317
    case call_fnc_get_last_text:
Per Cederqvist's avatar
Per Cederqvist committed
318
    case call_fnc_create_anonymous_text:
319
320
    case call_fnc_find_next_text_no:
    case call_fnc_find_previous_text_no:
321
322
323
    case call_fnc_who_is_on_ident:
    case call_fnc_get_session_info_ident:
    case call_fnc_login:
324
325
    case call_fnc_re_lookup_person:
    case call_fnc_re_lookup_conf:
326
327
328
329
330
331
332
    case call_fnc_lookup_person:
    case call_fnc_lookup_conf:
    case call_fnc_set_client_version:
    case call_fnc_get_client_name:
    case call_fnc_get_client_version:
    case call_fnc_mark_text:
    case call_fnc_unmark_text:
Per Cederqvist's avatar
Per Cederqvist committed
333
334
335
336
337
338
339
340
341
342
343
	return TRUE;

    default:
	return FALSE;
    }
}    


void
prot_a_parse_packet(Connection *client)
{
344
    if ( client->username_valid == FALSE )
Per Cederqvist's avatar
Per Cederqvist committed
345
346
347
348
349
350
351
352
    {
	/* Connection not established yet */

	prot_a_parse_string(client, &client->c_string0, USERNAME_LEN);

	client->username = client->c_string0; /* Kludge to deal with */
	client->c_string0 = EMPTY_STRING;     /* "A5B" as first input. */
				/* Protokoll B will not suffer from this... */
353
354

	client->username_valid = TRUE;
Per Cederqvist's avatar
Per Cederqvist committed
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
	mux_printf(client, "LysKOM\n");
	mux_flush(client);
	BUG(("[Client %d is logged on]\n", client->session_no));
    }	

    switch(client->parse_pos)
    {
    case 0:			/* Get ref_no */
	client->ref_no = prot_a_parse_long(client);
	client->parse_pos = 1;
	/* Fall through */
    case 1:			/* Get fnc_no */
	client->function = prot_a_parse_long(client);
	if ( !prot_a_is_legal_fnc(client->function) )
	    longjmp(parse_env, ISC_PROTOCOL_ERR);
	client->parse_pos = 2;
	/* Fall through */
    case 2:
	/* Call the function that parses the arguments for this call. */
Per Cederqvist's avatar
Per Cederqvist committed
374
	(*fnc_defs[client->function].parser)(client);
Per Cederqvist's avatar
Per Cederqvist committed
375
376
377
378
379
380
	/* Fall through */
    default:
	client->parse_pos = 0;
    }

}