Add ZANNELS feature; tweak recreate after bogus DESTRUCT.
[ircu2.10.12-pk.git] / ircd / convert-conf.c
1 /* convert-conf.c - Convert ircu2.10.11 ircd.conf to ircu2.10.12 format.
2  * Copyright 2005 Michael Poole
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License as
6  * published by the Free Software Foundation; either version 2 of the
7  * License, or (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
17  * USA.
18  */
19
20 #include <ctype.h> /* tolower(), toupper(), isdigit() */
21 #include <stdio.h> /* *printf(), fgets() */
22 #include <stdlib.h> /* free(), strtol() */
23 #include <string.h> /* strlen(), memcpy(), strchr(), strspn() */
24
25 #define MAX_FIELDS 5
26
27 const char *admin_names[] = { "location", "contact", "contact", 0 },
28     *connect_names[] = { "host", "password", "name", "#port", "class", 0 },
29     *crule_names[] = { "server", "",  "rule", 0 },
30     *general_names[] = { "name", "vhost", "description", "", "#numeric", 0 },
31     *motd_names[] = { "host", "file", 0 },
32     *class_names[] = { "name", "#pingfreq", "#connectfreq", "#maxlinks", "#sendq", 0 },
33     *removed_features[] = { "VIRTUAL_HOST", "OPERS_SEE_IN_SECRET_CHANNELS", "LOCOP_SEE_IN_SECRET_CHANNELS", 0 };
34 char orig_line[512], line[512], dbuf[512];
35 char *fields[MAX_FIELDS + 1];
36 unsigned int nfields;
37 unsigned int lineno;
38
39 /*** GENERIC SUPPORT CODE ***/
40
41 static int split_line(char *input, char **output)
42 {
43     size_t quoted = 0, jj;
44     char *dest = dbuf, ch;
45
46     nfields = 1;
47     output[0] = dest;
48     while (*input != '\0' && *input != '#') switch (ch = *input++) {
49     case ':':
50         if (quoted)
51             *dest++ = ch;
52         else {
53             *dest++ = '\0';
54             if (nfields >= MAX_FIELDS)
55                 return nfields;
56             output[nfields++] = dest;
57         }
58         break;
59     case '\\':
60         switch (ch = *input++) {
61         case 'b': *dest++ = '\b'; break;
62         case 'f': *dest++ = '\f'; break;
63         case 'n': *dest++ = '\n'; break;
64         case 'r': *dest++ = '\r'; break;
65         case 't': *dest++ = '\t'; break;
66         case 'v': *dest++ = '\v'; break;
67         default: *dest++ = ch; break;
68         }
69         break;
70     case '"': quoted = !quoted; break;
71     default: *dest++ = ch;  break;
72     }
73
74     *dest = '\0';
75     for (jj = nfields; jj < MAX_FIELDS; ++jj)
76         output[jj] = dest;
77     return nfields;
78 }
79
80 static void simple_line(const char *block, const char **names, const char *extra)
81 {
82     size_t ii;
83
84     /* Print the current line and start the new block. */
85     fprintf(stdout, "# %s\n%s {\n", orig_line, block);
86
87     /* Iterate over fields in input line, formatting each. */
88     for (ii = 0; ii < nfields && names[ii]; ++ii) {
89         if (!fields[ii][0] || !names[ii][0])
90             continue;
91         else if (names[ii][0] == '#')
92             fprintf(stdout, "\t%s = %s;\n", names[ii] + 1, fields[ii]);
93         else
94             fprintf(stdout, "\t%s = \"%s\";\n", names[ii], fields[ii]);
95     }
96
97     /* Close the new block (including any fixed-form text). */
98     if (extra)
99         fprintf(stdout, "\t%s\n", extra);
100     fputs("};\n", stdout);
101 }
102
103 #define dupstring(TARGET, SOURCE) do { free(TARGET); if (SOURCE) { size_t len = strlen(SOURCE); (TARGET) = malloc(len+1); memcpy((TARGET), (SOURCE), len); } else (TARGET) = 0; } while(0)
104
105 /*** MANAGING LISTS OF STRINGS ***/
106
107 struct string_list {
108     struct string_list *next;
109     char *origin;
110     char *extra;
111     char value[1];
112 };
113
114 static struct string_list *string_get(struct string_list **list, const char *value)
115 {
116     struct string_list *curr;
117     size_t len = strlen(value), ii;
118
119     while ((curr = *list)) {
120         for (ii = 0; tolower(curr->value[ii]) == tolower(value[ii]) && ii < len; ++ii) ;
121         if (curr->value[ii] == '\0' && value[ii] == '\0')
122             return curr;
123         list = &curr->next;
124     }
125
126     *list = calloc(1, sizeof(**list) + len);
127     memcpy((*list)->value, value, len);
128     return *list;
129 }
130
131 /*** SERVER CONNECTION RELATED CODE ***/
132
133 struct connect {
134     char *host;
135     char *password;
136     char *port;
137     char *class;
138     char *hub;
139     char *maximum;
140     struct connect *next;
141     struct string_list *origins;
142     char name[1];
143 } *connects;
144
145 static struct connect *get_connect(const char *name)
146 {
147     struct connect *conn;
148     size_t ii, nlen;
149
150     /* Look for a pre-existing connection with the same name. */
151     nlen = strlen(name);
152     for (conn = connects; conn; conn = conn->next)
153     {
154         for (ii = 0; tolower(name[ii]) == conn->name[ii] && ii < nlen; ++ii) ;
155         if (conn->name[ii] == '\0' && name[ii] == '\0')
156             break;
157     }
158
159     /* If none was found, create a new one. */
160     if (!conn)
161     {
162         conn = calloc(1, sizeof(*conn) + nlen);
163         for (ii = 0; ii < nlen; ++ii)
164             conn->name[ii] = tolower(name[ii]);
165         conn->next = connects;
166         connects = conn;
167     }
168
169     /* Return the connection. */
170     return conn;
171 }
172
173 static void do_connect(void)
174 {
175     struct connect *conn = get_connect(fields[2]);
176     dupstring(conn->host, fields[0]);
177     dupstring(conn->password, fields[1]);
178     dupstring(conn->port, fields[3]);
179     dupstring(conn->class, fields[4]);
180     string_get(&conn->origins, orig_line);
181 }
182
183 static void do_hub(void)
184 {
185     struct connect *conn = get_connect(fields[2]);
186     dupstring(conn->hub, fields[0]);
187     dupstring(conn->maximum, fields[3]);
188     string_get(&conn->origins, orig_line);
189 }
190
191 static void do_leaf(void)
192 {
193     struct connect *conn = get_connect(fields[2]);
194     free(conn->hub);
195     conn->hub = 0;
196     string_get(&conn->origins, orig_line);
197 }
198
199 static void finish_connects(void)
200 {
201     struct connect *conn;
202     struct string_list *sl;
203
204     for (conn = connects; conn; conn = conn->next)
205     {
206         for (sl = conn->origins; sl; sl = sl->next)
207             fprintf(stdout, "# %s\n", sl->value);
208         fprintf(stdout,
209                 "Connect {\n\tname =\"%s\";\n\thost = \"%s\";\n"
210                 "\tpassword = \"%s\";\n\tclass = \"%s\";\n",
211                 conn->name, conn->host, conn->password, conn->class);
212         if (conn->port && conn->port[0] != '\0')
213             fprintf(stdout, "\tport = %s;\n", conn->port);
214         else
215             fprintf(stdout,
216                     "# Every Connect block should have a port number.\n"
217                     "# To prevent autoconnects, set autoconnect = no.\n"
218                     "#\tport = 4400;\n"
219                     "\tautoconnect = no;\n");
220         if (conn->maximum && conn->maximum[0] != '\0')
221             fprintf(stdout, "\tmaxhops = %s;\n", conn->maximum);
222         if (conn->hub && conn->hub[0] != '\0')
223             fprintf(stdout, "\thub = \"%s\";\n", conn->hub);
224         fprintf(stdout, "};\n\n");
225
226     }
227 }
228
229 /*** FEATURE MANAGEMENT CODE ***/
230
231 struct feature {
232     struct string_list *values;
233     struct string_list *origins;
234     struct feature *next;
235     char name[1];
236 } *features;
237
238 struct remapped_feature {
239     const char *name;
240     const char *privilege;
241     int flags; /* 2 = global, 1 = local */
242     struct feature *feature;
243 } remapped_features[] = {
244     /* Specially handled privileges: If you change the index of
245      * anything with NULL privilege, change the code in
246      * finish_operators() to match!
247      */
248     { "CRYPT_OPER_PASSWORD", NULL, 0, 0 }, /* default: true */
249     { "OPER_KILL", NULL, 2, 0 }, /* default: true */
250     { "LOCAL_KILL_ONLY", NULL, 2, 0 }, /* default: false */
251     /* remapped features that affect all opers  */
252     { "OPER_NO_CHAN_LIMIT", "chan_limit", 3, 0 },
253     { "OPER_MODE_LCHAN", "mode_lchan", 3, 0 },
254     { "OPER_WALK_THROUGH_LMODES", "walk_lchan", 3, 0 },
255     { "NO_OPER_DEOP_LCHAN", "deop_lchan", 3, 0 },
256     { "SHOW_INVISIBLE_USERS", "show_invis", 3, 0 },
257     { "SHOW_ALL_INVISIBLE_USERS", "show_all_invis", 3, 0 },
258     { "UNLIMIT_OPER_QUERY", "unlimit_query", 3, 0 },
259     /* remapped features affecting only global opers */
260     { "OPER_REHASH", "rehash", 2, 0 },
261     { "OPER_RESTART", "restart", 2, 0 },
262     { "OPER_DIE", "die", 2, 0 },
263     { "OPER_GLINE", "gline", 2, 0 },
264     { "OPER_LGLINE", "local_gline", 2, 0 },
265     { "OPER_JUPE", "jupe", 2, 0 },
266     { "OPER_LJUPE", "local_jupe", 2, 0 },
267     { "OPER_OPMODE", "opmode", 2, 0 },
268     { "OPER_LOPMODE", "local_opmode", 2, 0 },
269     { "OPER_FORCE_OPMODE", "force_opmode", 2, 0 },
270     { "OPER_FORCE_LOPMODE", "force_local_opmode", 2, 0 },
271     { "OPER_BADCHAN", "badchan", 2, 0 },
272     { "OPER_LBADCHAN", "local_badchan", 2, 0 },
273     { "OPER_SET", "set", 2, 0 },
274     { "OPER_WIDE_GLINE", "wide_gline", 2, 0 },
275     /* remapped features affecting only local opers */
276     { "LOCOP_KILL", "kill", 1, 0 },
277     { "LOCOP_REHASH", "rehash", 1, 0 },
278     { "LOCOP_RESTART", "restart", 1, 0 },
279     { "LOCOP_DIE", "die", 1, 0 },
280     { "LOCOP_LGLINE", "local_gline", 1, 0 },
281     { "LOCOP_LJUPE", "local_jupe", 1, 0 },
282     { "LOCOP_LOPMODE", "local_opmode", 1, 0 },
283     { "LOCOP_FORCE_LOPMODE", "force_local_opmode", 1, 0 },
284     { "LOCOP_LBADCHAN", "local_badchan", 1, 0 },
285     { "LOCOP_WIDE_GLINE", "wide_gline", 1, 0 },
286     { 0, 0, 0, 0 }
287 };
288
289 static void do_feature(void)
290 {
291     struct feature *feat;
292     size_t ii;
293
294     ii = strlen(fields[0]);
295     feat = calloc(1, sizeof(*feat) + ii);
296     while (ii-- > 0)
297         feat->name[ii] = toupper(fields[0][ii]);
298     feat->next = features;
299     features = feat;
300     string_get(&feat->origins, orig_line);
301     for (ii = 1; fields[ii] && fields[ii][0]; ++ii)
302         string_get(&feat->values, fields[ii]);
303 }
304
305 static void finish_features(void)
306 {
307     struct remapped_feature *rmf;
308     struct string_list *sl;
309     struct feature *feat;
310     size_t ii;
311
312     fputs("Features {\n\t\"OPLEVELS\" = \"FALSE\";\n", stdout);
313     fputs("Features {\n\t\"ZANNELS\" = \"FALSE\";\n", stdout);
314
315     for (feat = features; feat; feat = feat->next) {
316         /* See if the feature was remapped to an oper privilege. */
317         for (rmf = remapped_features; rmf->name; rmf++)
318             if (0 == strcmp(feat->name, rmf->name))
319                 break;
320         if (rmf->name) {
321             rmf->feature = feat;
322             fprintf(stdout, "# Above feature mapped to an oper privilege.\n");
323             continue;
324         }
325
326         /* Was it removed? */
327         for (ii = 0; removed_features[ii]; ++ii)
328             if (0 == strcmp(feat->name, removed_features[ii]))
329                 break;
330         if (removed_features[ii]) {
331             fprintf(stdout, "# Above feature no longer exists.\n");
332             continue;
333         }
334
335         /* Wasn't remapped, wasn't removed: print it out. */
336         fprintf(stdout, "\t\"%s\" =", feat->name);
337         for (sl = feat->values; sl; sl = sl->next)
338             fprintf(stdout, " \"%s\"", sl->value);
339         fprintf(stdout, ";\n");
340     }
341     fputs("};\n\n", stdout);
342
343 }
344
345 /*** OPERATOR BLOCKS ***/
346
347 struct operator {
348     char *name;
349     char *host;
350     char *password;
351     char *class;
352     char *origin;
353     int is_local;
354     struct operator *next;
355 } *operators;
356
357 static void do_operator(int is_local)
358 {
359     struct operator *oper;
360
361     oper = calloc(1, sizeof(*oper));
362     dupstring(oper->host, fields[0]);
363     dupstring(oper->password, fields[1]);
364     dupstring(oper->name, fields[2]);
365     dupstring(oper->class, fields[4]);
366     dupstring(oper->origin, orig_line);
367     oper->is_local = is_local;
368     oper->next = operators;
369     operators = oper;
370 }
371
372 static void finish_operators(void)
373 {
374     struct remapped_feature *remap;
375     struct operator *oper;
376     struct feature *feat;
377     char *pw_salt = "";
378     int global_kill = 0, mask = 0;
379     size_t ii;
380
381     if ((feat = remapped_features[0].feature) && feat->values
382         && 0 == strcmp(feat->values->value, "FALSE"))
383         pw_salt = "$PLAIN$";
384
385     if ((feat = remapped_features[1].feature) && feat->values
386         && 0 == strcmp(feat->values->value, "FALSE"))
387         global_kill = 1;
388     else if ((feat = remapped_features[2].feature) && feat->values
389         && 0 == strcmp(feat->values->value, "FALSE"))
390         global_kill = 2;
391
392     for (oper = operators; oper; oper = oper->next) {
393         fprintf(stdout, "# %s\nOperator {\n\tname = \"%s\";\n"
394                 "\thost = \"%s\";\n\tpassword = \"%s%s\";\n"
395                 "\tclass = \"%s\";\n",
396                 oper->origin, oper->name, oper->host, pw_salt,
397                 oper->password, oper->class);
398         if (oper->is_local) {
399             fputs("\tlocal = yes;\n", stdout);
400             mask = 1;
401         } else {
402             fputs("\tlocal = no;\n", stdout);
403             if (global_kill == 1)
404                 fputs("\tkill = no;\n\tlocal_kill = no;\n", stdout);
405             else if (global_kill == 2)
406                 fputs("\tkill = no;\n\tlocal_kill = yes;\n", stdout);
407             mask = 2;
408         }
409         for (ii = 0; (remap = &remapped_features[ii++])->name; ) {
410             if (!remap->feature || !remap->privilege
411                 || !remap->feature->values || !remap->flags & mask)
412                 continue;
413             fprintf(stdout, "\t%s = %s;\n", remap->privilege,
414                     strcmp(remap->feature->values->value, "TRUE") ? "no" : "yes");
415         }
416         fputs("};\n\n", stdout);
417     }
418 }
419
420 /*** OTHER CONFIG TRANSFORMS ***/
421
422 static void do_kill(void)
423 {
424     const char *host = fields[0], *reason = fields[1], *user = fields[2];
425
426     if (!memcmp(host, "$R", 3)) {
427         fprintf(stderr, "Empty realname K: line at line %u.\n", lineno);
428         return;
429     }
430
431     /* Print the current line and start the new block. */
432     fprintf(stdout, "# %s\nKill {\n", orig_line);
433
434     /* Translate the user-matching portions. */
435     if (host[0] == '$' && host[1] == 'R') {
436         /* Realname kill, possibly with a username */
437         fprintf(stdout, "\trealname = \"%s\";\n", host + 2);
438         if (user[0] != '\0' && (user[0] != '*' || user[1] != '\0'))
439             fprintf(stdout, "\thost = \"%s@*\";\n", user);
440     } else {
441         /* Normal host or IP-based kill */
442         if (user[0] != '\0' && (user[0] != '*' || user[1] != '\0'))
443             fprintf(stdout, "\thost = \"%s@%s\";\n", user, host);
444         else
445             fprintf(stdout, "\thost = \"%s\";\n", host);
446     }
447
448     /* Translate the reason section. */
449     if (reason[0] == '!')
450         fprintf(stdout, "\tfile = \"%s\";\n", reason + 1);
451     else
452         fprintf(stdout, "\treason = \"%s\";\n", reason);
453
454     /* Close the block. */
455     fprintf(stdout, "};\n");
456 }
457
458 static void do_port(void)
459 {
460     const char *ipmask = fields[0], *iface = fields[1], *flags = fields[2], *port = fields[3];
461
462     /* Print the current line and start the new block. */
463     fprintf(stdout, "# %s\nPort {\n", orig_line);
464
465     /* Print the easy fields. */
466     fprintf(stdout, "\tport = %s;\n", port);
467     if (iface && iface[0] != '\0')
468         fprintf(stdout, "\tvhost = \"%s\";\n", iface);
469     if (ipmask && ipmask[0] != '\0')
470         fprintf(stdout, "\tmask = \"%s\";\n", ipmask);
471
472     /* Translate flag field. */
473     while (*flags) switch (*flags++) {
474     case 'C': case 'c': /* client port is default state */; break;
475     case 'S': case 's': fprintf(stdout, "\tserver = yes;\n"); break;
476     case 'H': case 'h': fprintf(stdout, "\thidden = yes;\n"); break;
477     }
478
479     /* Close the block. */
480     fprintf(stdout, "};\n");
481 }
482
483 struct string_list *quarantines;
484
485 static void do_quarantine(void)
486 {
487     struct string_list *q;
488     q = string_get(&quarantines, fields[0]);
489     dupstring(q->origin, orig_line);
490     dupstring(q->extra, fields[1]);
491 }
492
493 static void finish_quarantines(void)
494 {
495     struct string_list *sl;
496
497     if (quarantines)
498     {
499         fputs("Quarantine {\n", stdout);
500         for (sl = quarantines; sl; sl = sl->next)
501             fprintf(stdout, "# %s\n\t\"%s\" = \"%s\";\n", sl->origin, sl->value, sl->extra);
502         fputs("};\n\n", stdout);
503     }
504 }
505
506 static void do_uworld(void)
507 {
508     fprintf(stdout, "# %s\n", orig_line);
509     if (fields[0] && fields[0][0])
510         fprintf(stdout, "Uworld { name = \"%s\"; };\n", fields[0]);
511     if (fields[1] && fields[1][0])
512         fprintf(stdout, "Jupe { nick = \"%s\"; };\n", fields[1]);
513 }
514
515 static void emit_client(const char *mask, const char *passwd, const char *class, long maxlinks, int is_ip)
516 {
517     char *delim;
518     size_t len;
519
520     delim = strchr(mask, '@');
521     if (delim) {
522         *delim++ = '\0';
523         if (is_ip) {
524             len = strspn(delim, "0123456789.*");
525             if (delim[len]) {
526                 fprintf(stderr, "Invalid IP mask on line %u.\n", lineno);
527                 return;
528             }
529             fprintf(stdout, "Client {\n\tusername = \"%s\";\n\tip = \"%s\";\n", mask, delim);
530         } else {
531             fprintf(stdout, "Client {\n\tusername =\"%s\";\n\thost = \"%s\";\n", mask, delim);
532         }
533     } else if (is_ip) {
534         len = strspn(mask, "0123456789.*");
535         if (mask[len])
536             return;
537         fprintf(stdout, "Client {\n\tip = \"%s\";\n", mask);
538     } else {
539         if (!strchr(mask, '.') && !strchr(mask, '*'))
540             return;
541         fprintf(stdout, "Client {\n\thost = \"%s\";\n", mask);
542     }
543
544     if (passwd)
545         fprintf(stdout, "\tpassword = \"%s\";\n", passwd);
546
547     if (maxlinks >= 0)
548         fprintf(stdout, "\tmaxlinks = %ld;\n", maxlinks);
549
550     fprintf(stdout, "\tclass = \"%s\";\n};\n", class);
551 }
552
553 static void do_client(void)
554 {
555     char *passwd = NULL, *delim;
556     long maxlinks;
557
558     /* Print the current line. */
559     fprintf(stdout, "# %s\n", orig_line);
560
561     /* See if the password is really a maxlinks count. */
562     maxlinks = strtol(fields[1], &delim, 10);
563     if (fields[1][0] == '\0')
564         maxlinks = -1;
565     else if (maxlinks < 0 || maxlinks > 99 || *delim != '\0')
566         passwd = fields[1];
567
568     /* Translate the IP and host mask fields into blocks. */
569     emit_client(fields[0], passwd, fields[4], maxlinks, 1);
570     emit_client(fields[2], passwd, fields[4], maxlinks, 0);
571 }
572
573 int main(int argc, char *argv[])
574 {
575     FILE *ifile;
576
577     if (argc < 2)
578         ifile = stdin;
579     else if (!(ifile = fopen(argv[1], "rt"))) {
580         fprintf(stderr, "Unable to open file %s for input.\n", argv[1]);
581         return 1;
582     }
583
584     for (lineno = 1; fgets(line, sizeof(line), ifile); ++lineno) {
585         /* Read line and pass comments through. */
586         size_t len = strlen(line);
587         if (line[0] == '#') {
588             fputs(line, stdout);
589             continue;
590         }
591         /* Strip EOL character(s) and pass blank lines through. */
592         while (len > 0 && (line[len-1] == '\n' || line[len-1] == '\r'))
593             line[--len] = '\0';
594         if (len == 0) {
595             fputc('\n', stdout);
596             continue;
597         }
598         /* Skip but report invalid lines. */
599         if (line[1] != ':') {
600             fprintf(stdout, "# %s\n", line);
601             fprintf(stderr, "Invalid input line %d.\n", lineno);
602             continue;
603         }
604         /* Copy the original line into a reusable variable. */
605         strcpy(orig_line, line);
606         /* Split line into fields. */
607         nfields = split_line(line + 2, fields);
608
609         /* Process the input line. */
610         switch (line[0]) {
611         case 'A': case 'a': simple_line("Admin", admin_names, NULL); break;
612         case 'C': case 'c': do_connect(); break;
613         case 'D':           simple_line("CRule", crule_names, "all = yes;"); break;
614                   case 'd': simple_line("CRule", crule_names, NULL); break;
615         case 'F': case 'f': do_feature(); break;
616         case 'H': case 'h': do_hub(); break;
617         case 'I': case 'i': do_client(); break;
618         case 'K': case 'k': do_kill(); break;
619         case 'L': case 'l': do_leaf(); break;
620         case 'M': case 'm': simple_line("General", general_names, NULL); break;
621         case 'O':           do_operator(0); break;
622                   case 'o': do_operator(1); break;
623         case 'P': case 'p': do_port(); break;
624         case 'Q': case 'q': do_quarantine(); break;
625         case 'T': case 't': simple_line("Motd", motd_names, NULL); break;
626         case 'U': case 'u': do_uworld(); break;
627         case 'Y': case 'y': simple_line("Class", class_names, NULL); break;
628         default:
629             fprintf(stderr, "Unknown line %u with leading character '%c'.\n", lineno, line[0]);
630             break;
631         }
632     }
633
634     fclose(ifile);
635
636     fputs("\n# The following lines were intentionally moved and rearranged."
637           "\n# Our apologies for any inconvenience this may cause."
638           "\n\n", stdout);
639     finish_connects();
640     finish_quarantines();
641     finish_features();
642     finish_operators();
643
644     return 0;
645 }