#include <stdio.h>
#include <string.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include <string>

using namespace std;

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *unixpath = "/var/run/findproc.sock";
	glocal int rep = 1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("findproc-control",VERSION
			,"Send commands and configuration to the findproc service\n"
			 "\n"
			 "Commands are:\n"
			 "\tident ip_from port_from ip_to port_to\n"
			 "\tvserver XID rootdir\n"
			 "\tvuser   XID uid name\n"
			 "\tvgroup  XID gid name\n"
			 "\tclear\n"
			 "\tcommit\n"
			 "\tquit\n"
			 "\tprintconf\n"
			 "\tstatus\n"
			);
		setarg ('s',"unixsock","Unix socket",glocal.unixpath,false);
		setarg ('r',"repeat","Repeat an operation N type (test)",glocal.rep,false);
	</f>
	<f main>
		glocal int ret = -1;
		glocal string args;
		for (int i=0; i<argc; i++){
			if (i > 0) glocal.args += " ";
			glocal.args += argv[i];
		}
		for (int i=0; i<glocal.rep; i++){
			glocal char **argv = argv;
			<call tcpconnect>("unix:",glocal.unixpath,1);
			<f init>
				sendf ("%s\n",glocal.args.c_str());
			</f>
			<f oneline>
				if (strcmp(line,"OK")==0){
					glocal.ret = 0;
					end = true;
				}else if (strncmp(line,"ERR ",4)==0){
					fprintf (stderr,"%s\n",line+4);
					end = true;
				}else{
					printf ("%s\n",line);
				}
			</f>
			<f end>
			</f>
			</call>
		}
		return glocal.ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>