2 * conf.c -- dump fetchmail configuration as Python dictionary initializer
4 * For license terms, see the file COPYING in this directory.
12 #if defined(STDC_HEADERS)
15 #if defined(HAVE_UNISTD_H)
22 #include "fetchmail.h"
24 /* Python prettyprinting functions */
26 static int indent_level;
28 static void indent(char ic)
29 /* indent current line */
33 if (ic == ')' || ic == ']' || ic == '}')
37 * The guard here is a kluge. It depends on the fact that in the
38 * particular structure we're dumping, opening [s are always
39 * initializers for dictionary members and thus will be preceded
44 for (i = 0; i < indent_level / 2; i++)
56 if (ic == '(' || ic == '[' || ic == '{')
61 static void stringdump(const char *name, const char *member)
62 /* dump a string member with current indent */
65 fprintf(stdout, "\"%s\":", name);
67 fprintf(stdout, "\"%s\"", visbuf(member));
69 fputs("None", stdout);
73 static void numdump(const char *name, const int num)
74 /* dump a numeric quantity at current indent */
77 fprintf(stdout, "'%s':%d,\n", name, NUM_VALUE_OUT(num));
80 static void booldump(const char *name, const int onoff)
81 /* dump a boolean quantity at current indent */
85 fprintf(stdout, "'%s':TRUE,\n", name);
87 fprintf(stdout, "'%s':FALSE,\n", name);
90 static void listdump(const char *name, struct idlist *list)
91 /* dump a string list member with current indent */
94 fprintf(stdout, "\"%s\":", name);
97 fputs("[],\n", stdout);
103 for (idp = list; idp; idp = idp->next)
106 fprintf(stdout, "\"%s\"", visbuf(idp->id));
110 fputs("],\n", stdout);
115 * Note: this function dumps the entire configuration,
116 * after merging of the defaults record (if any). It
117 * is intended to produce output parseable by a configuration
118 * front end, not anything especially comfortable for humans.
121 void dump_config(struct runctl *runp, struct query *querylist)
122 /* dump the in-core configuration in recompilable form */
126 const char *features;
131 * These had better match the values fetchmailconf is expecting!
132 * (We don't want to import them from Tkinter because the user
133 * might not have it installed.)
135 fputs("TRUE=1; FALSE=0\n\n", stdout);
138 * We need this in order to know whether `interface' and `monitor'
139 * are valid options or not.
142 fputs("os_type = 'linux'\n", stdout);
143 #elif defined(__FreeBSD__)
144 fputs("os_type = 'freebsd'\n", stdout);
146 fputs("os_type = 'generic'\n", stdout);
150 * This should be approximately in sync with the -V option dumping
153 features = "feature_options = ("
156 #endif /* POP2_ENABLE */
159 #endif /* POP3_ENABLE */
162 #endif /* IMAP_ENABLE */
166 #if defined(KERBEROS_V4)
168 #endif /* defined(IMAP4) */
171 #endif /* RPA_ENABLE */
174 #endif /* SDPS_ENABLE */
177 #endif /* ETRN_ENABLE */
180 #endif /* ODMR_ENABLE */
183 #endif /* SSL_ENABLE */
186 #endif /* OPIE_ENABLE */
189 #endif /* HAVE_SOCKS */
191 fputs(features, stdout);
193 fputs("# Start of configuration initializer\n", stdout);
194 fputs("fetchmailrc = ", stdout);
197 numdump("poll_interval", runp->poll_interval);
198 stringdump("logfile", runp->logfile);
199 stringdump("idfile", runp->idfile);
200 stringdump("postmaster", runp->postmaster);
201 booldump("bouncemail", runp->bouncemail);
202 booldump("spambounce", runp->spambounce);
203 booldump("softbounce", runp->softbounce);
204 stringdump("properties", runp->properties);
205 booldump("invisible", runp->invisible);
206 booldump("showdots", runp->showdots);
207 booldump("syslog", runp->use_syslog);
211 fputs(" 'servers': []\n", stdout);
216 fputs("# List of server entries begins here\n", stdout);
218 fputs("'servers': ", stdout);
221 for (ctl = querylist; ctl; ctl = ctl->next)
224 * First, the server stuff.
226 if (!ctl->server.lead_server)
231 * Every time we see a leading server entry after the first one,
232 * it implicitly ends the both (a) the list of user structures
233 * associated with the previous entry, and (b) that previous entry.
245 fprintf(stdout,"# Entry for site `%s' begins:\n",ctl->server.pollname);
249 (ctl->server.protocol == P_POP3 &&
250 ctl->server.service && !strcmp(ctl->server.service, KPOP_PORT ) &&
251 ctl->server.authenticate == A_KERBEROS_V4);
253 stringdump("pollname", ctl->server.pollname);
254 booldump("active", !ctl->server.skip);
255 stringdump("via", ctl->server.via);
256 stringdump("protocol",
257 using_kpop ? "KPOP" : showproto(ctl->server.protocol));
258 stringdump("service", ctl->server.service);
259 numdump("timeout", ctl->server.timeout);
260 numdump("interval", ctl->server.interval);
262 if (ctl->server.envelope == STRING_DISABLED)
263 stringdump("envelope", NULL);
264 else if (ctl->server.envelope == NULL)
265 stringdump("envelope", "Received");
267 stringdump("envelope", ctl->server.envelope);
268 numdump("envskip", ctl->server.envskip);
269 stringdump("qvirtual", ctl->server.qvirtual);
271 if (ctl->server.authenticate == A_ANY)
272 stringdump("auth", "any");
273 else if (ctl->server.authenticate == A_PASSWORD)
274 stringdump("auth", "password");
275 else if (ctl->server.authenticate == A_OTP)
276 stringdump("auth", "otp");
277 else if (ctl->server.authenticate == A_NTLM)
278 stringdump("auth", "ntlm");
279 else if (ctl->server.authenticate == A_CRAM_MD5)
280 stringdump("auth", "cram-md5");
281 else if (ctl->server.authenticate == A_GSSAPI)
282 stringdump("auth", "gssapi");
283 else if (ctl->server.authenticate == A_KERBEROS_V4)
284 stringdump("auth", "kerberos_v4");
285 else if (ctl->server.authenticate == A_KERBEROS_V5)
286 stringdump("auth", "kerberos_v5");
287 else if (ctl->server.authenticate == A_SSH)
288 stringdump("auth", "ssh");
289 else if (ctl->server.authenticate == A_OTP)
290 stringdump("auth", "otp");
291 else if (ctl->server.authenticate == A_MSN)
292 stringdump("auth", "msn");
294 #ifdef HAVE_RES_SEARCH
295 booldump("dns", ctl->server.dns);
296 #endif /* HAVE_RES_SEARCH */
297 booldump("uidl", ctl->server.uidl);
299 listdump("aka", ctl->server.akalist);
300 listdump("localdomains", ctl->server.localdomains);
303 stringdump("interface", ctl->server.interface);
304 stringdump("monitor", ctl->server.monitor);
307 stringdump("plugin", ctl->server.plugin);
308 stringdump("plugout", ctl->server.plugout);
309 stringdump("principal", ctl->server.principal);
310 if (ctl->server.esmtp_name)
311 stringdump("esmtpname",ctl->server.esmtp_name);
312 if (ctl->server.esmtp_password)
313 stringdump("esmtppassword",ctl->server.esmtp_password);
314 booldump("tracepolls", ctl->server.tracepolls);
316 switch(ctl->server.badheader) {
317 /* this is a hack - we map this to a boolean option for
318 * fetchmailconf purposes */
319 case BHREJECT: puts("'badheader': FALSE,"); break;
320 case BHACCEPT: puts("'badheader': TRUE,"); break;
324 fputs("'users': ", stdout);
330 stringdump("remote", ctl->remotename);
331 stringdump("password", ctl->password);
334 fprintf(stdout, "'localnames':[");
335 for (idp = ctl->localnames; idp; idp = idp->next)
337 char namebuf[USERNAMELEN + 1];
339 strlcpy(namebuf, visbuf(idp->id), sizeof(namebuf));
341 fprintf(stdout, "(\"%s\", %s)", namebuf, visbuf(idp->val.id2));
343 fprintf(stdout, "\"%s\"", namebuf);
348 fputs(", '*'", stdout);
349 fputs("],\n", stdout);
351 booldump("fetchall", ctl->fetchall);
352 booldump("keep", ctl->keep);
353 booldump("flush", ctl->flush);
354 booldump("limitflush", ctl->limitflush);
355 booldump("rewrite", ctl->rewrite);
356 booldump("stripcr", ctl->stripcr);
357 booldump("forcecr", ctl->forcecr);
358 booldump("pass8bits", ctl->pass8bits);
359 booldump("dropstatus", ctl->dropstatus);
360 booldump("dropdelivered", ctl->dropdelivered);
361 booldump("mimedecode", ctl->mimedecode);
362 booldump("idle", ctl->idle);
364 stringdump("mda", ctl->mda);
365 stringdump("bsmtp", ctl->bsmtp);
367 if (ctl->listener == LMTP_MODE)
368 fputs("'lmtp':TRUE,\n", stdout);
370 fputs("'lmtp':FALSE,\n", stdout);
372 stringdump("preconnect", ctl->preconnect);
373 stringdump("postconnect", ctl->postconnect);
374 numdump("limit", ctl->limit);
375 numdump("warnings", ctl->warnings);
376 numdump("fetchlimit", ctl->fetchlimit);
377 numdump("fetchsizelimit", ctl->fetchsizelimit);
378 numdump("fastuidl", ctl->fastuidl);
379 numdump("batchlimit", ctl->batchlimit);
381 booldump("ssl", ctl->use_ssl);
382 stringdump("sslkey", ctl->sslkey);
383 stringdump("sslcert", ctl->sslcert);
384 stringdump("sslproto", ctl->sslproto);
385 booldump("sslcertck", ctl->sslcertck);
386 stringdump("sslcertpath", ctl->sslcertpath);
387 stringdump("sslcommonname", ctl->sslcommonname);
388 stringdump("sslfingerprint", ctl->sslfingerprint);
389 #endif /* SSL_ENABLE */
390 numdump("expunge", ctl->expunge);
391 stringdump("properties", ctl->properties);
392 listdump("smtphunt", ctl->smtphunt);
393 listdump("fetchdomains", ctl->domainlist);
394 stringdump("smtpaddress", ctl->smtpaddress);
395 stringdump("smtpname", ctl->smtpname);
398 fprintf(stdout, "'antispam':'");
399 for (idp = ctl->antispam; idp; idp = idp->next)
401 fprintf(stdout, "%d", idp->val.status.num);
405 fputs("',\n", stdout);
406 listdump("mailboxes", ctl->mailboxes);
413 /* end last span of user entries and last server entry */
417 /* end array of servers */
421 /* end top-level dictionary */
423 fputs("# End of initializer\n", stdout);
426 /* conf.c ends here */