/*  MasqMail
    Copyright (C) 2000-2001 Oliver Kurth

    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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/

#include "masqmail.h"

#define MAX_VAR 50

GList *var_table_rcpt(GList *var_table, address *rcpt)
{
    gchar *tmp_str;
    
    var_table = g_list_prepend(var_table, create_pair_string("rcpt_local", rcpt->local_part));
    var_table = g_list_prepend(var_table, create_pair_string("rcpt_domain", rcpt->domain));
    
    tmp_str = g_strdup_printf("%s@%s", rcpt->local_part, rcpt->domain);
    var_table = g_list_prepend(var_table, create_pair_string("rcpt", tmp_str));
    g_free(tmp_str);

    return var_table;
}

GList *var_table_msg(GList *var_table, message *msg)
{
    address *ret_path = msg->return_path;
    gchar *tmp_str;
    
    var_table = g_list_prepend(var_table, create_pair_string("uid", msg->uid));
    var_table = g_list_prepend(var_table, create_pair_string("received_host",
							    msg->received_host ? msg->received_host : ""));
    var_table = g_list_prepend(var_table, create_pair_string("ident", msg->ident ? msg->ident : ""));
    var_table = g_list_prepend(var_table, create_pair_string("return_path_local", ret_path->local_part));
    var_table = g_list_prepend(var_table, create_pair_string("return_path_domain", ret_path->domain));
    
    tmp_str = g_strdup_printf("%s@%s", ret_path->local_part, ret_path->domain);
    var_table = g_list_prepend(var_table, create_pair_string("return_path", tmp_str));
    g_free(tmp_str);

    return var_table;
}

GList *var_table_conf(GList *var_table)
{
    var_table = g_list_prepend(var_table, create_pair_string("host_name", conf.host_name));
    var_table = g_list_prepend(var_table, create_pair_string("package", PACKAGE));
    var_table = g_list_prepend(var_table, create_pair_string("version", VERSION));

    return var_table;
}

gint expand(GList *var_list, gchar *format, gchar *result, gint result_len)
{
  gchar *p = format, *q = result;
  gchar *vq;
  gint i = 0;
  gboolean escape = FALSE;

  while(*p && (i < (result_len -1))){
    if((*p == '$') && !escape){
      gchar *value;
      gchar var[MAX_VAR+1];
      int j = 0;

      p++; /* skip '$' */
      vq = var;

      if(*p == '{'){
	/* ${var} style */
	p++; /* skip '{' */
	while(*p && (*p != '}') && (j < MAX_VAR)){
	  *(vq++) = *(p++);
	  j++;
	}
	p++;
      }else{
	/* $var style */
	while(*p && (isalnum(*p) || (*p == '_') || (*p == '-')) && (j < MAX_VAR)){
	  *(vq++) = *(p++);
	  j++;
	}
      }
      *vq = 0;

      if(j < MAX_VAR){
	/* search var */
	value = (gchar *)table_find(var_list, var);
	if(value){
	  gchar *vp = value;
	  while(*vp && (i < (result_len -1))){
	    *(q++) = *(vp++); i++;
	  }
	}
      }
    }else{
      if((*p == '\\') && (!escape)){
	escape = TRUE;
      }else{
	*(q++) = *p; i++;
	escape = FALSE;
      }
      p++;
    }
  }
  *q = 0;

  if(i >= (result_len -1))
    return -3;

  return i;
}