WebSVN – Kolibri OS – Blame – /programs/network/ircc/serverparser.inc

Rev	Author	Line No.	Line
3545	hidnplayr	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
9979	hidnplayr	3	;; Copyright (C) KolibriOS team 2004-2024. All rights reserved. ;;
3545	hidnplayr	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
4143	hidnplayr	6	;; Written by hidnplayr@kolibrios.org ;;
3545	hidnplayr	7	;; ;;
		8	;; GNU GENERAL PUBLIC LICENSE ;;
		9	;; Version 2, June 1991 ;;
		10	;; ;;
		11	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		12
		13
		14	server_parser:
		15
		16	mov esi, servercommand
9979	hidnplayr	17	mov ebx, ecx
3545	hidnplayr	18
		19	cmp byte [esi], ':'
		20	jne .parse
		21
		22	.spaceloop:
		23	lodsb
		24	test al, al
		25	jz .fail
		26	cmp al, ' '
		27	jne .spaceloop
		28
		29	.parse:
		30	mov eax, [esi]
9979	hidnplayr	31	or eax, 0x20202020 ; convert to lowercase
3545	hidnplayr	32	mov edi, server_commands
		33	mov ecx, server_commands.number
		34
		35	.loop:
		36	scasd
		37	je .got_cmd
		38	add edi, 4
		39	dec ecx
		40	jnz .loop
		41
		42	.fail:
		43	ret
		44
		45	.got_cmd:
9979	hidnplayr	46	mov ecx, ebx
3545	hidnplayr	47	jmp dword[edi]
		48
		49
		50	server_commands:
		51
6027	hidnplayr	52	dd '001 ', cmd_welcome
4622	hidnplayr	53	dd '002 ', cmd_justprint
		54	dd '003 ', cmd_justprint
		55	dd '004 ', cmd_justprint
		56	dd '005 ', cmd_justprint
		57
		58	dd '250 ', cmd_justprint
		59	dd '251 ', cmd_justprint
		60	dd '252 ', cmd_justprint
		61	dd '253 ', cmd_justprint
		62	dd '254 ', cmd_justprint
		63	dd '255 ', cmd_justprint
		64
		65	dd '265 ', cmd_justprint
		66	dd '266 ', cmd_justprint
		67
5411	hidnplayr	68	dd '311 ', cmd_justprint ; RPL_WHOISUSER
		69	dd '312 ', cmd_justprint ; RPL_WHOISSERVER
9092	hidnplayr	70	dd '317 ', cmd_justprint ; RPL_WHOISIDLE
5411	hidnplayr	71	dd '318 ', cmd_justprint ; RPL_ENDOFWHOIS
9092	hidnplayr	72	dd '319 ', cmd_justprint ; RPL_WHOISCHANNELS
3545	hidnplayr	73	dd '322 ', cmd_322 ; RPL_LIST
		74	dd '323 ', cmd_323 ; RPL_LISTEND
5411	hidnplayr	75	dd '324 ', cmd_justprint ; RPL_CHANNELMODEIS
4622	hidnplayr	76	dd '328 ', cmd_justprint ; RPL_CHANNEL_URL
5411	hidnplayr	77	dd '329 ', cmd_justprint ; RPL_CREATIONTIME
		78	dd '330 ', cmd_justprint
		79	dd '332 ', cmd_topic ; topic
3545	hidnplayr	80	dd '333 ', cmd_333 ; nickname and time of topic
9092	hidnplayr	81	dd '338 ', cmd_justprint ; RPL_CHANPASSOK
3545	hidnplayr	82	dd '353 ', cmd_353 ; name reply
		83	dd '366 ', cmd_366 ; end of names list
4622	hidnplayr	84	dd '372 ', cmd_justprint ; motd
		85	dd '375 ', cmd_justprint ; start of motd
		86	dd '376 ', cmd_justprint ; end of motd
		87	dd '421 ', cmd_justprint ; unknown command
6027	hidnplayr	88	dd '432 ', cmd_justprint ; erroneous nickname
4622	hidnplayr	89	dd '433 ', cmd_justprint ; nickname already in use
6027	hidnplayr	90	dd '436 ', cmd_justprint ; nickname collision
9092	hidnplayr	91	dd '671 ', cmd_justprint ; RPL_WHOISSECURE
4622	hidnplayr	92
3545	hidnplayr	93	dd 'join', cmd_join
		94	dd 'kick', cmd_kick
		95	dd 'mode', cmd_mode
		96	dd 'nick', cmd_nick
		97	dd 'part', cmd_part
		98	dd 'ping', cmd_ping
		99	dd 'priv', cmd_privmsg
		100	dd 'quit', cmd_quit
		101	dd 'noti', cmd_notice
		102
		103	.number = ($ - server_commands) / 8
		104
		105
		106	align 4
		107	compare_to_nick:
		108
		109	push esi
		110	mov ecx, MAX_NICK_LEN
		111	mov esi, user_nick
		112	.loop:
		113	lodsb
		114	cmp al, ' '
		115	jbe .done
4477	hidnplayr	116	test al, al
		117	jz .done
3545	hidnplayr	118	cmp al, 'a'
		119	jb .ok
		120	cmp al, 'z'
		121	ja .ok
		122	sub al, 0x20
		123	.ok:
		124
		125	mov bl, byte[edi]
		126	cmp bl, 'a'
		127	jb .ok2
		128	cmp bl, 'z'
		129	ja .ok2
		130	sub bl, 0x20
		131	.ok2:
		132	cmp bl, al
		133	jne .not_equal
		134	inc edi
		135	dec ecx
		136	jnz .loop
		137
		138	.done:
		139	xor eax, eax
		140	pop esi
		141	ret
		142
		143	.not_equal:
		144	or eax, -1
		145	pop esi
		146	ret
		147
4143	hidnplayr	148
		149
3545	hidnplayr	150	align 4
4477	hidnplayr	151	skip_parameter:
3545	hidnplayr	152
4595	hidnplayr	153	; First: skip the parameter (scan untill space or colon)
4477	hidnplayr	154	.part1:
3545	hidnplayr	155	lodsb
		156	cmp al, ' '
4477	hidnplayr	157	je .part2
3545	hidnplayr	158	cmp al, ':'
4477	hidnplayr	159	jne .part1
3545	hidnplayr	160
4595	hidnplayr	161	; Skip all trailing spaces
		162	.part3:
		163	lodsb
		164	cmp al, ' '
		165	je .part3
		166	dec esi
		167	ret
		168
		169	; Now, skip all trailing spaces and first semicolon
4477	hidnplayr	170	.part2:
3545	hidnplayr	171	lodsb
		172	cmp al, ' '
4477	hidnplayr	173	je .part2
3545	hidnplayr	174	cmp al, ':'
4595	hidnplayr	175	je .part3
3545	hidnplayr	176	dec esi
		177	ret
		178
		179
		180
6027	hidnplayr	181	cmd_welcome:
4595	hidnplayr	182
6027	hidnplayr	183	mov [status], STATUS_LOGGED_IN
4595	hidnplayr	184
4622	hidnplayr	185	cmd_justprint:
		186
3545	hidnplayr	187	add esi, 4
4623	hidnplayr	188	call skip_parameter ; our nickname
3545	hidnplayr	189
4623	hidnplayr	190	call print_asciiz
		191
		192	mov al, 10
		193	call print_char
		194
4622	hidnplayr	195	ret
		196
		197
6027	hidnplayr	198
3545	hidnplayr	199	cmd_notice:
		200
4622	hidnplayr	201	if TIMESTAMP
		202	call print_timestamp
		203	end if
		204
3545	hidnplayr	205	cmp byte[servercommand], ':'
		206	jne .gogogo
		207
		208	mov byte [esi-1], 0
		209	push esi
		210	mov esi, str_1
4623	hidnplayr	211	call print_asciiz
		212	mov esi, servercommand+1
		213	mov bl, '!'
		214	call print_string
3545	hidnplayr	215	mov esi, str_2
4623	hidnplayr	216	call print_asciiz
3545	hidnplayr	217	pop esi
		218
		219	.gogogo:
		220	add esi, 6
4622	hidnplayr	221	call skip_parameter
		222	call skip_parameter
4623	hidnplayr	223	call print_asciiz
3545	hidnplayr	224
4623	hidnplayr	225	mov al, 10
		226	call print_char
3545	hidnplayr	227
		228	ret
		229
		230
		231
		232	cmd_ping:
		233
		234	; Just change PING to PONG
		235	mov dword[esi], 'PONG'
		236
9979	hidnplayr	237	; Append \r\n
		238	mov word[esi+ecx], 0x0a0d
3545	hidnplayr	239
9979	hidnplayr	240	; And send the response to the server
3545	hidnplayr	241	mov edx, esi
9979	hidnplayr	242	lea esi, [ecx+2]
3545	hidnplayr	243	mcall send, [socketnum], , , 0
		244
		245	ret
		246
		247
		248
		249	cmd_privmsg:
		250
4143	hidnplayr	251	mov eax, dword[esi+4]
		252	or eax, 0x20202020
		253	cmp eax, 'msg '
		254	jne .fail
3545	hidnplayr	255	add esi, 8 ; skip 'PRIVMSG '
		256
4477	hidnplayr	257	mov edi, esi
		258	call compare_to_nick
		259	jne .channel
		260
		261	; private chat message
		262	push esi
		263	mov esi, servercommand+1
		264	call window_open
4623	hidnplayr	265	test ebx, ebx
		266	jz .fail2
4477	hidnplayr	267	pop esi
		268	call skip_parameter ; our own nickname
		269	jmp .print
		270
		271	.channel:
		272	call window_open
4623	hidnplayr	273	test ebx, ebx
		274	jz .fail
4477	hidnplayr	275
		276	.print:
4659	hidnplayr	277	cmp byte[esi], 1 ; Client to Client protocol?
		278	je cmd_ctcp
		279
4143	hidnplayr	280	if TIMESTAMP
3545	hidnplayr	281	call print_timestamp
4143	hidnplayr	282	end if
3545	hidnplayr	283
		284	push esi
4623	hidnplayr	285	mov al, '<'
		286	call print_char
3545	hidnplayr	287
4623	hidnplayr	288	mov esi, servercommand+1
		289	mov bl, '!'
		290	call print_string
3545	hidnplayr	291
4623	hidnplayr	292	mov al, '>'
		293	call print_char
3545	hidnplayr	294
4623	hidnplayr	295	mov al, ' '
		296	call print_char
3545	hidnplayr	297
		298	pop esi
4623	hidnplayr	299	call print_asciiz
3545	hidnplayr	300
4623	hidnplayr	301	mov al, 10
		302	call print_char
3545	hidnplayr	303
4623	hidnplayr	304	ret
		305
		306	.fail2:
		307	pop esi
3545	hidnplayr	308	.fail:
		309	ret
		310
		311
		312
		313
4143	hidnplayr	314	cmd_ctcp:
3545	hidnplayr	315
		316	inc esi
4143	hidnplayr	317	mov eax, dword[esi]
		318	or eax, 0x20202020
3545	hidnplayr	319
4143	hidnplayr	320	cmp eax, 'vers'
3545	hidnplayr	321	je .version
4143	hidnplayr	322	cmp eax, 'time'
3545	hidnplayr	323	je .time
4143	hidnplayr	324	cmp eax, 'ping'
3545	hidnplayr	325	je .ping
4143	hidnplayr	326	cmp eax, 'acti'
		327	je .action
4477	hidnplayr	328	cmp eax, 'dcc ' ; TODO
		329	je cmd_dcc
3545	hidnplayr	330
7300	hidnplayr	331	; Unknown CTCP command - just print to window
4143	hidnplayr	332
7300	hidnplayr	333	.just_print:
4143	hidnplayr	334
7300	hidnplayr	335	push esi
		336
		337	if TIMESTAMP
		338	call print_timestamp
		339	end if
		340
		341	mov esi, ctcp_header_recv
		342	call print_asciiz
		343
		344	mov al, '<'
		345	call print_char
		346
		347	mov esi, servercommand+1 ; print nickname
		348	mov bl, '!'
		349	call print_string
		350
		351	mov al, '>'
		352	call print_char
		353
		354	mov al, ' '
		355	call print_char
		356
		357	pop esi
		358	mov bl, 1
		359	call print_string
		360
		361	mov al, 10
		362	call print_char
		363
3545	hidnplayr	364	ret
		365
		366	.time:
4143	hidnplayr	367	mov byte[esi+4], ' '
3545	hidnplayr	368	lea edi, [esi+5]
		369
		370	; TODO: add system date (fn 29) in human readable format
		371
		372	mcall 3 ; get system time
		373
		374	mov ecx, 3
		375	.timeloop:
		376	mov bl, al
		377	shr al, 4
		378	add al, '0'
		379	stosb
		380
		381	mov al, bl
		382	and al, 0x0f
		383	add al, '0'
		384	stosb
		385
		386	dec ecx
		387	jz .timedone
		388
		389	mov al, ':'
		390	stosb
		391	shr eax, 8
		392	jmp .timeloop
		393
		394	.timedone:
		395	xor al, al
		396	stosb
		397	call ctcp_reply
		398
		399	if TIMESTAMP
		400	call print_timestamp
		401	end if
		402
		403	mov esi, ctcp_header
4623	hidnplayr	404	call print_asciiz
3545	hidnplayr	405
		406	mov esi, servercommand+1
4623	hidnplayr	407	call print_asciiz
3545	hidnplayr	408
		409	mov esi, ctcp_time
4623	hidnplayr	410	call print_asciiz
3545	hidnplayr	411
		412	ret
		413
		414	.version:
		415	mov esi, str_version
		416	call ctcp_reply
		417
		418	if TIMESTAMP
		419	call print_timestamp
		420	end if
		421
		422	mov esi, ctcp_header
4623	hidnplayr	423	call print_asciiz
3545	hidnplayr	424
		425	mov esi, servercommand+1
4623	hidnplayr	426	call print_asciiz
3545	hidnplayr	427
		428	mov esi, ctcp_version
4623	hidnplayr	429	call print_asciiz
3545	hidnplayr	430
		431	ret
		432
		433	.ping:
		434	call ctcp_reply
		435
		436	if TIMESTAMP
		437	call print_timestamp
		438	end if
		439
		440	mov esi, ctcp_header
4623	hidnplayr	441	call print_asciiz
3545	hidnplayr	442
		443	mov esi, servercommand+1
4623	hidnplayr	444	call print_asciiz
3545	hidnplayr	445
		446	mov esi, ctcp_ping
4623	hidnplayr	447	call print_asciiz
3545	hidnplayr	448
		449	ret
		450
4143	hidnplayr	451	.action:
		452	add esi, 7
		453	push esi
3545	hidnplayr	454
4143	hidnplayr	455	if TIMESTAMP
		456	call print_timestamp
		457	end if
3545	hidnplayr	458
4143	hidnplayr	459	mov esi, action_header
4623	hidnplayr	460	call print_asciiz
4143	hidnplayr	461
4623	hidnplayr	462	mov esi, servercommand+1 ; print nickname
		463	mov bl, '!'
		464	call print_string
4143	hidnplayr	465
4623	hidnplayr	466	mov al, ' '
		467	call print_char
4143	hidnplayr	468
		469	pop esi
4623	hidnplayr	470	call print_asciiz
4143	hidnplayr	471
4623	hidnplayr	472	mov al, 10
		473	call print_char
4143	hidnplayr	474
		475	ret
		476
		477
		478	cmd_dcc:
		479	add esi, 4
		480	mov eax, dword[esi]
		481	or eax, 0x202020
		482
		483	cmp eax, 'send'
		484	je .send
		485
		486	ret
		487
		488	.send:
4477	hidnplayr	489	call window_open
4623	hidnplayr	490	test ebx, ebx
		491	jz .fail
4477	hidnplayr	492	mov [ebx + window.type], WINDOWTYPE_DCC
		493
4623	hidnplayr	494	.fail:
		495
4143	hidnplayr	496	ret
		497
		498
		499
3545	hidnplayr	500	ctcp_reply:
		501
		502	push esi
6027	hidnplayr	503	mov dword[user_command], 'NOTI'
		504	mov dword[user_command+4], 'CE '
3545	hidnplayr	505
		506	mov esi, servercommand+1
6027	hidnplayr	507	mov edi, user_command+7
3545	hidnplayr	508	.nickloop:
		509	lodsb
		510	cmp al, '!'
		511	je .done
		512	cmp al, ' '
		513	je .done
		514	test al, al
		515	je .fail
		516	stosb
		517	jmp .nickloop
		518	.done:
		519	mov byte [esi-1], 0
		520	mov ax, ' :'
		521	stosw
		522	mov al, 1
		523	stosb
		524
		525	pop esi
		526	.replyloop:
		527	lodsb
		528	cmp al, 1
		529	jbe .done2
		530	stosb
		531	jmp .replyloop
		532	.done2:
		533
		534	mov al, 1
		535	stosb
		536	mov ax, 0x0a0d
		537	stosw
		538
6027	hidnplayr	539	lea esi, [edi - user_command]
		540	mcall send, [socketnum], user_command, , 0
3545	hidnplayr	541	.fail:
		542	ret
		543
		544
		545
		546	cmd_part:
4143	hidnplayr	547
		548	cmp byte [esi+4], ' '
		549	jne .fail
3545	hidnplayr	550	add esi, 5 ; skip 'PART '
		551
		552	; Is it me who parted?
		553	mov edi, servercommand+1
		554	call compare_to_nick
4477	hidnplayr	555	jne .not_me
3545	hidnplayr	556
4143	hidnplayr	557	; yes, close the window (if its open)
		558	call window_find
		559	test ebx, ebx
		560	jz @f
		561	call window_close
		562	@@:
		563	.fail:
3545	hidnplayr	564
		565	ret
		566
4143	hidnplayr	567
3545	hidnplayr	568	; somebody else parted, just print message
4477	hidnplayr	569	.not_me:
3545	hidnplayr	570	push esi
4143	hidnplayr	571	call window_open
4623	hidnplayr	572	test ebx, ebx
		573	jz .fail2
4143	hidnplayr	574
4477	hidnplayr	575	if TIMESTAMP
		576	call print_timestamp
		577	end if
		578
4143	hidnplayr	579	mov esi, part_header
4623	hidnplayr	580	call print_asciiz
3545	hidnplayr	581
4623	hidnplayr	582	mov esi, servercommand+1
		583	mov bl, '!'
		584	call print_string
3545	hidnplayr	585
		586	mov esi, has_left_channel
4623	hidnplayr	587	call print_asciiz
3545	hidnplayr	588
		589	pop esi
4623	hidnplayr	590	call print_asciiz
3545	hidnplayr	591
4623	hidnplayr	592	mov al, 10
		593	call print_char
3545	hidnplayr	594
		595	mov ebx, [window_print]
		596	mov esi, servercommand+1
		597	call user_remove
		598
		599	ret
		600
4623	hidnplayr	601	.fail2:
		602	pop esi
3545	hidnplayr	603
4623	hidnplayr	604	ret
3545	hidnplayr	605
4623	hidnplayr	606
		607
3545	hidnplayr	608	cmd_join:
4143	hidnplayr	609
4477	hidnplayr	610	cmp byte[esi+4], ' '
4143	hidnplayr	611	jne .fail
3545	hidnplayr	612	add esi, 5 ; skip 'JOIN '
		613
4623	hidnplayr	614	; did we join a channel?
3545	hidnplayr	615	mov edi, servercommand+1
		616	call compare_to_nick
4477	hidnplayr	617	jne .not_me
3545	hidnplayr	618
4477	hidnplayr	619	push esi
		620	call window_open
4623	hidnplayr	621	test ebx, ebx
3545	hidnplayr	622	jz .fail
		623	mov [ebx + window.type], WINDOWTYPE_CHANNEL
3981	hidnplayr	624	mov [window_active], ebx
3545	hidnplayr	625
4143	hidnplayr	626	if TIMESTAMP
		627	call print_timestamp
		628	end if
		629
		630	mov esi, join_header
4623	hidnplayr	631	call print_asciiz
3545	hidnplayr	632
		633	mov esi, str_talking
4623	hidnplayr	634	call print_asciiz
3545	hidnplayr	635
4623	hidnplayr	636	pop esi
		637	mov bl, ' '
		638	call print_string
3545	hidnplayr	639
4623	hidnplayr	640	mov al, 10
		641	call print_char
3545	hidnplayr	642
		643	call draw_window
		644
		645	ret
		646
4477	hidnplayr	647	.not_me:
3545	hidnplayr	648	push esi
3981	hidnplayr	649	call window_open
4623	hidnplayr	650	test ebx, ebx
		651	jz .fail
3545	hidnplayr	652
4143	hidnplayr	653	if TIMESTAMP
		654	call print_timestamp
		655	end if
		656
		657	mov esi, join_header
4623	hidnplayr	658	call print_asciiz
3545	hidnplayr	659
4623	hidnplayr	660	mov esi, servercommand+1
		661	mov bl, '!'
		662	call print_string
3545	hidnplayr	663
		664	mov esi, joins_channel
4623	hidnplayr	665	call print_asciiz
3545	hidnplayr	666
		667	pop esi
4623	hidnplayr	668	call print_asciiz
3545	hidnplayr	669
4623	hidnplayr	670	mov al, 10
		671	call print_char
3545	hidnplayr	672
		673	mov ebx, [window_print]
		674	mov esi, servercommand+1
		675	call user_add
		676
4477	hidnplayr	677	ret
		678
4143	hidnplayr	679	.fail:
4623	hidnplayr	680	pop esi
3545	hidnplayr	681	ret
		682
		683
		684
		685
		686	cmd_nick:
		687
4143	hidnplayr	688	cmp byte[esi+4], ' '
		689	jne .fail
		690	add esi, 5 ; skip 'NICK '
		691	cmp byte[esi], ':'
3545	hidnplayr	692	jne @f
		693	inc esi
4143	hidnplayr	694	@@:
3545	hidnplayr	695
4143	hidnplayr	696	; Is it me who changed nick?
3545	hidnplayr	697	push esi
		698	mov edi, servercommand+1
		699	call compare_to_nick
		700	jne .not_me
		701
4617	hidnplayr	702	; Yup, update user_nick
3545	hidnplayr	703	mov ecx, MAX_NICK_LEN-1
4143	hidnplayr	704	mov esi, [esp]
4617	hidnplayr	705	mov edi, user_nick
4143	hidnplayr	706	@@:
3545	hidnplayr	707	lodsb
		708	test al, al
4143	hidnplayr	709	jz @f
3545	hidnplayr	710	cmp al, ' '
4143	hidnplayr	711	je @f
		712	cmp al, 10
		713	je @f
		714	cmp al, 13
		715	je @f
4617	hidnplayr	716	cmp al, ':'
		717	je @r
3545	hidnplayr	718	stosb
		719	dec ecx
4143	hidnplayr	720	jnz @r
		721	@@:
3545	hidnplayr	722	xor al, al
		723	stosb
4982	hidnplayr	724
		725	; Print a message on the server window
		726	mov [window_print], windows
		727
		728	mov esi, str_nickchange
		729	call print_asciiz
		730
		731	mov esi, user_nick
		732	call print_asciiz
		733
		734	mov al, 10
		735	call print_char
		736
3545	hidnplayr	737	.not_me:
		738
4617	hidnplayr	739	; Update in userlist
4143	hidnplayr	740	mov ebx, windows
		741	mov ecx, MAX_WINDOWS
		742	.window_loop:
		743	push ecx ebx
		744	cmp [ebx + window.type], WINDOWTYPE_CHANNEL
		745	jne .next_window
		746
		747	mov esi, servercommand+1
		748	call user_remove
		749	test edi, edi
		750	jz .next_window
		751
		752	mov esi, [esp + 8]
		753	call user_add
		754
4617	hidnplayr	755	; And print a notification in the channel
4143	hidnplayr	756	mov [window_print], ebx
		757
		758	if TIMESTAMP
		759	call print_timestamp
		760	end if
		761
		762	mov esi, nick_header
4623	hidnplayr	763	call print_asciiz
3545	hidnplayr	764
4623	hidnplayr	765	mov esi, servercommand+1
		766	mov bl, '!'
		767	call print_string
3545	hidnplayr	768
		769	mov esi, is_now_known_as
4623	hidnplayr	770	call print_asciiz
3545	hidnplayr	771
4623	hidnplayr	772	mov esi, [esp + 8]
		773	call print_asciiz
3545	hidnplayr	774
4623	hidnplayr	775	mov al, 10
		776	call print_char
3545	hidnplayr	777
4617	hidnplayr	778	; Now do this for all open windows
4143	hidnplayr	779	.next_window:
		780	pop ebx ecx
		781	add ebx, sizeof.window
		782	dec ecx
		783	jnz .window_loop
		784
		785	pop esi
		786
		787	.fail:
		788
3545	hidnplayr	789	ret
		790
		791
		792
		793
		794	cmd_kick:
4143	hidnplayr	795
		796	cmp byte [esi+4], ' '
		797	jne .fail
3545	hidnplayr	798	add esi, 5 ; skip 'KICK '
		799
4595	hidnplayr	800	; TODO: Is it me who got kicked?
		801	; if so, mark channel as disconnected
3545	hidnplayr	802
		803	.not_me:
		804	; find the channel user has been kicked from
		805	push esi
3981	hidnplayr	806	call window_open
4623	hidnplayr	807	test ebx, ebx
		808	jz .fail
4595	hidnplayr	809	push esi
3545	hidnplayr	810
4143	hidnplayr	811	if TIMESTAMP
		812	call print_timestamp
		813	end if
		814
		815	mov esi, kick_header
4623	hidnplayr	816	call print_asciiz
3545	hidnplayr	817
4623	hidnplayr	818	pop esi
		819	mov bl, ' '
		820	call print_string
3545	hidnplayr	821
4595	hidnplayr	822	mov esi, str_kicked
4623	hidnplayr	823	call print_asciiz
3545	hidnplayr	824
4623	hidnplayr	825	pop esi
		826	mov bl, ' '
		827	call print_string
3545	hidnplayr	828
4595	hidnplayr	829	mov esi, str_by
4623	hidnplayr	830	call print_asciiz
3545	hidnplayr	831
4623	hidnplayr	832	mov esi, servercommand+1
		833	mov bl, '!'
		834	call print_string
4595	hidnplayr	835
4623	hidnplayr	836	mov al, 10
		837	call print_char
4595	hidnplayr	838
3545	hidnplayr	839	mov ebx, [window_print]
		840	mov esi, servercommand+1
		841	call user_remove
		842
4623	hidnplayr	843	ret
		844
4143	hidnplayr	845	.fail:
4623	hidnplayr	846	pop esi
4143	hidnplayr	847
3545	hidnplayr	848	ret
		849
		850
		851
		852	cmd_quit:
		853
4143	hidnplayr	854	cmp byte [esi+4], ' '
		855	jne .fail
		856
		857	mov ebx, windows
		858	mov ecx, MAX_WINDOWS
		859
		860	.window_loop:
		861	push ecx
		862	cmp [ebx + window.type], WINDOWTYPE_CHANNEL
		863	jne .next_window
		864
		865	mov esi, servercommand+1
		866	call user_remove
		867	test edi, edi
		868	jz .next_window
		869
		870	push ebx
		871	mov [window_print], ebx
		872
		873	if TIMESTAMP
		874	call print_timestamp
		875	end if
		876
		877	mov esi, quit_header
4623	hidnplayr	878	call print_asciiz
3545	hidnplayr	879
4623	hidnplayr	880	mov esi, servercommand+1
		881	mov bl, '!'
		882	call print_string
3545	hidnplayr	883
		884	mov esi, has_quit_irc
4623	hidnplayr	885	call print_asciiz
3545	hidnplayr	886
4143	hidnplayr	887	; TODO: check if quit message was given, and print it to the window
		888	pop ebx
		889	.next_window:
		890	pop ecx
		891	add ebx, sizeof.window
		892	dec ecx
		893	jnz .window_loop
3545	hidnplayr	894
4143	hidnplayr	895	.fail:
		896
		897
3545	hidnplayr	898	ret
		899
		900
		901
		902	cmd_mode:
		903
4143	hidnplayr	904	cmp byte [esi+4], ' '
		905	jne .fail
3545	hidnplayr	906	add esi, 5 ; skip 'MODE '
4622	hidnplayr	907	push esi
4143	hidnplayr	908	call window_find
		909	test ebx, ebx
4622	hidnplayr	910	jz .user
		911	mov [esp], esi
4477	hidnplayr	912	mov [window_print], ebx
4143	hidnplayr	913
		914	if TIMESTAMP
		915	call print_timestamp
		916	end if
		917
		918	mov esi, mode_header
4623	hidnplayr	919	call print_asciiz
3545	hidnplayr	920
4623	hidnplayr	921	mov esi, servercommand+1
		922	mov bl, '!'
		923	call print_string
3545	hidnplayr	924
		925	mov esi, sets_mode
4623	hidnplayr	926	call print_asciiz
3545	hidnplayr	927
		928	pop esi
4623	hidnplayr	929	call print_asciiz
3545	hidnplayr	930
4623	hidnplayr	931	mov al, 10
		932	call print_char
3545	hidnplayr	933
4622	hidnplayr	934	; TODO: keep track of user modes in username list
3545	hidnplayr	935
4143	hidnplayr	936	.fail:
4622	hidnplayr	937	ret
4143	hidnplayr	938
4622	hidnplayr	939
		940	.user:
		941	if TIMESTAMP
		942	call print_timestamp
		943	end if
		944
		945	mov esi, mode_header
4623	hidnplayr	946	call print_asciiz
4622	hidnplayr	947
4623	hidnplayr	948	mov esi, [esp]
		949	mov bl, ' '
		950	call print_string
4622	hidnplayr	951
		952	mov esi, sets_mode
4623	hidnplayr	953	call print_asciiz
4622	hidnplayr	954
		955	pop esi
		956	call skip_parameter
4623	hidnplayr	957	call print_asciiz
4622	hidnplayr	958
4623	hidnplayr	959	mov al, 10
		960	call print_char
4622	hidnplayr	961
3545	hidnplayr	962	ret
		963
		964
		965	cmd_353: ; channel usernames reply
		966
		967	add esi, 4 ; skip '353 '
4477	hidnplayr	968	call skip_parameter
3545	hidnplayr	969	inc esi ; channel type '*', '=' or '@'
		970	inc esi ; ' '
3981	hidnplayr	971	call window_open
4623	hidnplayr	972	test ebx, ebx
		973	jz .fail
3545	hidnplayr	974
		975	; now find window ptr and check if this is the first 353 message
		976	mov ebx, [window_print]
		977	test [ebx + window.flags], FLAG_RECEIVING_NAMES
		978	jnz .add
		979
		980	or [ebx + window.flags], FLAG_RECEIVING_NAMES
		981	; mov [ebx + window.users], 0
		982	; TODO: remove all users?
		983
		984	.add:
		985	push esi
		986	call user_add
		987	pop esi
		988
		989	.namesloop:
		990	lodsb
		991	test al, al
		992	jz .done
		993	cmp al, ' ' ; names list is separated with spaces
		994	jne .namesloop
		995	jmp .add
		996
		997	.done:
6026	hidnplayr	998	call draw_user_list
4623	hidnplayr	999	.fail:
3545	hidnplayr	1000
		1001	ret
		1002
		1003
		1004
		1005
		1006
		1007	cmd_366: ; channel usernames end
		1008
		1009	add esi, 4 ; skip '366 '
4477	hidnplayr	1010	call skip_parameter
3981	hidnplayr	1011	call window_open
4623	hidnplayr	1012	test ebx, ebx
		1013	jz .fail
3545	hidnplayr	1014	and [ebx + window.flags], not FLAG_RECEIVING_NAMES
4623	hidnplayr	1015	.fail:
3545	hidnplayr	1016
		1017	ret
		1018
		1019
		1020
		1021
		1022	cmd_topic:
		1023
		1024	add esi, 4 ; skip '332 '
4477	hidnplayr	1025	call skip_parameter
3981	hidnplayr	1026	call window_open
4623	hidnplayr	1027	test ebx, ebx
		1028	jz .fail
3545	hidnplayr	1029
4143	hidnplayr	1030	if TIMESTAMP
		1031	call print_timestamp
		1032	end if
		1033
3545	hidnplayr	1034	push esi
4143	hidnplayr	1035	mov esi, topic_header
4623	hidnplayr	1036	call print_asciiz
3545	hidnplayr	1037
		1038	mov esi, str_topic
4623	hidnplayr	1039	call print_asciiz
3545	hidnplayr	1040
		1041	pop esi
4623	hidnplayr	1042	call print_asciiz
3545	hidnplayr	1043
4477	hidnplayr	1044	mov esi, str_topic_end
4623	hidnplayr	1045	call print_asciiz
3545	hidnplayr	1046
4623	hidnplayr	1047	.fail:
		1048
3545	hidnplayr	1049	ret
		1050
		1051
		1052	cmd_333:
		1053
		1054	add esi, 4 ; skip '333 '
4622	hidnplayr	1055	call skip_parameter
3981	hidnplayr	1056	call window_open
4623	hidnplayr	1057	test ebx, ebx
		1058	jz .fail
3545	hidnplayr	1059
4143	hidnplayr	1060	if TIMESTAMP
		1061	call print_timestamp
		1062	end if
		1063
3545	hidnplayr	1064	push esi
4143	hidnplayr	1065	mov esi, topic_header
4623	hidnplayr	1066	call print_asciiz
3545	hidnplayr	1067
		1068	mov esi, str_setby
4623	hidnplayr	1069	call print_asciiz
3545	hidnplayr	1070
4623	hidnplayr	1071	pop esi
		1072	mov bl, '!'
		1073	call print_string
3545	hidnplayr	1074
4623	hidnplayr	1075	mov al, 10
		1076	call print_char
3545	hidnplayr	1077
		1078	.fail:
4623	hidnplayr	1079
3545	hidnplayr	1080	ret
		1081
4623	hidnplayr	1082
		1083
4143	hidnplayr	1084	cmd_322: ; LIST
		1085
3545	hidnplayr	1086	add esi, 4
4477	hidnplayr	1087	call skip_parameter
3545	hidnplayr	1088
4623	hidnplayr	1089	push esi
		1090	mov esi, str_list
		1091	call window_open
		1092	test ebx, ebx
		1093	jz .fail
		1094
		1095	mov [window_active], ebx
6026	hidnplayr	1096	call draw_window_tabs
4623	hidnplayr	1097	pop esi
		1098	call print_asciiz
		1099	mov al, 10
		1100	call print_char
		1101
3545	hidnplayr	1102	ret
		1103
4623	hidnplayr	1104	.fail:
		1105	pop esi
		1106
		1107	ret
		1108
4143	hidnplayr	1109	cmd_323: ; LIST END
3545	hidnplayr	1110
		1111	ret

Subversion Repositories Kolibri OS

(root)/programs/network/ircc/serverparser.inc @ 9984 – Rev 9979