/*
	Talk to the tds program using the unix socket
*/
#include <stdio.h>
#include <string.h>
#include <misc.h>
#include <tlmplib.h>
#include <tlmpnet.h>

<mod>
int main (int argc, char *argv[])
{
	glocal const char *port = "/var/run/tds.sock";
	glocal int ret = -1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("tds-control",VERSION
			,"Send control commands to the tds server\n"
			 "\n"
			 "Commands are:\n"
			 "\n"
			 "\tconnections\n"
			 "\tcondebug\n"
			 "\tclosedatalog\n"
			 "\tdebugfile filename\n"
			 "\tdebugoff\n"
			 "\tdebugon\n"
			 "\tfflush\n"
			 "\topendatalog file-name\n"
			 "\tpatchusage\n"
			 "\tpending\n"
			 "\tquit\n"
			 "\treadtrans\n"
			 "\treadscript\n"
			 "\treopenlog\n"
			 "\tstatus\n"
			 "\ttesttrans\n"
			);

		setarg ('p',"port","Unix domain control port",glocal.port,false);
	</f>
	<f main>
		glocal SSTRING cmd;
		for (int i=0; i<argc; i++){
			if (i>0) glocal.cmd.append (' ');
			glocal.cmd.append (argv[i]);
		}
		int ret = -1;
		ret = <call tcpconnect>("unix:",glocal.port,5);
		<f init>
			sendf ("%s\n",glocal.cmd.c_str());
		</f>
		<f oneline>
			if (strcmp(line,"Ok")==0){
				end = true;
			}else{
				printf ("%s\n",line);
			}
		</f>
		<f end>
		</f>
		</call>
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>