#include <unistd.h>
#include <string.h>
#include <errno.h>
#include <syslog.h>
#include <sys/wait.h>
#include <misc.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include "ninac.h"

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("ninac_load_journal",VERSION
			,"load in a running ninac server the content of a journal\n"
			 "\n"
			 "  ninac_load_journal journal.log\n"
			 "  cat file | ninac_load_journal -- -\n"
			);
	</f>
	<f showerror>
		fprintf (stderr,"%s\n",msg);
		syslog (LOG_ERR,"%s",msg);
	</f>
	<f main>
		glocal int ret = 0;
		if (argc != 1){
			usage();
		}else{
			glocal const char *journal = argv[0];

			glocal FILE *fout = stdout;
			glocal bool running = true;
			fprintf (glocal.fout,"setvar ninac.running 0\n");
			<call loadfile>(glocal.journal,true);
			<f oneline>
				SSTRINGS words;
				int nb = str_splitlineq (line,words);
				if (nb >= 2
					&& words.getitem(0)->cmp("setvar")==0
					&& words.getitem(1)->cmp("ninac.running")==0){
					glocal.running = words.getitem(2)->getval() != 0;
				}else{
					fprintf (glocal.fout,"%s\n",line);
				}
				return 0;
			</f>
			</call>
			fprintf  (glocal.fout,"setvar ninac.running %d\n"
				,glocal.running ? 1 : 0);
			glocal.ret = 0;
		}
		return glocal.ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>