/*
     Created for Netfuel Design (http://www.netfueldesign.com/) 
     To do user management and billing.
 
     -- Roy Keene [0200220002117] rkeene@netfueldesign.com
 */
 
 #include "encrypt.h"
 #include "screenio.h"
 #include "billing.h"
 #include "variable.h"
 #include <termios.h>
 #include <unistd.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <fcntl.h>
 #include <sys/ioctl.h>
 #include <stdio.h>
 #include <signal.h>
 #include <ctype.h>
 #include <string.h>
 #ifndef NO_TCL
 #include <tclExtend.h>
 #include <tcl.h>
 #endif
 
 #ifndef GO32
 int tty_fd=1, old_clflags;
 #endif
 
 void resetdisplay(int signal) {
 #ifndef GO32
         struct termios terminfo;
         tcgetattr(tty_fd, &terminfo);
         terminfo.c_lflag=old_clflags;
         tcsetattr(tty_fd, TCSADRAIN, &terminfo);
 #endif
     return;
 }
 
 
 int main(int argc, char **argv) {
 #ifndef GO32
     struct termios terminfo;
 #endif
     if ( signal(SIGTERM, (void *) resetdisplay)==SIG_ERR || \
         signal(SIGINT, (void *) resetdisplay)==SIG_ERR) {
         perror("main: signal");
         printf("Something might happen to your display.\n");
     }
     clear();
 #ifndef GO32
     tty_fd=open("/dev/tty", O_RDWR);
     ioctl(tty_fd, TCGETS, &terminfo);
     old_clflags=terminfo.c_lflag;
     terminfo.c_lflag=0;
     ioctl(tty_fd, TCSETS, &terminfo);
 #endif
 
     playmenu("main.mnu");
         resetdisplay(-1);
 #ifndef GO32
         close(tty_fd);
 #endif
     return(0);
 }
 
 int drawmenu(char *title, struct menulist menuitems[], int numitems, int selected) {
     int i;
     gohome();
     printf("%40s\n\n", title);
     for (i=0; i<numitems; i++) {
         if (menuitems[i].exec_cmd.type==BILLING_EXEC_INPT) {
             printf("\033[%im%c - %-20s [%29s] \033[0m\n",(i==selected)*7,menuitems[i].hotkey, menuitems[i].name,
	menuitems[i].value);
         } else {
             printf("\033[%im%c - %-50s\033[0m\n", (i==selected)*7, menuitems[i].hotkey, menuitems[i].name);
         }
     }
     return(0);
 }
 
 /*
     Menu file format:
     [title (TITLE_LEN bytes)]([menu (sizeof struct menulist)]*)
 */
 int playmenu(char *file) {
     struct menulist menuitems[10];
     struct stat finfo;
     char title[TITLE_LEN];
     char ch, tmp_key;
     char tmp_buf[50];
     int selected=0, oselected=0, fd, item_cnt=0, i,x;
 #ifndef NO_TCL
     Tcl_Interp *interp=NULL;
 #endif
     fd=open(file, O_RDONLY);
     fstat(fd, &finfo);
     if (finfo.st_size<TITLE_LEN) {
         item_cnt=0;
     } else {
         item_cnt=(int) ((finfo.st_size-TITLE_LEN)/sizeof(struct menulist));
     }
     read(fd, &title, TITLE_LEN);
     for (i=0;i<item_cnt;i++) {
         read(fd, &menuitems[i], sizeof(struct menulist));
     }
     close(fd);
     clear();
     drawmenu(title, menuitems, item_cnt, selected);
     while(1) {
         read(STDIN_FILENO, &ch, 1);
         if (ch==65) selected--;
         if (ch==66) selected++;
         if (ch==3) return(0);
         if (selected<0) selected=0;
         if (selected>(item_cnt-1)) selected=(item_cnt-1);
         if (ch==13 || ch==10) ch=tolower(menuitems[selected].hotkey);
         ch=tolower(ch);
         for (i=0;i<item_cnt;i++) {
             if (ch==tolower(menuitems[i].hotkey)) {
 #ifdef DEBUG
                 printf("%i -- %s\n", menuitems[i].exec_cmd.type, menuitems[i].exec_cmd.exec_file);
 #endif
                 switch (menuitems[i].exec_cmd.type) {
                     case BILLING_EXEC_MENU:
                         playmenu(menuitems[i].exec_cmd.exec_file);
                         clear();
                         oselected=-1;
                         break;
                     case BILLING_EXEC_TCL:
 #ifndef NO_TCL
                         if (interp==NULL) {
                             interp=Tcl_CreateInterp();
                         }
 
 /* We must export our variables and re-import them here. */
 
                         Tcl_EvalFile(interp, menuitems[i].exec_cmd.exec_file);
                         printf("Retval=\"%s\"\n",interp->result);
 #endif
                         break;
                     case BILLING_EXEC_QUIT:
                         return(0);
                         break;
                     case BILLING_EXEC_INPT:
                         locate(i+3,27);
                         memset(&tmp_buf, '_', 29);
                         write(STDOUT_FILENO, &tmp_buf, 29);
                         fsync(STDOUT_FILENO);
                         locate(i+3,27);
                         x=0;
                         while (1) {
                             tmp_key=getchar();
                             if (tmp_key==10 || tmp_key==13 || x==29) { 
                                 locate(item_cnt+3,1);
                                 tmp_buf[x]=0;
                                 strcpy(menuitems[i].value,tmp_buf);
                                 setvar(menuitems[i].exec_cmd.exec_file,tmp_buf);
                                 drawmenu(title, menuitems, item_cnt, selected);
                                 break; 
                             }
                             write(STDOUT_FILENO, &tmp_key, 1);
                             fsync(STDOUT_FILENO);
                             tmp_buf[x++]=tmp_key;
                         }
                         break;
                 }
             }
         }
 
         if (selected!=oselected) {
             gohome();
             drawmenu(title, menuitems, item_cnt, selected);
             oselected=selected;
         }
 
     }
 }