#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <tlmpsql.h>
#include <tlmplib.h>
#include <dialog.h>
#include "component.h"
#include "tledit.h"
#include "tledit.m"

<mod>
int main (int argc, char *argv[])
{
	glocal SSTRINGS comps;
	glocal const char *dbserv = "localhost";
	glocal const char *db = "components";
	glocal const char *user = nullptr;
	glocal const char *passwd = nullptr;
	glocal bool askpass = false;
	glocal bool all = false;
	glocal const char *section = nullptr;
	static const char *tb[]={"tlmpwork","tlmpsql",NULL};
	int ret = <call tlmpprogram>(argc, argv, tb);
	<f usage>
		fprintf (stderr,MSG_U(I_USAGESQL
			,"component_sql [ options ] components\n"
			 "\n"
			 "Export components definition to an SQL database\n"
			 "\n"
			 "--all    : Update all component found.\n"
			 "--comp   : Path of one comp file.\n"
			 "           This option may be repeated.\n"
			 "--db     : Database.\n"
			 "--dbserv : Database server.\n"
			 "--dbuser : Database user.\n"
			 "--dbpass : Password to use.\n"
			 "--askpass: Ask for the password.\n"
			 "--section: Component section to update.\n"
			));
	</f>
	<f onearg>
		int ret = -1;
		if (strcmp(opt,"--comp")==0){
			if (file_exist(val)){
				glocal.comps.add (new SSTRING(val));
				ret = 1;
			}else{
				xconf_error (MSG_R(E_NOCOMPFILE),val);
			}
		}else if (strcmp(opt,"--dbserv")==0){
			glocal.dbserv = val;
			ret = 1;
		}else if (strcmp(opt,"--db")==0){
			glocal.db = val;
			ret = 1;
		}else if (strcmp(opt,"--dbuser")==0){
			glocal.user = val;
			ret = 1;
		}else if (strcmp(opt,"--dbpass")==0){
			glocal.passwd = val;
			ret = 1;
		}else if (strcmp(opt,"--askpass")==0){
			glocal.askpass = true;
			ret = 0;
		}else if (strcmp(opt,"--all")==0){
			glocal.all = true;
			ret = 0;
		}else if (strcmp(opt,"--section")==0){
			glocal.section = val;
			ret = 1;
		}
		return ret;

	</f>
	<f main_noarg>
		int ret = -1;
		if (!glocal.all && glocal.section == NULL){
			usage();
		}else{
			ret = main(0,NULL);
		}
		return ret;
	</f>
	<f main>
		SSTRING pass;
		if (glocal.askpass){
			DIALOG dia;
			dia.newf_pass (MSG_U(F_DBPASS,"Database password"),pass);
			if (dia.edit("","",help_nil)==MENU_ACCEPT){
				glocal.passwd = pass.get();
			}else{
				return -1;
			}
			dialog_end();
		}
		if (glocal.comps.getnb()==0){
			<call component_find>();
			<f onecomp>
				glocal.comps.add (new SSTRING (path));
			</f>
			</call>
		}
		struct SECTINFO{
				int id;
				SSTRING summary;
			};
		glocal int argc = argc;
		glocal char **argv = argv;
		glocal SECTINFO sectinfo;
		query_setdefaultdb (glocal.dbserv,glocal.db,glocal.user,glocal.passwd);
		<call component_walk>(glocal.comps,0);
		<f section>
			if (info.level == 1){
				glocal.sectinfo.id=-1;
				<call sql_query>("select sectionid,summary from sections"
					" where section='%s'"
					,name);
				<f onerow>
					glocal.sectinfo.id = atoi(row[0]);
					glocal.sectinfo.summary.setfrom (row[1]);
				</f>
				</call>
				if (glocal.sectinfo.id==-1){
					printf ("Section %s not in database\n",name);
					NSQL_ENCODE enc;
					sql_action ("insert into sections (section,summary)"
						" values "
						" ('%s','%s')"
						,enc.enc(name),enc.enc(summary));
					// Fetch back the sectionid
					<call sql_query>("select sectionid from sections"
						" where section='%s'"
						,name);
					<f onerow>
						glocal.sectinfo.id = atoi(row[0]);
					</f>
					</call>
				}else if (summary[0] != '\0'
					&& glocal.sectinfo.summary.cmp(summary)!=0){
					printf ("Update section %s summary\n",name);
					NSQL_ENCODE enc;
					sql_action ("update sections set summary='%s'"
						" where sectionid=%d"
						,enc.enc(summary),glocal.sectinfo.id);
				}
			}
		</f>
		<f component>
			skip = true;
			bool found = false;
			for (int i=0; i<glocal.argc; i++){
				if (strcmp(name,glocal.argv[i])==0){
					found = true;
					break;
				}
			}
			if (glocal.all){
				found = true;
			}
			if (glocal.section != NULL
				&& strcmp(glocal.section,info.section)==0){
				found = true;
			}
			if (found){
				glocal SSTRING s;
				glocal const char *name = name;
				glocal const char *summary = summary;
				glocal int version = -1;
				getxml (glocal.s);
				<call sql_query>("select xml,summary,version,sectionid from components"
					" where component='%s' order by version desc limit 1",name);
				<f onerow>
					if (glocal.s.cmp(row[0])!=0
						|| strcmp(glocal.summary,row[1])!=0
						|| glocal.sectinfo.id != atoi(row[3])){
						printf ("Updating component %s\n",glocal.name);
						glocal.version = atoi(row[2])+1;
					}
				</f>
				<f empty>
					printf ("Adding component %s\n",glocal.name);
					glocal.version = 0;
				</f>
				</call>
				if (glocal.version != -1){
					NSQL_ENCODE enc;
					sql_action ("insert into components"
						" (component,isobj,summary,sectionid,packageid,version,xml)"
						" values"
						" ('%s','%c','%s',%d,%d,%d,'%s')"
						,enc.enc(glocal.name)
						,is_obj ? 'Y' : 'N'
						,enc.enc(summary)
						,glocal.sectinfo.id,0,glocal.version
						,enc.enc(glocal.s.get()));
				}
			}
		</f>
		</call>
		return 0;
	</f>
	</call>
	return ret;
}
</mod>