mailcfg.c

/*
 * mailcfg.c
 *
 * Copyright (C) 1999,2001,2002,2003,2007 Staf Wagemakers Belgie/Belgium
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 */

#include "cgipaf_defs.h"
#define  FORWARD               "forward"
#define  FORWARD_TO            "forward_to"
#define  AUTOREPLY             "autoreply"
#define  AUTOREPLY_MSG         "autoreply_msg"
#define  PROCMAIL              ".procmailrc"
#define  DOTFORWARD            ".forward"
#define  KEEP_MSG              "keep_msg"
#define  SENDMAIL              "sendmail"
#define  FORMAIL               "formail"
#define  CFGDOMAIN             "domain"

char txt_yes[]="yes";
char txt_no[]="no";

void yes_no(char *test,char *name,char *not_name,int *state) 
{
   if(test==NULL) return;

   if (!strcasecmp(test,txt_yes)) {
      strcpy(name,txt_yes);
      strcpy(not_name,txt_no);
      *state=1;
   }
   else {
      strcpy(name,txt_no);
      strcpy(not_name,txt_yes);
      *state=0;
   }
}

int main()
{
   int    forward_state=0;
   int    keep_state=0;
   int    autoreply_state=0;
   int    oldstate=0;
   int    newstate=0;
   int 	  mailcfg_check=1;
   char   *c=NULL;
   char   *sendmail=NULL;
   char   *formail=NULL;
   char   *domain=NULL;
   char   txt_sendmail[]="/usr/lib/sendmail";
   char   txt_formail[]="formail";
   FILE   *fp;
   WEBDATA *cookies;
#include "cgipaf_vars.h"

   write_log(LOG_USER,7,"mailcfg.c started");

#include "cgipaf_init.c"


   /* set name to the loginname send by viewmailcfg.cgi */
   
   name=NULL;
   if ((cp=get_postitem(data,LOGIN))!=NULL) {
      name=textarea2asc(cp);
      options[0][1]=xmalloc(strlen(name)+1);
      strcpy(options[0][1],name);
      xfree(cp);
   }
   
   /* set forward and not_forward */
   
   c=get_postitem(data,FORWARD);
   yes_no(c,forward,not_forward,&forward_state);
   xfree(c);

   /* set forward_to */
   
   c=get_postitem(data,FORWARD_TO);
   if(c!=NULL) {
      char *c2;
      c2=textarea2asc(c);
      if(c2==NULL) {
	 print_txt_msg("out of memory");
	 write_log(LOG_USER,0,"out of memory");
	 exit(0);
      }
      xfree(c);
      forward_to=xmalloc(strlen(c2)+1);
      strcpy(forward_to,c2);
      xfree(c2);
   }

   /* set keep_msg */
   
   c=get_postitem(data,KEEP_MSG);
   yes_no(c,keep_msg,not_keep_msg,&keep_state);
   xfree(c);
   
   /* set autoreply */
   
   c=get_postitem(data,AUTOREPLY);
   yes_no(c,autoreply,not_autoreply,&autoreply_state);
   xfree(c);

   /* set autoreply_msg */
   
   c=get_postitem(data,AUTOREPLY_MSG);
   if(c!=NULL) {
      autoreply_msg=textarea2asc(c);
      xfree(c);
   }
   
   /* copy the data in the options array */
   
   options[6][1]=forward_to;
   options[13][1]=autoreply_msg;
   
   /* if name is NULL or has no lenght show error and exit */
   
   if (name==NULL) {
      write_log(LOG_AUTHPRIV,3,err_mcfg_readname);
      show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_READNAME,err_mcfg_readname,options,txt_message);
   }
   if (strlen(name)<1) {
      write_log(LOG_AUTHPRIV,3,err_mcfg_readname);
      show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_READNAME,err_mcfg_readname,options,txt_message);
   }

   /* if name="root" show error and exit */
   
   if (!strcmp(name,ROOT)) {
      write_log(LOG_AUTHPRIV,5,warn_root);
      show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_ACCESS,err_access,options,txt_message);
   }

   /* Is mailcfg check enabled? */

   if((cp=get_section_config_item(config_file,CFGSECTION,RUN_MAILCFG))==NULL) {

      /* if there is no run_mailcfg script, mailcfg_check is always enabled */

      xfree(cp);
      mailcfg_check=1;
      write_log(LOG_USER,7,"no run_mailcfg script -> mailcfg check enabled");

   }

   else {

	 /* get the mailcfg_check setting out the cfgfile */
   
         if ((cp=get_section_config_item(config_file,CFGSECTION,CFG_MAILCFG_CHECK))!=NULL) {

            if (is_var_yes(cp)==0) {

	       mailcfg_check=0;
               write_log(LOG_USER,7,"mailcfg check disabled");

            }
            else {
	           mailcfg_check=1;
	           write_log(LOG_USER,7,"mailcfg check enabled");
            }

         }
         else {
		 /* no mailcfg_check setting, mailcfg_check is enabled by default */
		 mailcfg_check=1;
	         write_log(LOG_USER,7,"mailcfg_check is not defined, using default (enabled)");


	 }

    }

   
   if(mailcfg_check) {


      /* if forward has no length show error and exit */
   
      if (strlen(forward)<1) {

     	    write_log(LOG_USER,5,err_forward);
      	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_FORWARD,err_forward,options,
			      txt_message);
      }

      /* if mailforwarding is enabled evaluate forward_to and keep_msg */
   
      if (!strcasecmp(forward,txt_yes)) {

     	 write_log(LOG_USER,7,"User %s want to enable mailforwarding",name);
      
      	 /* forward_to has no length or is an invalid mailaddress, exit */
      
      	 if (strlen(forward_to)<1) {

	    write_log(LOG_USER,7,"forward_to has zero length, display err_forwardto");
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_FORWARDTO,err_forwardto,options,
			      txt_message);
         }

         if (!tst_emailaddress(forward_to)) {
	 
	    write_log(LOG_USER,7,"forward_to has zero length, display err_forwardto");
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_INVALIDFORWARDTO,
			      err_invalidforwardto,options,txt_message);
         } 

         /* if keep_msg has no length exit */
      
         if (strlen(keep_msg)<1) {

	    write_log(LOG_USER,5,err_keep_msg);
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_KEEP_MSG,err_keep_msg,options,
			      txt_message);
         }
     }

     /* if autoreply has no length show error and exit */
   
     if (strlen(autoreply)<1) {

        write_log(LOG_USER,5,err_autoreply);
        show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_AUTOREPLY,err_autoreply,options,
		  	  txt_message);
     }
   
     /* if autoreply is enabled check autoreply_msg */
   
     if ((strlen(autoreply_msg)<1)&&!strcasecmp(autoreply,txt_yes)) {

        write_log(LOG_USER,7,"autoreply is enabled, and autoreply_msg has zero length, display err_autoreplymsg");
        show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_AUTOREPLYMSG,err_autoreplymsg,options,
			  txt_message);

     }

   }


#include "cgipaf_pwlocation.c"

   if (usermaildomain!=NULL) {
      domain=options[20][1]=usermaildomain;
   }

   /* get the user info, if the user doesn't exsist show error and exit */
   
   if (!(pw=get_pw(name))) {
      write_log(LOG_AUTHPRIV,1,"try to use mailcfg.cgi as %s which doesn't exist");
      show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_INVALID,err_invalid,options,txt_message);
   };

   
   options[19][1]=pw->p->pw_dir;
   
   /* get the cookies */
   
   cookies=get_cookies();

   /* i need cookies or i leave */
   
   if(cookies==NULL) {
      write_log(LOG_AUTHPRIV,1,"get_cookies() failed");
      show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_COOKIE,err_cookie,options,txt_message);
   }
   else {
      
      /* i want my cookie or i quit */
      
      if((cookie=get_cookie(cookies,"cgipaf"))==NULL) {
	 write_log(LOG_AUTHPRIV,1,"get_cookie() failed");
	 show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_ACCESS,err_access,options,txt_message);
      }
      else{
	 
	 /* i dont like old cookies */

	 if (!cmp_access_cookie(accessdb,options[0][1],cookie,cookie_timeout)) {
	    write_log(LOG_AUTHPRIV,6,"cookie timeout for user %s",options[0][1]);
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_COOKIETIMEOUT,err_cookietimeout,options,txt_message);
	 }
      }
   }

   /* login=ok, god becomes human */
   
   write_log(LOG_USER,7,"set gid to %d",pw->p->pw_gid);
   if (setgid(pw->p->pw_gid)==-1) {
      write_log(LOG_USER,7,"setgid() failed");
   }
   write_log(LOG_USER,7,"set uid to %d",pw->p->pw_uid);
   if (setuid(pw->p->pw_uid)==-1) {
      write_log(LOG_USER,7,"setuid failed");
   }
   write_log(LOG_USER,7,"set umask to 0177");
   umask(0177);


   if (mailcfg_check) {

      /* get the previous mailcfg state out the user's .cgipaf_state file */
      
   	write_log(LOG_USER,7,"mailcfg_check is enabled, vrfing current state");

      if ((oldstate=get_mailcfg_status(pw))==-1) 
         write_log(LOG_USER,7,
		 "failed to read old status file .cgipaf_state: %s for user %s",strerror(errno),name);
   
      /* calculate the new state */
   
      newstate=forward_state+2*keep_state+4*autoreply_state; 
         
         write_log(LOG_USER,7,"newstate = %d",newstate);
         write_log(LOG_USER,7,"oldstate = %d",newstate);
   
      if (oldstate==-1) oldstate=0;  /* if .cgipaf_state doesnt exists asume state 0 */
   
      /* if not configured  -> configured
       * run run_before_mailcfg
       */
   
      if (!oldstate&&newstate) {

         i=run_cmd(config_file,CFGSECTION,RUN_BEFORE_MAILCFG,options,set_script_filename);

         if (i<0) {

	    if (i==-1)
	       write_log(LOG_USER,1,"Can't executed %s %s",RUN_BEFORE_MAILCFG,strerror(errno));
         }
         else
	      if ((i=WEXITSTATUS(i)))
	         write_log(LOG_USER,1,"run_before returns a non-null exitcode %d",i);
      }
   
      /* copy the user's message to $HOME/vacations.txt */
      
      if (!(fp=fopen(add2home(pw->p,"vacations.txt"),"w"))) {

         write_log(LOG_USER,1,err_openvacations);	
         show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_OPENVACATIONS,err_openvacations,
			   options,txt_message);

      }
      fputs(autoreply_msg,fp);
      fclose(fp);

   }

   /* use run_mailcfg instead of built-in? */
   
   if ((cp=get_section_config_item(config_file,CFGSECTION,RUN_MAILCFG))!=NULL) {

      xfree(cp);
      write_log(LOG_USER,7,"starting run_mailcfg");
      i=run_cmd(config_file,CFGSECTION,RUN_MAILCFG,options,set_script_filename);
      if(i<0)
	write_log(LOG_USER,1,"run_mailcfg failed, run_cmd() returns %d",i);
      else
	if((i=WEXITSTATUS(i)))
	  write_log(LOG_USER,1,"run_mailcfg returns a non-null value %d",i);
      if(i!=0) {
	 snprintf(mailcfg_exitcode_txt,80,"%d",i);
	 if(show_msg(config_file,doc_root,CFGSECTION,ERR_MAILCFGSCRIPT,err_mailcfgscript,options,txt_message)==2) printf("%d",i);
	 if(config_file!=NULL) fclose(config_file);
	 exit(0);
      }
   }
   else {
      /* deletes the user's .forward */
      
      c=add2home(pw->p,DOTFORWARD);
      if (c!=NULL) {
	 if (unlink(c)==-1) {
	    if (!(errno==ENOENT)) {
	       xfree(c);
	       write_log(LOG_USER,1,err_delforward);
	       show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_DELFORWARD,err_delforward,options,txt_message);
	    } 
	 }
	 xfree(c);
      }
 
      /* deletes the user's .procmail */
   
      c=add2home(pw->p,PROCMAIL);
      if (c!=NULL) {
	 if (unlink(c)==-1) {
	    if (!(errno==ENOENT)) {
	       xfree(c);
	       write_log(LOG_USER,1,err_delprocmail);
	       show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_DELPROCMAIL,err_delprocmail,options,txt_message);
	    } 
	 }
	 xfree(c);
      }
      
      
      /* if auto replay if enabled create a new .procmailrc */
      
      if(!strcmp(autoreply,txt_yes)||!strcmp(forward,txt_yes)) {
	 if(write_procmailrchead(pw,sendmail,formail)==-1) {
	    write_log(LOG_USER,1,"%s write_procmailrchead() failed",err_updateprocmailrc);
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_UPDATEPROCMAILRC,err_updateprocmailrc,options,txt_message);
	 }
      }
      
      if (!strcmp(autoreply,txt_yes)) {
	 if(enable_reply(pw,domain)==-1) {
	    write_log(LOG_USER,1,"%s enable_reply() failed",err_updateprocmailrc);
	    show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_UPDATEPROCMAILRC,err_updateprocmailrc,options,txt_message);
	 }
      }
      
      /* enable mail forwardin in .procmailrc */
      
      if (!strcmp(forward,txt_yes)) {
	 if (!strcmp(keep_msg,txt_yes)) {
	    if (enable_kforward(pw,textarea2asc(forward_to),domain)==-1) {
	       write_log(LOG_USER,1,"%s enable_kforward() failed",err_updateprocmailrc);
	       show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_UPDATEPROCMAILRC,err_updateprocmailrc,options,txt_message);
	    }
	 }
	 else {
	    if(enable_forward(pw,textarea2asc(forward_to),domain)==-1) {
	       write_log(LOG_USER,1,"%s enable_forward() failed",err_updateprocmailrc);
	       show_msg_and_exit(config_file,doc_root,CFGSECTION,ERR_UPDATEPROCMAILRC,err_updateprocmailrc,options,txt_message);
	    }
	 }
      }
   }

   if (mailcfg_check) {
   
      /* mail config update, inform the user */
      
      show_msgs(config_file,doc_root,CFGSECTION,msg_success,msg_updated,options,txt_message);
      write_log(LOG_AUTHPRIV,6,"User %s has updated his mail configuration successfully",name);
      
      /* create the user's .cgipaf_state */
      
      if (save_mailcfg_status(pw->p,forward_state,textarea2asc(forward_to),
			     keep_state,autoreply_state)==-1) {

         write_log(LOG_USER,1,"Can't create statefile %s",strerror(errno));
   
      }
   
      /* start run_success if defined */
   
      i=run_cmd(config_file,CFGSECTION,RUN_SUCCESS,options,set_script_filename);
      if (i<0) {
         if (i==-1)
	    write_log(LOG_USER,1,"Can't executed run_success %s",strerror(errno));
      }
      else
         if ((i=WEXITSTATUS(i)))
            write_log(LOG_USER,1,"run_success returns a non-null value",i);

      /* 
       * if configured -> not configured
       * run run_after_mailcfg
       */
   
      if (oldstate&&!newstate) {

	 i=run_cmd(config_file,CFGSECTION,RUN_AFTER_MAILCFG,options,set_script_filename);

      if(i<0) {
	 if(i==-1)
	   write_log(LOG_USER,1,"Can't executed %s %s",RUN_BEFORE_MAILCFG,strerror(errno));
      }
      else
	if((i=WEXITSTATUS(i)))
	  write_log(LOG_USER,1,"run_after_mailcfg returns a non-null value %d",i);
      }

   }

   if(config_file!=NULL) fclose(config_file);
	
   return(0);
}