- Sourcen auf weitere Module fuer IRC-Befehle aufgesplitted.
[ngircd-alex.git] / src / ngircd / parse.c
1 /*
2  * ngIRCd -- The Next Generation IRC Daemon
3  * Copyright (c)2001,2002 by Alexander Barton (alex@barton.de)
4  *
5  * Dieses Programm ist freie Software. Sie koennen es unter den Bedingungen
6  * der GNU General Public License (GPL), wie von der Free Software Foundation
7  * herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2
8  * der Lizenz oder (wenn Sie es wuenschen) jeder spaeteren Version.
9  * Naehere Informationen entnehmen Sie bitter der Datei COPYING. Eine Liste
10  * der an ngIRCd beteiligten Autoren finden Sie in der Datei AUTHORS.
11  *
12  * $Id: parse.c,v 1.29 2002/03/03 17:17:38 alex Exp $
13  *
14  * parse.c: Parsen der Client-Anfragen
15  *
16  * $Log: parse.c,v $
17  * Revision 1.29  2002/03/03 17:17:38  alex
18  * - Sourcen auf weitere Module fuer IRC-Befehle aufgesplitted.
19  * - IRC-Befehl WHO implementiert.
20  *
21  * Revision 1.28  2002/02/27 23:25:31  alex
22  * - Anpassungen an Aufteilung von irc.d, Init- und Exit-Funktionen entfernt.
23  *
24  * Revision 1.27  2002/02/27 20:33:13  alex
25  * - Channel-Topics implementiert.
26  *
27  * Revision 1.26  2002/02/27 18:23:46  alex
28  * - IRC-Befehl "AWAY" implementert.
29  *
30  * Revision 1.25  2002/02/26 20:52:15  alex
31  * - Fehler bei Fehlermeldung wg. unbekanntem Prefix behoben.
32  *
33  * Revision 1.24  2002/02/23 21:39:48  alex
34  * - IRC-Befehl KILL sowie Kills bei Nick Collsisions implementiert.
35  *
36  * Revision 1.23  2002/02/17 23:38:58  alex
37  * - neuer IRC-Befehl VERSION implementiert: IRC_VERSION().
38  *
39  * Revision 1.22  2002/01/21 00:01:37  alex
40  * - neue Befehle JOIN und PART.
41  *
42  * Revision 1.21  2002/01/18 11:12:11  alex
43  * - der Sniffer wird nun nur noch aktiviert, wenn auf Kommandozeile angegeben.
44  *
45  * Revision 1.20  2002/01/11 23:50:55  alex
46  * - LINKS implementiert, LUSERS begonnen.
47  *
48  * Revision 1.19  2002/01/09 01:08:42  alex
49  * - Parses handhabt Leerzeichen zw. Parametern nun etwas "lockerer".
50  *
51  * Revision 1.18  2002/01/07 15:29:11  alex
52  * - Status-Codes an den Server selber werden ignoriert, besseres Logging.
53  *
54  * Revision 1.17  2002/01/06 17:41:44  alex
55  * - die Fehlermeldung "unbekannter Befehl" hatte ein falsches Format.
56  *
57  * Revision 1.16  2002/01/05 23:23:20  alex
58  * - generisches Forwarding von Zahlen-Statuscodes implementiert.
59  *
60  * Revision 1.15  2002/01/05 01:42:08  alex
61  * - an Server werden keine ERRORS mehr wegen unbekannter Befehle geschickt.
62  *
63  * Revision 1.14  2002/01/04 17:56:45  alex
64  * - neuer Befehl SQUIT.
65  *
66  * Revision 1.13  2002/01/04 01:20:02  alex
67  * - Client-Strukruren werden nur noch ueber Funktionen angesprochen.
68  *
69  * Revision 1.12  2002/01/03 02:24:49  alex
70  * - neue Befehle NJOIN und SERVER begonnen.
71  *
72  * Revision 1.11  2002/01/02 02:43:22  alex
73  * - Copyright-Texte aktualisiert.
74  * - neuer Befehl ERROR.
75  *
76  * Revision 1.10  2001/12/31 15:33:13  alex
77  * - neuer Befehl NAMES, kleinere Bugfixes.
78  * - Bug bei PING behoben: war zu restriktiv implementiert :-)
79  *
80  * Revision 1.9  2001/12/31 02:18:51  alex
81  * - viele neue Befehle (WHOIS, ISON, OPER, DIE, RESTART),
82  * - neuen Header "defines.h" mit (fast) allen Konstanten.
83  * - Code Cleanups und viele "kleine" Aenderungen & Bugfixes.
84  *
85  * Revision 1.8  2001/12/29 03:08:19  alex
86  * - Fuehrende und folgende Leerzeichen etc. in Requests werden geloescht.
87  * - Logmeldungen (mal wieder) ein wenig angepasst.
88  *
89  * Revision 1.7  2001/12/27 19:13:21  alex
90  * - neue Befehle NOTICE und PRIVMSG.
91  * - Debug-Logging ein wenig reduziert.
92  *
93  * Revision 1.6  2001/12/26 14:45:37  alex
94  * - "Code Cleanups".
95  *
96  * Revision 1.5  2001/12/26 03:23:03  alex
97  * - PING/PONG-Befehle implementiert.
98  *
99  * Revision 1.4  2001/12/25 22:04:26  alex
100  * - Aenderungen an den Debug- und Logging-Funktionen.
101  *
102  * Revision 1.3  2001/12/25 19:18:36  alex
103  * - Gross- und Kleinschreibung der IRC-Befehle wird ignoriert.
104  * - bessere Debug-Ausgaben.
105  *
106  * Revision 1.2  2001/12/23 21:56:47  alex
107  * - bessere Debug-Ausgaben,
108  * - Bug im Parameter-Parser behoben (bei "langem" Parameter)
109  * - erste IRC-Befehle werden erkannt :-)
110  *
111  * Revision 1.1  2001/12/21 23:53:16  alex
112  * - Modul zum Parsen von Client-Requests begonnen.
113  */
114
115
116 #include <portab.h>
117 #include "global.h"
118
119 #include <imp.h>
120 #include <assert.h>
121 #include <stdlib.h>
122 #include <stdio.h>
123 #include <string.h>
124
125 #include "ngircd.h"
126 #include "client.h"
127 #include "conn.h"
128 #include "irc.h"
129 #include "irc-channel.h"
130 #include "irc-login.h"
131 #include "irc-mode.h"
132 #include "irc-oper.h"
133 #include "irc-server.h"
134 #include "irc-write.h"
135 #include "log.h"
136 #include "messages.h"
137 #include "tool.h"
138
139 #include <exp.h>
140 #include "parse.h"
141
142
143 LOCAL VOID Init_Request( REQUEST *Req );
144
145 LOCAL BOOLEAN Parse_Error( CONN_ID Idx, CHAR *Error );
146
147 LOCAL BOOLEAN Validate_Prefix( REQUEST *Req );
148 LOCAL BOOLEAN Validate_Command( REQUEST *Req );
149 LOCAL BOOLEAN Validate_Args( REQUEST *Req );
150
151 LOCAL BOOLEAN Handle_Request( CONN_ID Idx, REQUEST *Req );
152
153
154 GLOBAL BOOLEAN Parse_Request( CONN_ID Idx, CHAR *Request )
155 {
156         /* Client-Request parsen. Bei einem schwerwiegenden Fehler wird
157          * die Verbindung geschlossen und FALSE geliefert.
158          * Der Aufbau gueltiger Requests ist in RFC 2812, 2.3 definiert. */
159
160         REQUEST req;
161         CHAR *start, *ptr;
162
163         assert( Idx >= 0 );
164         assert( Request != NULL );
165
166 #ifdef SNIFFER
167         if( NGIRCd_Sniffer ) Log( LOG_DEBUG, " <- connection %d: '%s'.", Idx, Request );
168 #endif
169         
170         Init_Request( &req );
171
172         /* Fuehrendes und folgendes "Geraffel" verwerfen */
173         ngt_TrimStr( Request );
174
175         /* gibt es ein Prefix? */
176         if( Request[0] == ':' )
177         {
178                 /* Prefix vorhanden */
179                 req.prefix = Request + 1;
180                 ptr = strchr( Request, ' ' );
181                 if( ! ptr ) return Parse_Error( Idx, "Prefix without command!?" );
182                 *ptr = '\0';
183 #ifndef STRICT_RFC
184                 /* multiple Leerzeichen als Trenner zwischen
185                  * Prefix und Befehl ignorieren */
186                 while( *(ptr + 1) == ' ' ) ptr++;
187 #endif
188                 start = ptr + 1;
189         }
190         else start = Request;
191
192         if( ! Validate_Prefix( &req )) return Parse_Error( Idx, "Invalid prefix");
193
194         /* Befehl */
195         ptr = strchr( start, ' ' );
196         if( ptr )
197         {
198                 *ptr = '\0';
199 #ifndef STRICT_RFC
200                 /* multiple Leerzeichen als Trenner vor
201                 *Parametertrennern ignorieren */
202                 while( *(ptr + 1) == ' ' ) ptr++;
203 #endif
204         }
205         req.command = start;
206
207         if( ! Validate_Command( &req )) return Parse_Error( Idx, "Invalid command" );
208
209         /* Argumente, Parameter */
210         if( ptr )
211         {
212                 /* Prinzipiell gibt es welche :-) */
213                 start = ptr + 1;
214                 while( start )
215                 {
216                         /* Parameter-String "zerlegen" */
217                         if( start[0] == ':' )
218                         {
219                                 req.argv[req.argc] = start + 1;
220                                 ptr = NULL;
221                         }
222                         else
223                         {
224                                 req.argv[req.argc] = start;
225                                 ptr = strchr( start, ' ' );
226                                 if( ptr )
227                                 {
228                                         *ptr = '\0';
229 #ifndef STRICT_RFC
230                                         /* multiple Leerzeichen als
231                                          * Parametertrenner ignorieren */
232                                         while( *(ptr + 1) == ' ' ) ptr++;
233 #endif
234                                 }
235                         }
236                         
237                         req.argc++;
238
239                         if( start[0] == ':' ) break;
240                         if( req.argc > 14 ) break;
241                         
242                         if( ptr ) start = ptr + 1;
243                         else start = NULL;
244                 }
245         }
246         
247         if( ! Validate_Args( &req )) return Parse_Error( Idx, "Invalid argument(s)" );
248
249         return Handle_Request( Idx, &req );
250 } /* Parse_Request */
251
252
253 LOCAL VOID Init_Request( REQUEST *Req )
254 {
255         /* Neue Request-Struktur initialisieren */
256
257         INT i;
258         
259         assert( Req != NULL );
260
261         Req->prefix = NULL;
262         Req->command = NULL;
263         for( i = 0; i < 15; Req->argv[i++] = NULL );
264         Req->argc = 0;
265 } /* Init_Request */
266
267
268 LOCAL BOOLEAN Parse_Error( CONN_ID Idx, CHAR *Error )
269 {
270         /* Fehler beim Parsen. Fehlermeldung an den Client schicken.
271          * TRUE: Connection wurde durch diese Funktion nicht geschlossen,
272          * FALSE: Connection wurde terminiert. */
273         
274         assert( Idx >= 0 );
275         assert( Error != NULL );
276
277         Log( LOG_DEBUG, "Connection %d: Parse error: %s", Idx, Error );
278         return Conn_WriteStr( Idx, "ERROR :Parse error: %s", Error );
279 } /* Parse_Error */
280
281
282 LOCAL BOOLEAN Validate_Prefix( REQUEST *Req )
283 {
284         assert( Req != NULL );
285         return TRUE;
286 } /* Validate_Prefix */
287
288
289 LOCAL BOOLEAN Validate_Command( REQUEST *Req )
290 {
291         assert( Req != NULL );
292         return TRUE;
293 } /* Validate_Comman */
294
295
296 LOCAL BOOLEAN Validate_Args( REQUEST *Req )
297 {
298         assert( Req != NULL );
299         return TRUE;
300 } /* Validate_Args */
301
302
303 LOCAL BOOLEAN Handle_Request( CONN_ID Idx, REQUEST *Req )
304 {
305         /* Client-Request verarbeiten. Bei einem schwerwiegenden Fehler
306          * wird die Verbindung geschlossen und FALSE geliefert. */
307
308         CLIENT *client, *target, *prefix;
309         CHAR str[LINE_LEN];
310         INT i;
311
312         assert( Idx >= 0 );
313         assert( Req != NULL );
314         assert( Req->command != NULL );
315
316         client = Client_GetFromConn( Idx );
317         assert( client != NULL );
318
319         /* Statuscode, der geforwarded werden muss? */
320         if(( strlen( Req->command ) == 3 ) && ( atoi( Req->command ) > 100 ))
321         {
322                 /* Befehl ist ein Statuscode */
323
324                 /* Zielserver ermitteln */
325                 if(( Client_Type( client ) == CLIENT_SERVER ) && ( Req->argc > 0 )) target = Client_GetFromID( Req->argv[0] );
326                 else target = NULL;
327                 if( ! target )
328                 {
329                         if( Req->argc > 0 ) Log( LOG_WARNING, "Unknown target for status code: \"%s\"", Req->argv[0] );
330                         else Log( LOG_WARNING, "Unknown target for status code!" );
331                         return TRUE;
332                 }
333                 if( target == Client_ThisServer( ))
334                 {
335                         Log( LOG_DEBUG, "Ignored status code %s from \"%s\".", Req->command, Client_ID( client ));
336                         return TRUE;
337                 }
338
339                 /* Quell-Client ermitteln */
340                 if( ! Req->prefix[0] )
341                 {
342                         Log( LOG_WARNING, "Got status code without prefix!?" );
343                         return TRUE;
344                 }
345                 else prefix = Client_GetFromID( Req->prefix );
346                 if( ! prefix )
347                 {
348                         Log( LOG_WARNING, "Got status code from unknown source: \"%s\"", Req->prefix );
349                         return TRUE;
350                 }
351
352                 /* Statuscode weiterleiten */
353                 strcpy( str, Req->command );
354                 for( i = 0; i < Req->argc; i++ )
355                 {
356                         if( i < Req->argc - 1 ) strcat( str, " " );
357                         else strcat( str, " :" );
358                         strcat( str, Req->argv[i] );
359                 }
360                 return IRC_WriteStrClientPrefix( target, prefix, str );
361         }
362
363         if( strcasecmp( Req->command, "PASS" ) == 0 ) return IRC_PASS( client, Req );
364         else if( strcasecmp( Req->command, "NICK" ) == 0 ) return IRC_NICK( client, Req );
365         else if( strcasecmp( Req->command, "USER" ) == 0 ) return IRC_USER( client, Req );
366         else if( strcasecmp( Req->command, "SERVER" ) == 0 ) return IRC_SERVER( client, Req );
367         else if( strcasecmp( Req->command, "NJOIN" ) == 0 ) return IRC_NJOIN( client, Req );
368         else if( strcasecmp( Req->command, "QUIT" ) == 0 ) return IRC_QUIT( client, Req );
369         else if( strcasecmp( Req->command, "SQUIT" ) == 0 ) return IRC_SQUIT( client, Req );
370         else if( strcasecmp( Req->command, "PING" ) == 0 ) return IRC_PING( client, Req );
371         else if( strcasecmp( Req->command, "PONG" ) == 0 ) return IRC_PONG( client, Req );
372         else if( strcasecmp( Req->command, "MOTD" ) == 0 ) return IRC_MOTD( client, Req );
373         else if( strcasecmp( Req->command, "PRIVMSG" ) == 0 ) return IRC_PRIVMSG( client, Req );
374         else if( strcasecmp( Req->command, "NOTICE" ) == 0 ) return IRC_NOTICE( client, Req );
375         else if( strcasecmp( Req->command, "MODE" ) == 0 ) return IRC_MODE( client, Req );
376         else if( strcasecmp( Req->command, "NAMES" ) == 0 ) return IRC_NAMES( client, Req );
377         else if( strcasecmp( Req->command, "ISON" ) == 0 ) return IRC_ISON( client, Req );
378         else if( strcasecmp( Req->command, "WHOIS" ) == 0 ) return IRC_WHOIS( client, Req );
379         else if( strcasecmp( Req->command, "USERHOST" ) == 0 ) return IRC_USERHOST( client, Req );
380         else if( strcasecmp( Req->command, "OPER" ) == 0 ) return IRC_OPER( client, Req );
381         else if( strcasecmp( Req->command, "DIE" ) == 0 ) return IRC_DIE( client, Req );
382         else if( strcasecmp( Req->command, "RESTART" ) == 0 ) return IRC_RESTART( client, Req );
383         else if( strcasecmp( Req->command, "ERROR" ) == 0 ) return IRC_ERROR( client, Req );
384         else if( strcasecmp( Req->command, "LUSERS" ) == 0 ) return IRC_LUSERS( client, Req );
385         else if( strcasecmp( Req->command, "LINKS" ) == 0 ) return IRC_LINKS( client, Req );
386         else if( strcasecmp( Req->command, "JOIN" ) == 0 ) return IRC_JOIN( client, Req );
387         else if( strcasecmp( Req->command, "PART" ) == 0 ) return IRC_PART( client, Req );
388         else if( strcasecmp( Req->command, "VERSION" ) == 0 ) return IRC_VERSION( client, Req );
389         else if( strcasecmp( Req->command, "KILL" ) == 0 ) return IRC_KILL( client, Req );
390         else if( strcasecmp( Req->command, "AWAY" ) == 0 ) return IRC_AWAY( client, Req );
391         else if( strcasecmp( Req->command, "TOPIC" ) == 0 ) return IRC_TOPIC( client, Req );
392         else if( strcasecmp( Req->command, "WHO" ) == 0 ) return IRC_WHO( client, Req );
393         
394         /* Unbekannter Befehl */
395         if( Client_Type( client ) != CLIENT_SERVER ) IRC_WriteStrClient( client, ERR_UNKNOWNCOMMAND_MSG, Client_ID( client ), Req->command );
396         Log( LOG_DEBUG, "Connection %d: Unknown command \"%s\", %d %s,%s prefix.", Client_Conn( client ), Req->command, Req->argc, Req->argc == 1 ? "parameter" : "parameters", Req->prefix ? "" : " no" );
397
398         return TRUE;
399 } /* Handle_Request */
400
401
402 /* -eof- */