conf.c
上传用户:xxcykj
上传日期:2007-01-04
资源大小:727k
文件大小:10k
- /*
- * conf.c -- dump fetchmail configuration as Python dictionary initializer
- *
- * For license terms, see the file COPYING in this directory.
- */
- #include "config.h"
- #include "tunable.h"
- #include <stdio.h>
- #include <ctype.h>
- #if defined(STDC_HEADERS)
- #include <stdlib.h>
- #endif
- #if defined(HAVE_UNISTD_H)
- #include <unistd.h>
- #endif
- #include <string.h>
- #include <pwd.h>
- #include <errno.h>
- #include "fetchmail.h"
- /* Python prettyprinting functions */
- static int indent_level;
- static void indent(char ic)
- /* indent current line */
- {
- int i;
- if (ic == ')' || ic == ']' || ic == '}')
- indent_level--;
- /*
- * The guard here is a kluge. It depends on the fact that in the
- * particular structure we're dumping, opening [s are always
- * initializers for dictionary members and thus will be preceded
- * by a member name.
- */
- if (ic != '[')
- {
- for (i = 0; i < indent_level / 2; i++)
- putc('t', stdout);
- if (indent_level % 2)
- fputs(" ", stdout);
- }
- if (ic)
- {
- putc(ic, stdout);
- putc('n', stdout);
- }
- if (ic == '(' || ic == '[' || ic == '{')
- indent_level++;
- }
- static void stringdump(const char *name, const char *member)
- /* dump a string member with current indent */
- {
- indent(' ');
- fprintf(stdout, ""%s":", name);
- if (member)
- fprintf(stdout, ""%s"", visbuf(member));
- else
- fputs("None", stdout);
- fputs(",n", stdout);
- }
- static void numdump(const char *name, const int num)
- /* dump a numeric quantity at current indent */
- {
- indent(' ');
- fprintf(stdout, "'%s':%d,n", name, NUM_VALUE_OUT(num));
- }
- static void booldump(const char *name, const int onoff)
- /* dump a boolean quantity at current indent */
- {
- indent(' ');
- if (onoff)
- fprintf(stdout, "'%s':TRUE,n", name);
- else
- fprintf(stdout, "'%s':FALSE,n", name);
- }
- static void listdump(const char *name, struct idlist *list)
- /* dump a string list member with current indent */
- {
- indent(' ');
- fprintf(stdout, ""%s":", name);
- if (!list)
- fputs("None,n", stdout);
- else
- {
- struct idlist *idp;
- fputs("[", stdout);
- for (idp = list; idp; idp = idp->next)
- if (idp->id)
- {
- fprintf(stdout, ""%s"", visbuf(idp->id));
- if (idp->next)
- fputs(", ", stdout);
- }
- fputs("],n", stdout);
- }
- }
- /*
- * Note: this function dumps the entire configuration,
- * after merging of the defaults record (if any). It
- * is intended to produce output parseable by a configuration
- * front end, not anything especially comfortable for humans.
- */
- void dump_config(struct runctl *runp, struct query *querylist)
- /* dump the in-core configuration in recompilable form */
- {
- struct query *ctl;
- struct idlist *idp;
- indent_level = 0;
- fputs("from Tkinter import TRUE, FALSEnn", stdout);
- /*
- * We need this in order to know whether `interface' and `monitor'
- * are valid options or not.
- */
- #if defined(linux)
- fputs("os_type = 'linux'n", stdout);
- #elif defined(__FreeBSD__)
- fputs("os_type = 'freebsd'n", stdout);
- #else
- fputs("os_type = 'generic'n", stdout);
- #endif
- /*
- * This should be approximately in sync with the -V option dumping
- * in fetchmail.c.
- */
- printf("feature_options = (");
- #ifdef POP2_ENABLE
- printf("'pop2',");
- #endif /* POP2_ENABLE */
- #ifdef POP3_ENABLE
- printf("'pop3',");
- #endif /* POP3_ENABLE */
- #ifdef IMAP_ENABLE
- printf("'imap',");
- #endif /* IMAP_ENABLE */
- #ifdef GSSAPI
- printf("'imap-gss',");
- #endif /* GSSAPI */
- #if defined(IMAP4) && defined(KERBEROS_V4)
- printf("'imap-k4',");
- #endif /* defined(IMAP4) && defined(KERBEROS_V4) */
- #ifdef RPA_ENABLE
- printf("'rpa',");
- #endif /* RPA_ENABLE */
- #ifdef SDPS_ENABLE
- printf("'sdps',");
- #endif /* SDPS_ENABLE */
- #ifdef ETRN_ENABLE
- printf("'etrn',");
- #endif /* ETRN_ENABLE */
- #ifdef SSL_ENABLE
- printf("'ssl',");
- #endif /* SSL_ENABLE */
- #if OPIE_ENABLE
- printf("'opie',");
- #endif /* OPIE_ENABLE */
- #if INET6_ENABLE
- printf("'inet6',");
- #endif /* INET6_ENABLE */
- #if NET_SECURITY
- printf("'netsec',");
- #endif /* NET_SECURITY */
- printf(")n");
- fputs("# Start of configuration initializern", stdout);
- fputs("fetchmailrc = ", stdout);
- indent('{');
- numdump("poll_interval", runp->poll_interval);
- stringdump("logfile", runp->logfile);
- stringdump("idfile", runp->idfile);
- stringdump("postmaster", runp->postmaster);
- booldump("bouncemail", runp->bouncemail);
- stringdump("properties", runp->properties);
- booldump("invisible", runp->invisible);
- booldump("syslog", runp->use_syslog);
- if (!querylist)
- {
- fputs(" 'servers': []n", stdout);
- goto alldone;
- }
- indent(0);
- fputs("# List of server entries begins heren", stdout);
- indent(0);
- fputs("'servers': ", stdout);
- indent('[');
- for (ctl = querylist; ctl; ctl = ctl->next)
- {
- /*
- * First, the server stuff.
- */
- if (!ctl->server.lead_server)
- {
- flag using_kpop;
- /*
- * Every time we see a leading server entry after the first one,
- * it implicitly ends the both (a) the list of user structures
- * associated with the previous entry, and (b) that previous entry.
- */
- if (ctl > querylist)
- {
- indent(']');
- indent('}');
- indent(' ');
- putc(',', stdout);
- putc('n', stdout);
- }
- indent(0);
- fprintf(stdout,"# Entry for site `%s' begins:n",ctl->server.pollname);
- indent('{');
- using_kpop =
- (ctl->server.protocol == P_POP3 &&
- #if !INET6_ENABLE
- ctl->server.port == KPOP_PORT &&
- #else
- 0 == strcmp( ctl->server.service, KPOP_PORT ) &&
- #endif
- ctl->server.preauthenticate == A_KERBEROS_V4);
- stringdump("pollname", ctl->server.pollname);
- booldump("active", !ctl->server.skip);
- stringdump("via", ctl->server.via);
- stringdump("protocol",
- using_kpop ? "KPOP" : showproto(ctl->server.protocol));
- #if !INET6_ENABLE
- numdump("port", ctl->server.port);
- #else
- stringdump("service", ctl->server.service);
- #endif
- numdump("timeout", ctl->server.timeout);
- numdump("interval", ctl->server.interval);
- if (ctl->server.envelope == STRING_DISABLED)
- stringdump("envelope", NULL);
- else if (ctl->server.envelope == NULL)
- stringdump("envelope", "Received");
- else
- stringdump("envelope", ctl->server.envelope);
- numdump("envskip", ctl->server.envskip);
- stringdump("qvirtual", ctl->server.qvirtual);
-
- if (ctl->server.preauthenticate == A_KERBEROS_V4)
- stringdump("preauth", "kerberos_v4");
- else if (ctl->server.preauthenticate == A_KERBEROS_V5)
- stringdump("preauth", "kerberos_v5");
- else if (ctl->server.preauthenticate == A_SSH)
- stringdump("preauth", "ssh");
- else
- stringdump("preauth", "password");
- #if defined(HAVE_GETHOSTBYNAME) && defined(HAVE_RES_SEARCH)
- booldump("dns", ctl->server.dns);
- #endif /* HAVE_GETHOSTBYNAME && HAVE_RES_SEARCH */
- booldump("uidl", ctl->server.uidl);
- listdump("aka", ctl->server.akalist);
- listdump("localdomains", ctl->server.localdomains);
- #if defined(linux) || defined(__FreeBSD__)
- stringdump("interface", ctl->server.interface);
- stringdump("monitor", ctl->server.monitor);
- #endif /* linux || __FreeBSD__ */
- stringdump("plugin", ctl->server.plugin);
- stringdump("plugout", ctl->server.plugout);
- indent(0);
- fputs("'users': ", stdout);
- indent('[');
- }
- indent('{');
- stringdump("remote", ctl->remotename);
- stringdump("password", ctl->password);
- indent(' ');
- fprintf(stdout, "'localnames':[");
- for (idp = ctl->localnames; idp; idp = idp->next)
- {
- char namebuf[USERNAMELEN + 1];
- strncpy(namebuf, visbuf(idp->id), USERNAMELEN);
- namebuf[USERNAMELEN] = ' ';
- if (idp->val.id2)
- fprintf(stdout, "("%s", %s)", namebuf, visbuf(idp->val.id2));
- else
- fprintf(stdout, ""%s"", namebuf);
- if (idp->next)
- fputs(", ", stdout);
- }
- if (ctl->wildcard)
- fputs(", '*'", stdout);
- fputs("],n", stdout);
- booldump("fetchall", ctl->fetchall);
- booldump("keep", ctl->keep);
- booldump("flush", ctl->flush);
- booldump("rewrite", ctl->rewrite);
- booldump("stripcr", ctl->stripcr);
- booldump("forcecr", ctl->forcecr);
- booldump("pass8bits", ctl->pass8bits);
- booldump("dropstatus", ctl->dropstatus);
- booldump("mimedecode", ctl->mimedecode);
- stringdump("mda", ctl->mda);
- stringdump("bsmtp", ctl->bsmtp);
- indent(' ');
- if (ctl->listener == LMTP_MODE)
- fputs("'lmtp':TRUE,n", stdout);
- else
- fputs("'lmtp':FALSE,n", stdout);
-
- #ifdef INET6_ENABLE
- stringdump("netsec", ctl->server.netsec);
- #endif /* INET6_ENABLE */
- stringdump("preconnect", ctl->preconnect);
- stringdump("postconnect", ctl->postconnect);
- numdump("limit", ctl->limit);
- numdump("warnings", ctl->warnings);
- numdump("fetchlimit", ctl->fetchlimit);
- numdump("batchlimit", ctl->batchlimit);
- #ifdef SSL_ENABLE
- booldump("ssl", ctl->use_ssl);
- stringdump("sslkey", ctl->sslkey);
- stringdump("sslcert", ctl->sslcert);
- #endif /* SSL_ENABLE */
- numdump("expunge", ctl->expunge);
- stringdump("properties", ctl->properties);
- listdump("smtphunt", ctl->smtphunt);
- stringdump("smtpaddress", ctl->smtpaddress);
- indent(' ');
- fprintf(stdout, "'antispam':'");
- if (!ctl->antispam)
- fputs("'n", stdout);
- else
- {
- for (idp = ctl->antispam; idp; idp = idp->next)
- {
- fprintf(stdout, "%d", idp->val.status.num);
- if (idp->next)
- fputs(" ", stdout);
- }
- fputs("',n", stdout);
- }
- listdump("mailboxes", ctl->mailboxes);
- indent('}');
- indent(' ');
- fputc(',', stdout);
- }
- /* end last span of user entries and last server entry */
- indent(']');
- indent('}');
- /* end array of servers */
- indent(']');
- alldone:
- /* end top-level dictionary */
- indent('}');
- fputs("# End of initializern", stdout);
- }
- /* conf.c ends here */