2 * conf.c -- dump fetchmail configuration as Python dictionary initializer
4 * For license terms, see the file COPYING in this directory.
18 #include "fetchmail.h"
20 /* Python prettyprinting functions */
22 static int indent_level;
24 static void indent(char ic)
25 /* indent current line */
29 if (ic == ')' || ic == ']' || ic == '}')
33 * The guard here is a kluge. It depends on the fact that in the
34 * particular structure we're dumping, opening [s are always
35 * initializers for dictionary members and thus will be preceded
40 for (i = 0; i < indent_level / 2; i++)
52 if (ic == '(' || ic == '[' || ic == '{')
57 static void stringdump(const char *name, const char *member)
58 /* dump a string member with current indent */
61 fprintf(stdout, "\"%s\":", name);
63 fprintf(stdout, "\"%s\"", visbuf(member));
65 fputs("None", stdout);
69 static void numdump(const char *name, const int num)
70 /* dump a numeric quantity at current indent */
73 fprintf(stdout, "'%s':%d,\n", name, NUM_VALUE_OUT(num));
76 static void booldump(const char *name, const int onoff)
77 /* dump a boolean quantity at current indent */
81 fprintf(stdout, "'%s':TRUE,\n", name);
83 fprintf(stdout, "'%s':FALSE,\n", name);
86 static void listdump(const char *name, struct idlist *list)
87 /* dump a string list member with current indent */
90 fprintf(stdout, "\"%s\":", name);
93 fputs("[],\n", stdout);
99 for (idp = list; idp; idp = idp->next)
102 fprintf(stdout, "\"%s\"", visbuf(idp->id));
106 fputs("],\n", stdout);
111 * Note: this function dumps the entire configuration,
112 * after merging of the defaults record (if any). It
113 * is intended to produce output parseable by a configuration
114 * front end, not anything especially comfortable for humans.
117 void dump_config(struct runctl *runp, struct query *querylist)
118 /* dump the in-core configuration in recompilable form */
122 const char *features;
127 * These had better match the values fetchmailconf is expecting!
128 * (We don't want to import them from Tkinter because the user
129 * might not have it installed.)
131 fputs("TRUE=1; FALSE=0\n\n", stdout);
134 * We need this in order to know whether `interface' and `monitor'
135 * are valid options or not.
138 fputs("os_type = 'linux'\n", stdout);
139 #elif defined(__FreeBSD__)
140 fputs("os_type = 'freebsd'\n", stdout);
142 fputs("os_type = 'generic'\n", stdout);
146 * This should be approximately in sync with the -V option dumping
149 features = "feature_options = ("
152 #endif /* POP3_ENABLE */
155 #endif /* IMAP_ENABLE */
161 #endif /* RPA_ENABLE */
164 #endif /* SDPS_ENABLE */
167 #endif /* ETRN_ENABLE */
170 #endif /* ODMR_ENABLE */
173 #endif /* SSL_ENABLE */
176 #endif /* OPIE_ENABLE */
179 #endif /* HAVE_SOCKS */
181 fputs(features, stdout);
183 fputs("# Start of configuration initializer\n", stdout);
184 fputs("fetchmailrc = ", stdout);
187 numdump("poll_interval", runp->poll_interval);
188 stringdump("logfile", runp->logfile);
189 stringdump("idfile", runp->idfile);
190 stringdump("postmaster", runp->postmaster);
191 booldump("bouncemail", runp->bouncemail);
192 booldump("spambounce", runp->spambounce);
193 booldump("softbounce", runp->softbounce);
194 stringdump("properties", runp->properties);
195 booldump("invisible", runp->invisible);
196 booldump("showdots", runp->showdots);
197 booldump("syslog", runp->use_syslog);
201 fputs(" 'servers': []\n", stdout);
206 fputs("# List of server entries begins here\n", stdout);
208 fputs("'servers': ", stdout);
211 for (ctl = querylist; ctl; ctl = ctl->next)
214 * First, the server stuff.
216 if (!ctl->server.lead_server)
221 * Every time we see a leading server entry after the first one,
222 * it implicitly ends the both (a) the list of user structures
223 * associated with the previous entry, and (b) that previous entry.
235 fprintf(stdout,"# Entry for site `%s' begins:\n",ctl->server.pollname);
239 (ctl->server.protocol == P_POP3 &&
240 ctl->server.service && !strcmp(ctl->server.service, KPOP_PORT ) &&
241 ctl->server.authenticate == A_KERBEROS_V5);
243 stringdump("pollname", ctl->server.pollname);
244 booldump("active", !ctl->server.skip);
245 stringdump("via", ctl->server.via);
246 stringdump("protocol",
247 using_kpop ? "KPOP" : showproto(ctl->server.protocol));
248 stringdump("service", ctl->server.service);
249 numdump("timeout", ctl->server.timeout);
250 numdump("interval", ctl->server.interval);
252 if (ctl->server.envelope == STRING_DISABLED)
253 stringdump("envelope", NULL);
254 else if (ctl->server.envelope == NULL)
255 stringdump("envelope", "Received");
257 stringdump("envelope", ctl->server.envelope);
258 numdump("envskip", ctl->server.envskip);
259 stringdump("qvirtual", ctl->server.qvirtual);
261 switch (ctl->server.authenticate) {
263 stringdump("auth", "any"); break;
265 stringdump("auth", "password"); break;
267 stringdump("auth", "otp"); break;
269 stringdump("auth", "ntlm"); break;
271 stringdump("auth", "cram-md5"); break;
273 stringdump("auth", "gssapi"); break;
275 stringdump("auth", "kerberos_v5"); break;
277 stringdump("auth", "ssh"); break;
279 stringdump("auth", "msn"); break;
283 #ifdef HAVE_RES_SEARCH
284 booldump("dns", ctl->server.dns);
285 #endif /* HAVE_RES_SEARCH */
286 listdump("aka", ctl->server.akalist);
287 listdump("localdomains", ctl->server.localdomains);
290 stringdump("interface", ctl->server.interface);
291 stringdump("monitor", ctl->server.monitor);
294 stringdump("plugin", ctl->server.plugin);
295 stringdump("plugout", ctl->server.plugout);
296 stringdump("principal", ctl->server.principal);
297 if (ctl->server.esmtp_name)
298 stringdump("esmtpname",ctl->server.esmtp_name);
299 if (ctl->server.esmtp_password)
300 stringdump("esmtppassword",ctl->server.esmtp_password);
301 booldump("tracepolls", ctl->server.tracepolls);
303 switch(ctl->server.badheader) {
304 /* this is a hack - we map this to a boolean option for
305 * fetchmailconf purposes */
306 case BHREJECT: puts("'badheader': FALSE,"); break;
307 case BHACCEPT: puts("'badheader': TRUE,"); break;
310 switch (ctl->server.retrieveerror) {
311 case RE_ABORT: stringdump("retrieveerror", "abort"); break;
312 case RE_CONTINUE: stringdump("retrieveerror", "continue"); break;
313 case RE_MARKSEEN: stringdump("retrieveerror", "markseen"); break;
317 fputs("'users': ", stdout);
323 stringdump("remote", ctl->remotename);
324 stringdump("password", ctl->password);
327 fprintf(stdout, "'localnames':[");
328 for (idp = ctl->localnames; idp; idp = idp->next)
330 char namebuf[USERNAMELEN + 1];
332 strlcpy(namebuf, visbuf(idp->id), sizeof(namebuf));
334 fprintf(stdout, "(\"%s\", %s)", namebuf, visbuf(idp->val.id2));
336 fprintf(stdout, "\"%s\"", namebuf);
341 fputs(", '*'", stdout);
342 fputs("],\n", stdout);
344 booldump("fetchall", ctl->fetchall);
345 booldump("keep", ctl->keep);
346 booldump("flush", ctl->flush);
347 booldump("limitflush", ctl->limitflush);
348 booldump("rewrite", ctl->rewrite);
349 booldump("stripcr", ctl->stripcr);
350 booldump("forcecr", ctl->forcecr);
351 booldump("pass8bits", ctl->pass8bits);
352 booldump("dropstatus", ctl->dropstatus);
353 booldump("dropdelivered", ctl->dropdelivered);
354 booldump("mimedecode", ctl->mimedecode);
355 booldump("idle", ctl->idle);
357 stringdump("mda", ctl->mda);
358 stringdump("bsmtp", ctl->bsmtp);
360 if (ctl->listener == LMTP_MODE)
361 fputs("'lmtp':TRUE,\n", stdout);
363 fputs("'lmtp':FALSE,\n", stdout);
365 stringdump("preconnect", ctl->preconnect);
366 stringdump("postconnect", ctl->postconnect);
367 numdump("limit", ctl->limit);
368 numdump("warnings", ctl->warnings);
369 numdump("fetchlimit", ctl->fetchlimit);
370 numdump("fetchsizelimit", ctl->fetchsizelimit);
371 numdump("fastuidl", ctl->fastuidl);
372 numdump("batchlimit", ctl->batchlimit);
374 booldump("ssl", ctl->use_ssl);
375 stringdump("sslkey", ctl->sslkey);
376 stringdump("sslcert", ctl->sslcert);
377 stringdump("sslproto", ctl->sslproto);
378 booldump("sslcertck", ctl->sslcertck);
379 stringdump("sslcertpath", ctl->sslcertpath);
380 stringdump("sslcommonname", ctl->sslcommonname);
381 stringdump("sslfingerprint", ctl->sslfingerprint);
382 #endif /* SSL_ENABLE */
383 numdump("expunge", ctl->expunge);
384 stringdump("properties", ctl->properties);
385 listdump("smtphunt", ctl->smtphunt);
386 listdump("fetchdomains", ctl->domainlist);
387 stringdump("smtpaddress", ctl->smtpaddress);
388 stringdump("smtpname", ctl->smtpname);
391 fprintf(stdout, "'antispam':'");
392 for (idp = ctl->antispam; idp; idp = idp->next)
394 fprintf(stdout, "%d", idp->val.status.num);
398 fputs("',\n", stdout);
399 listdump("mailboxes", ctl->mailboxes);
406 /* end last span of user entries and last server entry */
410 /* end array of servers */
414 /* end top-level dictionary */
416 fputs("# End of initializer\n", stdout);
419 /* conf.c ends here */