/*
 * Client-side functions which perform room operations
 *
 * Copyright (c) 1987-2016 by the citadel.org team
 *
 * This program is open source software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License version 3.
 *
 * This program 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.
 */

#include "sysdep.h"
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <signal.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <errno.h>
#include <stdarg.h>
#include <libcitadel.h>
#include "citadel_ipc.h"
#include "citadel_decls.h"
#include "rooms.h"
#include "commands.h"
#include "messages.h"
#include "tuiconfig.h"
#include "screen.h"

#define IFNEXPERT if ((userflags&US_EXPERT)==0)


void stty_ctdl(int cmd);
void dotgoto(CtdlIPC *ipc, char *towhere, int display_name, int fromungoto);
void progress(CtdlIPC* ipc, unsigned long curr, unsigned long cmax);
int pattern(char *search, char *patn);
int file_checksum(char *filename);
int nukedir(char *dirname);

extern unsigned room_flags;
extern char room_name[];
extern char temp[];
extern char tempdir[];
extern int editor_pid;
extern int screenwidth;
extern int screenheight;
extern char fullname[];
extern char sigcaught;
extern char floor_mode;
extern char curr_floor;


extern int ugnum;
extern long uglsn;
extern char *uglist[];
extern long uglistlsn[];
extern int uglistsize;

extern char floorlist[128][SIZ];


void load_floorlist(CtdlIPC *ipc)
{
	int a;
	char buf[SIZ];
	char *listing = NULL;
	int r;			/* IPC response code */

	for (a = 0; a < 128; ++a)
		floorlist[a][0] = 0;

	r = CtdlIPCFloorListing(ipc, &listing, buf);
	if (r / 100 != 1) {
		strcpy(floorlist[0], "Main Floor");
		return;
	}
	while (*listing && !IsEmptyStr(listing)) {
		extract_token(buf, listing, 0, '\n', sizeof buf);
		remove_token(listing, 0, '\n');
		extract_token(floorlist[extract_int(buf, 0)], buf, 1, '|', SIZ);
	}
	free(listing);
}


void room_tree_list(struct ctdlroomlisting *rp)
{
	static int c = 0;
	char rmname[ROOMNAMELEN];
	int f;

	if (rp == NULL) {
		c = 1;
		return;
	}

	if (rp->lnext != NULL) {
		room_tree_list(rp->lnext);
	}

	if (sigcaught == 0) {
		strcpy(rmname, rp->rlname);
		f = rp->rlflags;
		if ((c + strlen(rmname) + 4) > screenwidth) {

			/* line break, check the paginator */
			scr_printf("\n");
			c = 1;
		}
		if (f & QR_MAILBOX) {
			color(BRIGHT_YELLOW);
		} else if (f & QR_PRIVATE) {
			color(BRIGHT_RED);
		} else {
			color(DIM_WHITE);
		}
		scr_printf("%s", rmname);
		if ((f & QR_DIRECTORY) && (f & QR_NETWORK))
			scr_printf("}  ");
		else if (f & QR_DIRECTORY)
			scr_printf("]  ");
		else if (f & QR_NETWORK)
			scr_printf(")  ");
		else
			scr_printf(">  ");
		c = c + strlen(rmname) + 3;
	}

	if (rp->rnext != NULL) {
		room_tree_list(rp->rnext);
	}

	free(rp);
}


/* 
 * Room ordering stuff (compare first by floor, then by order)
 */
int rordercmp(struct ctdlroomlisting *r1, struct ctdlroomlisting *r2)
{
	if ((r1 == NULL) && (r2 == NULL))
		return (0);
	if (r1 == NULL)
		return (-1);
	if (r2 == NULL)
		return (1);
	if (r1->rlfloor < r2->rlfloor)
		return (-1);
	if (r1->rlfloor > r2->rlfloor)
		return (1);
	if (r1->rlorder < r2->rlorder)
		return (-1);
	if (r1->rlorder > r2->rlorder)
		return (1);
	return (0);
}


/*
 * Common code for all room listings
 */
static void listrms(struct march *listing, int new_only, int floor_only, unsigned int flags, char *match)
{
	struct march *mptr;
	struct ctdlroomlisting *rl = NULL;
	struct ctdlroomlisting *rp;
	struct ctdlroomlisting *rs;
	int list_it;

	for (mptr = listing; mptr != NULL; mptr = mptr->next) {
		list_it = 1;

		if ( (new_only == LISTRMS_NEW_ONLY)
		   && ((mptr->march_access & UA_HASNEWMSGS) == 0)) 
			list_it = 0;

		if ( (new_only == LISTRMS_OLD_ONLY)
		   && ((mptr->march_access & UA_HASNEWMSGS) != 0)) 
			list_it = 0;

		if ( (floor_only >= 0)
		   && (mptr->march_floor != floor_only))
			list_it = 0;

		if (flags && (mptr->march_flags & flags) == 0)
		    list_it = 0;

	    if (match && (pattern(mptr->march_name, match) == -1))
			list_it = 0;

		if (list_it) {
			rp = malloc(sizeof(struct ctdlroomlisting));
			strncpy(rp->rlname, mptr->march_name, ROOMNAMELEN);
			rp->rlflags = mptr->march_flags;
			rp->rlfloor = mptr->march_floor;
			rp->rlorder = mptr->march_order;
			rp->lnext = NULL;
			rp->rnext = NULL;
	
			rs = rl;
			if (rl == NULL) {
				rl = rp;
			} else {
				while (rp != NULL) {
					if (rordercmp(rp, rs) < 0) {
						if (rs->lnext == NULL) {
							rs->lnext = rp;
							rp = NULL;
						} else {
							rs = rs->lnext;
						}
					} else {
						if (rs->rnext == NULL) {
							rs->rnext = rp;
							rp = NULL;
						} else {
							rs = rs->rnext;
						}
					}
				}
			}
		}
	}

	room_tree_list(NULL);
	room_tree_list(rl);
	color(DIM_WHITE);
}


void list_other_floors(void)
{
	int a, c;

	c = 1;
	for (a = 0; a < 128; ++a) {
		if ((strlen(floorlist[a]) > 0) && (a != curr_floor)) {
			if ((c + strlen(floorlist[a]) + 4) > screenwidth) {
				scr_printf("\n");
				c = 1;
			}
			scr_printf("%s:  ", floorlist[a]);
			c = c + strlen(floorlist[a]) + 3;
		}
	}
}


/*
 * List known rooms.  kn_floor_mode should be set to 0 for a 'flat' listing,
 * 1 to list rooms on the current floor, or 2 to list rooms on all floors.
 */
void knrooms(CtdlIPC *ipc, int kn_floor_mode)
{
	int a;
	struct march *listing = NULL;
	struct march *mptr;
	int r;		/* IPC response code */
	char buf[SIZ];


	/* Ask the server for a room list */
	r = CtdlIPCKnownRooms(ipc, SubscribedRooms, (-1), &listing, buf);
	if (r / 100 != 1) {
		listing = NULL;
	}

	load_floorlist(ipc);


	if (kn_floor_mode == 0) {
		color(BRIGHT_CYAN);
		scr_printf("\n   Rooms with unread messages:\n");
		listrms(listing, LISTRMS_NEW_ONLY, -1, 0, NULL);
		color(BRIGHT_CYAN);
		scr_printf("\n\n   No unseen messages in:\n");
		listrms(listing, LISTRMS_OLD_ONLY, -1, 0, NULL);
		scr_printf("\n");
	}

	if (kn_floor_mode == 1) {
		color(BRIGHT_CYAN);
		scr_printf("\n   Rooms with unread messages on %s:\n",
			floorlist[(int) curr_floor]);
		listrms(listing, LISTRMS_NEW_ONLY, curr_floor, 0, NULL);
		color(BRIGHT_CYAN);
		scr_printf("\n\n   Rooms with no new messages on %s:\n",
			floorlist[(int) curr_floor]);
		listrms(listing, LISTRMS_OLD_ONLY, curr_floor, 0, NULL);
		color(BRIGHT_CYAN);
		scr_printf("\n\n   Other floors:\n");
		list_other_floors();
		scr_printf("\n");
	}

	if (kn_floor_mode == 2) {
		for (a = 0; a < 128; ++a) {
			if (floorlist[a][0] != 0) {
				color(BRIGHT_CYAN);
				scr_printf("\n   Rooms on %s:\n",
					floorlist[a]);
				listrms(listing, LISTRMS_ALL, a, 0, NULL);
				scr_printf("\n");
			}
		}
	}

	/* Free the room list */
	while (listing) {
		mptr = listing->next;
		free(listing);
		listing = mptr;
	};

	color(DIM_WHITE);
}


void listzrooms(CtdlIPC *ipc)
{				/* list public forgotten rooms */
	struct march *listing = NULL;
	struct march *mptr;
	int r;		/* IPC response code */
	char buf[SIZ];


	/* Ask the server for a room list */
	r = CtdlIPCKnownRooms(ipc, UnsubscribedRooms, (-1), &listing, buf);
	if (r / 100 != 1) {
		listing = NULL;
	}

	color(BRIGHT_CYAN);
	scr_printf("\n   Forgotten public rooms:\n");
	listrms(listing, LISTRMS_ALL, -1, 0, NULL);
	scr_printf("\n");

	/* Free the room list */
	while (listing) {
		mptr = listing->next;
		free(listing);
		listing = mptr;
	};

	color(DIM_WHITE);
}

void dotknown(CtdlIPC *ipc, int what, char *match)
{				/* list rooms according to attribute */
	struct march *listing = NULL;
	struct march *mptr;
	int r;		/* IPC response code */
	char buf[SIZ];

	/* Ask the server for a room list */
	r = CtdlIPCKnownRooms(ipc, AllAccessibleRooms, (-1), &listing, buf);
	if (r / 100 != 1) {
		listing = NULL;
	}

	color(BRIGHT_CYAN);

	switch (what) {
    case 0:
     	scr_printf("\n   Anonymous rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_ANONONLY|QR_ANONOPT, NULL);
    	scr_printf("\n");
		break;
    case 1:
     	scr_printf("\n   Directory rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_DIRECTORY, NULL);
    	scr_printf("\n");
		break;
    case 2:
     	scr_printf("\n   Matching \"%s\" rooms:\n", match);
	    listrms(listing, LISTRMS_ALL, -1, 0, match);
    	scr_printf("\n");
		break;
    case 3:
     	scr_printf("\n   Preferred only rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_PREFONLY, NULL);
    	scr_printf("\n");
		break;
    case 4:
     	scr_printf("\n   Private rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_PRIVATE, NULL);
    	scr_printf("\n");
		break;
    case 5:
     	scr_printf("\n   Read only rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_READONLY, NULL);
    	scr_printf("\n");
		break;
    case 6:
     	scr_printf("\n   Shared rooms:\n");
	    listrms(listing, LISTRMS_ALL, -1, QR_NETWORK, NULL);
    	scr_printf("\n");
		break;
	}

	/* Free the room list */
	while (listing) {
		mptr = listing->next;
		free(listing);
		listing = mptr;
	};

	color(DIM_WHITE);
}


int set_room_attr(CtdlIPC *ipc, unsigned int ibuf, char *prompt, unsigned int sbit)
{
	int a;

	a = boolprompt(prompt, (ibuf & sbit));
	ibuf = (ibuf | sbit);
	if (!a) {
		ibuf = (ibuf ^ sbit);
	}
	return (ibuf);
}



/*
 * Select a floor (used in several commands)
 * The supplied argument is the 'default' floor number.
 * This function returns the selected floor number.
 */
int select_floor(CtdlIPC *ipc, int rfloor)
{
	int a, newfloor;
	char floorstr[SIZ];

	if (floor_mode == 1) {
		if (floorlist[(int) curr_floor][0] == 0) {
			load_floorlist(ipc);
		}

		do {
			newfloor = (-1);
			safestrncpy(floorstr, floorlist[rfloor],
				    sizeof floorstr);
			strprompt("Which floor", floorstr, 255);
			for (a = 0; a < 128; ++a) {
				if (!strcasecmp
				    (floorstr, &floorlist[a][0]))
					newfloor = a;
				if ((newfloor < 0)
				    &&
				    (!strncasecmp
				     (floorstr, &floorlist[a][0],
				      strlen(floorstr))))
					newfloor = a;
				if ((newfloor < 0)
				    && (pattern(&floorlist[a][0], floorstr)
					>= 0))
					newfloor = a;
			}
			if (newfloor < 0) {
				scr_printf("\n One of:\n");
				for (a = 0; a < 128; ++a) {
					if (floorlist[a][0] != 0) {
						scr_printf("%s\n",
						       &floorlist[a][0]);
					}
				}
			}
		} while (newfloor < 0);
		return (newfloor);
	}

	else {
		scr_printf("Floor selection bypassed because you have "
			"floor mode disabled.\n");
	}

	return (rfloor);
}




/*
 * .<A>ide <E>dit room
 */
void editthisroom(CtdlIPC *ipc)
{
	int rbump = 0;
	char room_admin_name[USERNAME_SIZE];
	char buf[SIZ];
	struct ctdlroom *attr = NULL;
	struct ExpirePolicy *eptr = NULL;
	int r;				/* IPC response code */

	/* Fetch the existing room config */
	r = CtdlIPCGetRoomAttributes(ipc, &attr, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}
	eptr = &(attr->QRep);

	/* Fetch the name of the current room admin */
	r = CtdlIPCGetRoomAide(ipc, buf);
	if (r / 100 == 2) {
		safestrncpy(room_admin_name, buf, sizeof room_admin_name);
	} else {
		strcpy(room_admin_name, "");
	}
	if (IsEmptyStr(room_admin_name)) {
		strcpy(room_admin_name, "none");
	}

	/* Fetch the expire policy (this will silently fail on old servers,
	 * resulting in "default" policy)
	 */
	r = CtdlIPCGetMessageExpirationPolicy(ipc, 0, &eptr, buf);

	/* Now interact with the user. */

	strprompt("Room name", attr->QRname, ROOMNAMELEN-1);
	attr->QRfloor = select_floor(ipc, attr->QRfloor);
	attr->QRflags = set_room_attr(ipc, attr->QRflags, "Private room", QR_PRIVATE);
	if (attr->QRflags & QR_PRIVATE) {
		attr->QRflags = set_room_attr(ipc, attr->QRflags,
				       "Hidden room (accessible to anyone who knows the room name)",
				       QR_GUESSNAME);
	}

	/* if it's public, clear the privacy classes */
	if ((attr->QRflags & QR_PRIVATE) == 0) {
		if (attr->QRflags & QR_GUESSNAME) {
			attr->QRflags = attr->QRflags - QR_GUESSNAME;
		}
		if (attr->QRflags & QR_PASSWORDED) {
			attr->QRflags = attr->QRflags - QR_PASSWORDED;
		}
	}

	/* if it's private, choose the privacy classes */
	if ((attr->QRflags & QR_PRIVATE)
	    && ((attr->QRflags & QR_GUESSNAME) == 0)) {
		attr->QRflags = set_room_attr(ipc, attr->QRflags,
				       "Accessible by entering a password",
				       QR_PASSWORDED);
	}
	if ((attr->QRflags & QR_PRIVATE)
	    && ((attr->QRflags & QR_PASSWORDED) == QR_PASSWORDED)) {
		strprompt("Room password", attr->QRpasswd, 9);
	}

	if ((attr->QRflags & QR_PRIVATE) == QR_PRIVATE) {
		rbump = boolprompt("Cause current users to forget room", 0);
	}

	attr->QRflags = set_room_attr(ipc, attr->QRflags,
					"Preferred users only", QR_PREFONLY);
	attr->QRflags = set_room_attr(ipc, attr->QRflags,
					"Read-only room", QR_READONLY);
	attr->QRflags2 = set_room_attr(ipc, attr->QRflags2,
				"Allow message deletion by anyone who can post",
				QR2_COLLABDEL);
	attr->QRflags = set_room_attr(ipc, attr->QRflags,
					"Permanent room", QR_PERMANENT);
	attr->QRflags2 = set_room_attr(ipc, attr->QRflags2,
								   "Subject Required (Force "
								   "users to specify a message "
                                   "subject)", QR2_SUBJECTREQ);
	attr->QRflags = set_room_attr(ipc, attr->QRflags,
					"Directory room", QR_DIRECTORY);
	if (attr->QRflags & QR_DIRECTORY) {
		strprompt("Directory name", attr->QRdirname, 14);
		attr->QRflags =
		    set_room_attr(ipc, attr->QRflags,
						"Uploading allowed", QR_UPLOAD);
		attr->QRflags =
		    set_room_attr(ipc, attr->QRflags, "Downloading allowed",
				  QR_DOWNLOAD);
		attr->QRflags =
		    set_room_attr(ipc, attr->QRflags,
						"Visible directory", QR_VISDIR);
	}
	attr->QRflags = set_room_attr(ipc, attr->QRflags,
					"Network shared room", QR_NETWORK);
	attr->QRflags2 = set_room_attr(ipc, attr->QRflags2,
				"Self-service list subscribe/unsubscribe",
				QR2_SELFLIST);
	attr->QRflags2 = set_room_attr(ipc, attr->QRflags2,
				"public posting to this room via room_roomname@yourcitadel.org",
				QR2_SMTP_PUBLIC);
	attr->QRflags2 = set_room_attr(ipc, attr->QRflags2,
				"moderated mailinglist",
				QR2_MODERATED);
	attr->QRflags = set_room_attr(ipc, attr->QRflags,
			       "Automatically make all messages anonymous",
			       QR_ANONONLY);
	if ((attr->QRflags & QR_ANONONLY) == 0) {
		attr->QRflags = set_room_attr(ipc, attr->QRflags,
				       "Ask users whether to make messages anonymous",
				       QR_ANONOPT);
	}
	attr->QRorder = intprompt("Listing order", attr->QRorder, 0, 127);

	/* Ask about the room admin */
	do {
		strprompt("Room admin (or 'none')", room_admin_name, 29);
		if (!strcasecmp(room_admin_name, "none")) {
			strcpy(room_admin_name, "");
			break;
		} else {
			r = CtdlIPCQueryUsername(ipc, room_admin_name, buf);
			if (r / 100 != 2)
				scr_printf("%s\n", buf);
		}
	} while (r / 100 != 2);

	/* Angels and demons dancing in my head... */
	do {
		snprintf(buf, sizeof buf, "%d", attr->QRep.expire_mode);
		strprompt("Message expire policy (? for list)", buf, 1);
		if (buf[0] == '?') {
			scr_printf("\n"
				"0. Use the default for this floor\n"
				"1. Never automatically expire messages\n"
				"2. Expire by message count\n"
				"3. Expire by message age\n");
		}
	} while ((buf[0] < 48) || (buf[0] > 51));
	attr->QRep.expire_mode = buf[0] - 48;

	/* ...lunatics and monsters underneath my bed */
	if (attr->QRep.expire_mode == 2) {
		snprintf(buf, sizeof buf, "%d", attr->QRep.expire_value);
		strprompt("Keep how many messages online?", buf, 10);
		attr->QRep.expire_value = atol(buf);
	}

	if (attr->QRep.expire_mode == 3) {
		snprintf(buf, sizeof buf, "%d", attr->QRep.expire_value);
		strprompt("Keep messages for how many days?", buf, 10);
		attr->QRep.expire_value = atol(buf);
	}

	/* Give 'em a chance to change their minds */
	scr_printf("Save changes (y/n)? ");

	if (yesno() == 1) {
		r = CtdlIPCSetRoomAide(ipc, room_admin_name, buf);
		if (r / 100 != 2) {
			scr_printf("%s\n", buf);
		}

		r = CtdlIPCSetMessageExpirationPolicy(ipc, 0, eptr, buf);
		if (r / 100 != 2) {
			scr_printf("%s\n", buf);
		}

		r = CtdlIPCSetRoomAttributes(ipc, rbump, attr, buf);
		scr_printf("%s\n", buf);
		strncpy(buf, attr->QRname, ROOMNAMELEN);
		free(attr);
		if (r / 100 == 2)
			dotgoto(ipc, buf, 2, 0);
	}
	else free(attr);
}


/*
 * un-goto the previous room, or a specified room
 */
void dotungoto(CtdlIPC *ipc, char *towhere)
  {
    /* Find this 'towhere' room in the list ungoto from this room to
       that at the messagepointer position in that room in our ungoto list.
       I suppose I could be a real dick and just ungoto that many places
       in our list. */
    int found = -1;
    int lp;
	char buf[SIZ];
	struct ctdlipcroom *rret = NULL;	/* ignored */
	int r;

	if (uglistsize == 0)
      {
		scr_printf("No rooms to ungoto.\n");
		return;
      }
	if (towhere == NULL)
      {
		scr_printf("Must specify a room to ungoto.\n");
		return;
      }
	if (IsEmptyStr(towhere))
      {
		scr_printf("Must specify a room to ungoto.\n");
		return;
      }
    for (lp = uglistsize-1; lp >= 0; lp--)
      {
        if (strcasecmp(towhere, uglist[lp]) == 0)
          {
            found = lp;
            break;
          }
      }
    if (found == -1)
      {
		scr_printf("Room: %s not in ungoto list.\n", towhere);
    	return;
      }

	r = CtdlIPCGotoRoom(ipc, uglist[found], "", &rret, buf);
	if (rret) free(rret);	/* ignored */
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}
	r = CtdlIPCSetLastRead(ipc, uglistlsn[found] ? uglistlsn[found] : 1, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
	}
	safestrncpy(buf, uglist[found], sizeof(buf));
    /* we queue ungoto information here, because we're not really
       ungotoing, we're really going to a random spot in some arbitrary
       room list. */
	dotgoto(ipc, buf, 0, 0);
  }

void ungoto(CtdlIPC *ipc)
{
	char buf[SIZ];
	struct ctdlipcroom *rret = NULL;	/* ignored */
	int r;

	if (uglistsize == 0)
		return;

	r = CtdlIPCGotoRoom(ipc, uglist[uglistsize-1], "", &rret, buf);
	if (rret) free(rret);	/* ignored */
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}
	r = CtdlIPCSetLastRead(ipc, uglistlsn[uglistsize-1] ? uglistlsn[uglistsize-1] : 1, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
	}
	safestrncpy(buf, uglist[uglistsize-1], sizeof(buf));
	uglistsize--;
	free(uglist[uglistsize]);
	/* Don't queue ungoto info or we end up in a loop */
	dotgoto(ipc, buf, 0, 1);
}


/*
 * saves filelen bytes from file at pathname
 */
int save_buffer(void *file, size_t filelen, const char *pathname)
{
	size_t block = 0;
	size_t bytes_written = 0;
	FILE *fp;

	fp = fopen(pathname, "w");
	if (!fp) {
		scr_printf("Cannot open '%s': %s\n", pathname, strerror(errno));
		return 0;
	}
	do {
		block = fwrite((char *)file + bytes_written, 1,
				filelen - bytes_written, fp);
		bytes_written += block;
	} while (errno == EINTR && bytes_written < filelen);
	fclose(fp);

	if (bytes_written < filelen) {
		scr_printf("Trouble saving '%s': %s\n", pathname,
				strerror(errno));
		return 0;
	}
	return 1;
}


/*
 * Save supplied_filename in dest directory; gets the name only
 */
void destination_directory(char *dest, const char *supplied_filename)
{
	static char save_dir[SIZ] = { 0 };

	if (IsEmptyStr(save_dir)) {
		if (getenv("HOME") == NULL) {
			strcpy(save_dir, ".");
		}
		else {
			sprintf(save_dir, "%s/Desktop", getenv("HOME"));
			if (access(save_dir, W_OK) != 0) {
				sprintf(save_dir, "%s", getenv("HOME"));
				if (access(save_dir, W_OK) != 0) {
					sprintf(save_dir, ".");
				}
			}
		}
	}

	sprintf(dest, "%s/%s", save_dir, supplied_filename);
	strprompt("Save as", dest, PATH_MAX);

	/* Remember the directory for next time */
	strcpy(save_dir, dest);
	if (strrchr(save_dir, '/') != NULL) {
		strcpy(strrchr(save_dir, '/'), "");
	}
	else {
		strcpy(save_dir, ".");
	}
}


/*
 * download()  -  download a file or files.  The argument passed to this
 *                function determines which protocol to use.
 *  proto - 0 = paginate, 1 = xmodem, 2 = raw, 3 = ymodem, 4 = zmodem, 5 = save
 */
void download(CtdlIPC *ipc, int proto)
{
	char buf[SIZ];
	char filename[PATH_MAX];
	char tempname[PATH_MAX];
	char transmit_cmd[SIZ];
	FILE *tpipe = NULL;
/*	int broken = 0;*/
	int r;
	int rv = 0;
	void *file = NULL;	/* The downloaded file */
	size_t filelen = 0L;	/* The downloaded file length */

	if ((room_flags & QR_DOWNLOAD) == 0) {
		scr_printf("*** You cannot download from this room.\n");
		return;
	}

	newprompt("Enter filename: ", filename, PATH_MAX);

	/* Save to local disk, for folks with their own copy of the client */
	if (proto == 5) {
		destination_directory(tempname, filename);
		r = CtdlIPCFileDownload(ipc, filename, &file, 0, progress, buf);
		if (r / 100 != 2) {
			scr_printf("%s\n", buf);
			return;
		}
		save_buffer(file, (size_t)extract_long(buf, 0), tempname);
		free(file);
		return;
	}

	r = CtdlIPCFileDownload(ipc, filename, &file, 0, progress, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}
	filelen = extract_unsigned_long(buf, 0);

	/* Meta-download for public clients */
	/* scr_printf("Fetching file from Citadel server...\n"); */
	mkdir(tempdir, 0700);
	snprintf(tempname, sizeof tempname, "%s/%s", tempdir, filename);
	tpipe = fopen(tempname, "wb");
	if (fwrite(file, filelen, 1, tpipe) < filelen) {
		/* FIXME: restart syscall on EINTR 
		   broken = 1;*/
	}
	fclose(tpipe);
	if (file) free(file);

	if (proto == 0) {
		/* FIXME: display internally instead */
		snprintf(transmit_cmd, sizeof transmit_cmd,
			"SHELL=/dev/null; export SHELL; TERM=dumb; export TERM; exec more -d <%s",
			tempname);
	}
	else if (proto == 1)
		snprintf(transmit_cmd, sizeof transmit_cmd, "exec sx %s", tempname);
	else if (proto == 3)
		snprintf(transmit_cmd, sizeof transmit_cmd, "exec sb %s", tempname);
	else if (proto == 4)
		snprintf(transmit_cmd, sizeof transmit_cmd, "exec sz %s", tempname);
	else
		/* FIXME: display internally instead */
		snprintf(transmit_cmd, sizeof transmit_cmd, "exec cat %s", tempname);

	stty_ctdl(SB_RESTORE);
	rv = system(transmit_cmd);
	if (rv != 0)
		scr_printf("failed to download '%s': %d\n", transmit_cmd, rv);
	stty_ctdl(SB_NO_INTR);

	/* clean up the temporary directory */
	nukedir(tempdir);
	ctdl_beep();	/* Beep beep! */
}


/*
 * read directory of this room
 */
void roomdir(CtdlIPC *ipc)
{
	char flnm[256];
	char flsz[32];
	char comment[256];
	char mimetype[256];
	char buf[256];
	char *listing = NULL;	/* Returned directory listing */
	int r;

	r = CtdlIPCReadDirectory(ipc, &listing, buf);
	if (r / 100 != 1) {
		scr_printf("%s\n", buf);
		return;
	}

	extract_token(comment, buf, 0, '|', sizeof comment);
	extract_token(flnm, buf, 1, '|', sizeof flnm);
	scr_printf("\nDirectory of %s on %s\n", flnm, comment);
	scr_printf("-----------------------\n");
	while (listing && *listing && !IsEmptyStr(listing)) {
		extract_token(buf, listing, 0, '\n', sizeof buf);
		remove_token(listing, 0, '\n');

		extract_token(flnm, buf, 0, '|', sizeof flnm);
		extract_token(flsz, buf, 1, '|', sizeof flsz);
		extract_token(mimetype, buf, 2, '|', sizeof mimetype);
		extract_token(comment, buf, 3, '|', sizeof comment);
		if (strlen(flnm) <= 14)
			scr_printf("%-14s %8s %s [%s]\n", flnm, flsz, comment, mimetype);
		else
			scr_printf("%s\n%14s %8s %s [%s]\n", flnm, "", flsz,
				comment, mimetype);
	}
	if (listing) free(listing);
}


/*
 * add a user to a private room
 */
void invite(CtdlIPC *ipc)
{
	char username[USERNAME_SIZE];
	char buf[SIZ];

	newprompt("Name of user? ", username, USERNAME_SIZE);
	if (username[0] == 0)
		return;

	CtdlIPCInviteUserToRoom(ipc, username, buf);
	scr_printf("%s\n", buf);
}


/*
 * kick a user out of a room
 */
void kickout(CtdlIPC *ipc)
{
	char username[USERNAME_SIZE];
	char buf[SIZ];

	newprompt("Name of user? ", username, USERNAME_SIZE);
	if (username[0] == 0)
		return;

	CtdlIPCKickoutUserFromRoom(ipc, username, buf);
	scr_printf("%s\n", buf);
}


/*
 * aide command: kill the current room
 */
void killroom(CtdlIPC *ipc)
{
	char aaa[100];
	int r;

	r = CtdlIPCDeleteRoom(ipc, 0, aaa);
	if (r / 100 != 2) {
		scr_printf("%s\n", aaa);
		return;
	}

	scr_printf("Are you sure you want to kill this room? ");
	if (yesno() == 0)
		return;

	r = CtdlIPCDeleteRoom(ipc, 1, aaa);
	scr_printf("%s\n", aaa);
	if (r / 100 != 2)
		return;
	dotgoto(ipc, "_BASEROOM_", 0, 0);
}

void forget(CtdlIPC *ipc)
{				/* forget the current room */
	char buf[SIZ];

	scr_printf("Are you sure you want to forget this room? ");
	if (yesno() == 0)
		return;

	remove_march(room_name, 0);
	if (CtdlIPCForgetRoom(ipc, buf) / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}

	/* now return to the lobby */
	dotgoto(ipc, "_BASEROOM_", 0, 0);
}


/*
 * create a new room
 */
void entroom(CtdlIPC *ipc)
{
	char buf[SIZ];
	char new_room_name[ROOMNAMELEN];
	int new_room_type;
	char new_room_pass[10];
	int new_room_floor;
	int a, b;
	int r;				/* IPC response code */

	/* Check permission to create room */
	r = CtdlIPCCreateRoom(ipc, 0, "", 1, "", 0, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}

	newprompt("Name for new room? ", new_room_name, ROOMNAMELEN - 1);
	if (IsEmptyStr(new_room_name)) {
		return;
	}
	for (a = 0; !IsEmptyStr(&new_room_name[a]); ++a) {
		if (new_room_name[a] == '|') {
			new_room_name[a] = '_';
		}
	}

	new_room_floor = select_floor(ipc, (int) curr_floor);

	IFNEXPERT formout(ipc, "roomaccess");
	do {
		scr_printf("<?>Help\n"
			"<1>Public room (shown to all users by default)\n"
			"<2>Hidden room (accessible to anyone who knows the room name)\n"
			"<3>Passworded room (hidden, plus requires a password to enter)\n"
			"<4>Invitation-only room (requires access to be granted by an Admin)\n"
		       	"<5>Personal room (accessible to you only)\n"
			"Enter room type: "
		);
		do {
			b = inkey();
		} while (((b < '1') || (b > '5')) && (b != '?'));
		if (b == '?') {
			scr_printf("?\n");
			formout(ipc, "roomaccess");
		}
	} while ((b < '1') || (b > '5'));
	b -= '0';			/* Portable */
	scr_printf("%d\n", b);
	new_room_type = b - 1;
	if (new_room_type == 2) {
		newprompt("Enter a room password: ", new_room_pass, 9);
		for (a = 0; !IsEmptyStr(&new_room_pass[a]); ++a)
			if (new_room_pass[a] == '|')
				new_room_pass[a] = '_';
	} else {
		strcpy(new_room_pass, "");
	}

	scr_printf("\042%s\042, a", new_room_name);
	if (b == 1)
		scr_printf(" public room.");
	if (b == 2)
		scr_printf(" hidden room.");
	if (b == 3)
		scr_printf(" passworded room, password: %s", new_room_pass);
	if (b == 4)
		scr_printf("n invitation-only room.");
	if (b == 5)
		scr_printf(" personal room.");
	scr_printf("\nInstall it? (y/n) : ");
	if (yesno() == 0) {
		return;
	}

	r = CtdlIPCCreateRoom(ipc, 1, new_room_name, new_room_type,
			      new_room_pass, new_room_floor, buf);
	if (r / 100 != 2) {
		scr_printf("%s\n", buf);
		return;
	}

	/* command succeeded... now GO to the new room! */
	dotgoto(ipc, new_room_name, 0, 0);
}



void readinfo(CtdlIPC *ipc)
{				/* read info file for current room */
	char buf[SIZ];
	char room_admin_name[64];
	int r;			/* IPC response code */
	char *text = NULL;

	/* Name of currernt room admin */
	r = CtdlIPCGetRoomAide(ipc, buf);
	if (r / 100 == 2)
		safestrncpy(room_admin_name, buf, sizeof room_admin_name);
	else
		strcpy(room_admin_name, "");

	if (!IsEmptyStr(room_admin_name))
		scr_printf("Room admin is %s.\n\n", room_admin_name);

	r = CtdlIPCRoomInfo(ipc, &text, buf);
	if (r / 100 != 1)
		return;

	if (text) {
		fmout(screenwidth, NULL, text, NULL, 1);
		free(text);
	}
}


/*
 * <W>ho knows room...
 */
void whoknows(CtdlIPC *ipc)
{
	char buf[256];
	char *listing = NULL;
	int r;

	r = CtdlIPCWhoKnowsRoom(ipc, &listing, buf);
	if (r / 100 != 1) {
		scr_printf("%s\n", buf);
		return;
	}
	while (!IsEmptyStr(listing)) {
		extract_token(buf, listing, 0, '\n', sizeof buf);
		remove_token(listing, 0, '\n');
		if (sigcaught == 0)
			scr_printf("%s\n", buf);
	}
	free(listing);
}


void do_edit(CtdlIPC *ipc,
		char *desc, char *read_cmd, char *check_cmd, char *write_cmd)
{
	FILE *fp;
	char cmd[SIZ];
	int b, cksum, editor_exit;

	if (IsEmptyStr(editor_path)) {
		scr_printf("Do you wish to re-enter %s? ", desc);
		if (yesno() == 0)
			return;
	}

	fp = fopen(temp, "w");
	fclose(fp);

	CtdlIPC_chat_send(ipc, check_cmd);
	CtdlIPC_chat_recv(ipc, cmd);
	if (cmd[0] != '2') {
		scr_printf("%s\n", &cmd[4]);
		return;
	}

	if (!IsEmptyStr(editor_path)) {
		CtdlIPC_chat_send(ipc, read_cmd);
		CtdlIPC_chat_recv(ipc, cmd);
		if (cmd[0] == '1') {
			fp = fopen(temp, "w");
			while (CtdlIPC_chat_recv(ipc, cmd), strcmp(cmd, "000")) {
				fprintf(fp, "%s\n", cmd);
			}
			fclose(fp);
		}
	}

	cksum = file_checksum(temp);

	if (!IsEmptyStr(editor_path)) {
		char tmp[SIZ];

		snprintf(tmp, sizeof tmp, "WINDOW_TITLE=%s", desc);
		putenv(tmp);
		stty_ctdl(SB_RESTORE);
		editor_pid = fork();
		if (editor_pid == 0) {
			chmod(temp, 0600);
			execlp(editor_path, editor_path, temp, NULL);
			exit(1);
		}
		if (editor_pid > 0)
			do {
				editor_exit = 0;
				b = ka_wait(&editor_exit);
			} while ((b != editor_pid) && (b >= 0));
		editor_pid = (-1);
		scr_printf("Executed %s\n", editor_path);
		stty_ctdl(0);
	} else {
		scr_printf("Entering %s.  Press return twice when finished.\n", desc);
		fp = fopen(temp, "r+");
		citedit(fp);
		fclose(fp);
	}

	if (file_checksum(temp) == cksum) {
		scr_printf("*** Aborted.\n");
	}

	else {
		CtdlIPC_chat_send(ipc, write_cmd);
		CtdlIPC_chat_recv(ipc, cmd);
		if (cmd[0] != '4') {
			scr_printf("%s\n", &cmd[4]);
			return;
		}

		fp = fopen(temp, "r");
		while (fgets(cmd, SIZ - 1, fp) != NULL) {
			cmd[strlen(cmd) - 1] = 0;
			CtdlIPC_chat_send(ipc, cmd);
		}
		fclose(fp);
		CtdlIPC_chat_send(ipc, "000");
	}

	unlink(temp);
}


void enterinfo(CtdlIPC *ipc)
{				/* edit info file for current room */
	do_edit(ipc, "the Info file for this room", "RINF", "EINF 0", "EINF 1");
}

void enter_bio(CtdlIPC *ipc)
{
	char cmd[SIZ];
	snprintf(cmd, sizeof cmd, "RBIO %s", fullname);
	do_edit(ipc, "your Bio", cmd, "NOOP", "EBIO");
}

/*
 * create a new floor
 */
void create_floor(CtdlIPC *ipc)
{
	char buf[SIZ];
	char newfloorname[SIZ];
	int r;			/* IPC response code */

	load_floorlist(ipc);

	r = CtdlIPCCreateFloor(ipc, 0, "", buf);
	if ( (r / 100 != 2) && (r != ERROR + ILLEGAL_VALUE) ) {
		scr_printf("%s\n", buf);
		return;
	}

	newprompt("Name for new floor: ", newfloorname, 255);
	if (!*newfloorname) return;
	r = CtdlIPCCreateFloor(ipc, 1, newfloorname, buf);
	if (r / 100 == 2) {
		scr_printf("Floor has been created.\n");
	} else {
		scr_printf("%s\n", buf);
	}

	load_floorlist(ipc);
}

/*
 * edit the current floor
 */
void edit_floor(CtdlIPC *ipc)
{
	char buf[SIZ];
	struct ExpirePolicy *ep = NULL;

	load_floorlist(ipc);

	/* Fetch the expire policy (this will silently fail on old servers,
	 * resulting in "default" policy)
	 */
	CtdlIPCGetMessageExpirationPolicy(ipc, 1, &ep, buf);

	/* Interact with the user */
	scr_printf("You are editing the floor called \"%s\"\n", 
		&floorlist[(int) curr_floor][0] );
	strprompt("Floor name", &floorlist[(int) curr_floor][0], 255);

	/* Angels and demons dancing in my head... */
	do {
		snprintf(buf, sizeof buf, "%d", ep->expire_mode);
		strprompt
		    ("Floor default message expire policy (? for list)",
		     buf, 1);
		if (buf[0] == '?') {
			scr_printf("\n"
				"0. Use the system default\n"
				"1. Never automatically expire messages\n"
				"2. Expire by message count\n"
				"3. Expire by message age\n");
		}
	} while ((buf[0] < '0') || (buf[0] > '3'));
	ep->expire_mode = buf[0] - '0';

	/* ...lunatics and monsters underneath my bed */
	if (ep->expire_mode == 2) {
		snprintf(buf, sizeof buf, "%d", ep->expire_value);
		strprompt("Keep how many messages online?", buf, 10);
		ep->expire_value = atol(buf);
	}

	if (ep->expire_mode == 3) {
		snprintf(buf, sizeof buf, "%d", ep->expire_value);
		strprompt("Keep messages for how many days?", buf, 10);
		ep->expire_value = atol(buf);
	}

	/* Save it */
	CtdlIPCSetMessageExpirationPolicy(ipc, 1, ep, buf);
	CtdlIPCEditFloor(ipc, curr_floor, &floorlist[(int)curr_floor][0], buf);
	scr_printf("%s\n", buf);
	load_floorlist(ipc);
}




/*
 * kill the current floor 
 */
void kill_floor(CtdlIPC *ipc)
{
	int floornum_to_delete, a;
	char buf[SIZ];

	load_floorlist(ipc);
	do {
		floornum_to_delete = (-1);
		scr_printf("(Press return to abort)\n");
		newprompt("Delete which floor? ", buf, 255);
		if (IsEmptyStr(buf))
			return;
		for (a = 0; a < 128; ++a)
			if (!strcasecmp(&floorlist[a][0], buf))
				floornum_to_delete = a;
		if (floornum_to_delete < 0) {
			scr_printf("No such floor.  Select one of:\n");
			for (a = 0; a < 128; ++a)
				if (floorlist[a][0] != 0)
					scr_printf("%s\n", &floorlist[a][0]);
		}
	} while (floornum_to_delete < 0);
	CtdlIPCDeleteFloor(ipc, 1, floornum_to_delete, buf);
	scr_printf("%s\n", buf);
	load_floorlist(ipc);
}
