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.
deb-mbse/mbmon/mutil.c

606 lines
11 KiB
C
Raw Normal View History

2001-08-17 05:46:24 +00:00
/*****************************************************************************
*
* $Id$
2001-08-17 05:46:24 +00:00
* Purpose ...............: Utilities
*
*****************************************************************************
2005-08-28 17:08:03 +00:00
* Copyright (C) 1997-2005
2001-08-17 05:46:24 +00:00
*
* Michiel Broek FIDO: 2:280/2802
* Beekmansbos 10
* 1971 BV IJmuiden
* the Netherlands
*
* This file is part of MBSE BBS.
*
* This BBS is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; either version 2, or (at your option) any
* later version.
*
* MB BBS is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with MB BBS; see the file COPYING. If not, write to the Free
2003-08-15 20:05:34 +00:00
* Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
2001-08-17 05:46:24 +00:00
*****************************************************************************/
2002-06-30 12:48:44 +00:00
#include "../config.h"
2004-02-21 15:42:39 +00:00
#include "../lib/mbselib.h"
2001-08-17 05:46:24 +00:00
#include "mutil.h"
extern int rows, cols;
extern int ttyfd;
int bbs_free;
2001-08-25 19:53:11 +00:00
2001-08-17 05:46:24 +00:00
unsigned char readkey(int y, int x, int fg, int bg)
{
2003-03-20 22:43:40 +00:00
int rc = -1, i;
unsigned char ch = 0;
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
if ((ttyfd = open("/dev/tty", O_RDWR|O_NONBLOCK)) < 0) {
perror("open /dev/tty");
exit(MBERR_TTYIO_ERROR);
}
2004-11-03 20:48:45 +00:00
mbse_Setraw();
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
i = 0;
while (rc == -1) {
if ((i % 10) == 0)
show_date(fg, bg, 0, 0);
2001-08-17 05:46:24 +00:00
mbse_locate(y, x);
2003-03-20 22:43:40 +00:00
fflush(stdout);
2004-11-03 20:48:45 +00:00
rc = mbse_Waitchar(&ch, 5);
2003-03-20 22:43:40 +00:00
if ((rc == 1) && (ch != KEY_ESCAPE))
break;
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
if ((rc == 1) && (ch == KEY_ESCAPE))
2004-11-03 20:48:45 +00:00
rc = mbse_Escapechar(&ch);
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
if (rc == 1)
break;
i++;
Nopper();
}
2001-08-17 05:46:24 +00:00
2004-11-03 20:48:45 +00:00
mbse_Unsetraw();
2003-03-20 22:43:40 +00:00
close(ttyfd);
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
return ch;
2001-08-17 05:46:24 +00:00
}
unsigned char testkey(int y, int x)
{
int rc;
unsigned char ch = 0;
Nopper();
mbse_locate(y, x);
2001-08-17 05:46:24 +00:00
fflush(stdout);
if ((ttyfd = open("/dev/tty", O_RDWR|O_NONBLOCK)) < 0) {
2002-10-20 20:58:55 +00:00
perror("open /dev/tty");
exit(MBERR_TTYIO_ERROR);
2001-08-17 05:46:24 +00:00
}
2004-11-03 20:48:45 +00:00
mbse_Setraw();
2001-08-17 05:46:24 +00:00
2004-11-03 20:48:45 +00:00
rc = mbse_Waitchar(&ch, 50);
2001-08-17 05:46:24 +00:00
if (rc == 1) {
if (ch == KEY_ESCAPE)
2004-11-03 20:48:45 +00:00
rc = mbse_Escapechar(&ch);
2001-08-17 05:46:24 +00:00
}
2004-11-03 20:48:45 +00:00
mbse_Unsetraw();
2001-08-17 05:46:24 +00:00
close(ttyfd);
if (rc == 1)
return ch;
else
return '\0';
}
void show_field(int y, int x, char *str, int length, int fill)
{
mbse_mvprintw(y, x, padleft(str, length, fill));
2001-08-17 05:46:24 +00:00
}
int insertflag = 0;
void newinsert(int i, int fg, int bg)
{
insertflag = i;
set_color(YELLOW, RED);
if (insertflag != 0) {
mbse_mvprintw(2,36," INS ");
} else {
mbse_mvprintw(2,36," OVR ");
}
set_color(fg, bg);
2001-08-17 05:46:24 +00:00
}
char *edit_field(int y, int x, int w, int p, char *s_)
{
int i, charok, first, curpos;
static char s[256];
unsigned int ch;
memset((char *)s, 0, 256);
2005-08-28 17:08:03 +00:00
snprintf(s, 256, "%s", s_);
2001-08-17 05:46:24 +00:00
curpos = 0;
first = 1;
newinsert(1, YELLOW, BLUE);
do {
set_color(YELLOW, BLUE);
show_field(y, x, s, w, '_');
mbse_locate(y, x + curpos);
2001-08-17 05:46:24 +00:00
do {
ch = readkey(y, x + curpos, YELLOW, BLUE);
set_color(YELLOW, BLUE);
/*
* Test if the pressed key is a valid key.
*/
charok = 0;
if ((ch >= ' ') && (ch <= '~')) {
switch(p) {
case '!':
ch = toupper(ch);
charok = 1;
break;
case 'X':
charok = 1;
break;
case '9':
if (ch == ' ' || ch == '-' || ch == ',' ||
ch == '.' || isdigit(ch))
charok = 1;
break;
case 'U':
ch = toupper(ch);
if (isupper(ch))
charok = 1;
break;
default:
putchar(7);
break;
}
}
} while (charok == 0 && ch != KEY_ENTER && ch != KEY_LINEFEED &&
ch != KEY_DEL && ch != KEY_INS && ch != KEY_HOME &&
ch != KEY_LEFT && ch != KEY_RIGHT && ch != KEY_ESCAPE &&
ch != KEY_BACKSPACE && ch != KEY_RUBOUT && ch != KEY_END);
if (charok == 1) {
if (first == 1) {
first = 0;
memset((char *)s, 0, 256);
curpos = 0;
}
if (curpos < w) {
if (insertflag == 1) {
/*
* Insert mode
*/
if (strlen(s) < w) {
if (curpos < strlen(s)) {
for (i = strlen(s); i >= curpos; i--)
s[i+1] = s[i];
}
s[curpos] = ch;
if (curpos < w)
curpos++;
} else {
putchar(7);
}
} else {
/*
* Overwrite mode
*/
s[curpos] = ch;
if (curpos < w)
curpos++;
}
} else {
/*
* The field is full
*/
putchar(7);
}
} /* if charok */
first = 0;
switch (ch) {
case KEY_HOME:
curpos = 0;
break;
case KEY_END:
curpos = strlen(s);
break;
case KEY_LEFT:
if (curpos > 0)
curpos--;
else
putchar(7);
break;
case KEY_RIGHT:
if (curpos < strlen(s))
curpos++;
else
putchar(7);
break;
case KEY_INS:
if (insertflag == 1)
newinsert(0, YELLOW, BLUE);
else
newinsert(1, YELLOW, BLUE);
break;
case KEY_BACKSPACE:
case KEY_RUBOUT:
2001-08-17 05:46:24 +00:00
if (strlen(s) > 0) {
if (curpos >= strlen(s)) {
curpos--;
s[curpos] = '\0';
} else {
for (i = curpos; i < strlen(s); i++)
s[i] = s[i+1];
s[i] = '\0';
}
} else
putchar(7);
break;
case KEY_DEL:
if (strlen(s) > 0) {
if ((curpos) == (strlen(s) -1)) {
s[curpos] = '\0';
} else {
for (i = curpos; i < strlen(s); i++)
s[i] = s[i+1];
s[i] = '\0';
}
} else
putchar(7);
break;
}
} while ((ch != KEY_ENTER) && (ch != KEY_LINEFEED) && (ch != KEY_ESCAPE));
set_color(LIGHTGRAY, BLUE);
mbse_mvprintw(2,36, " ");
2001-08-17 05:46:24 +00:00
set_color(LIGHTGRAY, BLACK);
return s;
}
/*
* Select menu, max is the highest item to pick. Returns zero if
* "-" (previous level) is selected.
*/
int select_menu(int max)
{
static char *menu=(char *)"-";
char help[80];
int pick;
2005-08-28 17:08:03 +00:00
snprintf(help, 80, "Select menu item (1..%d) or ^\"-\"^ for previous level.", max);
showhelp(help);
/*
* Loop forever until it's right.
*/
for (;;) {
mbse_mvprintw(rows - 2, 6, "Enter your choice >");
menu = (char *)"-";
menu = edit_field(rows - 2, 26, 3, '9', menu);
mbse_locate(rows - 2, 6);
clrtoeol();
2001-08-17 05:46:24 +00:00
if (strncmp(menu, "-", 1) == 0)
return 0;
2001-08-17 05:46:24 +00:00
pick = atoi(menu);
if ((pick >= 1) && (pick <= max))
return pick;
working(2, 0, 0);
working(0, 0, 0);
}
2001-08-17 05:46:24 +00:00
}
void clrtoeol()
{
int i;
2001-08-17 05:46:24 +00:00
printf("\r");
for (i = 0; i < cols; i++)
putchar(' ');
printf("\r");
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
void hor_lin(int y, int x, int len)
{
int i;
2001-08-17 05:46:24 +00:00
mbse_locate(y, x);
for (i = 0; i < len; i++)
putchar('-');
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
static int old_f = -1;
static int old_b = -1;
void set_color(int f, int b)
{
if ((f != old_f) || (b != old_b)) {
old_f = f;
old_b = b;
mbse_colour(f, b);
fflush(stdout);
}
2001-08-17 05:46:24 +00:00
}
static time_t lasttime;
/*
2003-03-20 22:43:40 +00:00
* Show the current date & time in the second status row.
* Show user paging status in third screen row.
2001-08-17 05:46:24 +00:00
*/
void show_date(int fg, int bg, int y, int x)
{
2003-03-20 22:43:40 +00:00
time_t now;
char *p, buf[128], *pid, *page, *reason;
now = time(NULL);
if (now != lasttime) {
lasttime = now;
set_color(LIGHTGREEN, BLUE);
p = ctime(&now);
Striplf(p);
mbse_mvprintw(1, cols - 36, (char *)"%s TZUTC %s", p, gmtoffset(now));
2003-03-20 22:43:40 +00:00
p = asctime(gmtime(&now));
Striplf(p);
mbse_mvprintw(2, cols - 36, (char *)"%s UTC", p);
2003-03-20 22:43:40 +00:00
/*
* Indicator if bbs is free
*/
strcpy(buf, SockR("SFRE:0;"));
if (strncmp(buf, "100:0;", 6) == 0) {
strcpy(buf, SockR("SBBS:0;"));
if (strncmp(buf, "100:2,1", 7) == 0) {
set_color(WHITE, RED);
mbse_mvprintw(2,cols - 6, (char *)" Down ");
2003-03-20 22:43:40 +00:00
} else {
set_color(WHITE, BLUE);
mbse_mvprintw(2,cols - 6, (char *)" Free ");
2003-03-20 22:43:40 +00:00
}
bbs_free = TRUE;
} else {
set_color(WHITE, RED);
mbse_mvprintw(2,cols - 6, (char *)" Busy ");
2003-03-20 22:43:40 +00:00
bbs_free = FALSE;
}
2002-05-04 19:45:19 +00:00
2003-03-20 22:43:40 +00:00
/*
* Check paging status
*/
strcpy(buf, SockR("CCKP:0;"));
if (strcmp(buf, "100:0;") == 0) {
mbse_locate(3, 1);
2003-03-20 22:43:40 +00:00
set_color(LIGHTGRAY, BLACK);
clrtoeol();
} else {
pid = strtok(buf, ",");
pid = strtok(NULL, ",");
page = strtok(NULL, ",");
reason = xstrcpy(cldecode(strtok(NULL, ";")));
2003-03-20 22:43:40 +00:00
if (strlen(reason) > 60)
reason[60] = '\0';
mbse_locate(3, 1);
2003-03-20 22:43:40 +00:00
if (strcmp(page, "1")) {
set_color(RED, BLACK);
mbse_mvprintw(3, 1, " Old page (%s) %-60s", pid, reason);
2003-03-20 22:43:40 +00:00
if ((now % 10) == 0) /* Every 10 seconds */
putchar(7);
} else {
set_color(LIGHTRED, BLACK);
mbse_mvprintw(3, 1, " Sysop page (%s) %-60s", pid, reason);
2003-03-20 22:43:40 +00:00
putchar(7); /* Each second */
}
free(reason);
2001-08-17 05:46:24 +00:00
}
2003-03-20 22:43:40 +00:00
if (y && x)
mbse_locate(y, x);
2003-03-20 22:43:40 +00:00
set_color(fg, bg);
}
2001-08-17 05:46:24 +00:00
}
void center_addstr(int y, char *s)
{
mbse_mvprintw(y, (cols / 2) - (strlen(s) / 2), s);
2001-08-17 05:46:24 +00:00
}
/*
* Curses and screen initialisation.
*/
void screen_start(char *name)
{
int i;
mbse_TermInit(1, cols, rows);
/*
* Overwrite screen the first time, if user had it black on white
* it will change to white on black. clear() won't do the trick.
*/
set_color(LIGHTGRAY, BLUE);
mbse_locate(1, 1);
for (i = 0; i < rows; i++) {
if (i == 3)
mbse_colour(LIGHTGRAY, BLACK);
clrtoeol();
if (i < rows)
printf("\n");
}
fflush(stdout);
set_color(WHITE, BLUE);
mbse_locate(1, 1);
printf((char *)"%s for MBSE BBS version %s", name, VERSION);
set_color(YELLOW, BLUE);
mbse_locate(2, 1);
printf((char *)SHORTRIGHT);
set_color(LIGHTGRAY, BLACK);
show_date(LIGHTGRAY, BLACK, 0, 0);
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
/*
* Screen deinit
*/
void screen_stop()
{
set_color(LIGHTGRAY, BLACK);
mbse_clear();
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
/*
* Message at the upperright window about actions
*/
void working(int txno, int y, int x)
{
int i;
2001-08-17 05:46:24 +00:00
/*
* If txno not 0 there will be something written. The
* reversed attributes for mono, or white on red for
* color screens is set. The cursor is turned off and
* original cursor position is saved.
*/
show_date(LIGHTGRAY, BLACK, 0, 0);
2001-08-17 05:46:24 +00:00
if (txno != 0)
set_color(YELLOW, RED);
else
set_color(LIGHTGRAY, BLACK);
2001-08-17 05:46:24 +00:00
switch (txno) {
case 0: mbse_mvprintw(4, cols - 14, (char *)" ");
2001-08-17 05:46:24 +00:00
break;
case 1: mbse_mvprintw(4, cols - 14, (char *)"Working . . .");
2001-08-17 05:46:24 +00:00
break;
case 2: mbse_mvprintw(4, cols - 14, (char *)">>> ERROR <<<");
2001-08-17 05:46:24 +00:00
for (i = 1; i <= 5; i++) {
putchar(7);
fflush(stdout);
2004-01-25 10:57:35 +00:00
msleep(150);
2001-08-17 05:46:24 +00:00
}
2004-01-25 10:57:35 +00:00
msleep(550);
2001-08-17 05:46:24 +00:00
break;
case 3: mbse_mvprintw(4, cols - 14, (char *)"Form inserted");
2001-08-17 05:46:24 +00:00
putchar(7);
fflush(stdout);
sleep(1);
break;
case 4: mbse_mvprintw(4, cols - 14, (char *)"Form deleted ");
2001-08-17 05:46:24 +00:00
putchar(7);
fflush(stdout);
sleep(1);
break;
}
2001-08-17 05:46:24 +00:00
show_date(LIGHTGRAY, BLACK, 0, 0);
set_color(LIGHTGRAY, BLACK);
if (y && x)
mbse_locate(y, x);
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
/*
* Clear the middle window
*/
void clr_index()
{
2003-03-20 22:43:40 +00:00
int i;
2001-08-17 05:46:24 +00:00
2003-03-20 22:43:40 +00:00
set_color(LIGHTGRAY, BLACK);
for (i = 4; i <= (rows); i++) {
mbse_locate(i, 1);
2003-03-20 22:43:40 +00:00
clrtoeol();
}
2001-08-17 05:46:24 +00:00
}
/*
* Show help at the bottom of the screen.
*/
void showhelp(char *T)
{
int f, i, x, forlim;
f = FALSE;
mbse_locate(rows, 1);
set_color(WHITE, RED);
clrtoeol();
x = 0;
forlim = strlen(T);
for (i = 0; i < forlim; i++) {
if (T[i] == '^') {
if (f == FALSE) {
f = TRUE;
set_color(YELLOW, RED);
} else {
f = FALSE;
set_color(WHITE, RED);
}
} else {
putchar(T[i]);
x++;
2001-08-17 05:46:24 +00:00
}
}
set_color(LIGHTGRAY, BLACK);
fflush(stdout);
2001-08-17 05:46:24 +00:00
}