meillo@0: /*  MasqMail
meillo@0:     Copyright (C) 1999-2001 Oliver Kurth
meillo@0: 
meillo@0:     This program is free software; you can redistribute it and/or modify
meillo@0:     it under the terms of the GNU General Public License as published by
meillo@0:     the Free Software Foundation; either version 2 of the License, or
meillo@0:     (at your option) any later version.
meillo@0: 
meillo@0:     This program is distributed in the hope that it will be useful,
meillo@0:     but WITHOUT ANY WARRANTY; without even the implied warranty of
meillo@0:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
meillo@0:     GNU General Public License for more details.
meillo@0: 
meillo@0:     You should have received a copy of the GNU General Public License
meillo@0:     along with this program; if not, write to the Free Software
meillo@0:     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
meillo@0: */
meillo@0: 
meillo@0: #include "masqmail.h"
meillo@0: 
meillo@0: #include "pwd.h"
meillo@0: #include "grp.h"
meillo@0: 
meillo@0: masqmail_conf conf;
meillo@0: 
meillo@0: void init_conf()
meillo@0: {
meillo@0:   struct passwd *passwd;
meillo@0:   struct group *group;
meillo@0: 
meillo@0:   memset(&conf, 0, sizeof(masqmail_conf));
meillo@0: 
meillo@0:   conf.orig_uid = getuid();
meillo@0:   conf.orig_gid = getgid();
meillo@0: 
meillo@0:   if((passwd = getpwnam(DEF_MAIL_USER)))
meillo@0:     conf.mail_uid = passwd->pw_uid;
meillo@0:   else{
meillo@0:     fprintf(stderr, "user %s not found! (terminating)\n", DEF_MAIL_USER);
meillo@0:     exit(EXIT_FAILURE);
meillo@0:   }
meillo@0:   if((group = getgrnam(DEF_MAIL_GROUP)))
meillo@0:     conf.mail_gid = group->gr_gid;
meillo@0:   else{
meillo@0:     fprintf(stderr, "group %s not found! (terminating)\n", DEF_MAIL_GROUP);
meillo@0:     exit(EXIT_FAILURE);
meillo@0:   }
meillo@0: }
meillo@0: 
meillo@0: static gchar *true_strings[] =
meillo@0: {
meillo@0:   "yes", "on", "true", NULL
meillo@0: };
meillo@0: 
meillo@0: static gchar *false_strings[] =
meillo@0: {
meillo@0:   "no", "off", "false", NULL
meillo@0: };
meillo@0: 
meillo@0: static
meillo@0: gboolean parse_boolean(gchar *rval)
meillo@0: {
meillo@0:   gchar **str;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "parse_boolean: %s\n", rval);
meillo@0: 
meillo@0:   str = true_strings;
meillo@0:   while(*str){
meillo@0:     if(strncasecmp(*str, rval, strlen(*str)) == 0)
meillo@0:       return TRUE;
meillo@0:     str++;
meillo@0:   }
meillo@0: 
meillo@0:   str = false_strings;
meillo@0:   while(*str){
meillo@0:     if(strncasecmp(*str, rval, strlen(*str)) == 0)
meillo@0:       return FALSE;
meillo@0:     str++;
meillo@0:   }
meillo@0: 
meillo@0:   fprintf(stderr, "cannot parse value '%s'\n", rval);
meillo@0:   exit(EXIT_FAILURE);
meillo@0: }
meillo@0: 
meillo@0: /* make a list from each line in a file */
meillo@0: static
meillo@0: GList *parse_list_file(gchar *fname)
meillo@0: {
meillo@0:   GList *list = NULL;
meillo@0:   FILE *fptr;
meillo@0: 
meillo@0:   if((fptr = fopen(fname, "rt"))){
meillo@0:     gchar buf[256];
meillo@0: 
meillo@0:     while(!feof(fptr)){
meillo@0:       fgets(buf, 255, fptr);
meillo@0:       if(buf[0] && (buf[0] != '#') && (buf[0] != '\n')){
meillo@0: 	g_strchomp(buf);
meillo@0: 	list = g_list_append(list, g_strdup(buf));
meillo@0:       }
meillo@0:     }
meillo@0:     fclose(fptr);
meillo@0:   }else{
meillo@0:     logwrite(LOG_ALERT, "could not open %s for reading: %s\n", fname, strerror(errno));
meillo@0:     exit(EXIT_FAILURE);
meillo@0:   }
meillo@0: 
meillo@0:   return list;
meillo@0: }
meillo@0: 
meillo@0: /* given a semicolon separated string, this function
meillo@0:    makes a GList out of it.
meillo@0: */
meillo@0: GList *parse_list(gchar *line, gboolean read_file)
meillo@0: {
meillo@0:   GList *list = NULL;
meillo@0:   gchar buf[256];
meillo@0:   gchar *p, *q;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "parsing list %s\n", line);
meillo@0: 
meillo@0:   p = line;
meillo@0:   while(*p != 0){
meillo@0:     q = buf;
meillo@0: 
meillo@0:     while(*p && (*p != ';') && (q < buf+255))
meillo@0:       *(q++) = *(p++);
meillo@0:     *q = 0;
meillo@0: 
meillo@0:     if((buf[0] == '/') && (read_file))
meillo@0:       /* item is a filename, include its contents */
meillo@0:       list = g_list_concat(list, parse_list_file(buf));
meillo@0:     else
meillo@0:       /* just a normal item */
meillo@0:       list = g_list_append(list, g_strdup(buf));
meillo@0: 
meillo@0:     DEBUG(6) printf("item = %s\n", buf);
meillo@0: 
meillo@0:     if(*p) p++;
meillo@0:   }
meillo@0:   return list;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: GList *parse_address_list(gchar *line, gboolean read_file)
meillo@0: {
meillo@0:   GList *plain_list = parse_list(line, read_file);
meillo@0:   GList *node;
meillo@0:   GList *list = NULL;
meillo@0: 
meillo@0:   foreach(plain_list, node){
meillo@0:     gchar *item = (gchar *)(node->data);
meillo@0:     address *addr = create_address(item, TRUE);
meillo@0:     if(addr)
meillo@0:       list = g_list_append(list, addr);
meillo@0:     g_free(item);
meillo@0:   }
meillo@0:   g_list_free(plain_list);
meillo@0: 
meillo@0:   return list;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: GList *parse_resolve_list(gchar *line)
meillo@0: {
meillo@0:   GList *list;
meillo@0:   GList *list_node;
meillo@0:   GList *res_list = NULL;
meillo@0: 
meillo@0:   list = parse_list(line, FALSE);
meillo@0:   if(list){
meillo@0:     foreach(list, list_node){
meillo@0:       gchar *item = (gchar *)(list_node->data);
meillo@0:       if(strcmp(item, "byname") == 0){
meillo@0: 	res_list = g_list_append(res_list, resolve_byname);
meillo@0: #ifdef ENABLE_RESOLVER
meillo@0:       }else if(strcmp(item, "dns_a") == 0){
meillo@0: 	res_list = g_list_append(res_list, resolve_dns_a);
meillo@0:       }else if(strcmp(item, "dns_mx") == 0){
meillo@0: 	res_list = g_list_append(res_list, resolve_dns_mx);
meillo@0: #endif
meillo@0:       }else{
meillo@0: 	logwrite(LOG_ALERT, "unknown resolver %s\n", item);
meillo@0: 	exit(EXIT_FAILURE);
meillo@0:       }
meillo@0:       g_free(item);
meillo@0:     }
meillo@0:     g_list_free(list);
meillo@0:   }
meillo@0:   return res_list;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: interface *parse_interface(gchar *line, gint def_port)
meillo@0: {
meillo@0:   gchar buf[256];
meillo@0:   gchar *p, *q;
meillo@0:   interface *iface;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "parse_interface: %s\n", line);
meillo@0: 
meillo@0:   p = line;
meillo@0:   q = buf;
meillo@0:   while((*p != 0) && (*p != ':') && (q < buf+255))
meillo@0:     *(q++) = *(p++);
meillo@0:   *q = 0;
meillo@0: 
meillo@0:   iface = g_malloc(sizeof(interface));
meillo@0:   iface->address = g_strdup(buf);
meillo@0: 
meillo@0:   if(*p){
meillo@0:     p++;
meillo@0:     iface->port = atoi(p);
meillo@0:   }else
meillo@0:     iface->port = def_port;
meillo@0: 
meillo@0:   return iface;
meillo@0: }
meillo@0: 
meillo@0: #ifdef ENABLE_IDENT /* so far used for that only */
meillo@0: static
meillo@0: struct in_addr *parse_network(gchar *line, gint def_port)
meillo@0: {
meillo@0:   gchar buf[256];
meillo@0:   gchar *p, *q;
meillo@0:   struct in_addr addr, mask_addr, net_addr, *p_net_addr;
meillo@0:   guint n;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "parse_network: %s\n", line);
meillo@0: 
meillo@0:   p = line;
meillo@0:   q = buf;
meillo@0:   while((*p != 0) && (*p != '/') && (q < buf+255))
meillo@0:     *(q++) = *(p++);
meillo@0:   *q = 0;
meillo@0: 
meillo@0:   if((addr.s_addr = inet_addr(buf)) != INADDR_NONE){
meillo@0:     if(*p){
meillo@0:       guint i;
meillo@0:       p++;
meillo@0:       i = atoi(p);
meillo@0:       if((i >= 0) && (i <= 32))
meillo@0: 	n = i ? ~((1 << (32 - i)) - 1) : 0;
meillo@0:       else{
meillo@0: 	fprintf(stderr, "'%d' is not a valid net mask (must be >= 0 and <= 32)\n", i);
meillo@0: 	exit(EXIT_FAILURE);
meillo@0:       }
meillo@0:     }else
meillo@0:       n = 0;
meillo@0:     
meillo@0:     mask_addr.s_addr = htonl(n);
meillo@0:     net_addr.s_addr = mask_addr.s_addr & addr.s_addr;
meillo@0:   }else{
meillo@0:     fprintf(stderr, "'%s' is not a valid address (must be ip)\n", buf);
meillo@0:     exit(EXIT_FAILURE);
meillo@0:   }
meillo@0: 
meillo@0:   p_net_addr = g_malloc(sizeof(struct in_addr));
meillo@0:   p_net_addr->s_addr = net_addr.s_addr;
meillo@0:   return p_net_addr;
meillo@0: }
meillo@0: #endif
meillo@0: 
meillo@0: static
meillo@0: gboolean eat_comments(FILE *in)
meillo@0: {
meillo@0:   gint c;
meillo@0: 
meillo@0:   for(c = fgetc(in); (c == '#' || isspace(c)) && c != EOF; c = fgetc(in)){
meillo@0:     if(c == '#'){
meillo@0:       gint c;
meillo@0:       for(c = fgetc(in); (c != '\n') && (c != EOF); c = fgetc(in));
meillo@0:     }
meillo@0:   }
meillo@0:   if(c == EOF) return FALSE;
meillo@0:   ungetc(c, in);
meillo@0:   return TRUE;
meillo@0: }
meillo@0: 
meillo@0: /* after parsing, eat trailing character until LF */
meillo@0: static
meillo@0: gboolean eat_line_trailing(FILE *in)
meillo@0: {
meillo@0:   gint c;
meillo@0: 
meillo@0:   for(c = fgetc(in); c != EOF && c != '\n'; c = fgetc(in));
meillo@0:   if(c == EOF) return FALSE;
meillo@0:   return TRUE;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: gboolean eat_spaces(FILE *in)
meillo@0: {
meillo@0:   gint c;
meillo@0:   
meillo@0:   for(c = fgetc(in); c != EOF && isspace(c); c = fgetc(in));
meillo@0:   if(c == EOF) return FALSE;
meillo@0:   ungetc(c, in);
meillo@0:   return TRUE;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: gboolean read_lval(FILE *in, gchar *buf, gint size)
meillo@0: {
meillo@0:   gint c;
meillo@0:   gchar *ptr = buf;
meillo@0:   
meillo@0:   DEBUG(6) fprintf(stderr, "read_lval()\n");
meillo@0: 
meillo@0:   if(!eat_spaces(in)) return FALSE;
meillo@0: 
meillo@0:   c = fgetc(in);
meillo@0:   DEBUG(6) fprintf(stderr, "read_lval() 2\n");
meillo@0:   while((isalnum(c) || c == '_' || c == '-' || c == '.')
meillo@0: 	&& (ptr < buf+size-1)
meillo@0: 	&& (c != EOF)
meillo@0: 	){
meillo@0:     *ptr = c; ptr++;
meillo@0:     c = fgetc(in);
meillo@0:   }
meillo@0:   *ptr = 0;
meillo@0:   ungetc(c, in);
meillo@0: 
meillo@0:   if(c == EOF){
meillo@0:     fprintf(stderr, "unexpected EOF after %s\n", buf);
meillo@0:     return FALSE;
meillo@0:   }else if(ptr >= buf+size-1){
meillo@0:     fprintf(stderr, "lval too long\n");
meillo@0:   }
meillo@0: 
meillo@0:   eat_spaces(in);
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "lval = %s\n", buf);
meillo@0: 
meillo@0:   return buf[0] != 0;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: gboolean read_rval(FILE *in, gchar *buf, gint size)
meillo@0: {
meillo@0:   gint c;
meillo@0:   gchar *ptr = buf;
meillo@0:   
meillo@0:   DEBUG(6) fprintf(stderr, "read_rval()\n");
meillo@0: 
meillo@0:   if(!eat_spaces(in)) return FALSE;
meillo@0: 
meillo@0:   c = fgetc(in);
meillo@0:   if(c != '\"'){
meillo@0:     while((isalnum(c) || c == '_' || c == '-' || c == '.' || c == '/' || c == '@' || c == ';')
meillo@0: 	  && (ptr < buf+size-1)
meillo@0: 	  && (c != EOF)
meillo@0: 	  ){
meillo@0:       *ptr = c; ptr++;
meillo@0:       c = fgetc(in);
meillo@0:     }
meillo@0:     *ptr = 0;
meillo@0:     ungetc(c, in);
meillo@0:   }else{
meillo@0:     gboolean escape = FALSE;
meillo@0:     c = fgetc(in);
meillo@0:     while(((c != '\"') || escape) && (ptr < buf+size-1)){
meillo@0:       if(c != '\n'){ /* ignore line breaks */
meillo@0: 	if((c == '\\') && (!escape)){
meillo@0: 	  escape = TRUE;
meillo@0: 	}else{
meillo@0: 	  *ptr = c; ptr++;
meillo@0: 	  escape = FALSE;
meillo@0: 	}
meillo@0:       }
meillo@0:       c = fgetc(in);
meillo@0:     }
meillo@0:     *ptr = 0;
meillo@0:   }
meillo@0:   
meillo@0:   eat_line_trailing(in);
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "rval = %s\n", buf);
meillo@0: 
meillo@0:   return TRUE;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: gboolean read_statement(FILE *in,
meillo@0: 			gchar *lval, gint lsize,
meillo@0: 			gchar *rval, gint rsize)
meillo@0: {
meillo@0:   gint c;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "read_statement()\n");
meillo@0: 
meillo@0:   /* eat comments and empty lines: */
meillo@0:   if(!eat_comments(in)) return FALSE;
meillo@0: 
meillo@0:   DEBUG(6) fprintf(stderr, "read_statement() 1\n");
meillo@0: 
meillo@0:   if(read_lval(in, lval, lsize)){
meillo@0:     DEBUG(6) fprintf(stderr, "lval = %s\n", lval);
meillo@0:     if((c = fgetc(in) == '=')){
meillo@0:       if(read_rval(in, rval, rsize)){
meillo@0: 	DEBUG(6) fprintf(stderr, "rval = %s\n", rval);
meillo@0: 	return TRUE;
meillo@0:       }
meillo@0:     }else{
meillo@0:       fprintf(stderr, "'=' expected after %s, char was '%c'\n", lval, c);
meillo@0:     }
meillo@0:   }
meillo@0:   return FALSE;
meillo@0: }
meillo@0: 
meillo@0: gboolean read_conf(gchar *filename)
meillo@0: {
meillo@0:   FILE *in;
meillo@0: 
meillo@0:   conf.log_max_pri = 7;
meillo@0: 
meillo@0:   conf.remote_port = 25;
meillo@0: 
meillo@0:   conf.do_relay = TRUE;
meillo@0: 
meillo@0:   conf.alias_local_cmp = strcmp;
meillo@0: 
meillo@0:   conf.max_defer_time = 86400*4; /* 4 days */
meillo@0: 
meillo@0:   if((in = fopen(filename, "r"))){
meillo@0:     gchar lval[256], rval[2048];
meillo@0:     while(read_statement(in, lval, 256, rval, 2048)){
meillo@0:       if(strcmp(lval, "debug_level") == 0)
meillo@0: 	conf.debug_level = atoi(rval);
meillo@0:       else if(strcmp(lval, "run_as_user") == 0){
meillo@0: 	if(!conf.run_as_user) /* you should not be able
meillo@0: 				 to reset that flag */
meillo@0: 	  conf.run_as_user = parse_boolean(rval);
meillo@0:       }else if(strcmp(lval, "use_syslog") == 0)
meillo@0: 	conf.use_syslog = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "mail_dir") == 0)
meillo@0: 	conf.mail_dir = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "lock_dir") == 0)
meillo@0: 	conf.lock_dir = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "spool_dir") == 0)
meillo@0: 	conf.spool_dir = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "log_dir") == 0)
meillo@0: 	conf.log_dir = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "host_name") == 0){
meillo@0: 	if(rval[0] != '/')
meillo@0: 	  conf.host_name = g_strdup(rval);
meillo@0: 	else{
meillo@0: 	  char buf[256];
meillo@0: 	  FILE *fptr = fopen(rval, "rt");
meillo@0: 	  if(fptr){
meillo@0: 	    fgets(buf, 255, fptr);
meillo@0: 	    g_strchomp(buf);
meillo@0: 	    conf.host_name = g_strdup(buf);
meillo@0: 	    fclose(fptr);
meillo@0: 	  }else{
meillo@0: 	    fprintf(stderr, "could not open %s: %s\n", rval, strerror(errno));
meillo@0: 	    return FALSE;
meillo@0: 	  }
meillo@0: 	}
meillo@0:       }
meillo@0:       else if(strcmp(lval, "remote_port") == 0){
meillo@0: 	fprintf(stderr,
meillo@0: 		"the remote_port option is now deprecated. Use 'mail_host' in the\n"
meillo@0: 		"route configuration instead. See man masqmail.route\n");
meillo@0: 	conf.remote_port = atoi(rval);
meillo@0:       }else if(strcmp(lval, "local_hosts") == 0)
meillo@0: 	conf.local_hosts = parse_list(rval, FALSE);
meillo@0:       else if(strcmp(lval, "local_addresses") == 0)
meillo@0: 	conf.local_addresses = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "not_local_addresses") == 0)
meillo@0: 	conf.not_local_addresses = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "local_nets") == 0)
meillo@0: 	conf.local_nets = parse_list(rval, FALSE);
meillo@0:       else if(strcmp(lval, "do_save_envelope_to") == 0)
meillo@0: 	conf.do_save_envelope_to = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "defer_all") == 0)
meillo@0: 	conf.defer_all = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "do_relay") == 0)
meillo@0: 	conf.do_relay = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "alias_file") == 0){
meillo@0: 	conf.alias_file = g_strdup(rval);
meillo@0:       }else if(strcmp(lval, "alias_local_caseless") == 0){
meillo@0: 	conf.alias_local_cmp = parse_boolean(rval) ? strcasecmp : strcmp;
meillo@0:       }else if(strcmp(lval, "mbox_default") == 0){
meillo@0: 	conf.mbox_default = g_strdup(rval);
meillo@0:       }else if(strcmp(lval, "mbox_users") == 0){
meillo@0: 	conf.mbox_users = parse_list(rval, TRUE);
meillo@0:       }else if(strcmp(lval, "mda_users") == 0){
meillo@0: 	conf.mda_users = parse_list(rval, TRUE);
meillo@0:       }else if(strcmp(lval, "maildir_users") == 0){
meillo@0: 	conf.maildir_users = parse_list(rval, TRUE);
meillo@0:       }else if(strcmp(lval, "mda") == 0){
meillo@0: 	conf.mda = g_strdup(rval);
meillo@0:       }else if(strcmp(lval, "mda_fromline") == 0){
meillo@0: 	conf.mda_fromline = parse_boolean(rval);
meillo@0:       }else if(strcmp(lval, "mda_fromhack") == 0){
meillo@0: 	conf.mda_fromhack = parse_boolean(rval);
meillo@0:       }else if(strcmp(lval, "pipe_fromline") == 0){
meillo@0: 	conf.pipe_fromline = parse_boolean(rval);
meillo@0:       }else if(strcmp(lval, "pipe_fromhack") == 0){
meillo@0: 	conf.pipe_fromhack = parse_boolean(rval);
meillo@0:       }else if(strcmp(lval, "listen_addresses") == 0){
meillo@0: 	GList *node;
meillo@0: 	GList *tmp_list = parse_list(rval, FALSE);
meillo@0: 	    
meillo@0: 	conf.listen_addresses = NULL;
meillo@0: 	foreach(tmp_list, node){
meillo@0: 	  conf.listen_addresses =
meillo@0: 	    g_list_append(conf.listen_addresses,
meillo@0: 			  parse_interface((gchar *)(node->data), 25));
meillo@0: 	  g_free(node->data);
meillo@0: 	}
meillo@0: 	g_list_free(tmp_list);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "ident_trusted_nets") == 0){
meillo@0: #ifdef ENABLE_IDENT
meillo@0: 	GList *node;
meillo@0: 	GList *tmp_list = parse_list(rval, FALSE);
meillo@0: 	    
meillo@0: 	conf.ident_trusted_nets = NULL;
meillo@0: 	foreach(tmp_list, node){
meillo@0: 	  conf.ident_trusted_nets =
meillo@0: 	    g_list_append(conf.ident_trusted_nets,
meillo@0: 			  parse_network((gchar *)(node->data), 25));
meillo@0: 	  g_free(node->data);
meillo@0: 	}
meillo@0: 	g_list_free(tmp_list);
meillo@0: #else
meillo@0: 	fprintf(stderr, "%s ignored: not compiled with ident support\n", lval);
meillo@0: #endif
meillo@0:       }
meillo@0:       else if((strncmp(lval, "connect_route.", 14) == 0) ||
meillo@0: 	      (strncmp(lval, "online_routes.", 14) == 0)){
meillo@0: 	GList *file_list = parse_list(rval, FALSE);
meillo@0: 	table_pair *pair = create_pair(&(lval[14]), file_list);
meillo@0: 	conf.connect_routes = g_list_append(conf.connect_routes, pair);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "local_net_route") == 0){
meillo@0: 	conf.local_net_routes = parse_list(rval, FALSE);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "online_detect") == 0)
meillo@0: 	conf.online_detect = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "online_file") == 0)
meillo@0: 	conf.online_file = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "online_pipe") == 0)
meillo@0: 	conf.online_pipe = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "mserver_iface") == 0)
meillo@0: 	conf.mserver_iface = parse_interface(rval, 224);
meillo@0:       else if(strcmp(lval, "do_queue") == 0)
meillo@0: 	conf.do_queue = parse_boolean(rval);
meillo@0:       else if(strncmp(lval, "get.", 4) == 0){
meillo@0: #ifdef ENABLE_POP3
meillo@0: 	table_pair *pair = create_pair_string(&(lval[4]), rval);
meillo@0: 	conf.get_names = g_list_append(conf.get_names, pair);
meillo@0: #else
meillo@0: 	fprintf(stderr, "get.<name> ignored: not compiled with pop support\n");
meillo@0: #endif
meillo@0:       }
meillo@0:       else if(strncmp(lval, "online_gets.", 12) == 0){
meillo@0: #ifdef ENABLE_POP3
meillo@0: 	GList *file_list = parse_list(rval, FALSE);
meillo@0: 	table_pair *pair = create_pair(&(lval[12]), file_list);
meillo@0: 	conf.online_gets = g_list_append(conf.online_gets, pair);
meillo@0: #else
meillo@0: 	fprintf(stderr, "online_gets.<name> ignored: not compiled with pop support\n");
meillo@0: #endif
meillo@0:       }
meillo@0:       else if(strcmp(lval, "errmsg_file") == 0)
meillo@0: 	conf.errmsg_file = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "warnmsg_file") == 0)
meillo@0: 	conf.warnmsg_file = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "warn_intervals") == 0)
meillo@0: 	conf.warn_intervals = parse_list(rval, FALSE);
meillo@0:       else if(strcmp(lval, "max_defer_time") == 0){
meillo@0: 	gint dummy;
meillo@0: 	gint ival = time_interval(rval, &dummy);
meillo@0: 	if(ival < 0)
meillo@0: 	  fprintf(stderr, "invalid time interval for 'max_defer_time': %s\n", rval);
meillo@0: 	else
meillo@0: 	  conf.max_defer_time = ival;
meillo@0:       }else if(strcmp(lval, "log_user") == 0)
meillo@0: 	conf.log_user = g_strdup(rval);
meillo@0: 
meillo@0:       else
meillo@0: 	fprintf(stderr, "var '%s' not (yet) known, ignored\n", lval);
meillo@0:     }
meillo@0:     fclose(in);
meillo@0: 
meillo@0:     if(conf.errmsg_file == NULL)
meillo@0:       conf.errmsg_file = g_strdup(DATA_DIR"/tpl/failmsg.tpl");
meillo@0:     if(conf.warnmsg_file == NULL)
meillo@0:       conf.warnmsg_file = g_strdup(DATA_DIR"/tpl/warnmsg.tpl");
meillo@0: 
meillo@0:     if(conf.lock_dir == NULL)
meillo@0:       conf.lock_dir = g_strdup_printf("%s/lock/", conf.spool_dir);
meillo@0: 
meillo@0:     if(conf.mbox_default == NULL)
meillo@0:       conf.mbox_default = g_strdup("mbox");
meillo@0: 
meillo@0:     if(conf.warn_intervals == NULL)
meillo@0:       conf.warn_intervals = parse_list("1h;4h;8h;1d;2d;3d", FALSE);
meillo@0: 
meillo@0:     return TRUE;
meillo@0:   }else
meillo@0:     fprintf(stderr, "could not open config file %s: %s\n", filename, strerror(errno));
meillo@0:   return FALSE;
meillo@0: }
meillo@0: 
meillo@0: connect_route *read_route(gchar *filename, gboolean is_local_net)
meillo@0: {
meillo@0:   gboolean ok = FALSE;
meillo@0:   FILE *in;
meillo@0: 
meillo@0:   connect_route *route = g_malloc(sizeof(connect_route));
meillo@0:   memset(route, 0, sizeof(connect_route));
meillo@0: 
meillo@0:   DEBUG(5) debugf("read_route, filename = %s\n", filename);
meillo@0: 
meillo@0:   route->filename = g_strdup(filename);
meillo@0:   route->name = g_strdup(filename); /* quick hack */
meillo@0: 
meillo@0:   route->protocol = g_strdup("smtp");
meillo@0:   route->expand_h_sender_address = TRUE;
meillo@0: 
meillo@0:   route->is_local_net = is_local_net;
meillo@0: 
meillo@0:   route->do_pipelining = TRUE;
meillo@0: 
meillo@0:   if((in = fopen(route->filename, "r"))){
meillo@0:     gchar lval[256], rval[2048];
meillo@0:     while(read_statement(in, lval, 256, rval, 2048)){
meillo@0:       if(strcmp(lval, "protocol") == 0)
meillo@0: 	route->protocol = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "mail_host") == 0)
meillo@0: 	route->mail_host = parse_interface(rval, conf.remote_port);
meillo@0:       else if(strcmp(lval, "helo_name") == 0)
meillo@0: 	route->helo_name = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "wrapper") == 0)
meillo@0: 	route->wrapper = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "connect_error_fail") == 0)
meillo@0: 	route->connect_error_fail = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "do_correct_helo") == 0)
meillo@0: 	route->do_correct_helo = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "do_pipelining") == 0)
meillo@0: 	route->do_pipelining = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "allowed_return_paths") == 0)
meillo@0: 	route->allowed_return_paths = parse_address_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "allowed_mail_locals") == 0)
meillo@0: 	route->allowed_mail_locals = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "not_allowed_return_paths") == 0)
meillo@0: 	route->not_allowed_return_paths = parse_address_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "not_allowed_mail_locals") == 0)
meillo@0: 	route->not_allowed_mail_locals = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "allowed_rcpt_domains") == 0)
meillo@0: 	route->allowed_rcpt_domains = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "not_allowed_rcpt_domains") == 0)
meillo@0: 	route->not_allowed_rcpt_domains = parse_list(rval, TRUE);
meillo@0:       else if(strcmp(lval, "set_h_from_domain") == 0)
meillo@0: 	route->set_h_from_domain = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "set_h_reply_to_domain") == 0)
meillo@0: 	route->set_h_reply_to_domain = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "set_return_path_domain") == 0)
meillo@0: 	route->set_return_path_domain = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "map_return_path_addresses") == 0){
meillo@0: 	GList *node, *list;
meillo@0: 
meillo@0: 	list = parse_list(rval, TRUE);
meillo@0: 	foreach(list, node){
meillo@0: 	  gchar *item = (gchar *)(node->data);
meillo@0: 	  table_pair *pair = parse_table_pair(item, ':');
meillo@0: 	  address *addr = create_address((gchar *)(pair->value), TRUE);
meillo@0: 	  g_free(pair->value);
meillo@0: 	  pair->value = (gpointer *)addr;
meillo@0: 	  route->map_return_path_addresses =
meillo@0: 	    g_list_append(route->map_return_path_addresses, pair);
meillo@0: 	  g_free(item);
meillo@0: 	}
meillo@0: 	g_list_free(list);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "map_h_from_addresses") == 0){
meillo@0: 	GList *list, *node;
meillo@0: 
meillo@0: 	list = parse_list(rval, TRUE);
meillo@0: 	foreach(list, node){
meillo@0: 	  gchar *item = (gchar *)(node->data);
meillo@0: 	  table_pair *pair = parse_table_pair(item, ':');
meillo@0: 	  route->map_h_from_addresses = 
meillo@0: 	    g_list_append(route->map_h_from_addresses, pair);
meillo@0: 	  g_free(item);
meillo@0: 	}
meillo@0: 	g_list_free(list);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "map_h_reply_to_addresses") == 0){
meillo@0: 	GList *list, *node;
meillo@0: 
meillo@0: 	list = parse_list(rval, TRUE);
meillo@0: 	foreach(list, node){
meillo@0: 	  gchar *item = (gchar *)(node->data);
meillo@0: 	  table_pair *pair = parse_table_pair(item, ':');
meillo@0: 	  route->map_h_reply_to_addresses = 
meillo@0: 	    g_list_append(route->map_h_reply_to_addresses, pair);
meillo@0: 	  g_free(item);
meillo@0: 	}
meillo@0: 	g_list_free(list);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "map_h_mail_followup_to_addresses") == 0){
meillo@0: 	GList *list, *node;
meillo@0: 
meillo@0: 	list = parse_list(rval, TRUE);
meillo@0: 	foreach(list, node){
meillo@0: 	  gchar *item = (gchar *)(node->data);
meillo@0: 	  table_pair *pair = parse_table_pair(item, ':');
meillo@0: 	  route->map_h_mail_followup_to_addresses = 
meillo@0: 	    g_list_append(route->map_h_mail_followup_to_addresses, pair);
meillo@0: 	  g_free(item);
meillo@0: 	}
meillo@0: 	g_list_free(list);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "expand_h_sender_domain") == 0){
meillo@0: 	route->expand_h_sender_domain = parse_boolean(rval);	    
meillo@0:       }
meillo@0:       else if(strcmp(lval, "expand_h_sender_address") == 0){
meillo@0: 	route->expand_h_sender_address = parse_boolean(rval);	    
meillo@0:       }
meillo@0:       else if(strcmp(lval, "resolve_list") == 0)
meillo@0: 	route->resolve_list = parse_resolve_list(rval);
meillo@0:       else if(strcmp(lval, "do_ssl") == 0){
meillo@0: 	/* we ignore this. This option is used by sqilconf */
meillo@0: 	;
meillo@0:       }
meillo@0: #ifdef ENABLE_AUTH
meillo@0:       else if(strcmp(lval, "auth_name") == 0){
meillo@0: 	route->auth_name = g_strdup(rval);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "auth_login") == 0){
meillo@0: 	route->auth_login = g_strdup(rval);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "auth_secret") == 0){
meillo@0: 	route->auth_secret = g_strdup(rval);
meillo@0:       }
meillo@0: #else
meillo@0:       else if((strcmp(lval, "auth_name") == 0) ||
meillo@0: 	      (strcmp(lval, "auth_login") == 0) ||
meillo@0: 	      (strcmp(lval, "auth_secret") == 0)){
meillo@0: 	logwrite(LOG_WARNING, "%s ignored: not compiled with auth support.\n", lval);
meillo@0:       }
meillo@0: #endif
meillo@0:       else if(strcmp(lval, "pop3_login") == 0){
meillo@0: #ifdef ENABLE_POP3
meillo@0: 	route->pop3_login = g_strdup(rval);
meillo@0: #else
meillo@0: 	logwrite(LOG_WARNING, "pop3_login ignored: not compiled with pop support.\n");
meillo@0: #endif
meillo@0:       }
meillo@0:       else if(strcmp(lval, "pipe") == 0){
meillo@0: 	route->pipe = g_strdup(rval);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "pipe_fromline") == 0){
meillo@0: 	route->pipe_fromline = parse_boolean(rval);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "pipe_fromhack") == 0){
meillo@0: 	route->pipe_fromhack = parse_boolean(rval);
meillo@0:       }
meillo@0:       else if(strcmp(lval, "last_route") == 0){
meillo@0: 	route->last_route = parse_boolean(rval);
meillo@0:       }
meillo@0:       else
meillo@0: 	logwrite(LOG_WARNING, "var '%s' not (yet) known, ignored\n", lval);
meillo@0:     }
meillo@0: 
meillo@0:     if(route->resolve_list == NULL){
meillo@0:       if(is_local_net){
meillo@0: 	route->resolve_list =
meillo@0: 	  g_list_append(NULL, resolve_byname);
meillo@0:       }else{
meillo@0: #ifdef ENABLE_RESOLVER
meillo@0: 	route->resolve_list =
meillo@0: 	  g_list_append(route->resolve_list, resolve_dns_mx);
meillo@0: 	route->resolve_list =
meillo@0: 	  g_list_append(route->resolve_list, resolve_dns_a);
meillo@0: #endif
meillo@0: 	route->resolve_list =
meillo@0: 	  g_list_append(route->resolve_list, resolve_byname);
meillo@0:       }
meillo@0:     }
meillo@0:     fclose(in);
meillo@0:     ok = TRUE;
meillo@0: 
meillo@0:     /* warn user about misconfigurations: */
meillo@0:     if((route->map_h_from_addresses != NULL) && (route->set_h_from_domain != NULL)){
meillo@0:       logwrite(LOG_WARNING, "'map_h_from_addresses' overrides 'set_h_from_domain'\n");
meillo@0:       g_free(route->set_h_from_domain);
meillo@0:       route->set_h_from_domain = NULL;
meillo@0:     }
meillo@0:     if((route->map_h_reply_to_addresses != NULL) && (route->set_h_reply_to_domain != NULL)){
meillo@0:       logwrite(LOG_WARNING, "'map_h_reply_to_addresses' overrides 'set_h_reply_to_domain'\n");
meillo@0:       g_free(route->set_h_reply_to_domain);
meillo@0:       route->set_h_reply_to_domain = NULL;
meillo@0:     }
meillo@0:   }else{
meillo@0:     logwrite(LOG_ALERT, "could not open route file %s: %s\n",
meillo@0: 	     route->filename, strerror(errno));
meillo@0:   }
meillo@0: 
meillo@0:   if(!ok){
meillo@0:     g_free(route);
meillo@0:     route = NULL;
meillo@0:   }
meillo@0: 
meillo@0:   return route;
meillo@0: }
meillo@0: 
meillo@0: static
meillo@0: void _g_list_free_all(GList *list)
meillo@0: {
meillo@0:   GList *node;
meillo@0:   if(list){
meillo@0:     foreach(list, node)
meillo@0:       g_free(node->data);
meillo@0:     g_list_free(list);
meillo@0:   }
meillo@0: }
meillo@0: 
meillo@0: void destroy_route(connect_route *r)
meillo@0: {
meillo@0:   if(r->filename) g_free(r->filename);
meillo@0:   if(r->protocol) g_free(r->protocol);
meillo@0:   if(r->mail_host){
meillo@0:     g_free(r->mail_host->address);
meillo@0:     g_free(r->mail_host);
meillo@0:   }
meillo@0:   if(r->wrapper) g_free(r->wrapper);
meillo@0:   if(r->helo_name) g_free(r->helo_name);
meillo@0:   _g_list_free_all(r->allowed_mail_locals);
meillo@0:   _g_list_free_all(r->not_allowed_mail_locals);
meillo@0:   _g_list_free_all(r->allowed_rcpt_domains);
meillo@0:   _g_list_free_all(r->not_allowed_rcpt_domains);
meillo@0:   if(r->set_h_from_domain) g_free(r->set_h_from_domain);
meillo@0:   if(r->set_h_reply_to_domain) g_free(r->set_h_reply_to_domain);
meillo@0:   if(r->set_return_path_domain) g_free(r->set_return_path_domain);
meillo@0:   if(r->map_h_reply_to_addresses) destroy_table(r->map_h_reply_to_addresses);
meillo@0:   if(r->resolve_list) g_list_free(r->resolve_list);
meillo@0: #ifdef ENABLE_AUTH
meillo@0:   if(r->auth_name) g_free(r->auth_name);
meillo@0:   if(r->auth_login) g_free(r->auth_login);
meillo@0:   if(r->auth_secret) g_free(r->auth_secret);
meillo@0: #endif
meillo@0: #ifdef ENABLE_POP3
meillo@0:   if(r->pop3_login) g_free(r->pop3_login);
meillo@0: #endif
meillo@0:   if(r->pipe) g_free(r->pipe);
meillo@0:   g_free(r);
meillo@0: }
meillo@0: 
meillo@0: GList *read_route_list(GList *rf_list, gboolean is_local_net)
meillo@0: {
meillo@0:   GList *list = NULL;
meillo@0:   GList *node;
meillo@0:   uid_t saved_uid, saved_gid;
meillo@0: 
meillo@0:   if(!conf.run_as_user){
meillo@0:     set_euidgid(0, 0, &saved_uid, &saved_gid);
meillo@0:   }
meillo@0: 
meillo@0:   foreach(rf_list, node){
meillo@0:     gchar *fname = (gchar *)(node->data);
meillo@0:     connect_route *route = read_route(fname, is_local_net);
meillo@0:     if(route)
meillo@0:       list = g_list_append(list, route);
meillo@0:     else
meillo@0:       logwrite(LOG_ALERT, "could not read route configuration %s\n", fname);
meillo@0:   }
meillo@0: 
meillo@0:   /* set uid and gid back */
meillo@0:   if(!conf.run_as_user){
meillo@0:     set_euidgid(saved_uid, saved_gid, NULL, NULL);
meillo@0:   }
meillo@0: 
meillo@0:   return list;
meillo@0: }
meillo@0: 
meillo@0: void destroy_route_list(GList *list)
meillo@0: {
meillo@0:   GList *node;
meillo@0: 
meillo@0:   foreach(list, node){
meillo@0:     connect_route *route = (connect_route *)(node->data);
meillo@0:     destroy_route(route);
meillo@0:   }
meillo@0:   g_list_free(list);
meillo@0: }
meillo@0: 
meillo@0: #ifdef ENABLE_POP3
meillo@0: 
meillo@0: get_conf *read_get_conf(gchar *filename)
meillo@0: {
meillo@0:   FILE *in;
meillo@0: 
meillo@0:   get_conf *gc = g_malloc(sizeof(get_conf));
meillo@0:   memset(gc, 0, sizeof(get_conf));
meillo@0: 
meillo@0:   gc->server_port = 110;
meillo@0: 
meillo@0:   if((in = fopen(filename, "r"))){
meillo@0:     gchar lval[256], rval[2048];
meillo@0:     while(read_statement(in, lval, 256, rval, 2048)){
meillo@0:       if(strcmp(lval, "protocol") == 0)
meillo@0: 	gc->protocol = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "server") == 0)
meillo@0: 	gc->server_name = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "port") == 0)
meillo@0: 	gc->server_port = atoi(rval);
meillo@0:       else if(strcmp(lval, "wrapper") == 0)
meillo@0: 	gc->wrapper = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "user") == 0)
meillo@0: 	gc->login_user = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "pass") == 0)
meillo@0: 	gc->login_pass = g_strdup(rval);
meillo@0:       else if(strcmp(lval, "address") == 0)
meillo@0: 	gc->address = create_address_qualified(rval, TRUE, conf.host_name);
meillo@0:       else if(strcmp(lval, "return_path") == 0)
meillo@0: 	gc->return_path = create_address_qualified(rval, TRUE, conf.host_name);
meillo@0:       else if(strcmp(lval, "do_ssl") == 0)
meillo@0: 	/* we ignore this. This option is used by sqilconf */
meillo@0: 	;
meillo@0:       else if(strcmp(lval, "do_keep") == 0)
meillo@0: 	gc->do_keep = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "do_uidl") == 0)
meillo@0: 	gc->do_uidl = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "do_uidl_dele") == 0)
meillo@0: 	gc->do_uidl_dele = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "max_size") == 0)
meillo@0: 	gc->max_size = atoi(rval);
meillo@0:       else if(strcmp(lval, "max_size_delete") == 0)
meillo@0: 	gc->max_size = parse_boolean(rval);
meillo@0:       else if(strcmp(lval, "max_count") == 0)
meillo@0: 	gc->max_count = atoi(rval);
meillo@0:       else if(strcmp(lval, "resolve_list") == 0)
meillo@0: 	gc->resolve_list = parse_resolve_list(rval);
meillo@0:       else
meillo@0: 	logwrite(LOG_WARNING, "var '%s' not (yet) known, ignored\n", lval);
meillo@0:     }
meillo@0:     fclose(in);
meillo@0: 
meillo@0:     if(gc->resolve_list == NULL){
meillo@0: #ifdef ENABLE_RESOLVER
meillo@0:       gc->resolve_list =
meillo@0: 	g_list_append(NULL, resolve_dns_a);
meillo@0: #endif
meillo@0:       gc->resolve_list =
meillo@0: 	g_list_append(NULL, resolve_byname);
meillo@0:     }
meillo@0:     
meillo@0:     if(gc->protocol == NULL)
meillo@0:       gc->protocol = g_strdup("pop3");
meillo@0:     return gc;
meillo@0:   }
meillo@0:   logwrite(LOG_ALERT, "could not open get file %s: %s\n", filename, strerror(errno));
meillo@0: 
meillo@0:   g_free(gc);
meillo@0:   return NULL;
meillo@0: }
meillo@0: 
meillo@0: void destroy_get_conf(get_conf *gc)
meillo@0: {
meillo@0:   if(gc->protocol) g_free(gc->protocol);
meillo@0:   if(gc->server_name) g_free(gc->server_name);
meillo@0:   if(gc->login_user) g_free(gc->login_user);
meillo@0:   if(gc->login_pass) g_free(gc->login_pass);
meillo@0:   if(gc->wrapper) g_free(gc->wrapper);
meillo@0:   if(gc->address) destroy_address(gc->address);
meillo@0:   if(gc->return_path) destroy_address(gc->return_path);
meillo@0:   if(gc->resolve_list) g_list_free(gc->resolve_list);
meillo@0:   g_free(gc);
meillo@0: }
meillo@0: 
meillo@0: #endif
meillo@0: 
meillo@0: connect_route *create_local_route()
meillo@0: {
meillo@0:   connect_route *route;
meillo@0: 
meillo@0:   route = g_malloc(sizeof(connect_route));
meillo@0:   if(route){
meillo@0:     memset(route, 0, sizeof(connect_route));
meillo@0:     route->protocol = g_strdup("smtp");
meillo@0:     route->is_local_net = TRUE;
meillo@0:     route->name = g_strdup("local_net (default)");
meillo@0:     route->expand_h_sender_address = TRUE;
meillo@0:     route->resolve_list =
meillo@0:       g_list_append(NULL, resolve_byname);
meillo@0:     route->connect_error_fail = TRUE;
meillo@0:   }
meillo@0:   return route;
meillo@0: }