+++ /dev/null
-/*
- * Client-side functions which perform room operations
- *
- * Copyright (c) 1987-2018 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) {
- 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;
- }
-
- /* 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->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);
-}