/***********************************************
 *  bbl3.c
 *         ( to inhibit/allow veto to BBL3 ) 
 *                                  GdA 1/7/94 
 ************************************************/

#include <signal.h>
#include <strings.h>
#include <stdio.h>
#include <errno.h>
#include <module.h>
#include "bbl3.h"

BBL3_MBOX *mod;

main(argc, argv)
int argc;
char **argv;
{
    int cpu_nr, tcp_ip_nr;
    char *hv_config[3];
    int hra[6];
    int i, j, new_flag, old_flag, created;
    int giorno, mese, anno, ora, minuti, secondi;

    new_flag = -1;
    if (argc > 1){
       new_flag = atoi(argv[1]);
       if (new_flag < 0 || new_flag > 1) {
          printf(" to inhibit/allow BBL3 veto: \n");
          printf("  'bbl3 0/1' \n");
       }
    }

    created = 0;
    /* link module for BBL3 Flag */
    if((mod = (BBL3_MBOX *)modlink("BBL3_MOD", 0)) == (BBL3_MBOX *)-1){
       data_ora(&hra[0], &hra[1], &hra[2], &hra[3], &hra[4], &hra[5]);
       if((mod = (BBL3_MBOX *)_mkdata_module("BBL3_MOD",
       sizeof(BBL3_MBOX), 0x8001, 0x0033)) == (BBL3_MBOX *)-1){
          exit(_errmsg(errno,"bm_to_scm: err. link/create data module\n"));
       }
       for (i=0; i<6; i++)
          mod->create_tim[i] = hra[i];
       mod->flag = 0;
       created = 1;
    }

    old_flag = mod->flag;
    for (i=0; i<6; i++)
       hra[i] = mod->update_tim[i];
    printf("\n old flag = %d \n", old_flag);
    printf("\n ( last update: %d-%d-%d %d:%d:%d )\n", 
           hra[2], hra[1], hra[0], hra[3], hra[4], hra[5]);  

    if (new_flag >= 0 && new_flag <= 1) {
       data_ora(&hra[0], &hra[1], &hra[2], &hra[3], &hra[4], &hra[5]);
       for(i = 0; i < 6; i++)
          mod->update_tim[i] = hra[i];
       mod->flag = new_flag;
       printf(" new flag ( %d ) set\n", new_flag); 
    }

    if ( created != 1) 
       munlink(mod);
}