#include <stdlib.h>
#include <string.h>
#include <misc.h>
#include <tlmpdia.h>
#include <tlmplib.h>
#include <diajava.h>
#include "tlmpmail.h"
#include "tlmpmail.m"


PUBLIC NICK::NICK()
{
	selected = false;
}
/*
	Edit an addressbook entry
*/
PUBLIC int NICK::edit(NICKS &nicks)
{
	int ret = -1;
	DIALOG dia;
	dia.settype (DIATYPE_POPUP);
	dia.newf_str (MSG_U(F_NICKNAME,"Nick name"),nick);
	dia.last_noempty();
	mime_translate (name.get(),name);
	dia.newf_str (MSG_U(F_FULLNAME,"Full name"),name);
	dia.newf_str (MSG_R(F_FCC),fcc,40);
	dia.newf_str (MSG_U(F_COMMENT,"Comment"),comment,60);
	for (int i=0; i<3; i++) addrs.add (new SSTRING);
	for (int i=0; i<addrs.getnb(); i++){
		dia.newf_str (i==0 ? MSG_U(F_EMAILADDR,"Email address") : ""
			,*addrs.getitem(i),40);
	}
	int nof=0;
	while (1){
		MENU_STATUS code = dia.edit (MSG_U(T_ADDRENTRY,"Address book entry")
			,""
			,help_nil
			,nof
			,MENUBUT_CANCEL|MENUBUT_ACCEPT|MENUBUT_DEL);
		if (code == MENU_CANCEL || code == MENU_ESCAPE){
			break;
		}else if (code == MENU_DEL){
			if (xconf_delok()){
				ret = 1;
				break;
			}
		}else{
			NICK *other = nicks.getitem (nick.get());
			if (other != NULL && other != this){
				xconf_error (MSG_U(E_DUPNICK,"Nick name %s is already defined")
					,nick.get());
				nof = 0;
			}else{
				ret = 0;
				break;
			}
		}
	}
	addrs.remove_empty();
	return ret;
}

PUBLIC void NICK::write (FILE *fout)
{
	fprintf (fout,"%s\t%s\t",nick.get(),name.get());
	if (addrs.getnb() == 1){
		fprintf (fout,"%s\t",addrs.getitem(0)->get());
	}else{
		fputs ("(",fout);
		for (int i=0; i<addrs.getnb(); i++){
			fprintf (fout,"%s%s",i>0 ? "," : "",addrs.getitem(i)->get());
		}
		fputs (")\t",fout);
	}
	fprintf (fout,"%s\t\n",fcc.get());
	if (!comment.is_empty()){
		fprintf (fout,"    %s\n",comment.get());
	}
}

PUBLIC void NICK::copyaddr (EMAILADDRS &emails)
{
	for (int j=0; j<addrs.getnb(); j++){
		SSTRING *adr = addrs.getitem(j);
		if (addrs.getnb()>1 || adr->strchr('<')!=NULL){
			emails.set ("",adr->get());
		}else{
			SSTRING tmpname;
			mime_translate (name.get(),tmpname);
			emails.set (tmpname.get(),adr->get());
		}
	}
}


static const char *addrbook_getstrif(SSTRINGS &tb, int no)
{
	const char *ret = "";
	SSTRING *s = tb.getitem(no);
	if (s != NULL) ret = s->get();
	return ret;
}

static void addrbook_split (const char *line, SSTRINGS &tb)
{
	char tmp[strlen(line)+1];
	strcpy (tmp,line);
	char *start = tmp;
	char *pt = tmp;
	while (*pt != '\0'){
		if (*pt == '\t'){
			*pt = '\0';
			tb.add (new SSTRING (start));
			start = pt+1;
		}
		pt++;
	}
	if (start != pt) tb.add (new SSTRING (start));
}

<mod>
PUBLIC NICKS::NICKS()
{
	<glocal>
		SSTRING lastline;
		NICK *last;
		NICKS *tba;
	</glocal>
	glocal.last = NULL;
	glocal.tba = this;
	SSTRING path;
	addrbook_getpath(path);
	<call loadfile>(path.get(),false);
		<f oneline>
			int len = strlen(line);
			char tmp[len+1];
			strcpy (tmp,line);
			if (len > 0 && tmp[len-1] == '\n') tmp[len-1] = '\0';
			SSTRINGS tb;
			if (tmp[0] > ' ' && tmp[0] != '#'){
				addrbook_split (tmp,tb);
				NICK *a = new NICK;
				glocal.tba->add (a);
				glocal.last = a;
				glocal.lastline.setfrom(tmp);
			}else if (glocal.last != NULL && tmp[0] == ' '){
				SSTRING nl;
				nl.setfromf ("%s%s",glocal.lastline.get(),str_skip(tmp));
				addrbook_split (nl.get(),tb);
			}
			glocal.last->nick.setfrom (addrbook_getstrif(tb,0));
			glocal.last->name.setfrom (addrbook_getstrif(tb,1));
			const char *tmpa = addrbook_getstrif(tb,2);
			glocal.last->addrs.remove_all();
			if (tmpa[0] == '('){
				// This is a list
				tmpa++;
				int len = strlen(tmpa);
				char tmpaa[len+1];
				strcpy (tmpaa,tmpa);
				if (len > 0 && tmpaa[len-1] == ')') tmpaa[len-1] = '\0';
				str_splitline (tmpaa,',',glocal.last->addrs);
			}else{
				glocal.last->addrs.add (new SSTRING(tmpa));
			}
			glocal.last->fcc.setfrom (addrbook_getstrif(tb,3));
			glocal.last->comment.setfrom (addrbook_getstrif(tb,4));
			return 0;
		</f>
	</call>
}
</mod>

PUBLIC NICK *NICKS::getitem (int no) const
{
	return (NICK*)ARRAY::getitem(no);
}

PUBLIC NICK *NICKS::getitem (const char *nick) const
{
	NICK *ret = NULL;
	for (int i=0; i<getnb(); i++){
		NICK *n = getitem(i);
		if (n->nick.cmp(nick)==0){
			ret = n;
			break;
		}
	}
	return ret;
}

PUBLIC NICK *NICKS::locateaddr (const char *addr) const
{
	NICK *ret = NULL;
	for (int i=0; i<getnb(); i++){
		NICK *n = getitem(i);
		if (n->addrs.lookup(addr)!=-1){
			ret = n;
			break;
		}
	}
	return ret;
}

PUBLIC int NICKS::write ()
{
	int ret = -1;
	SSTRING path;
	addrbook_getpath(path);
	FILE *fout = xconf_fopen (path.get(),"w");
	if (fout != NULL){
		for (int i=0; i<getnb(); i++){
			getitem(i)->write(fout);
		}
		ret = fclose (fout);
	}
	return ret;
}

/*
	Return the path of the main address book
*/
void addrbook_getpath (SSTRING &path)
{
	const char *home = getenv ("HOME");
	if (home != NULL) path.setfromf("%s/.addressbook",home);
}

/*
	Pick interactivly some addresses in the addresses book.
	Use prefix to filter the one presented.
*/
<mod>
int addrbook_pick(EMAILADDRS &addrs, const char *prefix)
{
	<glocal>
		int ret;
		EMAILADDRS *addrs;
		NICKS tba;
		NICKS sorted;
		bool filter;
		const char *prefix;
	</glocal>
	glocal.filter = prefix[0] != '\0';
	glocal.prefix = prefix;
	glocal.ret = -1;
	glocal.addrs = &addrs;
	glocal.sorted.neverdelete();
	<call editrecords>(MSG_U(T_ADDRBOOK,"Address book")
		,MSG_U(I_ADDRBOOK
				,"Pick an address\n"
				 "Use shift key to pick more than one\n"
				 "Use third button to edit an entry")
				,help_nil);
	<f head>
		newf_head (MSG_U(H_ADDRBOOK,"Nick name\tFull name\tEmail\tFcc\tComment"));
		settype (DIATYPE_POPUP);
		sortable();
		sortpolicy("aaaaa");
		addwhat (MSG_U(I_ADDNICK,"a new entry"));
		if (glocal.prefix[0] != '\0'){
			setbutinfo (MENU_USR1,MSG_U(B_FILTERON,"Filter On/Off")
				,MSG_R(B_FILTERON));
		}
	</f>
	<f load>
		glocal.sorted.remove_all();
		int len = strlen(glocal.prefix);
		for (int i=0; i<glocal.tba.getnb(); i++){
			NICK *a = glocal.tba.getitem(i);
			if (!glocal.filter || a->nick.ncmp(glocal.prefix,len)==0){
				glocal.sorted.add (a);
			}
		}
		const char *fbold = guiid_setfont (10,GFONT_ID_DEFAULT,GFONT_STYLE_DEFAULT,GFONT_WEIGHT_BOLD,false);
		const char *dcb = guiid_setdc (fbold,NULL,NULL);
		const char *dc = guiid_setdc (NULL,NULL,NULL);

		for (int i=0; i<glocal.sorted.getnb(); i++){
			NICK *a = glocal.sorted.getitem(i);
			SSTRING tmp,adrs;
			for (int j=0; j<a->addrs.getnb(); j++){
				const char *adr = a->addrs.getitem(j)->get();
				adrs.appendf ("%s%s",j==0 ? "" : ",",adr);
			}
			SSTRING name;
			mime_translate (a->name.get(),name);
			const char *adr = adrs.get();
			if (strlen(adr)>20){
				tmp.setfromf ("%s\t%-20.20s...\t%s\t%s",name.get()
					,adr
					,a->fcc.get(),a->comment.get());
			}else{
				tmp.setfromf ("%s\t%s\t%s\t%s",name.get(),adr
					,a->fcc.get(),a->comment.get());
			}
			setnextdcs (a->selected ? dcb : dc);
			new_menuitem (a->nick.get(),tmp.get());
		}
	</f>
	<f editone>
		NICK *a = glocal.sorted.getitem(no);
		if (uistate.rightb){
			int ok = a->edit(glocal.tba);
			if (ok >= 0){
				if (ok == 1){
					glocal.tba.remove_del(a);
				}
				glocal.tba.write();
			}
		}else{
			a->selected = !a->selected;
			if (!uistate.shiftkey){
				endedit();
				for (int i=0; i<glocal.sorted.getnb(); i++){
					a = glocal.sorted.getitem(i);
					if (a->selected){
						a->copyaddr (*glocal.addrs);
					}
				}
				glocal.ret = 0;
			}
		}
	</f>
	<f add>
		NICK *a = new NICK;
		int ok = a->edit(glocal.tba);
		if (ok == 0){
			glocal.tba.add (a);
			glocal.tba.write();
		}else{
			delete a;
		}
	</f>
	<f otherbuttons>
		if (code == MENU_USR1){
			glocal.filter = !glocal.filter;
		}
	</f>
	</call>
	return glocal.ret;
}
</mod>

int addrbook_pick(EMAILADDRS &addrs)
{
	return addrbook_pick (addrs,"");
}


/*
	Find the folder carbon copy associated with an address
	if it is in the address book.
	Return -1 if none found or defined.
*/
<mod>
int addrbook_getfcc(const char *addr, SSTRING &fcc)
{
	int ret = -1;
	NICKS nicks;
	for (int i=0; i<nicks.getnb(); i++){
		NICK *n = nicks.getitem(i);
		if (n->addrs.getitem(0)->cmp(addr)==0){
			fcc.setfrom (n->fcc);
			ret = fcc.is_filled() ? 0 : -1;
			break;
		}
	}
	return ret;
}
</mod>

/*
	Complete a nick name from the address book.
	Return -1 if none found or select.

	If several nick name match the prefix, a popup is presented
*/
<mod>
int addrbook_complete (const char *nick, EMAILADDRS &emails)
{
	int ret = 0;
	NICKS nicks;
	int found = 0;
	NICK *one = NULL;
	int len = strlen(nick);
	for (int i=0; i<nicks.getnb(); i++){
		NICK *n = nicks.getitem(i);
		if (n->nick.ncmp(nick,len)==0){
			found++;
			one = n;
		}
	}
	if (found == 1){
		one->copyaddr (emails);
		ret = 1;
	}else if (found > 1){
		addrbook_pick (emails,nick);
		ret = 1;
	}
	return ret;
}
</mod>

<mod>
void addrbook_add (MAIL_MESSAGE &msg)
{
	<glocal>
		EMAILADDRS addrs;
	</glocal>
	glocal.addrs.append (msg.from);
	glocal.addrs.append (msg.to);
	glocal.addrs.append (msg.cc);
	<call editrecords>("","",help_nil);
	<f head>
		newf_head (MSG_U(H_PICKADDR,"Address\tName"));
		sortable();
		sortpolicy("aa");
		settype (DIATYPE_POPUP);
	</f>
	<f load>
		for (int i=0; i<glocal.addrs.getnb(); i++){
			new_menuitem(glocal.addrs.addrs.getitem(i)->get()
				,glocal.addrs.names.getitem(i)->get());
		}
	</f>
	<f pickone>
		NICKS tba;
		NICK *a = new NICK;
		a->name.setfrom (glocal.addrs.names.getitem(no));
		a->addrs.add (new SSTRING(glocal.addrs.addrs.getitem(no)));
		int ok = a->edit(tba);
		if (ok == 0){
			tba.add (a);
			tba.write();
		}else{
			delete a;
		}
	</f>
	</call>
}
</mod>