/*
	Command line tool to control trli-syslog
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include <string>
#include "fdpass.h"

using namespace std;

#include "proto/trli_syslog_control.protoch"

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *control = "/var/run/blackhole/trli-syslog.sock";
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("trli-syslog-control",VERSION
			,"Command line tool to control trli-mon\n"
			 "\n"
			 "\tdebug 0/1\n"
			 "\tdebugfile filename\n"
			 "\tlogs\n"
			 "\tquit\n"
			 "\treseterrors\n"
			 "\tstatus\n"
			 "\ttail\n"
			);
		setarg ('p',"control","Unix socket to reach trli-syslog",glocal.control,false);
	</f>
	<f main>
		glocal int ret = -1;
		CONNECT_INFO con;
		con.port = glocal.control;	
		if (strcmp(argv[0],"status")==0 && argc==1){
			<call trli_syslog_control_status>(con);
			<f ok>
				for (auto x:lines) printf ("%s\n",x);
				glocal.ret = 0;
			</f>
			</call>
		}else if (strcmp(argv[0],"logs")==0 && argc==1){
			glocal bool done = false;
			glocal unsigned offset = 0;
			while (!glocal.done){
				<call trli_syslog_control_logs>(con,glocal.offset,10);
				<f ok>
					for (auto x:lines) printf ("%s\n",x);
					glocal.ret = 0;
					if (glocal.offset + 10 < nblines){
						glocal.offset += 10;
					}else{
						glocal.done = true;
					}
				</f>
				</call>
			}
		}else if (strcmp(argv[0],"tail")==0 && argc==1){
			<call trli_syslog_control_tail>(con);
			<f ok>
				char date[20];
				fdpass_asctime (lastmsg,date);
				printf ("nblines=%u lastmsg=%s\n",nblines,date);
				for (auto x:lines) printf ("%s\n",x);
				glocal.ret = 0;
			</f>
			</call>
		}else if (strcmp(argv[0],"quit")==0){
			<call trli_syslog_control_quit>(con);
			<f ok>
				glocal.ret = 0;
			</f>
			</call>
		}else if (strcmp(argv[0],"debug")==0 && argc==2){
			<call trli_syslog_control_debug>(con,atoi(argv[1]));
			<f ok>
			</f>
			</call>
		}else if (strcmp(argv[0],"debugfile")==0 && argc==2){
			<call trli_syslog_control_debugfile>(con,argv[1]);
			<f ok>
			</f>
			</call>
		}else if (strcmp(argv[0],"reseterrors")==0 && argc==1){
			<call trli_syslog_control_reseterrors>(con);
			<f ok>
				glocal.ret = 0;
			</f>
			</call>
		}else if (strcmp(argv[0],"clearlogs")==0 && argc==1){
			<call trli_syslog_control_clearlogs>(con);
			<f ok>
				glocal.ret = 0;
			</f>
			</call>
		}else{
			tlmp_error ("Invalid command: %s\n",argv[0]);
			usage();
		}
		return glocal.ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>