Pileus Git - ~andy/fetchmail/blob - conf.c

   1 /*
   2  * conf.c -- dump fetchmail configuration as Python dictionary initializer
   3  *
   4  * For license terms, see the file COPYING in this directory.
   5  */
   6
   7 #include "config.h"
   8 #include "tunable.h"
   9
  10 #include <stdio.h>
  11 #include <ctype.h>
  12 #if defined(STDC_HEADERS)
  13 #include <stdlib.h>
  14 #endif
  15 #if defined(HAVE_UNISTD_H)
  16 #include <unistd.h>
  17 #endif
  18 #include <string.h>
  19 #include <pwd.h>
  20 #include <errno.h>
  21
  22 #include "fetchmail.h"
  23
  24 /* Python prettyprinting functions */
  25
  26 static indent_level;
  27
  28 static void indent(char ic)
  29 /* indent current line */
  30 {
  31     int i;
  32
  33     if (ic == ')' || ic == ']' || ic == '}')
  34         indent_level--;
  35
  36     /*
  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
  40      * by a member name.
  41      */
  42     if (ic != '[')
  43     {
  44         for (i = 0; i < indent_level / 2; i++)
  45             putc('\t', stdout);
  46         if (indent_level % 2)
  47             fputs("    ", stdout);
  48     }
  49
  50     if (ic)
  51     {
  52         putc(ic, stdout);
  53         putc('\n', stdout);
  54     }
  55
  56     if (ic == '(' || ic == '[' || ic == '{')
  57         indent_level++;
  58 }
  59
  60 static void stringdump(const char *name, const char *member)
  61 /* dump a string member with current indent */
  62 {
  63     static char buf[BUFSIZ];
  64
  65     indent('\0');
  66     fprintf(stdout, "'%s':", name);
  67     if (member)
  68         fprintf(stdout, "'%s'", visbuf(member));
  69     else
  70         fputs("None", stdout);
  71     fputs(",\n", stdout);
  72 }
  73
  74 static int numdump(const char *name, const int num)
  75 /* dump a numeric quantity at current indent */
  76 {
  77     indent('\0');
  78     fprintf(stdout, "'%s':%d,\n", name, num);
  79 }
  80
  81 static int booldump(const char *name, const int onoff)
  82 /* dump a boolean quantity at current indent */
  83 {
  84     indent('\0');
  85     if (onoff)
  86         fprintf(stdout, "'%s':TRUE,\n", name);
  87     else
  88         fprintf(stdout, "'%s':FALSE,\n", name);
  89 }
  90
  91 static void listdump(const char *name, struct idlist *list)
  92 /* dump a string list member with current indent */
  93 {
  94     indent('\0');
  95     fprintf(stdout, "'%s':", name);
  96
  97     if (!list)
  98         fputs("None,\n", stdout);
  99     else
 100     {
 101         struct idlist *idp;
 102
 103         fputs("[", stdout);
 104         for (idp = list; idp; idp = idp->next)
 105             if (idp->id)
 106             {
 107                 fprintf(stdout, "'%s'", visbuf(idp->id));
 108                 if (idp->next)
 109                     fputs(", ", stdout);
 110             }
 111         fputs("],\n", stdout);
 112     }
 113 }
 114
 115 /*
 116  * Note: this function dumps the entire configuration,
 117  * after merging of the defaults record (if any).  It
 118  * is intended to produce output parseable by a configuration
 119  * front end, not anything especially comfortable for humans.
 120  */
 121
 122 void dump_config(struct runctl *runp, struct query *querylist)
 123 /* dump the in-core configuration in recompilable form */
 124 {
 125     struct query *ctl;
 126     struct idlist *idp;
 127
 128     indent_level = 0;
 129
 130     fputs("from Tkinter import TRUE, FALSE\n\n", stdout);
 131
 132     fputs("# Start of initializer\n", stdout);
 133     fputs("fetchmailrc = ", stdout);
 134     indent('{');
 135
 136     numdump("poll_interval", runp->poll_interval);
 137     booldump("syslog", runp->use_syslog);
 138     stringdump("logfile", runp->logfile);
 139     stringdump("idfile", runp->idfile);
 140     stringdump("postmaster", runp->postmaster);
 141     booldump("invisible", runp->invisible);
 142
 143     if (!querylist)
 144     {
 145         fputs("    'servers': []\n", stdout);
 146         goto alldone;
 147     }
 148
 149     indent(0);
 150     fputs("# List of server entries begins here\n", stdout);
 151     indent(0);
 152     fputs("'servers': ", stdout);
 153     indent('[');
 154
 155     for (ctl = querylist; ctl; ctl = ctl->next)
 156     {
 157         /*
 158          * First, the server stuff.
 159          */
 160         if (!ctl->server.lead_server)
 161         {
 162             flag        using_kpop;
 163
 164             /*
 165              * Every time we see a leading server entry after the first one,
 166              * it implicitly ends the both (a) the list of user structures
 167              * associated with the previous entry, and (b) that previous entry.
 168              */
 169             if (ctl > querylist)
 170             {
 171                 indent(']');
 172                 indent('}');
 173                 indent('\0');
 174                 putc(',', stdout);
 175                 putc('\n', stdout);
 176             }
 177
 178             indent(0);
 179             fprintf(stdout,"# Entry for site `%s' begins:\n",ctl->server.pollname);
 180             indent('{');
 181
 182             using_kpop =
 183                 (ctl->server.protocol == P_POP3 &&
 184                  ctl->server.port == KPOP_PORT &&
 185                  ctl->server.preauthenticate == A_KERBEROS_V4);
 186
 187             stringdump("pollname", ctl->server.pollname);
 188             booldump("active", !ctl->server.skip);
 189             stringdump("via", ctl->server.via);
 190             stringdump("protocol",
 191                        using_kpop ? "KPOP" : showproto(ctl->server.protocol));
 192             numdump("port",  ctl->server.port);
 193             numdump("timeout",  ctl->server.timeout);
 194             numdump("interval", ctl->server.interval);
 195
 196             if (ctl->server.envelope == STRING_DISABLED)
 197                 stringdump("envelope", NULL);
 198             else if (ctl->server.envelope == NULL)
 199                 stringdump("envelope", "Received");
 200             else
 201                 stringdump("envelope", ctl->server.envelope);
 202             numdump("envskip", ctl->server.envskip);
 203             stringdump("qvirtual", ctl->server.qvirtual);
 204
 205             if (ctl->server.preauthenticate == A_KERBEROS_V4)
 206                 stringdump("auth", "kerberos_v4");
 207             else if (ctl->server.preauthenticate == A_KERBEROS_V5)
 208                 stringdump("auth", "kerberos_v5");
 209             else
 210                 stringdump("auth", "password");
 211
 212 #if defined(HAVE_GETHOSTBYNAME) && defined(HAVE_RES_SEARCH)
 213             booldump("dns", ctl->server.dns);
 214 #endif /* HAVE_GETHOSTBYNAME && HAVE_RES_SEARCH */
 215             booldump("uidl", ctl->server.uidl);
 216
 217             listdump("aka", ctl->server.akalist);
 218             listdump("localdomains", ctl->server.localdomains);
 219
 220 #ifdef linux
 221             stringdump("interface", ctl->server.interface);
 222             stringdump("monitor", ctl->server.monitor);
 223 #endif /* linux */
 224
 225             indent(0);
 226             fputs("'users': ", stdout);
 227             indent('[');
 228         }
 229
 230         indent('{');
 231
 232         stringdump("remote", ctl->remotename);
 233         stringdump("password", ctl->password);
 234
 235         indent('\0');
 236         fprintf(stdout, "'localnames':[");
 237         for (idp = ctl->localnames; idp; idp = idp->next)
 238         {
 239             if (idp->val.id2)
 240                 fprintf(stdout, "('%s', %s)",
 241                         visbuf(idp->id), visbuf(idp->val.id2));
 242             else
 243                 fprintf(stdout, "'%s'", visbuf(idp->id));
 244             if (idp->next)
 245                 fputs(", ", stdout);
 246         }
 247         if (ctl->wildcard)
 248             fputs(", '*'", stdout);
 249         fputs("],\n", stdout);
 250
 251         booldump("fetchall", ctl->fetchall);
 252         booldump("keep", ctl->keep);
 253         booldump("flush", ctl->flush);
 254         booldump("rewrite", ctl->rewrite);
 255         booldump("stripcr", ctl->stripcr);
 256         booldump("forcecr", ctl->forcecr);
 257         booldump("pass8bits", ctl->pass8bits);
 258         booldump("dropstatus", ctl->dropstatus);
 259         booldump("mimedecode", ctl->mimedecode);
 260
 261         stringdump("mda", ctl->mda);
 262 #ifdef INET6
 263         stringdump("netsec", ctl->netsec);
 264 #endif /* INET6 */
 265         stringdump("preconnect", ctl->preconnect);
 266         stringdump("postconnect", ctl->postconnect);
 267         numdump("limit", ctl->limit);
 268         numdump("fetchlimit", ctl->fetchlimit);
 269         numdump("batchlimit", ctl->batchlimit);
 270         numdump("expunge", ctl->expunge);
 271         listdump("smtphunt", ctl->smtphunt);
 272         stringdump("smtpaddress", ctl->smtpaddress);
 273         numdump("antispam", ctl->antispam);
 274         listdump("mailboxes", ctl->mailboxes);
 275
 276         indent('}');
 277         indent('\0');
 278         fputc(',', stdout);
 279     }
 280
 281     /* end last span of user entries and last server entry */
 282     indent(']');
 283     indent('}');
 284
 285     /* end array of servers */
 286     indent(']');
 287
 288  alldone:
 289     /* end top-level dictionary */
 290     indent('}');
 291     fputs("# End of initializer\n", stdout);
 292 }
 293
 294 /* conf.c ends here */