/*
 *	PROGRAM:	Interbase Message Facility
 *	MODULE:		check_messages.e
 *	DESCRIPTION:	Check whether any messages have been updated
 *
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at http://www.Inprise.com/IPL.html
 *
 * Software distributed under the License is distributed on an
 * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Inprise Corporation
 * and its predecessors. Portions created by Inprise Corporation are
 * Copyright (C) Inprise Corporation.
 *
 * All Rights Reserved.
 * Contributor(s): ______________________________________.
 */

#include "firebird.h"
#include "../jrd/ib_stdio.h"
#include <stdlib.h>
#include <string.h>
#ifdef VMS
#include <types.h>
#include <stat.h>
#else
#include <sys/types.h>
#include <sys/stat.h>
#endif
#if TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
#else
# if HAVE_SYS_TIME_H
#  include <sys/time.h>
# else
#  include <time.h>
# endif
#endif

#include "../jrd/common.h"
#include "../jrd/gds.h"
#include "../jrd/gds_proto.h"

DATABASE DB = "msg.gdb";


#define INCLUDE_INDICATOR	"indicator.incl"
#define MESSAGE_INDICATOR	"indicator.msg"
#define LOCALE_INDICATOR	"indicator.loc"


int CLIB_ROUTINE main( int argc, char *argv[])
{
/**************************************
 *
 *	m a i n
 *
 **************************************
 *
 * Functional description
 *	Top level routine.  
 *
 **************************************/
	TEXT *p, **end_args, db_file[256];
	USHORT flag_jrd, flag_msg, flag_loc, sw_bad, do_locales;
	IB_FILE *ind_jrd, *ind_msg, *ind_loc;
	ISC_TIMESTAMP date_jrd, date_msg, date_loc;
	struct stat file_stat;

	strcpy(db_file, "msg.gdb");
	do_locales = FALSE;

	end_args = argv + argc;

	for (++argv; argv < end_args;) {
		p = *argv++;
		sw_bad = FALSE;
		if (*p != '-')
			sw_bad = TRUE;
		else
			switch (UPPER(p[1])) {
			case 'D':
				strcpy(db_file, *argv++);
				break;

			case 'L':
				do_locales = TRUE;
				break;

			default:
				sw_bad = TRUE;
			}
		if (sw_bad) {
			ib_printf("Invalid option \"%s\".  Valid options are:\n", p);
			ib_printf("\t-D\tDatabase name\n");
			ib_printf("\t-L\tCheck all locales\n");
			exit(FINI_ERROR);
		}
	}

	flag_jrd = flag_msg = TRUE;

	if (ind_jrd = ib_fopen(INCLUDE_INDICATOR, "r")) {
		if (!fstat(ib_fileno(ind_jrd), &file_stat)) {
			gds__encode_date(localtime(&file_stat.st_mtime), (GDS__QUAD*) &date_jrd);
			flag_jrd = FALSE;
		}
		ib_fclose(ind_jrd);
	}

	if (ind_msg = ib_fopen(MESSAGE_INDICATOR, "r")) {
		if (!fstat(ib_fileno(ind_msg), &file_stat)) {
			gds__encode_date(localtime(&file_stat.st_mtime), (GDS__QUAD*) &date_msg);
			flag_msg = FALSE;
		}
		ib_fclose(ind_msg);
	}

	if (do_locales) {
		flag_loc = TRUE;
		if (ind_loc = ib_fopen(LOCALE_INDICATOR, "r")) {
			if (!fstat(ib_fileno(ind_loc), &file_stat)) {
				gds__encode_date(localtime(&file_stat.st_mtime),(GDS__QUAD*)  &date_loc);
				flag_loc = FALSE;
			}
/* Earlier the following ib_fclose was closing ind_msg again, due to which 
   check_messages was crashing with SEGV signal - */
			ib_fclose(ind_loc);	/* A bug in check_messages is fixed */
		}
	}

	READY db_file AS DB;
	START_TRANSACTION;

	if (!flag_jrd) {
		FOR FIRST 1 X IN FACILITIES WITH
			X.FACILITY EQ "JRD" AND X.LAST_CHANGE GE date_jrd 

            flag_jrd = TRUE;
		END_FOR;
	}

	if (!flag_msg) {
		FOR FIRST 1 X IN FACILITIES WITH
			X.LAST_CHANGE GE date_msg 

            flag_msg = TRUE;
		END_FOR;
	}

	if (!flag_loc) {
		FOR FIRST 1 T IN TRANSMSGS WITH
			T.TRANS_DATE GE date_loc 

            flag_loc = TRUE;
		END_FOR;
	}

	COMMIT;
	FINISH;

	if (flag_jrd)
		if (ind_jrd = ib_fopen(INCLUDE_INDICATOR, "w")) {
			ib_fputc(' ', ind_jrd);
			ib_fclose(ind_jrd);
		}

	if (flag_msg)
		if (ind_msg = ib_fopen(MESSAGE_INDICATOR, "w")) {
			ib_fputc(' ', ind_msg);
			ib_fclose(ind_msg);
		}

	if (flag_loc)
		if (ind_loc = ib_fopen(LOCALE_INDICATOR, "w")) {
			ib_fputc(' ', ind_loc);
			ib_fclose(ind_loc);
		}

	exit(FINI_OK);
}