#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include "CAENHVWrapper.h"

int main(void) {

	// VARIABLES DECLARATION
	char		address[30], userName[20], passwd[30], name[64], ParName[8], channelname[30], stringaexec[80], directory_data[80], meteofile[80], meteofile2[80], header[200];
	int		link, is, n, slot, NrOfCh=1, pw, status, station;
	float		vmon, imon;
	time_t 		now;

    float           dew, pressure=0,rainlast,rainday,rainmonth,rainyear,heat,temp1=0,temp2=0,rh1=0,rh2=0,wind,gust,dir;
    int             day,month,year,hour,min;

	float *param = NULL;
	param = malloc(sizeof(float));

	uint *param2 = NULL;
	param2 = malloc(sizeof(uint));

	ushort *id_channel = NULL;
	id_channel = malloc(sizeof(ushort));


	// CAEN SY1527 settings
	sprintf(userName,"%s","admin");
	sprintf(passwd,"%s","admin");



	// SETTING DATA DIRECTORY (it should exist!!)
	strcpy (directory_data,"/home/user/re4data/");
	strcpy (meteofile,"/home/user/meteolog");
	strcpy (meteofile2,"/home/user/meteolog2");


	// Reading the Configuration file (it cointains the path file also)
	FILE *stream1;
	stream1=fopen("/srv/www/htdocs/conf.txt","r");
	fscanf(stream1,"%s\n",name);
	fscanf(stream1,"%s\n",address);

	// Reading the Configuration file GAPS (it cointains the path file also)
	FILE *stream6;
	stream6=fopen("/srv/www/htdocs/conf_gap.txt","r");
	fscanf(stream6,"%s\n",name);
	fscanf(stream6,"%s\n",address);

	/*
	// Useful informations
	printf("Configuration file correctly read\n");
	printf("IP address: %s \n", address);
	printf("%s\n", "");
	*/

	// Preparing connection to the mainframe
	CAENHVRESULT  ret_init,ret;
	link = LINKTYPE_TCPIP;
	ret_init =  CAENHVInitSystem(name, link, address, userName, passwd);
	//printf("\nCAENHVInitSystem: %s (num. %d)\n\n", CAENHVGetError(name), ret_init);




	// Reading latest values from the weather station
	FILE *stream3;
	stream3=fopen(meteofile,"r");
	//fgets(header,sizeof(header),stream3);
	while (!feof(stream3)) {
		fscanf(stream3,"%d %d %d %d %d %f %f %f %f %f %f %f %f %f %f %f %f\n",&day,&month,&year,&hour,&min,&temp1,&rh1,&dew,&pressure,&wind,&gust,&dir,&rainlast,&rainday,&rainmonth,&rainyear,&heat);
	}
	fflush(stream3);
	fclose(stream3);


	// Reading latest values from the weather station (indoor values)
	FILE *stream5;
	stream5=fopen(meteofile2,"r");
	//fgets(header,sizeof(header),stream3);
	while (!feof(stream5)) {
		fscanf(stream5,"%d %d %d %d %d %f %f\n",&day,&month,&year,&hour,&min,&temp1,&rh1);
	}
	fflush(stream5);
	fclose(stream5);

//printf("%d %d %d %d %d %f %d %f %f %d %d %d %f %f %f %f %f\n",day,month,year,hour,min,temp1,rh1,dew,pressure,wind,gust,dir,rainlast,rainday,rainmonth,rainyear,heat);



	// Reading values from the Mainframe
	if ( ret_init == CAENHV_OK ) {




		while (!feof(stream1)) {

			// READING THE CONFIGURATION FILE
			fscanf(stream1,"%s %d %d %d\n",channelname, &slot, &id_channel[0], &station);
			//printf("Slot: %d Channel in the slot = %d \n tdc_station = %d", slot,id_channel[0], station);
			time(&now);






			// READING THE HIGH VOLTAGE
			sprintf(ParName,"%s","VMon");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param);

			if (ret==CAENHV_OK) {
				vmon = param[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}




			// READING THE CURRENTS
			sprintf(ParName,"%s","IMon");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param);

			if (ret==CAENHV_OK) {
				imon = param[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}



			// READING THE STATUS
			sprintf(ParName,"%s","Status");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param2);

			if (ret==CAENHV_OK) {
				status = param2[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}




			// READING THE POWER ON/OFF
			sprintf(ParName,"%s","Pw");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param2);

			if (ret==CAENHV_OK) {
				pw = param2[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}


			// DEBUGGING PRINTOUT OF THE VARIABLES
			printf("%s %d %s %d %d %.2f %.5f %d %d %f %f %f\n",name, now, channelname, slot, id_channel[0], vmon ,imon ,status, pw, temp1, rh1, pressure);

/*
			// OPENING FILE TO WRITE DATA (chamber by chamber)
	      		strcpy (stringaexec,directory_data);
	      		strcat (stringaexec,channelname);
	      		strcat (stringaexec,".dat");
			FILE *stream2;
			stream2=fopen(stringaexec,"a");
			fprintf(stream2,"%s %d %s %d %d %.2f %.5f %d %d %f %d %d\n",name, now, channelname, slot, id_channel[0], vmon ,imon ,status, pw, temp1, rh1, pressure);
*/

			// WRITING INFOS INTO THE ELOG
	      		//strcpy (stringaexec,"elog -h cms904daq -p 8080 -l cms-rpc -a Author=DAQ USER -a Type=""New configuration"" ");
	      		//strcat (stringaexec,"-a Subject=""Automatic new HV configuration"" /srv/www/html/confh.txt");
	      		//system(stringaexec);
		}
		// CLOSING FILES
		fflush(stream1);
		fclose(stream1);

		while (!feof(stream6)) {

			// READING THE CONFIGURATION FILE
			fscanf(stream6,"%s %d %d %d\n",channelname, &slot, &id_channel[0], &station);
			//printf("Slot: %d Channel in the slot = %d \n tdc_station = %d", slot,id_channel[0], station);
			time(&now);






			// READING THE HIGH VOLTAGE
			sprintf(ParName,"%s","VMon");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param);

			if (ret==CAENHV_OK) {
				vmon = param[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}




			// READING THE CURRENTS
			sprintf(ParName,"%s","IMon");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param);

			if (ret==CAENHV_OK) {
				imon = param[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}



			// READING THE STATUS
			sprintf(ParName,"%s","Status");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param2);

			if (ret==CAENHV_OK) {
				status = param2[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}




			// READING THE POWER ON/OFF
			sprintf(ParName,"%s","Pw");
			ret = CAENHVGetChParam(name, slot, ParName, NrOfCh, id_channel, param2);

			if (ret==CAENHV_OK) {
				pw = param2[0];
			}
			else {
				//printf("\nCAEN1527: %s (num. %d)\n Paramenter Name %s \n", CAENHVGetError(name), ret, ParName);
			}


			// DEBUGGING PRINTOUT OF THE VARIABLES
			//printf("%s %d %s %d %d %.2f %.5f %d %d\n",name, now, channelname, slot, id_channel[0], vmon ,imon ,status, pw);


			// OPENING FILE TO WRITE DATA (chamber by chamber)
	      		strcpy (stringaexec,directory_data);
	      		strcat (stringaexec,channelname);
	      		strcat (stringaexec,"_gap.dat");
			FILE *stream2;
			stream2=fopen(stringaexec,"a");
			fprintf(stream2,"%s %d %s %d %d %.2f %.5f %d %d %f %f %f\n",name, now, channelname, slot, id_channel[0], vmon ,imon ,status, pw, temp1, rh1, pressure);


			// WRITING INFOS INTO THE ELOG
	      		//strcpy (stringaexec,"elog -h cms904daq -p 8080 -l cms-rpc -a Author=DAQ USER -a Type=""New configuration"" ");
	      		//strcat (stringaexec,"-a Subject=""Automatic new HV configuration"" /srv/www/html/confh.txt");
	      		//system(stringaexec);
		}
		// CLOSING FILES
		fflush(stream6);
		fclose(stream6);




		ret_init = CAENHVDeinitSystem(name);
		//printf("\nDisconnecting from caen on %s \n",name);
	}
	else {
		//printf("Error connecting to the caen %s (num %d) \n",CAENHVGetError(name),ret_init);
	}
}