#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sys/stat.h>
#include "bbs.h"
#include "lua/lua.h"
#include "lua/lualib.h"
#include "lua/lauxlib.h"

#define MENU_SUBMENU            1
#define MENU_LOGOFF             2
#define MENU_PREVMENU           3
#define MENU_AUTOMESSAGEWRITE   4
#define MENU_TEXTFILES          5
#define MENU_CHATSYSTEM         6
#define MENU_BBSLIST            7
#define MENU_LISTUSERS          8
#define MENU_BULLETINS          9
#define MENU_LAST10             10
#define MENU_SETTINGS           11
#define MENU_DOOR               12
#define MENU_MAILSCAN           13
#define MENU_READMAIL           14
#define MENU_POSTMESSAGE        15
#define MENU_CHOOSEMAILCONF     16
#define MENU_CHOOSEMAILAREA     17
#define MENU_SENDEMAIL          18
#define MENU_LISTEMAIL          19
#define MENU_NEXTMAILCONF       20
#define MENU_PREVMAILCONF       21
#define MENU_NEXTMAILAREA       22
#define MENU_PREVMAILAREA       23
#define MENU_BLUEWAVEDOWN       24
#define MENU_BLUEWAVEUP         25
#define MENU_CHOOSEFILEDIR      26
#define MENU_CHOOSEFILESUB      27
#define MENU_LISTFILES          28
#define MENU_UPLOAD             29
#define MENU_DOWNLOAD           30
#define MENU_CLEARTAGGEDFILES   31
#define MENU_NEXTFILEDIR        32
#define MENU_PREVFILEDIR        33
#define MENU_NEXTFILESUB        34
#define MENU_PREVFILESUB        35
#define MENU_LISTMESSAGES       36
#define MENU_DOSCRIPT           37

extern struct bbs_config conf;
extern struct user_record *gUser;
extern int mynode;

struct menu_item {
    char hotkey;
    int command;
    char *data;
    int seclevel;
};

int menu_system(char *menufile) {
    FILE *fptr;
    char buffer[PATH_MAX];
    int menu_items = 0;
    struct menu_item **menu;
    char *lua_script;
    int do_lua_menu;
    char *ansi_file;
    int i;
    int j;
    struct stat s;
    char *lRet;
	lua_State *L;
    int result;
    int doquit = 0;
    char c;

    if (menufile[0] == '/') {
        snprintf(buffer, PATH_MAX, "%s.mnu", menufile);
    } else {
        snprintf(buffer, PATH_MAX, "%s/%s.mnu", conf.menu_path, menufile);
    }
    fptr = fopen(buffer, "r");
    
    if (!fptr) {
        s_printf("Error opening menu file! %s\r\n", menufile);
        return 0;
    }

    lua_script = NULL;
    ansi_file = NULL;


    fgets(buffer, 256, fptr);
    while (!feof(fptr)) {


        chomp(buffer);

        if (strncasecmp(buffer, "HOTKEY", 6) == 0) {
            menu_items++;
            if (menu_items == 1) {
                menu = (struct menu_item **)malloc(sizeof(struct menu_item *));
            } else {
                menu = (struct menu_item **)realloc(menu, sizeof(struct menu_item *) * (menu_items));
            }
            menu[menu_items-1] = (struct menu_item *)malloc(sizeof(struct menu_item));
            menu[menu_items-1]->hotkey = buffer[7];
            menu[menu_items-1]->data = NULL;
            menu[menu_items-1]->seclevel = 0;
        } else if (strncasecmp(buffer, "COMMAND", 7) == 0 && menu_items > 0) {
            if (strncasecmp(&buffer[8], "SUBMENU", 7) == 0) {
                menu[menu_items-1]->command = MENU_SUBMENU;
            } else if (strncasecmp(&buffer[8], "LOGOFF", 6) == 0) {
                menu[menu_items-1]->command = MENU_LOGOFF;
            } else if (strncasecmp(&buffer[8], "PREVMENU", 8) == 0) {
                menu[menu_items-1]->command = MENU_PREVMENU;
            } else if (strncasecmp(&buffer[8], "AUTOMESSAGE_WRITE", 17) == 0) {
                menu[menu_items-1]->command = MENU_AUTOMESSAGEWRITE;
            } else if (strncasecmp(&buffer[8], "TEXTFILES", 9) == 0) {
                menu[menu_items-1]->command = MENU_TEXTFILES;
            } else if (strncasecmp(&buffer[8], "CHATSYSTEM", 10) == 0) {
                menu[menu_items-1]->command = MENU_CHATSYSTEM;
            } else if (strncasecmp(&buffer[8], "BBSLIST", 7) == 0) {
                menu[menu_items-1]->command = MENU_BBSLIST;
            } else if (strncasecmp(&buffer[8], "LISTUSERS", 9) == 0) {
                menu[menu_items-1]->command = MENU_LISTUSERS;
            } else if (strncasecmp(&buffer[8], "BULLETINS", 9) == 0) {
                menu[menu_items-1]->command = MENU_BULLETINS;
            } else if (strncasecmp(&buffer[8], "LAST10CALLERS", 13) == 0) {
                menu[menu_items-1]->command = MENU_LAST10;
            } else if (strncasecmp(&buffer[8], "SETTINGS", 8) == 0) {
                menu[menu_items-1]->command = MENU_SETTINGS;
            } else if (strncasecmp(&buffer[8], "RUNDOOR", 7) == 0) {
                menu[menu_items-1]->command = MENU_DOOR;
            } else if (strncasecmp(&buffer[8], "MAILSCAN", 8) == 0) {
                menu[menu_items-1]->command = MENU_MAILSCAN;
            } else if (strncasecmp(&buffer[8], "READMAIL", 8) == 0) {
                menu[menu_items-1]->command = MENU_READMAIL;
            } else if (strncasecmp(&buffer[8], "POSTMESSAGE", 11) == 0) {
                menu[menu_items-1]->command = MENU_POSTMESSAGE;
            } else if (strncasecmp(&buffer[8], "CHOOSEMAILCONF", 14) == 0) {
                menu[menu_items-1]->command = MENU_CHOOSEMAILCONF;
            } else if (strncasecmp(&buffer[8], "CHOOSEMAILAREA", 14) == 0) {
                menu[menu_items-1]->command = MENU_CHOOSEMAILAREA;
            } else if (strncasecmp(&buffer[8], "SENDEMAIL", 9) == 0) {
                menu[menu_items-1]->command = MENU_SENDEMAIL;
            } else if (strncasecmp(&buffer[8], "LISTEMAIL", 9) == 0) {
                menu[menu_items-1]->command = MENU_LISTEMAIL;
            } else if (strncasecmp(&buffer[8], "NEXTMAILCONF", 12) == 0) {
                menu[menu_items-1]->command = MENU_NEXTMAILCONF;
            } else if (strncasecmp(&buffer[8], "PREVMAILCONF", 12) == 0) {
                menu[menu_items-1]->command = MENU_PREVMAILCONF;
            } else if (strncasecmp(&buffer[8], "NEXTMAILAREA", 12) == 0) {
                menu[menu_items-1]->command = MENU_NEXTMAILAREA;
            } else if (strncasecmp(&buffer[8], "PREVMAILAREA", 12) == 0) {
                menu[menu_items-1]->command = MENU_PREVMAILAREA;
            } else if (strncasecmp(&buffer[8], "BLUEWAVEDOWNLOAD", 16) == 0) {
                menu[menu_items-1]->command = MENU_BLUEWAVEDOWN;
            } else if (strncasecmp(&buffer[8], "BLUEWAVEUPLOAD", 14) == 0) {
                menu[menu_items-1]->command = MENU_BLUEWAVEUP;
            } else if (strncasecmp(&buffer[8], "CHOOSEFILEDIR", 13) == 0) {
                menu[menu_items-1]->command = MENU_CHOOSEFILEDIR;
            } else if (strncasecmp(&buffer[8], "CHOOSEFILESUB", 13) == 0) {
                menu[menu_items-1]->command = MENU_CHOOSEFILESUB;
            } else if (strncasecmp(&buffer[8], "LISTFILES", 9) == 0) {
                menu[menu_items-1]->command = MENU_LISTFILES;
            } else if (strncasecmp(&buffer[8], "UPLOAD", 6) == 0) {
                menu[menu_items-1]->command = MENU_UPLOAD;
            } else if (strncasecmp(&buffer[8], "DOWNLOAD", 8) == 0) {
                menu[menu_items-1]->command = MENU_DOWNLOAD;
            } else if (strncasecmp(&buffer[8], "CLEARTAGGED", 11) == 0) {
                menu[menu_items-1]->command = MENU_CLEARTAGGEDFILES;
            } else if (strncasecmp(&buffer[8], "NEXTFILEDIR", 11) == 0) {
                menu[menu_items-1]->command = MENU_NEXTFILEDIR;
            } else if (strncasecmp(&buffer[8], "PREVFILEDIR", 11) == 0) {
                menu[menu_items-1]->command = MENU_PREVFILEDIR;
            } else if (strncasecmp(&buffer[8], "NEXTFILESUB", 11) == 0) {
                menu[menu_items-1]->command = MENU_NEXTFILESUB;
            } else if (strncasecmp(&buffer[8], "PREVFILESUB", 11) == 0) {
                menu[menu_items-1]->command = MENU_PREVFILESUB;
            } else if (strncasecmp(&buffer[8], "LISTMESSAGES", 12) == 0) {
                menu[menu_items-1]->command = MENU_LISTMESSAGES;
            } else if (strncasecmp(&buffer[8], "DOSCRIPT", 8) == 0) {
                menu[menu_items-1]->command = MENU_DOSCRIPT;
            }
        } else if (strncasecmp(buffer, "SECLEVEL", 8) == 0) {
            menu[menu_items-1]->seclevel = atoi(&buffer[9]);
        } else if (strncasecmp(buffer, "DATA", 4) == 0) {
            menu[menu_items-1]->data = strdup(&buffer[5]);
        } else if (strncasecmp(buffer, "LUASCRIPT", 9) == 0) {
            if (lua_script != NULL) {
                free(lua_script);
            }
            lua_script = strdup(&buffer[10]);
        } else if (strncasecmp(buffer, "ANSIFILE", 8) == 0) {
            if (ansi_file != NULL) {
                free(ansi_file);
            }
            ansi_file = strdup(&buffer[9]);
        }

        fgets(buffer, 256, fptr);
    }
    fclose(fptr);

    do_lua_menu = 0;

    if (lua_script != NULL) {
        if (conf.script_path != NULL && lua_script[0] != '/') {
            snprintf(buffer, PATH_MAX, "%s/%s.lua", conf.script_path, lua_script);
            do_lua_menu = 1;
        } else if (lua_script[0] == '/') {
            snprintf(buffer, PATH_MAX, "%s.lua", lua_script);
            do_lua_menu = 1;
        } 

        if (do_lua_menu) {
            if (stat(buffer, &s) == 0) {
                L = luaL_newstate();
                luaL_openlibs(L);
                lua_push_cfunctions(L);
                luaL_loadfile(L, buffer);
                do_lua_menu = 1;
                result = lua_pcall(L, 0, 1, 0);
                if (result) {
                    dolog("Failed to run script: %s", lua_tostring(L, -1));
                    do_lua_menu = 0;
                }
            } else {
                do_lua_menu = 0;
            }
        }
    }


	while (!doquit) {
        snprintf(buffer, PATH_MAX, "%s/node%d/nodemsg.txt", conf.bbs_path, mynode);

        if (stat(buffer, &s) == 0) {
            fptr = fopen(buffer, "r");
            if (fptr) {
                fgets(buffer, PATH_MAX, fptr);
                while (!feof(fptr)) {
                    s_printf("%s\r\n", buffer);
                }
                fclose(fptr);
                snprintf(buffer, PATH_MAX, "%s/node%d/nodemsg.txt", conf.bbs_path, mynode);
                unlink(buffer);

                s_printf(get_string(6));
                c = s_getc();
            }
        }
		if (do_lua_menu == 0) {
            if (ansi_file != NULL) {
			    s_displayansi(ansi_file);
            }
			s_printf(get_string(142), gUser->timeleft);
			c = s_getc();
		} else {
			lua_getglobal(L, "menu");
			result = lua_pcall(L, 0, 1, 0);
			if (result) {
				dolog("Failed to run script: %s", lua_tostring(L, -1));
				do_lua_menu = 0;
				lua_close(L);
				continue;
			}
			lRet = (char *)lua_tostring(L, -1);
			lua_pop(L, 1);
			c = lRet[0];
		}

        for (i=0;i<menu_items;i++) {
            if (tolower(menu[i]->hotkey) == tolower(c)) {
                if (menu[i]->seclevel <= gUser->sec_level) {
                    switch(menu[i]->command) {
                        case MENU_SUBMENU:
                            doquit = menu_system(menu[i]->data);
                            if (doquit == 1) {
                                // free menus
                                if (do_lua_menu) {
                                    lua_close(L);
                                }
                                if (lua_script != NULL) {
                                    free(lua_script);
                                }
                                if (ansi_file != NULL) {
                                    free(ansi_file);
                                }
                                for (i=0;i<menu_items;i++) {
                                    if (menu[i]->data != NULL) {
                                        free(menu[i]->data);
                                    }
                                    free(menu[i]);
                                }
                                free(menu);
                                return doquit;
                            }
                            break;
                        case MENU_LOGOFF:
                            if (do_lua_menu) {
                                lua_close(L);
                            }              
                            if (lua_script != NULL) {
                                free(lua_script);
                            }
                            if (ansi_file != NULL) {
                                free(ansi_file);
                            }
                            for (i=0;i<menu_items;i++) {
                                if (menu[i]->data != NULL) {
                                    free(menu[i]->data);
                                }
                                free(menu[i]);
                            }
                            free(menu);                              
                            return 1;
                        case MENU_PREVMENU:
                            if (do_lua_menu) {
                                lua_close(L);
                            }                    
                            if (lua_script != NULL) {
                                free(lua_script);
                            }
                            if (ansi_file != NULL) {
                                free(ansi_file);
                            }
                            for (i=0;i<menu_items;i++) {
                                if (menu[i]->data != NULL) {
                                    free(menu[i]->data);
                                }
                                free(menu[i]);
                            }
                            free(menu);                                                      
                            return 0;
                        case MENU_AUTOMESSAGEWRITE:
                            automessage_write(gUser);
                            break;
                        case MENU_TEXTFILES:
                            display_textfiles();
                            break;
                        case MENU_CHATSYSTEM:
                            chat_system(gUser);
                            break;
                        case MENU_BBSLIST:
                            bbs_list(gUser);
                            break;
                        case MENU_LISTUSERS:
                            list_users(gUser);
                            break;
                        case MENU_BULLETINS:
                            display_bulletins();
                            break;
                        case MENU_LAST10:
                            display_last10_callers(gUser);
                            break;
                        case MENU_SETTINGS:
                            settings_menu(gUser);
                            break;
                        case MENU_DOOR:
                            {
                                for (j=0;j<conf.door_count;j++) {
                                    if (strcasecmp(menu[i]->data, conf.doors[j]->name) == 0) {
                                        dolog("%s launched door %s, on node %d", gUser->loginname, conf.doors[j]->name, mynode);
                                        rundoor(gUser, conf.doors[j]->command, conf.doors[j]->stdio);
                                        dolog("%s returned from door %s, on node %d", gUser->loginname, conf.doors[j]->name, mynode);
                                        break;
                                    }
                                }
                            }
                            break;
                        case MENU_MAILSCAN:
                            mail_scan(gUser);
                            break;
                        case MENU_READMAIL:
                            read_mail(gUser);
                            break;
                        case MENU_POSTMESSAGE:
                            post_message(gUser);
                            break;
                        case MENU_CHOOSEMAILCONF:
                            choose_conference(gUser);
                            break;
                        case MENU_CHOOSEMAILAREA:
                            choose_area(gUser);
                            break;
                        case MENU_SENDEMAIL:
                            send_email(gUser);
                            break;
                        case MENU_LISTEMAIL:
                            list_emails(gUser);
                            break;
                        case MENU_NEXTMAILCONF:
                            next_mail_conf(gUser);
                            break;
                        case MENU_PREVMAILCONF:
                            prev_mail_conf(gUser);
                            break;
                        case MENU_NEXTMAILAREA:
                            next_mail_area(gUser);
                            break;
                        case MENU_PREVMAILAREA:
                            prev_mail_area(gUser);
                            break;
                        case MENU_BLUEWAVEDOWN:
                            bwave_create_packet();
                            break;
                        case MENU_BLUEWAVEUP:
                            bwave_upload_reply();
                            break;
                        case MENU_CHOOSEFILEDIR:
                            choose_directory(gUser);
                            break;
                        case MENU_CHOOSEFILESUB:
                            choose_subdir(gUser);
                            break;
                        case MENU_LISTFILES:
                            list_files(gUser);
                            break;
                        case MENU_UPLOAD:
                            if (gUser->sec_level >= conf.file_directories[gUser->cur_file_dir]->file_subs[gUser->cur_file_sub]->upload_sec_level) {
                                upload(gUser);
                            } else {
                                s_printf(get_string(84));
                            }
                            break;
                        case MENU_DOWNLOAD:
                            download(gUser);
                            break;
                        case MENU_CLEARTAGGEDFILES:
                            clear_tagged_files();
                            break;
                        case MENU_NEXTFILEDIR:
                            next_file_dir(gUser);
                            break;
                        case MENU_PREVFILEDIR:
                            prev_file_dir(gUser);
                            break;
                        case MENU_NEXTFILESUB:
                            next_file_sub(gUser);
                            break;
                        case MENU_PREVFILESUB:
                            prev_file_sub(gUser);
                            break; 
                        case MENU_LISTMESSAGES:
                            list_messages(gUser);
                            break;
                        case MENU_DOSCRIPT:
                            do_lua_script(menu[i]->data);
                            break;                       
                    }
                    break;
                }
            }
        }
    }

    // free menus;
    return doquit;
}