/* Synchronet file database listing functions */

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright Rob Swindell - http://www.synchro.net/copyright.html			*
 *																			*
 * This program 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			*
 * of the License, or (at your option) any later version.					*
 * See the GNU General Public License for more details: gpl.txt or			*
 * http://www.fsf.org/copyleft/gpl.html										*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

#include "sbbs.h"
#include "boolsrch.h"
#include "filedat.h"

#define BF_MAX  26  /* Batch Flag max: A-Z */

int extdesclines(char *str);

/*****************************************************************************/
/* List files in directory 'dir' that match 'filespec'.						 */
/* 'mode' determines other criteria											 */
/* the files must meet before they'll be listed. 'mode' bit FL_NOHDR doesn't */
/* list the directory header.                                                */
/* Returns -1 if the listing was aborted, otherwise total files listed		 */
/*****************************************************************************/
int sbbs_t::listfiles(const int dirnum, const char *filespec, FILE* tofile, const int mode)
{
	char         hdr[256], letter = 'A';
	char         filepattern[SMB_FILEIDX_NAMELEN + 1] = "";
	uchar        flagprompt = 0;
	int          c, d;
	int          i, j;
	int          found = 0, lastbat = 0, disp;
	size_t       m = 0;
	int          anchor = 0, next;
	file_t*      bf[BF_MAX]; /* bf is batch flagged files */
	uint         file_row[BF_MAX];
	size_t       longest = 0;
	bool_expr_t* find_expr = NULL;

	if (!tofile) {
		action = NODE_LFIL;
		curdirnum = dirnum;
		bool invoked;
		i = exec_mod("list files", cfg.listfiles_mod, &invoked, "%s %u %s", cfg.dir[dirnum]->code, mode, filespec);
		if (invoked)
			return i;
	}

	if ((mode & FL_FIND) && filespec != NULL && *filespec) {
		char* errmsg = NULL;
		find_expr = bool_expr_compile(filespec, &errmsg);
		if (find_expr == NULL) {
			bprintf(text[InvalidSearchExpression],
			        errmsg != NULL ? errmsg : "(?)");
			free(errmsg);
			return 0;
		}
	}

	if (!smb_init_dir(&cfg, &smb, dirnum)) {
		bool_expr_free(find_expr);
		return 0;
	}
	if (mode & FL_ULTIME) {
		last_ns_time = now;
		if (!newfiles(&smb, ns_time)) {    // this is fast
			bool_expr_free(find_expr);
			return 0;
		}
	}
	if (smb_open_dir(&cfg, &smb, dirnum) != SMB_SUCCESS) {
		bool_expr_free(find_expr);
		return 0;
	}

	filespec = liberal_filepattern(filespec, filepattern, sizeof filepattern);
	size_t  file_count = 0;
	file_t* file_list = loadfiles(&smb
	                              , (mode & FL_FIND) ? NULL : filespec
	                              , (mode & FL_ULTIME) ? ns_time : 0
	                              , tofile == NULL ? file_detail_extdesc : file_detail_normal
	                              , (enum file_sort)cfg.dir[dirnum]->sort
	                              , &file_count);
	if (file_list == NULL || file_count < 1) {
		smb_close(&smb);
		free(file_list);
		bool_expr_free(find_expr);
		return 0;
	}

	for (size_t i = 0; i < file_count; i++) {
		size_t len = strlen(file_list[i].name);
		if (len > longest)
			longest = len;
	}

	if (!tofile) {
		getnodedat(cfg.node_num, &thisnode);
		if (thisnode.action != NODE_LFIL) {    /* was a sync */
			if (getnodedat(cfg.node_num, &thisnode, true)) {
				thisnode.action = NODE_LFIL;
				putnodedat(cfg.node_num, &thisnode);
			}
		}
	}

	m = 0; // current file index
	file_t* f = NULL;
	while (online) {
		if (found < 0)
			found = 0;
		if (m >= file_count || flagprompt) {         /* End of list */
			if (useron.misc & BATCHFLAG && !tofile && found && found != lastbat
			    && !(mode & (FL_EXT | FL_VIEW))) {
				flagprompt = 0;
				term->lncntr = 0;
				if ((i = batchflagprompt(&smb, bf, file_row, letter - 'A', file_count)) == 2) {
					m = anchor;
					found -= letter - 'A';
					letter = 'A';
				}
				else if (i == 3) {
					if ((int)anchor - (letter - 'A') < 0) {
						m = 0;
						found = 0;
					}
					else {
						m = anchor - (letter - 'A');
						found -= letter - 'A';
					}
					letter = 'A';
				}
				else if ((int)i == -1) {
					found = -1;
					break;
				}
				else
					break;
				getnodedat(cfg.node_num, &thisnode);
				nodesync();
			}
			else
				break;
		}
		if (m < file_count)
			f = &file_list[m];

		if (letter > 'Z')
			letter = 'A';
		if (letter == 'A')
			anchor = m;

		if (msgabort()) {         /* used to be !tofile && msgabort() */
			found = -1;
			break;
		}
		if (mode & FL_FIND) {
			const char* fields[6] = { f->name, f->desc, (const char*)f->extdesc,
			                          f->tags, f->author, f->author_org };
			if (find_expr == NULL || !bool_expr_match_fields(find_expr, fields, 6)) {
				m++;
				continue;
			}
		}
		if (useron.misc & BATCHFLAG && letter == 'A' && found && !tofile
		    && !(mode & (FL_EXT | FL_VIEW))
		    && (!mode || !(useron.misc & EXPERT)))
			bputs(text[FileListBatchCommands]);
		m++;
		if (!found && !(mode & (FL_EXT | FL_VIEW))) {
			for (i = 0; i < usrlibs; i++)
				if (usrlib[i] == cfg.dir[dirnum]->lib)
					break;
			for (j = 0; j < usrdirs[i]; j++)
				if (usrdir[i][j] == dirnum)
					break;                      /* big header */
			if ((!mode || !(useron.misc & EXPERT)) && !tofile && (!filespec[0]
			                                                      || (strchr(filespec, '*') || strchr(filespec, '?')))) {
				snprintf(hdr, sizeof hdr, "%s%s.hdr", cfg.dir[dirnum]->data_dir, cfg.dir[dirnum]->code);
				if (fexistcase(hdr))
					printfile(hdr, 0);  /* Use DATA\DIRS\<CODE>.HDR */
				else {
					if (useron.misc & BATCHFLAG)
						bputs(text[FileListBatchCommands]);
					else {
						cls();
						d = strlen(cfg.lib[usrlib[i]]->lname) > strlen(cfg.dir[dirnum]->lname) ?
						    strlen(cfg.lib[usrlib[i]]->lname) + 17
						    : strlen(cfg.dir[dirnum]->lname) + 17;
						if (i > 8 || j > 8)
							d++;
						attr(cfg.color[clr_filelsthdrbox]);
						bputs("\xc9\xcd");            /* use to start with \r\n */
						for (c = 0; c < d; c++)
							outchar('\xcd');
						bputs("\xbb\r\n\xba ");
						snprintf(hdr, sizeof hdr, text[BoxHdrLib], i + 1, cfg.lib[usrlib[i]]->lname);
						bputs(hdr);
						for (c = term->bstrlen(hdr); c < d; c++)
							outchar(' ');
						attr(cfg.color[clr_filelsthdrbox]);
						bputs("\xba\r\n\xba ");
						snprintf(hdr, sizeof hdr, text[BoxHdrDir], j + 1, cfg.dir[dirnum]->lname);
						bputs(hdr);
						for (c = term->bstrlen(hdr); c < d; c++)
							outchar(' ');
						attr(cfg.color[clr_filelsthdrbox]);
						bputs("\xba\r\n\xba ");
						snprintf(hdr, sizeof hdr, text[BoxHdrFiles], file_count);
						bputs(hdr);
						for (c = term->bstrlen(hdr); c < d; c++)
							outchar(' ');
						attr(cfg.color[clr_filelsthdrbox]);
						bputs("\xba\r\n\xc8\xcd");
						for (c = 0; c < d; c++)
							outchar('\xcd');
						bputs("\xbc\r\n");
					}
				}
			}
			else {                  /* short header */
				if (tofile) {
					c = fprintf(tofile, "\r\n(%u) %s ", i + 1, cfg.lib[usrlib[i]]->sname) - 2;
				}
				else {
					snprintf(hdr, sizeof hdr, text[ShortHdrLib], i + 1, cfg.lib[usrlib[i]]->sname);
					bputs("\1[\1>\r\n");
					bputs(hdr);
					c = term->bstrlen(hdr);
				}
				if (tofile) {
					c += fprintf(tofile, "(%u) %s", j + 1, cfg.dir[dirnum]->lname);
				}
				else {
					snprintf(hdr, sizeof hdr, text[ShortHdrDir], j + 1, cfg.dir[dirnum]->lname);
					bputs(hdr);
					c += term->bstrlen(hdr);
				}
				if (tofile) {
					fprintf(tofile, "\r\n%.*s\r\n", c, "----------------------------------------------------------------");
				}
				else {
					term->newline();
					attr(cfg.color[clr_filelstline]);
					while (c--)
						outchar('\xC4');
					term->newline();
				}
			}
		}
		int currow = term->row;
		next = m;
		disp = 1;
		if (mode & (FL_EXT | FL_VIEW)) {
			if (!found)
				bputs("\1[\1>");
			if (!viewfile(f, INT_TO_BOOL(mode & FL_EXT))) {
				found = -1;
				break;
			}
			term->newline();
		}
		else if (tofile)
			listfiletofile(f, tofile);
		else if (mode & FL_FIND)
			disp = listfile(f, dirnum, filespec, letter, longest);
		else
			disp = listfile(f, dirnum, nulstr, letter, longest);
		if (!disp && letter > 'A') {
			next = m - 1;
			letter--;
		}
		else {
			disp = 1;
			found++;
		}
		if (sys_status & SS_ABORT) {
			found = -1;
			break;
		}
		if (mode & (FL_EXT | FL_VIEW))
			continue;
		if (useron.misc & BATCHFLAG && !tofile) {
			if (disp) {
				bf[letter - 'A'] = f;
				file_row[letter - 'A'] = currow;
			}
			m++;
			if (flagprompt || letter == 'Z' || !disp ||
			    (filespec[0] && !strchr(filespec, '*') && !strchr(filespec, '?')
			     && !(mode & FL_FIND))
			    || (useron.misc & BATCHFLAG && !tofile && term->lncntr >= term->rows - 2)
			    ) {
				flagprompt = 0;
				term->lncntr = 0;
				lastbat = found;
				if ((int)(i = batchflagprompt(&smb, bf, file_row, letter - 'A' + 1, file_count)) < 1) {
					if ((int)i == -1)
						found = -1;
					break;
				}
				if (i == 2) {
					next = anchor;
					found -= (letter - 'A') + 1;
				}
				else if (i == 3) {
					if ((int)anchor - ((letter - 'A' + 1)) < 0) {
						next = 0;
						found = 0;
					}
					else {
						next = anchor - ((letter - 'A' + 1));
						found -= letter - 'A' + 1;
					}
				}
				getnodedat(cfg.node_num, &thisnode);
				nodesync();
				letter = 'A';
			}
			else
				letter++;
		}
		if (useron.misc & BATCHFLAG && !tofile
		    && term->lncntr >= term->rows - 2) {
			term->lncntr = 0;       /* defeat pause() */
			flagprompt = 1;
		}
		m = next;
		if (mode & FL_FIND)
			continue;
		if (filespec[0] && !strchr(filespec, '*') && !strchr(filespec, '?') && m)
			break;
	}

	freefiles(file_list, file_count);
	smb_close(&smb);
	bool_expr_free(find_expr);
	return found;
}

/****************************************************************************/
/* Prints one file's information on a single line                           */
/* Return 1 if displayed, 0 otherwise										*/
/****************************************************************************/
bool sbbs_t::listfile(file_t* f, const int dirnum, const char *search, const char letter, size_t namelen)
{
	char *ptr;
	bool  exist = true;
	char* ext = NULL;
	char  path[MAX_PATH + 1];
	int   i, j;
	off_t cdt;
	int   size_attr = clr_filecdt;

	if (useron.misc & EXTDESC) {
		if (f->extdesc != NULL && (ext = strdup(f->extdesc)) != NULL) {
			strip_ctrl(ext, ext);
			truncsp(ext);
			char ch = *ext;
			FREE_AND_NULL(ext);
			if (ch != '\0') {
				ext = f->extdesc;
				if ((useron.misc & BATCHFLAG) && term->lncntr + extdesclines(ext) >= term->rows - 2 && letter != 'A')
					return false;
			}
		}
	}

	term->cond_newline();
	attr(cfg.color[(f->hdr.attr & MSG_DELETE) ? clr_err : clr_filename]);
	char fname[SMB_FILEIDX_NAMELEN + 1];
	if (namelen < 12 || term->cols < 132)
		namelen = 12;
	else if (namelen > sizeof(fname) - 1)
		namelen = sizeof(fname) - 1;
	bprintf("%-*s", (int)namelen, format_filename(f->name, fname, namelen, /* pad: */ TRUE));
	getfilepath(&cfg, f, path);

	if (f->extdesc != NULL && *f->extdesc && !(useron.misc & EXTDESC))
		outchar('+');
	else
		outchar(' ');
	if (useron.misc & BATCHFLAG) {
		attr(curatr ^ HIGH);
		bprintf("%c", letter);
	}
	cdt = f->cost;
	if (f->size == -1) {
		exist = false;
		size_attr = clr_err;
	}
	else if ((cfg.dir[dirnum]->misc & (DIR_FREE | DIR_FCHK)) == (DIR_FREE | DIR_FCHK))
		cdt = getfilesize(&cfg, f);
	char     bytes[32];
	unsigned units = 1;
	do {
		byte_estimate_to_str(cdt, bytes, sizeof(bytes), units, /* precision: */ 1);
		units *= 1024;
	} while (strlen(bytes) > 6 && units < 1024 * 1024 * 1024);
	attr(cfg.color[size_attr]);
	if (useron.misc & BATCHFLAG) {
		if (!cdt && !(cfg.dir[dirnum]->misc & DIR_FREE)) {
			attr(curatr ^ (HIGH | BLINK));
			bprintf("%6s", text[FREE]);
		}
		else
			bprintf("%6s", bytes);
	}
	else {
		if (!cdt && !(cfg.dir[dirnum]->misc & DIR_FREE)) {  /* FREE file */
			attr(curatr ^ (HIGH | BLINK));
			bprintf("%7s", text[FREE]);
		}
		else
			bprintf("%7s", bytes);
	}
	if (exist)
		outchar(' ');
	else
		outchar('-');
	attr(cfg.color[clr_filedesc]);

	if (ext == NULL) {
		char* fdesc = f->desc;
		SKIP_WHITESPACE(fdesc);
		if (fdesc == NULL || *fdesc == '\0')
			bputs(P_TRUNCATE, f->name);
		else if (search[0]) { /* high-light string in string */
			ptr = strcasestr(fdesc, search);
			if (ptr != NULL) {
				i = strlen(search);
				j = ptr - fdesc;
				bprintf("%.*s", j, fdesc);
				attr(cfg.color[clr_filedesc] ^ HIGH);
				bprintf("%.*s", i, fdesc + j);
				attr(cfg.color[clr_filedesc]);
				bprintf("%.*s", (int)strlen(fdesc) - (j + i), fdesc + j + i);
			} else
				bputs(P_TRUNCATE, fdesc);
		}
		else {
			bputs(P_TRUNCATE, fdesc);
		}
		term->newline();
	} else {
		truncsp(ext);
		while (strncmp(ext, "\r\n", 2) == 0
		       || strnicmp(ext, "\001N", 2) == 0
		       || strnicmp(ext, "\0010", 2) == 0
		       || strnicmp(ext, "\001W", 2) == 0)
			ext += 2;
		putmsg(ext, P_INDENT | P_NOATCODES | P_CPM_EOF | P_TRUNCATE | P_AUTO_UTF8);
	}
	return true;
}

static int
mouse_list(sbbs_t *sbbs, uint *row, const int total, char *str)
{
	int d;
	link_list_t tmp_hotspots {};
	link_list_t *saved_hotspots = sbbs->term->mouse_hotspots;
	sbbs->term->mouse_hotspots = &tmp_hotspots;
	for (int i = 0; i < total; i++)
		sbbs->term->add_hotspot((char)('A' + i), /* hungry: */ true, HOTSPOT_CURRENT_X, HOTSPOT_CURRENT_X, row[i]);
	sbbs->bputs(sbbs->text[BatchDlFlags]);
	d = sbbs->getstr(str, BF_MAX, K_NOCRLF);
	sbbs->term->clear_hotspots();
	sbbs->term->mouse_hotspots = saved_hotspots;
	return d;
}

/****************************************************************************/
/* Batch flagging prompt for download, extended info, and archive viewing	*/
/* Returns -1 if 'Q' or Ctrl-C, 0 if skip, 1 if [Enter], 2 otherwise        */
/* or 3, backwards. 														*/
/****************************************************************************/
int sbbs_t::batchflagprompt(smb_t* smb, file_t** bf, uint* row, const int total
                            , const int totalfiles)
{
	char ch, str[256], *p;
	bool remcdt = false;
	bool remfile = false;
	int  c, d;
	char path[MAX_PATH + 1];
	int  i, j;
	uint ml = 0, md = 0;
	int  udir, ulib;

	for (ulib = 0; ulib < usrlibs; ulib++)
		if (usrlib[ulib] == cfg.dir[smb->dirnum]->lib)
			break;
	for (udir = 0; udir < usrdirs[ulib]; udir++)
		if (usrdir[ulib][udir] == smb->dirnum)
			break;

	term->cond_blankline();
	while (online) {
		bprintf(text[BatchFlagPrompt]
		        , ulib + 1
		        , cfg.lib[cfg.dir[smb->dirnum]->lib]->sname
		        , udir + 1
		        , cfg.dir[smb->dirnum]->sname
		        , total, totalfiles);
		ch = getkey(K_UPPER);
		term->clearline();
		if (ch == '?') {
			menu("batflag");
			if (term->lncntr)
				pause();
			return 2;
		}
		if (ch == quit_key() || sys_status & SS_ABORT)
			return -1;
		if (ch == 'S')
			return 0;
		if (ch == 'P' || ch == '-')
			return 3;
		if (ch == 'T') {
			useron.misc ^= EXTDESC;
			putusermisc(useron.number, useron.misc);
			return 2;
		}
		if (ch == 'B' || ch == 'D') {    /* Flag for batch download */
			if (useron.rest & UREST_DOWNLOAD) {
				bputs(text[R_Download]);
				return 2;
			}
			if (total == 1) {
				addtobatdl(bf[0]);
				if (ch == 'D')
					start_batch_download();
				term->newline();
				return 2;
			}
			d = mouse_list(this, row, total, str);
			term->lncntr = 0;
			if (sys_status & SS_ABORT)
				return -1;
			if (d > 0) {     /* d is string length */
				strupr(str);
				term->newline();
				term->lncntr = 0;
				for (c = 0; c < d; c++) {
					if (batdn_total() >= cfg.max_batdn) {
						bprintf(text[BatchDlQueueIsFull], str + c);
						break;
					}
					if (str[c] == '*' || strchr(str + c, '.')) {     /* filename or spec given */
//						f.dir=dirnum;
						p = strchr(str + c, ' ');
						if (!p)
							p = strchr(str + c, ',');
						if (p)
							*p = 0;
						for (i = 0; i < total; i++) {
							if (batdn_total() >= cfg.max_batdn) {
								bprintf(text[BatchDlQueueIsFull], str + c);
								break;
							}
							if (filematch(bf[i]->name, str + c)) {
								addtobatdl(bf[i]);
							}
						}
					}
					if (strchr(str + c, '.'))
						c += strlen(str + c);
					else if (str[c] < 'A' + (char)total && str[c] >= 'A') {
						addtobatdl(bf[str[c] - 'A']);
					}
				}
				if (ch == 'D')
					start_batch_download();
				term->newline();
				return 2;
			}
			term->clearline();
			continue;
		}

		if (ch == 'E' || ch == 'V') {    /* Extended Info */
			if (total == 1) {
				if (!viewfile(bf[0], ch == 'E'))
					return -1;
				return 2;
			}
			d = mouse_list(this, row, total, str);
			term->lncntr = 0;
			if (sys_status & SS_ABORT)
				return -1;
			if (d > 0) {     /* d is string length */
				strupr(str);
				term->newline();
				term->lncntr = 0;
				for (c = 0; c < d; c++) {
					if (str[c] == '*' || strchr(str + c, '.')) {     /* filename or spec given */
//						f.dir=dirnum;
						p = strchr(str + c, ' ');
						if (!p)
							p = strchr(str + c, ',');
						if (p)
							*p = 0;
						for (i = 0; i < total; i++) {
							if (filematch(bf[i]->name, str + c)) {
								if (!viewfile(bf[i], ch == 'E'))
									return -1;
							}
						}
					}
					if (strchr(str + c, '.'))
						c += strlen(str + c);
					else if (str[c] < 'A' + (char)total && str[c] >= 'A') {
						if (!viewfile(bf[str[c] - 'A'], ch == 'E'))
							return -1;
					}
				}
				term->cond_newline();
				return 2;
			}
			term->clearline();
			continue;
		}

		if ((ch == 'R' || ch == 'M')     /* Delete or Move */
		    && !(useron.rest & UREST_REMOVE_FILES)
		    && (dir_op(smb->dirnum) || useron.exempt & UEXEMPT_REMOVE_FILES)) {
			if (total == 1) {
				strcpy(str, "A");
				d = 1;
			}
			else {
				d = mouse_list(this, row, total, str);
			}
			term->lncntr = 0;
			if (sys_status & SS_ABORT)
				return -1;
			if (d > 0) {     /* d is string length */
				strupr(str);
				if (total > 1)
					term->newline();
				if (ch == 'R') {
					if (noyes(text[RemoveFileQ]))
						return 2;
					remcdt = true;
					remfile = true;
					if (dir_op(smb->dirnum)) {
						remfile = !noyes(text[DeleteFileQ]);
						remcdt = !noyes(text[RemoveCreditsQ]);
					}
				}
				else if (ch == 'M') {
					term->newline();
					for (i = 0; i < usrlibs; i++)
						bprintf(text[MoveToLibLstFmt], i + 1, cfg.lib[usrlib[i]]->lname);
					sync();
					bprintf(text[MoveToLibPrompt], cfg.dir[smb->dirnum]->lib + 1);
					if ((int)(ml = getnum(usrlibs)) == -1)
						return 2;
					if (!ml)
						ml = cfg.dir[smb->dirnum]->lib;
					else
						ml--;
					term->newline();
					for (j = 0; j < usrdirs[ml]; j++)
						bprintf(text[MoveToDirLstFmt]
						        , j + 1, cfg.dir[usrdir[ml][j]]->lname);
					sync();
					bprintf(text[MoveToDirPrompt], usrdirs[ml]);
					if ((int)(md = getnum(usrdirs[ml])) == -1)
						return 2;
					if (!md)
						md = usrdirs[ml] - 1;
					else
						md--;
					term->newline();
				}
				term->lncntr = 0;
				for (c = 0; c < d; c++) {
					if (str[c] == '*' || strchr(str + c, '.')) {     /* filename or spec given */
//						f.dir=dirnum;
						p = strchr(str + c, ' ');
						if (!p)
							p = strchr(str + c, ',');
						if (p)
							*p = 0;
						for (i = 0; i < total; i++) {
							if (!(bf[i]->hdr.attr & MSG_DELETE) && filematch(bf[i]->name, str + c)) {
								if (ch == 'R') {
									if (removefile(smb, bf[i])) {
										if (remfile) {
											if (remove(getfilepath(&cfg, bf[i], path)) != 0)
												errormsg(WHERE, ERR_REMOVE, path);
										}
										if (bf[i]->cost > 0 && remcdt)
											removefcdt(bf[i]);
									}
								}
								else if (ch == 'M')
									movefile(smb, bf[i], usrdir[ml][md]);
							}
						}
					}
					if (strchr(str + c, '.'))
						c += strlen(str + c);
					else if (str[c] < 'A' + (char)total && str[c] >= 'A') {
						file_t* f = bf[str[c] - 'A'];
						if (!(f->hdr.attr & MSG_DELETE)) {
							if (ch == 'R') {
								if (removefile(smb, f)) {
									if (remfile) {
										if (remove(getfilepath(&cfg, f, path)) != 0 && fexist(path))
											errormsg(WHERE, ERR_REMOVE, path);
									}
									if (f->cost > 0 && remcdt)
										removefcdt(f);
								}
							}
							else if (ch == 'M')
								movefile(smb, f, usrdir[ml][md]);
						}
					}
				}
				return 2;
			}
			term->clearline();
			continue;
		}

		return 1;
	}

	return -1;
}

/****************************************************************************/
/* List detailed information about the files in 'filespec'. Prompts for     */
/* action depending on 'mode.'                                              */
/* Returns number of files matching filespec that were found                */
/****************************************************************************/
int sbbs_t::listfileinfo(const int dirnum, const char *filespec, const int mode)
{
	char    str[MAX_PATH + 1], path[MAX_PATH + 1], dirpath[MAX_PATH + 1], done = 0, ch;
	char    filepattern[SMB_FILEIDX_NAMELEN + 1] = "";
	char    tmp[512];
	int     error;
	int     found = 0;
	int     i, j;
	size_t  m;
	file_t* f;

	action = NODE_LFIL;
	curdirnum = dirnum;

	bool invoked;
	i = exec_mod("view file info", cfg.fileinfo_mod, &invoked, "%s %u %s", cfg.dir[dirnum]->code, mode, filespec);
	if (invoked)
		return i;

	if (!smb_init_dir(&cfg, &smb, dirnum))
		return 0;
	if (smb_open_dir(&cfg, &smb, dirnum) != SMB_SUCCESS)
		return 0;

	filespec = liberal_filepattern(filespec, filepattern, sizeof filepattern);
	size_t  file_count = 0;
	file_t* file_list = loadfiles(&smb
	                              , filespec
	                              , /* time_t */ 0
	                              , file_detail_extdesc
	                              , (enum file_sort)cfg.dir[dirnum]->sort
	                              , &file_count);
	if (file_list == NULL || file_count < 1) {
		smb_close(&smb);
		free(file_list);
		return 0;
	}

	m = 0;
	while (online && !done && m < file_count) {
		f = &file_list[m];
		if (mode == FI_REMOVE && dir_op(dirnum))
			action = NODE_SYSP;
		else
			action = NODE_LFIL;
		if (msgabort()) {
			found = -1;
			break;
		}
		m++;
		if (f->hdr.attr & MSG_DELETE)
			continue;
		if (mode == FI_OLD && f->hdr.last_downloaded > ns_time)
			continue;
		if ((mode == FI_OLDUL || mode == FI_OLD) && f->hdr.when_written.time > ns_time)
			continue;
		if (mode == FI_OFFLINE && getfilesize(&cfg, f) >= 0)
			continue;
		if (mode == FI_USERXFER) {
			str_list_t dest_user_list = strListSplitCopy(NULL, f->to_list, ",");
			char       usernum[16];
			SAFEPRINTF(usernum, "%u", useron.number);
			int        dest_user = strListFind(dest_user_list, usernum, /* case-sensitive: */ true);
			strListFree(&dest_user_list);
			if (dest_user < 0)
				continue;
		}
		SAFECOPY(dirpath, cfg.dir[f->dir]->path);
		if ((mode == FI_REMOVE) && (!dir_op(dirnum) && stricmp(f->from
		                                                       , useron.alias) && !(useron.exempt & UEXEMPT_REMOVE_FILES)))
			continue;
		found++;
		if (mode == FI_INFO) {
			switch (viewfile(f, true)) {
				case 0:
					done = 1;
					found = -1;
					break;
				case -2:
					m--;
					if (m)
						m--;
					break;
			}
		}
		else {
			showfileinfo(f, /* show_extdesc: */ mode != FI_DOWNLOAD);
//			term->newline();
		}
		if (mode == FI_REMOVE || mode == FI_OLD || mode == FI_OLDUL
		    || mode == FI_OFFLINE) {
			sync();
//			term->newline();
			SAFEPRINTF(str, "VDERN\r%c", quit_key());
			if (m > 1)
				SAFECAT(str, "P-\b");
			if (dir_op(dirnum)) {
				mnemonics(text[SysopRemoveFilePrompt]);
				SAFECAT(str, "FMC");
			}
			else if (useron.exempt & UEXEMPT_REMOVE_FILES) {
				mnemonics(text[RExemptRemoveFilePrompt]);
				SAFECAT(str, "M");
			}
			else
				mnemonics(text[UserRemoveFilePrompt]);
			char key = getkeys(str, 0);
			if (key == quit_key()) {
				found = -1;
				done = 1;
				break;
			}
			switch (key) {
				case 'V':
					viewfilecontents(f);
					term->newline();
					sync();
					pause();
					m--;
					continue;
				case 'D':   /* edit file description */
					editfiledesc(f);
					break;
				case 'E':   /* edit file information */
					if (dir_op(dirnum)) {
						if (!editfilename(f))
							break;
					}
					if (editfiledesc(f))
						editfileinfo(f);
					break;
				case 'F':   /* delete file only */
					getfilepath(&cfg, f, path);
					if (!fexistcase(path))
						bprintf(text[FileDoesNotExist], path);
					else {
						if (!noyes(text[DeleteFileQ])) {
							if (remove(path) != 0) {
								bprintf(text[CouldntRemoveFile], path);
								errormsg(WHERE, ERR_REMOVE, path);
							} else
								lprintf(LOG_NOTICE, "deleted %s", path);
						}
					}
					break;
				case 'R':   /* remove file from database */
					if (noyes(text[RemoveFileQ]))
						break;
					if (!removefile(&smb, f)) {
						errormsg(WHERE, ERR_REMOVE, f->name);
						break;
					}
					getfilepath(&cfg, f, path);
					if (fexistcase(path)) {
						if (dir_op(dirnum) && noyes(text[DeleteFileQ]))
							break;
						if (remove(path) != 0) {
							bprintf(text[CouldntRemoveFile], path);
							errormsg(WHERE, ERR_REMOVE, path);
							break;
						}
						lprintf(LOG_NOTICE, "deleted %s", path);
					}
					if (dir_op(dirnum) || useron.exempt & UEXEMPT_REMOVE_FILES) {
						i = cfg.lib[cfg.dir[f->dir]->lib]->offline_dir;
						if (i != dirnum && i != INVALID_DIR
						    && !findfile(&cfg, i, f->name, NULL)) {
							snprintf(str, sizeof str, text[AddToOfflineDirQ]
							         , f->name, cfg.lib[cfg.dir[i]->lib]->sname, cfg.dir[i]->sname);
							if (yesno(str)) {
								int addfile_result;
								f->dir = i;
								if (!addfile(&cfg, f, f->extdesc, f->auxdata, /* client: */ NULL, &addfile_result))
									errormsg(WHERE, "adding file to database", f->name, addfile_result);
							}
						}
					}
					if (dir_op(dirnum) || stricmp(f->from, useron.alias)) {
						if (noyes(text[RemoveCreditsQ]))
							/* Fall through */      break;
					}
				case 'C':   /* remove credits only */
					removefcdt(f);
					break;
				case 'M':   /* move the file to another dir */
					term->newline();
					for (i = 0; i < usrlibs; i++)
						bprintf(text[MoveToLibLstFmt], i + 1, cfg.lib[usrlib[i]]->lname);
					sync();
					bprintf(text[MoveToLibPrompt], cfg.dir[dirnum]->lib + 1);
					if ((int)(i = getnum(usrlibs)) == -1)
						continue;
					if (!i)
						i = cfg.dir[dirnum]->lib;
					else
						i--;
					term->newline();
					for (j = 0; j < usrdirs[i]; j++)
						bprintf(text[MoveToDirLstFmt]
						        , j + 1, cfg.dir[usrdir[i][j]]->lname);
					sync();
					bprintf(text[MoveToDirPrompt], usrdirs[i]);
					if ((int)(j = getnum(usrdirs[i])) == -1)
						continue;
					if (!j)
						j = usrdirs[i] - 1;
					else
						j--;
					term->newline();
					movefile(&smb, f, usrdir[i][j]);
					break;
				case 'P':   /* previous */
				case '-':
				case '\b':
					m--;
					if (m)
						m--;
					break;
			}
		}
		else if (mode == FI_DOWNLOAD || mode == FI_USERXFER) {
			char keys[128];
			SAFEPRINTF(keys, "\r%c", quit_key());
			getfilepath(&cfg, f, path);
			if (getfilesize(&cfg, f) < 1L) { /* getfilesize will set this to -1 if non-existant */
				sync();       /* and 0 byte files shouldn't be d/led */
				mnemonics(text[QuitOrNext]);
				if (getkeys(keys, 0) == quit_key()) {
					found = -1;
					break;
				}
				continue;
			}
			if (!download_is_free(&cfg, f->dir, &useron, &client)
			    && f->cost > user_available_credits(&useron)) {
				sync();
				bprintf(text[YouOnlyHaveNCredits]
				        , u64toac(user_available_credits(&useron), tmp));
				mnemonics(text[QuitOrNext]);
				if (getkeys(keys, 0) == quit_key()) {
					found = -1;
					break;
				}
				continue;
			}
			uint reason;
			if (!user_can_download(&cfg, f->dir, &useron, &client, &reason)) {
				sync();
				bputs(text[reason]);
				mnemonics(text[QuitOrNext]);
				if (getkeys(keys, 0) == quit_key()) {
					found = -1;
					break;
				}
				continue;
			}

			if (!(cfg.dir[f->dir]->misc & DIR_TFREE) && gettimetodl(&cfg, f, cur_cps) > timeleft && !dir_op(dirnum)
			    && !(useron.exempt & UEXEMPT_TIME_ONLINE)) {
				sync();
				bputs(text[NotEnoughTimeToDl]);
				mnemonics(text[QuitOrNext]);
				if (getkeys(keys, 0) == quit_key()) {
					found = -1;
					break;
				}
				continue;
			}
			if (batch_file_exists(&cfg, useron.number, XFER_BATCH_DOWNLOAD, f->name)) {
				sync();
				bprintf(text[FileAlreadyInQueue], f->name);
				mnemonics(text[QuitOrNext]);
				if (getkeys(keys, 0) == quit_key()) {
					found = -1;
					break;
				}
				continue;
			}
			current_file = f;
			xfer_prot_menu(XFER_DOWNLOAD, &useron, keys, sizeof keys);
			current_file = nullptr;
			sync();
			mnemonics(text[ProtocolBatchQuitOrNext]);
			SAFECAT(keys, "BN\r");
			SAFECAT(keys, quit_key(str));
			if (m > 1)
				SAFECAT(keys, "\b-");
			ch = (char)getkeys(keys, 0);
			if (ch == quit_key()) {
				found = -1;
				done = 1;
			}
			else if (ch == 'B') {
				if (!addtobatdl(f)) {
					break;
				}
			}
			else if (ch == '\b' || ch == '-') { /* previous */
				m--;
				if (m)
					m--;
				continue;
			}
			else if (ch != CR && ch != 'N') {
				i = protnum(ch, XFER_DOWNLOAD);
				if (i < cfg.total_prots) {
					delfiles(cfg.temp_dir, ALLFILES);
					if (cfg.dir[f->dir]->seqdev) {
						term->lncntr = 0;
						seqwait(cfg.dir[f->dir]->seqdev);
						bprintf(text[RetrievingFile], f->name);
						getfilepath(&cfg, f, str);
						SAFEPRINTF2(path, "%s%s", cfg.temp_dir, f->name);
						mv(str, path, 1); /* copy the file to temp dir */
						if (getnodedat(cfg.node_num, &thisnode, true)) {
							thisnode.aux = 0xf0;
							putnodedat(cfg.node_num, &thisnode);
						}
						term->newline();
					}
					for (j = 0; j < cfg.total_dlevents; j++) {
						if (file_type_match(f->name, cfg.dlevent[j]->ext)
						    && chk_ar(cfg.dlevent[j]->ar, &useron, &client)) {
							bputs(cfg.dlevent[j]->workstr);
							external(cmdstr(cfg.dlevent[j]->cmd, path, nulstr, NULL, cfg.dlevent[j]->ex_mode)
							         , cfg.dlevent[j]->ex_mode);
							term->clearline();
						}
					}
					putnode_downloading(getfilesize(&cfg, f));
					time_t elapsed = 0;
					error = protocol(cfg.prot[i], XFER_DOWNLOAD, path, nulstr, /* cd: */ false, /* autohangup: */ true, &elapsed);
					if (cfg.dir[f->dir]->misc & DIR_TFREE)
						starttime += elapsed;
					if (checkprotresult(cfg.prot[i], error, f)) {
						downloadedfile(f);
						downloadedbytes(f->size, elapsed);
					} else
						notdownloaded(f->size, elapsed);
					delfiles(cfg.temp_dir, ALLFILES);
					autohangup();
				}
			}
		}
		if (filespec[0] && !strchr(filespec, '*') && !strchr(filespec, '?'))
			break;
	}
	freefiles(file_list, file_count);
	smb_close(&smb);
	return found;
}

/****************************************************************************/
/* Prints one file's information on a single line to a file stream 'fp'		*/
/****************************************************************************/
void sbbs_t::listfiletofile(file_t* f, FILE* fp)
{
	char     fname[13]; /* This is one of the only 8.3 filename formats left! (used for display purposes only) */
	char     bytes[32];
	char     desc[LEN_FDESC + 1];
	unsigned units = 1;
	off_t    size = f->cost;
	do {
		byte_estimate_to_str(size, bytes, sizeof(bytes), units, /* precision: */ 1);
		units *= 1024;
	} while (strlen(bytes) > 6 && units < 1024 * 1024 * 1024);
	SAFECOPY(desc, (f->desc == NULL || *f->desc == '\0') ? f->name : f->desc);
	fprintf(fp, "%-*s %7s %s\r\n", (int)sizeof(fname) - 1, format_filename(f->name, fname, sizeof(fname) - 1, /* pad: */ TRUE)
	        , bytes, ascii_str((uchar*)desc));
}

int extdesclines(char *str)
{
	int i, lc, last;

	for (i = lc = last = 0; str[i]; i++)
		if (str[i] == LF || i - last > LEN_FDESC) {
			lc++;
			last = i;
		}
	return lc;
}
