Blame


1 2ee05c9a 2002-03-03 alex /*
2 2ee05c9a 2002-03-03 alex * ngIRCd -- The Next Generation IRC Daemon
3 2ee05c9a 2002-03-03 alex * Copyright (c)2001,2002 by Alexander Barton (alex@barton.de)
4 2ee05c9a 2002-03-03 alex *
5 490f28ff 2002-12-12 alex * This program is free software; you can redistribute it and/or modify
6 490f28ff 2002-12-12 alex * it under the terms of the GNU General Public License as published by
7 490f28ff 2002-12-12 alex * the Free Software Foundation; either version 2 of the License, or
8 490f28ff 2002-12-12 alex * (at your option) any later version.
9 490f28ff 2002-12-12 alex * Please read the file COPYING, README and AUTHORS for more information.
10 2ee05c9a 2002-03-03 alex *
11 490f28ff 2002-12-12 alex * IRC operator commands
12 2ee05c9a 2002-03-03 alex */
13 2ee05c9a 2002-03-03 alex
14 2ee05c9a 2002-03-03 alex
15 ca33cbda 2002-03-12 alex #include "portab.h"
16 2ee05c9a 2002-03-03 alex
17 4b9e52eb 2007-08-02 fw static char UNUSED id[] = "$Id: irc-oper.c,v 1.29 2007/08/02 10:14:26 fw Exp $";
18 490f28ff 2002-12-12 alex
19 ca33cbda 2002-03-12 alex #include "imp.h"
20 2ee05c9a 2002-03-03 alex #include <assert.h>
21 4e485443 2003-12-31 alex #include <stdlib.h>
22 7d4e9a01 2002-04-04 alex #include <string.h>
23 2ee05c9a 2002-03-03 alex
24 2ee05c9a 2002-03-03 alex #include "ngircd.h"
25 c2f60abe 2002-05-27 alex #include "resolve.h"
26 3e8978d8 2006-07-23 alex #include "conn-func.h"
27 a2544e49 2003-12-30 alex #include "conf.h"
28 c2f60abe 2002-05-27 alex #include "client.h"
29 c2f60abe 2002-05-27 alex #include "channel.h"
30 2ee05c9a 2002-03-03 alex #include "irc-write.h"
31 2ee05c9a 2002-03-03 alex #include "log.h"
32 e7f87828 2005-03-03 alex #include "match.h"
33 2ee05c9a 2002-03-03 alex #include "messages.h"
34 c2f60abe 2002-05-27 alex #include "parse.h"
35 2ee05c9a 2002-03-03 alex
36 2ee05c9a 2002-03-03 alex #include <exp.h>
37 2ee05c9a 2002-03-03 alex #include "irc-oper.h"
38 2ee05c9a 2002-03-03 alex
39 2ee05c9a 2002-03-03 alex
40 77f54693 2005-07-31 alex static bool
41 fcf65bee 2005-06-12 fw Bad_OperPass(CLIENT *Client, char *errtoken, char *errmsg)
42 74424cb1 2005-06-12 fw {
43 fcf65bee 2005-06-12 fw Log( LOG_WARNING, "Got invalid OPER from \"%s\": \"%s\" -- %s", Client_Mask( Client ),
44 fcf65bee 2005-06-12 fw errtoken, errmsg);
45 fcf65bee 2005-06-12 fw IRC_SetPenalty(Client, 3);
46 fcf65bee 2005-06-12 fw return IRC_WriteStrClient( Client, ERR_PASSWDMISMATCH_MSG, Client_ID( Client ));
47 74424cb1 2005-06-12 fw }
48 74424cb1 2005-06-12 fw
49 74424cb1 2005-06-12 fw
50 8adff592 2005-03-19 fw GLOBAL bool
51 c2f60abe 2002-05-27 alex IRC_OPER( CLIENT *Client, REQUEST *Req )
52 2ee05c9a 2002-03-03 alex {
53 70facb7f 2005-07-11 fw unsigned int i;
54 2ee05c9a 2002-03-03 alex
55 2ee05c9a 2002-03-03 alex assert( Client != NULL );
56 2ee05c9a 2002-03-03 alex assert( Req != NULL );
57 2ee05c9a 2002-03-03 alex
58 2ee05c9a 2002-03-03 alex /* Falsche Anzahl Parameter? */
59 2ee05c9a 2002-03-03 alex if( Req->argc != 2 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
60 2ee05c9a 2002-03-03 alex
61 2ee05c9a 2002-03-03 alex /* Operator suchen */
62 2ee05c9a 2002-03-03 alex for( i = 0; i < Conf_Oper_Count; i++)
63 2ee05c9a 2002-03-03 alex {
64 2ee05c9a 2002-03-03 alex if( Conf_Oper[i].name[0] && Conf_Oper[i].pwd[0] && ( strcmp( Conf_Oper[i].name, Req->argv[0] ) == 0 )) break;
65 2ee05c9a 2002-03-03 alex }
66 2ee05c9a 2002-03-03 alex if( i >= Conf_Oper_Count )
67 fcf65bee 2005-06-12 fw return Bad_OperPass(Client, Req->argv[0], "not configured");
68 2ee05c9a 2002-03-03 alex
69 2ee05c9a 2002-03-03 alex /* Stimmt das Passwort? */
70 2ee05c9a 2002-03-03 alex if( strcmp( Conf_Oper[i].pwd, Req->argv[1] ) != 0 )
71 fcf65bee 2005-06-12 fw return Bad_OperPass(Client, Conf_Oper[i].name, "Bad password");
72 2ee05c9a 2002-03-03 alex
73 490c9d04 2005-03-02 alex /* Authorized Mask? */
74 74424cb1 2005-06-12 fw if( Conf_Oper[i].mask && (! Match( Conf_Oper[i].mask, Client_Mask( Client ) )))
75 fcf65bee 2005-06-12 fw return Bad_OperPass(Client, Conf_Oper[i].mask, "hostmask check failed" );
76 490c9d04 2005-03-02 alex
77 2ee05c9a 2002-03-03 alex if( ! Client_HasMode( Client, 'o' ))
78 2ee05c9a 2002-03-03 alex {
79 2ee05c9a 2002-03-03 alex /* noch kein o-Mode gesetzt */
80 2ee05c9a 2002-03-03 alex Client_ModeAdd( Client, 'o' );
81 2ee05c9a 2002-03-03 alex if( ! IRC_WriteStrClient( Client, "MODE %s :+o", Client_ID( Client ))) return DISCONNECTED;
82 2ee05c9a 2002-03-03 alex IRC_WriteStrServersPrefix( NULL, Client, "MODE %s :+o", Client_ID( Client ));
83 2ee05c9a 2002-03-03 alex }
84 2ee05c9a 2002-03-03 alex
85 6b58ab84 2002-03-27 alex if( ! Client_OperByMe( Client )) Log( LOG_NOTICE|LOG_snotice, "Got valid OPER from \"%s\", user is an IRC operator now.", Client_Mask( Client ));
86 2ee05c9a 2002-03-03 alex
87 8adff592 2005-03-19 fw Client_SetOperByMe( Client, true);
88 2ee05c9a 2002-03-03 alex return IRC_WriteStrClient( Client, RPL_YOUREOPER_MSG, Client_ID( Client ));
89 2ee05c9a 2002-03-03 alex } /* IRC_OPER */
90 2ee05c9a 2002-03-03 alex
91 2ee05c9a 2002-03-03 alex
92 8adff592 2005-03-19 fw GLOBAL bool
93 3e8978d8 2006-07-23 alex IRC_DIE(CLIENT * Client, REQUEST * Req)
94 2ee05c9a 2002-03-03 alex {
95 4e485443 2003-12-31 alex /* Shut down server */
96 4e485443 2003-12-31 alex
97 3e8978d8 2006-07-23 alex CONN_ID c;
98 3e8978d8 2006-07-23 alex CLIENT *cl;
99 2ee05c9a 2002-03-03 alex
100 3e8978d8 2006-07-23 alex assert(Client != NULL);
101 3e8978d8 2006-07-23 alex assert(Req != NULL);
102 3e8978d8 2006-07-23 alex
103 4e485443 2003-12-31 alex /* Not a local IRC operator? */
104 3e8978d8 2006-07-23 alex if ((!Client_HasMode(Client, 'o')) || (!Client_OperByMe(Client)))
105 3e8978d8 2006-07-23 alex return IRC_WriteStrClient(Client, ERR_NOPRIVILEGES_MSG,
106 3e8978d8 2006-07-23 alex Client_ID(Client));
107 3e8978d8 2006-07-23 alex
108 4e485443 2003-12-31 alex /* Bad number of parameters? */
109 3e8978d8 2006-07-23 alex #ifdef STRICT_RFC
110 3e8978d8 2006-07-23 alex if (Req->argc != 0)
111 3e8978d8 2006-07-23 alex #else
112 3e8978d8 2006-07-23 alex if (Req->argc > 1)
113 3e8978d8 2006-07-23 alex #endif
114 3e8978d8 2006-07-23 alex return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
115 3e8978d8 2006-07-23 alex Client_ID(Client), Req->command);
116 2ee05c9a 2002-03-03 alex
117 3e8978d8 2006-07-23 alex /* Is a message given? */
118 3e8978d8 2006-07-23 alex if (Req->argc > 0) {
119 3e8978d8 2006-07-23 alex c = Conn_First();
120 3e8978d8 2006-07-23 alex while (c != NONE) {
121 3e8978d8 2006-07-23 alex cl = Conn_GetClient(c);
122 3e8978d8 2006-07-23 alex if (Client_Type(cl) == CLIENT_USER)
123 3e8978d8 2006-07-23 alex IRC_WriteStrClient(cl, "NOTICE %s :%s",
124 3e8978d8 2006-07-23 alex Client_ID(cl), Req->argv[0]);
125 3e8978d8 2006-07-23 alex c = Conn_Next(c);
126 3e8978d8 2006-07-23 alex }
127 3e8978d8 2006-07-23 alex }
128 3e8978d8 2006-07-23 alex
129 3e8978d8 2006-07-23 alex Log(LOG_NOTICE | LOG_snotice, "Got DIE command from \"%s\" ...",
130 3e8978d8 2006-07-23 alex Client_Mask(Client));
131 8adff592 2005-03-19 fw NGIRCd_SignalQuit = true;
132 3e8978d8 2006-07-23 alex
133 2ee05c9a 2002-03-03 alex return CONNECTED;
134 2ee05c9a 2002-03-03 alex } /* IRC_DIE */
135 2ee05c9a 2002-03-03 alex
136 2ee05c9a 2002-03-03 alex
137 8adff592 2005-03-19 fw GLOBAL bool
138 4eb57b59 2002-11-22 alex IRC_REHASH( CLIENT *Client, REQUEST *Req )
139 a5c92290 2002-11-22 alex {
140 4e485443 2003-12-31 alex /* Reload configuration file */
141 4e485443 2003-12-31 alex
142 a5c92290 2002-11-22 alex assert( Client != NULL );
143 a5c92290 2002-11-22 alex assert( Req != NULL );
144 a5c92290 2002-11-22 alex
145 4e485443 2003-12-31 alex /* Not a local IRC operator? */
146 a5c92290 2002-11-22 alex if(( ! Client_HasMode( Client, 'o' )) || ( ! Client_OperByMe( Client ))) return IRC_WriteStrClient( Client, ERR_NOPRIVILEGES_MSG, Client_ID( Client ));
147 a5c92290 2002-11-22 alex
148 4e485443 2003-12-31 alex /* Bad number of parameters? */
149 4e485443 2003-12-31 alex if( Req->argc != 0 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
150 4e485443 2003-12-31 alex
151 15e4f674 2002-12-27 alex Log( LOG_NOTICE|LOG_snotice, "Got REHASH command from \"%s\" ...", Client_Mask( Client ));
152 8adff592 2005-03-19 fw NGIRCd_SignalRehash = true;
153 a5c92290 2002-11-22 alex
154 a5c92290 2002-11-22 alex return CONNECTED;
155 4eb57b59 2002-11-22 alex } /* IRC_REHASH */
156 a5c92290 2002-11-22 alex
157 a5c92290 2002-11-22 alex
158 8adff592 2005-03-19 fw GLOBAL bool
159 c2f60abe 2002-05-27 alex IRC_RESTART( CLIENT *Client, REQUEST *Req )
160 2ee05c9a 2002-03-03 alex {
161 4e485443 2003-12-31 alex /* Restart IRC server (fork a new process) */
162 4e485443 2003-12-31 alex
163 2ee05c9a 2002-03-03 alex assert( Client != NULL );
164 2ee05c9a 2002-03-03 alex assert( Req != NULL );
165 2ee05c9a 2002-03-03 alex
166 4e485443 2003-12-31 alex /* Not a local IRC operator? */
167 2ee05c9a 2002-03-03 alex if(( ! Client_HasMode( Client, 'o' )) || ( ! Client_OperByMe( Client ))) return IRC_WriteStrClient( Client, ERR_NOPRIVILEGES_MSG, Client_ID( Client ));
168 2ee05c9a 2002-03-03 alex
169 4e485443 2003-12-31 alex /* Bad number of parameters? */
170 4e485443 2003-12-31 alex if( Req->argc != 0 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
171 4e485443 2003-12-31 alex
172 15e4f674 2002-12-27 alex Log( LOG_NOTICE|LOG_snotice, "Got RESTART command from \"%s\" ...", Client_Mask( Client ));
173 8adff592 2005-03-19 fw NGIRCd_SignalRestart = true;
174 2ee05c9a 2002-03-03 alex return CONNECTED;
175 2ee05c9a 2002-03-03 alex } /* IRC_RESTART */
176 2ee05c9a 2002-03-03 alex
177 2ee05c9a 2002-03-03 alex
178 dd3a3bc6 2006-05-10 alex /**
179 dd3a3bc6 2006-05-10 alex * Connect configured or new server.
180 dd3a3bc6 2006-05-10 alex */
181 8adff592 2005-03-19 fw GLOBAL bool
182 dd3a3bc6 2006-05-10 alex IRC_CONNECT(CLIENT * Client, REQUEST * Req)
183 1256f347 2002-09-03 alex {
184 1256f347 2002-09-03 alex
185 dd3a3bc6 2006-05-10 alex assert(Client != NULL);
186 dd3a3bc6 2006-05-10 alex assert(Req != NULL);
187 1256f347 2002-09-03 alex
188 4e485443 2003-12-31 alex /* Not a local IRC operator? */
189 dd3a3bc6 2006-05-10 alex if ((!Client_HasMode(Client, 'o')) || (!Client_OperByMe(Client)))
190 dd3a3bc6 2006-05-10 alex return IRC_WriteStrClient(Client, ERR_NOPRIVILEGES_MSG,
191 dd3a3bc6 2006-05-10 alex Client_ID(Client));
192 1256f347 2002-09-03 alex
193 4e485443 2003-12-31 alex /* Bad number of parameters? */
194 2275add3 2007-06-28 fw if ((Req->argc != 1) && (Req->argc != 2) && (Req->argc != 5))
195 dd3a3bc6 2006-05-10 alex return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
196 dd3a3bc6 2006-05-10 alex Client_ID(Client), Req->command);
197 4e485443 2003-12-31 alex
198 4e485443 2003-12-31 alex /* Invalid port number? */
199 2275add3 2007-06-28 fw if ((Req->argc > 1) && atoi(Req->argv[1]) < 1)
200 dd3a3bc6 2006-05-10 alex return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
201 dd3a3bc6 2006-05-10 alex Client_ID(Client), Req->command);
202 4e485443 2003-12-31 alex
203 dd3a3bc6 2006-05-10 alex Log(LOG_NOTICE | LOG_snotice,
204 dd3a3bc6 2006-05-10 alex "Got CONNECT command from \"%s\" for \"%s\".", Client_Mask(Client),
205 dd3a3bc6 2006-05-10 alex Req->argv[0]);
206 4e485443 2003-12-31 alex
207 2275add3 2007-06-28 fw switch (Req->argc) {
208 2275add3 2007-06-28 fw case 1:
209 2275add3 2007-06-28 fw if (!Conf_EnablePassiveServer(Req->argv[0]))
210 2275add3 2007-06-28 fw return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
211 2275add3 2007-06-28 fw Client_ID(Client),
212 2275add3 2007-06-28 fw Req->argv[0]);
213 2275add3 2007-06-28 fw break;
214 2275add3 2007-06-28 fw case 2:
215 4e485443 2003-12-31 alex /* Connect configured server */
216 dd3a3bc6 2006-05-10 alex if (!Conf_EnableServer
217 dd3a3bc6 2006-05-10 alex (Req->argv[0], (UINT16) atoi(Req->argv[1])))
218 dd3a3bc6 2006-05-10 alex return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
219 dd3a3bc6 2006-05-10 alex Client_ID(Client),
220 dd3a3bc6 2006-05-10 alex Req->argv[0]);
221 2275add3 2007-06-28 fw break;
222 2275add3 2007-06-28 fw default:
223 4e485443 2003-12-31 alex /* Add server */
224 dd3a3bc6 2006-05-10 alex if (!Conf_AddServer
225 dd3a3bc6 2006-05-10 alex (Req->argv[0], (UINT16) atoi(Req->argv[1]), Req->argv[2],
226 dd3a3bc6 2006-05-10 alex Req->argv[3], Req->argv[4]))
227 dd3a3bc6 2006-05-10 alex return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
228 dd3a3bc6 2006-05-10 alex Client_ID(Client),
229 dd3a3bc6 2006-05-10 alex Req->argv[0]);
230 4e485443 2003-12-31 alex }
231 dd3a3bc6 2006-05-10 alex
232 1256f347 2002-09-03 alex return CONNECTED;
233 1256f347 2002-09-03 alex } /* IRC_CONNECT */
234 1256f347 2002-09-03 alex
235 1256f347 2002-09-03 alex
236 8adff592 2005-03-19 fw GLOBAL bool
237 4e485443 2003-12-31 alex IRC_DISCONNECT(CLIENT *Client, REQUEST *Req )
238 4e485443 2003-12-31 alex {
239 4e485443 2003-12-31 alex /* Disconnect and disable configured server */
240 4e485443 2003-12-31 alex
241 4e485443 2003-12-31 alex CONN_ID my_conn;
242 4e485443 2003-12-31 alex
243 4e485443 2003-12-31 alex assert( Client != NULL );
244 4e485443 2003-12-31 alex assert( Req != NULL );
245 4e485443 2003-12-31 alex
246 4e485443 2003-12-31 alex /* Not a local IRC operator? */
247 4e485443 2003-12-31 alex if(( ! Client_HasMode( Client, 'o' )) || ( ! Client_OperByMe( Client ))) return IRC_WriteStrClient( Client, ERR_NOPRIVILEGES_MSG, Client_ID( Client ));
248 4e485443 2003-12-31 alex
249 4e485443 2003-12-31 alex /* Bad number of parameters? */
250 4e485443 2003-12-31 alex if( Req->argc != 1 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
251 4e485443 2003-12-31 alex
252 4e485443 2003-12-31 alex Log( LOG_NOTICE|LOG_snotice, "Got DISCONNECT command from \"%s\" for0 \"%s\".", Client_Mask( Client ), Req->argv[0]);
253 4e485443 2003-12-31 alex
254 4e485443 2003-12-31 alex /* Save ID of this connection */
255 4e485443 2003-12-31 alex my_conn = Client_Conn( Client );
256 4e485443 2003-12-31 alex
257 4e485443 2003-12-31 alex /* Connect configured server */
258 4e485443 2003-12-31 alex if( ! Conf_DisableServer( Req->argv[0] )) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
259 4e485443 2003-12-31 alex
260 4e485443 2003-12-31 alex /* Are we still connected or were we killed, too? */
261 87f4b1c6 2006-04-23 fw if( Conn_GetClient( my_conn )) return CONNECTED;
262 4e485443 2003-12-31 alex else return DISCONNECTED;
263 4e485443 2003-12-31 alex } /* IRC_CONNECT */
264 4b9e52eb 2007-08-02 fw
265 4b9e52eb 2007-08-02 fw
266 4b9e52eb 2007-08-02 fw GLOBAL bool
267 4b9e52eb 2007-08-02 fw IRC_WALLOPS( CLIENT *Client, REQUEST *Req )
268 4b9e52eb 2007-08-02 fw {
269 4b9e52eb 2007-08-02 fw CLIENT *to, *from;
270 4b9e52eb 2007-08-02 fw int client_type;
271 4b9e52eb 2007-08-02 fw
272 4b9e52eb 2007-08-02 fw assert( Client != NULL );
273 4b9e52eb 2007-08-02 fw assert( Req != NULL );
274 4b9e52eb 2007-08-02 fw
275 4b9e52eb 2007-08-02 fw if (Req->argc != 1)
276 4b9e52eb 2007-08-02 fw return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG, Client_ID(Client), Req->command);
277 4b9e52eb 2007-08-02 fw
278 4b9e52eb 2007-08-02 fw client_type = Client_Type(Client);
279 4b9e52eb 2007-08-02 fw switch (client_type) {
280 4b9e52eb 2007-08-02 fw case CLIENT_USER:
281 4b9e52eb 2007-08-02 fw if (!Client_OperByMe(Client))
282 4b9e52eb 2007-08-02 fw return IRC_WriteStrClient(Client, ERR_NOPRIVILEGES_MSG, Client_ID(Client));
283 4b9e52eb 2007-08-02 fw from = Client;
284 4b9e52eb 2007-08-02 fw break;
285 4b9e52eb 2007-08-02 fw case CLIENT_SERVER:
286 4b9e52eb 2007-08-02 fw from = Client_Search(Req->prefix);
287 4b9e52eb 2007-08-02 fw break;
288 4b9e52eb 2007-08-02 fw default:
289 4b9e52eb 2007-08-02 fw return CONNECTED;
290 4b9e52eb 2007-08-02 fw }
291 4e485443 2003-12-31 alex
292 4b9e52eb 2007-08-02 fw if (!from)
293 4b9e52eb 2007-08-02 fw return IRC_WriteStrClient(Client, ERR_NOSUCHNICK_MSG, Client_ID(Client), Req->prefix);
294 4e485443 2003-12-31 alex
295 4b9e52eb 2007-08-02 fw for (to=Client_First(); to != NULL; to=Client_Next(to)) {
296 4b9e52eb 2007-08-02 fw if (Client_Conn(to) < 0) /* no local connection or WALLOPS origin */
297 4b9e52eb 2007-08-02 fw continue;
298 4b9e52eb 2007-08-02 fw
299 4b9e52eb 2007-08-02 fw client_type = Client_Type(to);
300 4b9e52eb 2007-08-02 fw switch (client_type) {
301 4b9e52eb 2007-08-02 fw case CLIENT_USER:
302 4b9e52eb 2007-08-02 fw if (Client_HasMode(to, 'w'))
303 4b9e52eb 2007-08-02 fw IRC_WriteStrClientPrefix(to, from, "WALLOPS :%s", Req->argv[0]);
304 4b9e52eb 2007-08-02 fw break;
305 4b9e52eb 2007-08-02 fw case CLIENT_SERVER:
306 4b9e52eb 2007-08-02 fw if (to != Client)
307 4b9e52eb 2007-08-02 fw IRC_WriteStrClientPrefix(to, from, "WALLOPS :%s", Req->argv[0]);
308 4b9e52eb 2007-08-02 fw break;
309 4b9e52eb 2007-08-02 fw }
310 4b9e52eb 2007-08-02 fw }
311 4b9e52eb 2007-08-02 fw return CONNECTED;
312 4b9e52eb 2007-08-02 fw }
313 4b9e52eb 2007-08-02 fw
314 4b9e52eb 2007-08-02 fw
315 4b9e52eb 2007-08-02 fw
316 2ee05c9a 2002-03-03 alex /* -eof- */