/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2005, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2012, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire 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
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
- * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- * related information and legal notices. It is expected that any future
- * projects/authors will amend these files as needed.
+ * See files README, COPYING and CREDITS in the root of the source
+ * tree for related information and legal notices. It is expected
+ * that future projects/authors will amend these files as needed.
*
* ---
*
* servercmd.c: Change the state depending on the command from the server.
- *
+ *
* Known contributors to this file:
* Dave Pare, 1989
* Steve McClure, 1998
+ * Ron Koenderink, 2005
+ * Markus Armbruster, 2005-2010
*/
-#include "misc.h"
-#include "proto.h"
-#include "queue.h"
-#include "ioqueue.h"
-#include "tags.h"
+#include <config.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
+#include <assert.h>
#include <ctype.h>
+#include <errno.h>
#include <fcntl.h>
-#if !defined(_WIN32)
-#include <unistd.h>
-#else
-#include <io.h>
-#endif
+#include <stdio.h>
+#include <string.h>
+#include "misc.h"
+#include "proto.h"
+#include "secure.h"
+
+int eight_bit_clean;
+FILE *auxfp;
-char num_teles[64];
-static char the_prompt[1024];
-static int mode;
-static int nbtu;
-static int nmin;
-FILE *redir_fp;
-FILE *pipe_fp;
-int exec_fd;
+static FILE *redir_fp;
+static int redir_is_pipe;
+static int executing;
+static size_t input_to_forget;
-static void prompt(FILE *auxfi);
+static void prompt(int, char *, char *);
static void doredir(char *p);
static void dopipe(char *p);
-static void doexecute(char *p, FILE *auxfi);
-static void output(int code, char *buf, FILE *auxfi, int eol);
-static void screen(char *buf);
+static int doexecute(char *p);
void
-servercmd(struct ioqueue *ioq, FILE *auxfi)
+servercmd(int code, char *arg, int len)
{
- char buf[1024];
- char *p;
- static int code = -1;
- int eol;
+ static int nmin, nbtu, fd;
+ static char the_prompt[1024];
+ static char teles[64];
- while (ioq_gets(ioq, buf, sizeof(buf), &eol)) {
- p = buf;
- if (code == -1) {
- if (isalpha(*buf))
- code = 10 + (*buf - 'a');
+ switch (code) {
+ case C_PROMPT:
+ if (sscanf(arg, "%d %d", &nmin, &nbtu) != 2) {
+ fprintf(stderr, "prompt: bad server prompt %s\n", arg);
+ }
+ snprintf(the_prompt, sizeof(the_prompt), "[%d:%d] Command : ",
+ nmin, nbtu);
+ if (redir_fp) {
+ if (redir_is_pipe)
+ (void)pclose(redir_fp);
else
- code = *buf - '0';
- while (*p && !isspace(*p))
- p++;
- *p++ = 0;
+ (void)fclose(redir_fp);
+ redir_fp = NULL;
}
- /*
- * FIXME
- * C_REDIR, C_PIPE, and C_EXECUTE will not
- * work with filename longer than one buffer
- */
- switch (code) {
- case C_PROMPT:
- if (sscanf(p, "%d %d", &nmin, &nbtu) != 2) {
- fprintf(stderr, "prompt: bad server prompt %s\n", p);
- }
- mode = code;
- sprintf(the_prompt, "[%d:%d] Command : ", nmin, nbtu);
- prompt(auxfi);
- break;
- case C_REDIR:
- if (eol)
- p[strlen(p) - 1] = '\0';
- doredir(p);
- break;
- case C_PIPE:
- if (eol)
- p[strlen(p) - 1] = '\0';
- dopipe(p);
- break;
- case C_FLUSH:
- mode = code;
- if (eol)
- p[strlen(p) - 1] = '\0';
- sprintf(the_prompt, "%s", p);
- prompt(auxfi);
- break;
- case C_EXECUTE:
- if (eol)
- p[strlen(p) - 1] = '\0';
- doexecute(p, auxfi);
- break;
- case C_INFORM:
- if (eol)
- p[strlen(p) - 1] = '\0';
- if (*p) {
- p[strlen(p) - 1] = '\0';
- sprintf(num_teles, "(%s) ", p + 1);
- if (!redir_fp && !pipe_fp && !exec_fd) {
- putchar('\07');
- prompt(NULL);
- }
- } else
- *num_teles = '\0';
- break;
- default:
- output(code, p, auxfi, eol);
- break;
+ if (input_to_forget) {
+ forget_input(input_to_forget);
+ input_to_forget = 0;
+ }
+ prompt(code, the_prompt, teles);
+ executing = 0;
+ break;
+ case C_FLUSH:
+ snprintf(the_prompt, sizeof(the_prompt), "%.*s", len - 1, arg);
+ prompt(code, the_prompt, teles);
+ break;
+ case C_EXECUTE:
+ fd = doexecute(arg);
+ if (fd < 0)
+ send_eof++;
+ else {
+ input_fd = fd;
+ executing = 1;
}
- if (eol)
- code = -1;
+ break;
+ case C_EXIT:
+ printf("Exit: %s", arg);
+ if (auxfp)
+ fprintf(auxfp, "Exit: %s", arg);
+ break;
+ case C_FLASH:
+ printf("\n%s", arg);
+ if (auxfp)
+ fprintf(auxfp, "\n%s", arg);
+ break;
+ case C_INFORM:
+ if (arg[0] != '\n') {
+ snprintf(teles, sizeof(teles), "(%.*s) ", len - 1, arg);
+ if (!redir_fp) {
+ putchar('\07');
+ prompt(code, the_prompt, teles);
+ }
+ } else
+ teles[0] = 0;
+ break;
+ case C_PIPE:
+ dopipe(arg);
+ break;
+ case C_REDIR:
+ doredir(arg);
+ break;
+ default:
+ assert(0);
+ break;
}
}
static void
-prompt(FILE *auxfi)
+prompt(int code, char *prompt, char *teles)
{
- if (mode == C_PROMPT) {
- if (redir_fp) {
- (void)fclose(redir_fp);
- redir_fp = NULL;
- } else if (pipe_fp) {
- (void)pclose(pipe_fp);
- pipe_fp = NULL;
- } else if (exec_fd > 0) {
- close(exec_fd);
- close(0);
- exec_fd = -1;
- open("/dev/tty", O_RDONLY, 0);
- }
+ char *nl;
+
+ nl = code == C_PROMPT || code == C_INFORM ? "\n" : "";
+ printf("%s%s%s", nl, teles, prompt);
+ fflush(stdout);
+ if (auxfp) {
+ fprintf(auxfp, "%s%s%s", nl, teles, prompt);
+ fflush(auxfp);
}
- if (mode == C_PROMPT)
- printf("\n");
- printf("%s%s", num_teles, the_prompt);
- (void)fflush(stdout);
- if (auxfi) {
- fprintf(auxfi, "\n%s%s", num_teles, the_prompt);
- (void)fflush(auxfi);
+}
+
+static char *
+fname(char *s)
+{
+ char *beg, *end;
+
+ for (beg = s; isspace(*(unsigned char *)beg); beg++) ;
+ for (end = beg; !isspace(*(unsigned char *)end); end++) ;
+ *end = 0;
+ return beg;
+}
+
+static int
+redir_authorized(char *arg, char *attempt, int expected)
+{
+ size_t seen = seen_input(arg);
+
+ if (executing) {
+ fprintf(stderr, "Can't %s in a batch file\n", attempt);
+ return 0;
+ }
+
+ if (!expected) {
+ fprintf(stderr, "WARNING! Server attempted to %s unexpectedly\n",
+ attempt);
+ return 0;
}
+
+ if (!seen || (input_to_forget && input_to_forget != seen)) {
+ fprintf(stderr, "WARNING! Server attempted to %s %s\n",
+ attempt, arg);
+ return 0;
+ }
+ input_to_forget = seen;
+ return 1;
}
-/*
- * opens redir_fp if successful
- */
static void
doredir(char *p)
{
- char *how;
- char *name;
- char *tag;
int mode;
int fd;
- if (redir_fp) {
- (void)fclose(redir_fp);
- redir_fp = NULL;
- }
- how = p++;
- if (*p && ((*p == '>') || (*p == '!')))
- p++;
- tag = gettag(p);
- while (*p && isspace(*p))
- p++;
- name = p;
- while (*p && !isspace(*p))
- p++;
- *p = 0;
- if (tag == NULL) {
- fprintf(stderr, "WARNING! Server redirected output to file %s\n",
- name);
+ if (!redir_authorized(p, "redirect to file", !redir_fp))
+ return;
+ if (*p++ != '>') {
+ fprintf(stderr, "WARNING! Weird redirection %s", p);
return;
}
+
mode = O_WRONLY | O_CREAT;
- if (how[1] == '>')
+ if (*p == '>') {
mode |= O_APPEND;
- else if (how[1] == '!')
+ p++;
+ } else if (*p == '!') {
mode |= O_TRUNC;
- else
+ p++;
+ } else
mode |= O_EXCL;
- if (*name == 0) {
- fprintf(stderr, "Null file name after redirect\n");
- free(tag);
+
+ p = fname(p);
+ if (*p == 0) {
+ fprintf(stderr, "Redirection lacks a file name\n");
return;
}
- if ((fd = open(name, mode, 0600)) < 0) {
- fprintf(stderr, "Redirect open failed\n");
- perror(name);
- } else {
- redir_fp = fdopen(fd, "w");
+
+ redir_is_pipe = 0;
+ fd = open(p, mode, 0666);
+ redir_fp = fd < 0 ? NULL : fdopen(fd, "w");
+ if (!redir_fp) {
+ fprintf(stderr, "Can't redirect to %s: %s\n",
+ p, strerror(errno));
}
- free(tag);
}
-/*
- * opens "pipe_fp" if successful
- */
static void
dopipe(char *p)
{
- char *tag;
-
- if (*p == '|')
- p++;
- tag = gettag(p);
- while (*p && isspace(*p))
- p++;
- if (tag == NULL) {
- fprintf(stderr, "WARNING! Server attempted to run: %s\n", p);
+ if (!redir_authorized(p, "pipe to shell command", !redir_fp))
+ return;
+ if (*p++ != '|') {
+ fprintf(stderr, "WARNING! Weird pipe %s", p);
return;
}
+
+ for (; *p && isspace(*p); p++) ;
if (*p == 0) {
- fprintf(stderr, "Null program name after redirect\n");
- free(tag);
+ fprintf(stderr, "Redirection lacks a command\n");
return;
}
- if ((pipe_fp = popen(p, "w")) == NULL) {
- fprintf(stderr, "Pipe open failed\n");
- perror(p);
+
+ redir_is_pipe = 1;
+ if ((redir_fp = popen(p, "w")) == NULL) {
+ fprintf(stderr, "Can't redirect to pipe %s: %s\n",
+ p, strerror(errno));
}
- free(tag);
}
-static void
-doexecute(char *p, FILE *auxfi)
+static int
+doexecute(char *p)
{
int fd;
- char *tag;
- tag = gettag(p);
- while (*p && isspace(*p))
- p++;
- if (tag == NULL) {
- fprintf(stderr,
- "WARNING! Server attempted unauthorized read of file %s\n",
- p);
- return;
- }
- if (p == NULL) {
- fprintf(stderr, "Null file to execute\n");
- free(tag);
- return;
- }
- if ((fd = open(p, O_RDONLY, 0)) < 0) {
- fprintf(stderr, "Can't open execute file\n");
- perror(p);
- free(tag);
- return;
- }
- /* copies 4k at a time to the socket */
- while (termio(fd, sock, auxfi)) /*do copy */
- ;
- /* Some platforms don't send the eof (cntl-D) at the end of
- copying a file. If emp_client hangs at the end of an
- execute, include the following line and notify wolfpack
- of the platform you are using.
- sendeof(sock);
- */
- close(fd);
- free(tag);
-}
+ if (!redir_authorized(p, "execute batch file", 1))
+ return -1;
-static void
-output(int code, char *buf, FILE *auxfi, int eol)
-{
- switch (code) {
- case C_NOECHO:
- /* not implemented; serve doesn't send it */
- break;
- case C_ABORT:
- printf("Aborted\n");
- if (auxfi)
- fprintf(auxfi, "Aborted\n");
- break;
- case C_CMDERR:
- case C_BADCMD:
- printf("Error; ");
- if (auxfi)
- fprintf(auxfi, "Error; ");
- break;
- case C_EXIT:
- printf("Exit: ");
- if (auxfi)
- fprintf(auxfi, "Exit: ");
- break;
- case C_FLASH:
- printf("\n");
- break;
- default:
- break;
- }
- if (auxfi) {
- fprintf(auxfi, "%s", buf);
+ p = fname(p);
+ if (*p == 0) {
+ fprintf(stderr, "Need a file to execute\n");
+ return -1;
}
- if (redir_fp)
- fprintf(redir_fp, "%s", buf);
- else if (pipe_fp)
- fprintf(pipe_fp, "%s", buf);
- else {
- screen(buf);
+ if ((fd = open(p, O_RDONLY)) < 0) {
+ fprintf(stderr, "Can't open execute file %s: %s\n",
+ p, strerror(errno));
+ return -1;
}
+
+ return fd;
}
-static void
-screen(char *buf)
+void
+outch(char c)
{
- char c;
-
- while ((c = *buf++)) {
- if (eight_bit_clean) {
- if (c == 14)
- putso();
- else if (c == 15)
- putse();
- else
- putchar(c);
- } else if (c & 0x80) {
+ if (auxfp)
+ putc(c, auxfp);
+ if (redir_fp)
+ putc(c, redir_fp);
+ else if (eight_bit_clean) {
+ if (c == 14)
putso();
- putchar(c & 0x7f);
+ else if (c == 15)
putse();
- } else
+ else
putchar(c);
- }
+ } else if (c & 0x80) {
+ putso();
+ putchar(c & 0x7f);
+ putse();
+ } else
+ putchar(c);
}