#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <pwd.h>
#include <misc.h>
#include "projet.h"
#include "projetx.m"

static char *tbprog[200];

/*
	Lit le fichier de correspondance nom-programmeur, numero
*/
static void near prog_readnum ()
{
	/* #Sp‚cification: configuration / num‚ro des programmeurs
		Les programmeurs clients de l'archive ont tous un num‚ro
		d'identification. Le fichier prog.num contient
		la liste des programmeurs avec leur num‚ro. C'est un
		fichier ASCII dont le format est:

			programmeur num‚ro
			...
			programmeur num‚ro

		Ce fichier est localis‚ dans le r‚pertoire config de
		l'application. (G‚n‚ralement n:\projet\config).

		Le num‚ro doit ˆtre sp‚cifi‚ pour chaque programmeur. Ce
		num‚ro est allou‚ … vie. En principe, on ne devrait jamais
		‚limin‚ de programmeur de ce fichier.

		On peut optionnellement plac‚ un commentaire … la suite
		du num‚ro dans le fichier. G‚n‚ralement, on placera le
		nom v‚ritable du programmeur. Le programme ne se pr‚occupe
		pas de ce qui suit le num‚ro.
	*/
	static char is_init = 0;
	if (!is_init){
		char path[MAXSIZ_PATH];
		configPath.getval (path,sizeof(path));
		path_make (path,"prog.num",path);
		FILE *fin = fopen_err (path,"r",0);
		for (unsigned i=0; i<NB_ELM(tbprog); i++) tbprog[i] = NULL;
		tbprog[0] = strdup_err ("");	// Certaine fonction
										// assume que le programmeur 0
										// existe et est affichable.
		if (fin != NULL){
			char buf[300];
			while (fgets (buf,sizeof(buf)-1,fin)!=NULL){
				strip_end (buf);
				if (buf[0] != '\0'){
					char prog[50];
					int id;
					if (sscanf (buf,"%s %d",prog,&id)==2){
						if (tbprog[id] != NULL){
							xconf_error (MSG_U(E_PROGCONFLIT
								,"Les programmeur %s et %s\n"
								 "partage le même numéro d'identification %d")
								,tbprog[id],prog,id);
						}else{
							tbprog[id] = strdup_err (prog);
						}
					}else{
						xconf_error (MSG_U(E_PROGNUM
							,"La ligne %d du fichier %s\n"
							 "est invalide\n\n"
							 "%s\n\n"
							 "On attend un nom de programmeur\n"
							 "suivie de son numéro d'identitication")
							,buf);
					}
				}
			}
			fclose (fin);
		}
		is_init = 1;
	}
}
/*
	Obtient le num‚ro d'un programmeur.
	Pour des raisons de s‚curit‚ et de paresse, la table n'est pas
	charger dynamiquement.
*/
int prog_getnum (const char *prog)
{
	int ret = -1;
	prog_readnum();
	for (unsigned no = 0; no < NB_ELM(tbprog); no++){
		if (tbprog[no] != NULL && stricmp(prog,tbprog[no])==0){
			ret = no;
			break;
		}
	}
	return ret;
}

/*
	Retourne le nom du programmeur associ‚ … un num‚ro
*/
const char *prog_num2str (int num)
{
	prog_readnum();
	const char *ret = "???";
	if (num >= 0 && num < (int)NB_ELM(tbprog)){
		ret = tbprog[num];
		if (ret == NULL) ret = " ";
	}else{
		bugapp_printf ("ADM/PROJET","prog_num2str num == %d ???\n",num);
	}
	return ret;
}

/*
	Obtient le nom (login) de l'usager.
	Retourne NULL si trouve pas.
*/
const char *prog_getid (
	bool quit)	// Termine si trouve pas ?
{
	/* #Sp‚cification: usager / identification
		On obtient le nom (login) de l'usager via la variable
		d'environnement PROJETX_ID. Si elle n'est pas d‚finie, on utilise
		la variable USER.

		On aurait pue utiliser des mecanismes plus sophistique
		disponible avec les systemes d'exploitation (Novell, Unix).

		On l'a pas fait parce que ce n'est pas universellement
		disponible. Par exemple sur une machine DOS isolee n'a pas
		acces a ces fonctionnalit‚ (login).

		Cela permet aussi de changer facilement d'identite pour
		r‚aliser certaines acrobaties avec projetx.

		Le USER provient de UNIX.
	*/
	char *prog = getenv("PROJETX_ID");
	if (prog == NULL) prog = getenv ("USER");
	static char tmp[100];
	if (prog == NULL){
		uid_t id = getuid();
		struct passwd *p = getpwuid (id);
		if (p != NULL){
			strcpy (tmp,p->pw_name);
			prog = tmp;
		}
	}
	if (prog == NULL){
		xconf_error (MSG_U(E_USERID
			,"Incapable de vous identifier\n"
			 "La variable PROJETX_ID ou USER doit être definie"));
		if (quit) exit (-1);
	}
	return prog;
}