bbs/magicka
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
e79e84dd76
magicka/menus.c

431 lines
17 KiB
C
Raw Normal View History

More work on menusystem
2017-04-12 12:34:08 +00:00
#include <stdio.h>
Fix includes
2017-04-12 12:45:15 +00:00
#include <string.h>
#include <stdlib.h>
More work on menusystem
2017-04-12 12:34:08 +00:00
#include <sys/stat.h>
#include "bbs.h"
#include "lua/lua.h"
#include "lua/lualib.h"
#include "lua/lauxlib.h"
Start work on New Menu System
2017-04-12 06:38:33 +00:00
#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
More Work on Menu System
2017-04-12 07:27:59 +00:00
#define MENU_DOOR 12
#define MENU_MAILSCAN 13
#define MENU_READMAIL 14
#define MENU_POSTMESSAGE 15
More work on menusystem
2017-04-12 12:34:08 +00:00
#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
Add missing function
2017-04-12 13:04:35 +00:00
#define MENU_LISTMESSAGES 36
More work on menusystem
2017-04-12 12:34:08 +00:00
extern struct bbs_config conf;
extern struct user_record *gUser;
extern int mynode;
Start work on New Menu System
2017-04-12 06:38:33 +00:00
struct menu_item {
char hotkey;
int command;
char *data;
};
int menu_system(char *menufile) {
FILE *fptr;
More work on menusystem
2017-04-12 12:34:08 +00:00
char buffer[PATH_MAX];
Start work on New Menu System
2017-04-12 06:38:33 +00:00
int menu_items = 0;
struct menu_item **menu;
char *lua_script;
int do_lua_menu;
char *ansi_file;
int i;
More Work on Menu System
2017-04-12 07:27:59 +00:00
int j;
More work on menusystem
2017-04-12 12:34:08 +00:00
struct stat s;
char *lRet;
lua_State *L;
int result;
int doquit = 0;
char c;
Start work on New Menu System
2017-04-12 06:38:33 +00:00
More work on menusystem
2017-04-12 12:34:08 +00:00
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");
Start work on New Menu System
2017-04-12 06:38:33 +00:00
if (!fptr) {
s_printf("Error opening menu file! %s\r\n", menufile);
return 0;
}
lua_script = NULL;
ansi_file = NULL;
More work on menusystem
2017-04-12 12:34:08 +00:00
fgets(buffer, 256, fptr);
while (!feof(fptr)) {
Start work on New Menu System
2017-04-12 06:38:33 +00:00
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;
} else if (strncasecmp(buffer, "COMMAND", 7) == 0 && menu_items > 0) {
More work on menusystem
2017-04-12 12:34:08 +00:00
if (strncasecmp(&buffer[8], "SUBMENU", 7) == 0) {
Start work on New Menu System
2017-04-12 06:38:33 +00:00
menu[menu_items-1]->command = MENU_SUBMENU;
} else if (strncasecmp(&buffer[8], "LOGOFF", 6) == 0) {
menu[menu_items-1]->command = MENU_LOGOFF;
More work on menusystem
2017-04-12 12:34:08 +00:00
} else if (strncasecmp(&buffer[8], "PREVMENU", 8) == 0) {
menu[menu_items-1]->command = MENU_PREVMENU;
Start work on New Menu System
2017-04-12 06:38:33 +00:00
} 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;
More Work on Menu System
2017-04-12 07:27:59 +00:00
} 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;
More work on menusystem
2017-04-12 12:34:08 +00:00
} 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;
Add missing function
2017-04-12 13:04:35 +00:00
} else if (strncasecmp(&buffer[8], "LISTMESSAGES", 12) == 0) {
menu[menu_items-1]->command = MENU_LISTMESSAGES;
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
} else if (strncasecmp(buffer, "DATA", 4) == 0) {
menu[menu_items-1]->data = strdup(&buffer[5]);
} else if (strncasecmp(buffer, "LUASCRIPT", 9) == 0) {
More Work on Menu System
2017-04-12 07:27:59 +00:00
if (lua_script != NULL) {
free(lua_script);
}
Start work on New Menu System
2017-04-12 06:38:33 +00:00
lua_script = strdup(&buffer[10]);
} else if (strncasecmp(buffer, "ANSIFILE", 8) == 0) {
More Work on Menu System
2017-04-12 07:27:59 +00:00
if (ansi_file != NULL) {
free(ansi_file);
}
Start work on New Menu System
2017-04-12 06:38:33 +00:00
ansi_file = strdup(&buffer[9]);
}
More work on menusystem
2017-04-12 12:34:08 +00:00
fgets(buffer, 256, fptr);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
fclose(fptr);
do_lua_menu = 0;
More work on menusystem
2017-04-12 12:34:08 +00:00
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;
}
Start work on New Menu System
2017-04-12 06:38:33 +00:00
More work on menusystem
2017-04-12 12:34:08 +00:00
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;
}
}
}
Start work on New Menu System
2017-04-12 06:38:33 +00:00
while (!doquit) {
if (do_lua_menu == 0) {
if (ansi_file != NULL) {
s_displayansi(ansi_file);
}
More work on menusystem
2017-04-12 12:34:08 +00:00
s_printf(get_string(142), gUser->timeleft);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
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++) {
More work on menusystem
2017-04-12 12:34:08 +00:00
if (tolower(menu[i]->hotkey) == tolower(c)) {
Start work on New Menu System
2017-04-12 06:38:33 +00:00
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) {
More work on menusystem
2017-04-12 12:34:08 +00:00
free(menu[i]->data);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
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) {
More work on menusystem
2017-04-12 12:34:08 +00:00
free(menu[i]->data);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
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) {
More work on menusystem
2017-04-12 12:34:08 +00:00
free(menu[i]->data);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
free(menu[i]);
}
free(menu);
return 0;
case MENU_AUTOMESSAGEWRITE:
More work on menusystem
2017-04-12 12:34:08 +00:00
automessage_write(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
case MENU_TEXTFILES:
display_textfiles();
break;
case MENU_CHATSYSTEM:
More work on menusystem
2017-04-12 12:34:08 +00:00
chat_system(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
case MENU_BBSLIST:
More work on menusystem
2017-04-12 12:34:08 +00:00
bbs_list(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
case MENU_LISTUSERS:
More work on menusystem
2017-04-12 12:34:08 +00:00
list_users(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
case MENU_BULLETINS:
display_bulletins();
break;
case MENU_LAST10:
More work on menusystem
2017-04-12 12:34:08 +00:00
display_last10_callers(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
case MENU_SETTINGS:
More work on menusystem
2017-04-12 12:34:08 +00:00
settings_menu(gUser);
Start work on New Menu System
2017-04-12 06:38:33 +00:00
break;
More Work on Menu System
2017-04-12 07:27:59 +00:00
case MENU_DOOR:
{
for (j=0;j<conf.door_count;j++) {
if (strcasecmp(menu[i]->data, conf.doors[j]->name) == 0) {
More work on menusystem
2017-04-12 12:34:08 +00:00
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);
More Work on Menu System
2017-04-12 07:27:59 +00:00
break;
}
}
}
break;
case MENU_MAILSCAN:
More work on menusystem
2017-04-12 12:34:08 +00:00
mail_scan(gUser);
More Work on Menu System
2017-04-12 07:27:59 +00:00
break;
case MENU_READMAIL:
More work on menusystem
2017-04-12 12:34:08 +00:00
read_mail(gUser);
More Work on Menu System
2017-04-12 07:27:59 +00:00
break;
case MENU_POSTMESSAGE:
More work on menusystem
2017-04-12 12:34:08 +00:00
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);
More Work on Menu System
2017-04-12 07:27:59 +00:00
break;
More work on menusystem
2017-04-12 12:34:08 +00:00
case MENU_PREVFILESUB:
prev_file_sub(gUser);
Add missing function
2017-04-12 13:04:35 +00:00
break;
case MENU_LISTMESSAGES:
list_messages(gUser);
break;
Start work on New Menu System
2017-04-12 06:38:33 +00:00
}
break;
}
}
}
// free menus;
return doquit;
}
Reference in New Issue Copy Permalink