/***************************************************************************** * * $Id$ * Purpose ...............: Run external door * ***************************************************************************** * Copyright (C) 1997-2002 * * Michiel Broek FIDO: 2:280/2802 * Beekmansbos 10 * 1971 BV IJmuiden * the Netherlands * * This file is part of MBSE BBS. * * This BBS is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License as published by the * Free Software Foundation; either version 2, or (at your option) any * later version. * * MBSE BBS is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * * You should have received a copy of the GNU General Public License * along with MBSE BBS; see the file COPYING. If not, write to the Free * Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. *****************************************************************************/ #include "../config.h" #include "../lib/libs.h" #include "../lib/memwatch.h" #include "../lib/mbse.h" #include "../lib/structs.h" #include "../lib/users.h" #include "../lib/records.h" #include "../lib/common.h" #include "../lib/clcomm.h" #include "../lib/mberrors.h" #include "input.h" #include "timeout.h" #include "exitinfo.h" #include "whoson.h" #include "door.h" extern time_t t_start; extern int e_pid; extern char **environ; char *Gdate(time_t, int); char *Gdate(time_t tt, int Y2K) { static char GLC[15]; struct tm *tm; tm = localtime(&tt); if (Y2K) sprintf(GLC, "%02d-%02d-%04d", tm->tm_mon +1, tm->tm_mday, tm->tm_year + 1900); else sprintf(GLC, "%02d-%02d-%02d", tm->tm_mon +1, tm->tm_mday, tm->tm_year % 100); return (GLC); } char *Rdate(char *, int); char *Rdate(char *ind, int Y2K) { static char GLC[15]; memset(&GLC, 0, sizeof(GLC)); GLC[0] = ind[3]; GLC[1] = ind[4]; GLC[2] = '-'; GLC[3] = ind[0]; GLC[4] = ind[1]; GLC[5] = '-'; if (Y2K) { GLC[6] = ind[6]; GLC[7] = ind[7]; GLC[8] = ind[8]; GLC[9] = ind[9]; } else { GLC[6] = ind[8]; GLC[7] = ind[9]; } return GLC; } /* * Function will run a external program or door */ void ExtDoor(char *Program, int NoDoorsys, int Y2Kdoorsys, int Comport, int NoSuid, int NoPrompt) { char *String, *String1; int i, rc; char *temp1; FILE *fp; temp1 = calloc(PATH_MAX, sizeof(char)); String = calloc(81, sizeof(char)); WhosDoingWhat(DOOR); if ((strstr(Program, "/N")) != NULL) { sprintf(temp1, "%d", iNode); strreplace(Program, (char *)"/N", temp1); } if ((strstr(Program, "/A")) != NULL) { colour(3, 0); if ((String = strstr(Program, "/T=")) != NULL) { String1 = String + 3; printf("\n%s", String1); } else printf("\nPlease enter filename: "); fflush(stdout); colour(CFG.InputColourF, CFG.InputColourB); GetstrC(temp1, 80); strreplace(Program, (char *)"/A", temp1); for(i = 0; i < strlen(Program); i++) { if (*(Program + i) == '\0') break; if (*(Program + i) == '/') *(Program + i) = '\0'; } } free(String); Syslog('+', "Door: %s", Program); ReadExitinfo(); alarm_set((exitinfo.iTimeLeft * 60) - 10); Altime((exitinfo.iTimeLeft * 60)); /* * Always remove the old door.sys first. */ sprintf(temp1, "%s/%s/door.sys", CFG.bbs_usersdir, exitinfo.Name); unlink(temp1); /* * Write door.sys in users homedirectory */ if (!NoDoorsys) { if ((fp = fopen(temp1, "w+")) == NULL) { WriteError("$Can't create %s", temp1); } else { if (Comport) { fprintf(fp, "COM1:\r\n"); /* COM port */ fprintf(fp, "19200\r\n");/* Effective baudrate */ } else { fprintf(fp, "COM0:\r\n");/* COM port */ fprintf(fp, "0\r\n"); /* Effective baudrate */ } fprintf(fp, "8\r\n"); /* Databits */ fprintf(fp, "%d\r\n", iNode); /* Node number */ if (Comport) fprintf(fp, "19200\r\n");/* Locked baudrate */ else fprintf(fp, "%ld\r\n", ttyinfo.portspeed); /* Locked baudrate */ fprintf(fp, "Y\r\n"); /* Screen snoop */ fprintf(fp, "N\r\n"); /* Printer on */ fprintf(fp, "Y\r\n"); /* Page bell */ fprintf(fp, "Y\r\n"); /* Caller alarm */ fprintf(fp, "%s\r\n", exitinfo.sUserName); fprintf(fp, "%s\r\n", exitinfo.sLocation); fprintf(fp, "%s\r\n", exitinfo.sVoicePhone); fprintf(fp, "%s\r\n", exitinfo.sDataPhone); fprintf(fp, "%s\r\n", exitinfo.Password); fprintf(fp, "%d\r\n", exitinfo.Security.level); fprintf(fp, "%d\r\n", exitinfo.iTotalCalls); fprintf(fp, "%s\r\n", Gdate(exitinfo.tLastLoginDate, Y2Kdoorsys)); fprintf(fp, "%d\r\n", exitinfo.iTimeLeft); /* Seconds */ fprintf(fp, "%d\r\n", exitinfo.iTimeLeft / 60); /* Minutes */ fprintf(fp, "%s\r\n", exitinfo.GraphMode?"GR":"NG"); /* Graphics */ fprintf(fp, "%d\r\n", exitinfo.iScreenLen); fprintf(fp, "N\r\n"); /* User mode, always N */ fprintf(fp, "\r\n"); /* Always blank */ fprintf(fp, "\r\n"); /* Always blank */ fprintf(fp, "%s\r\n", Rdate(exitinfo.sExpiryDate, Y2Kdoorsys)); fprintf(fp, "%d\r\n", grecno); /* Users recordnumber */ fprintf(fp, "%s\r\n", exitinfo.sProtocol); fprintf(fp, "%ld\r\n", exitinfo.Uploads); fprintf(fp, "%ld\r\n", exitinfo.Downloads); fprintf(fp, "%ld\r\n", LIMIT.DownK); /* FIXME: Download Kb today */ fprintf(fp, "%ld\r\n", LIMIT.DownK); fprintf(fp, "%s\r\n", Rdate(exitinfo.sDateOfBirth, Y2Kdoorsys)); fprintf(fp, "\r\n"); /* Path to userbase */ fprintf(fp, "\r\n"); /* Path to messagebase */ fprintf(fp, "%s\r\n", CFG.sysop_name); fprintf(fp, "%s\r\n", exitinfo.sHandle); fprintf(fp, "none\r\n"); /* Next event time */ fprintf(fp, "Y\r\n"); /* Error free connect. */ fprintf(fp, "N\r\n"); /* Always N */ fprintf(fp, "Y\r\n"); /* Always Y */ fprintf(fp, "7\r\n"); /* Default textcolor */ fprintf(fp, "0\r\n"); /* Always 0 */ fprintf(fp, "%s\r\n", Gdate(exitinfo.tLastLoginDate, Y2Kdoorsys)); /* Last newfiles scan date */ fprintf(fp, "%s\r\n", StrTimeHM(t_start)); /* Time of this call */ fprintf(fp, "%s\r\n", LastLoginTime); /* Time of last call */ fprintf(fp, "32768\r\n"); /* Always 32768 */ fprintf(fp, "%d\r\n", exitinfo.DownloadsToday); fprintf(fp, "%ld\r\n", exitinfo.UploadK); fprintf(fp, "%ld\r\n", exitinfo.DownloadK); fprintf(fp, "%s\r\n", exitinfo.sComment); fprintf(fp, "0\r\n"); /* Always 0 */ fprintf(fp, "%d\r\n\032", exitinfo.iPosted); fclose(fp); } } clear(); printf("Loading ...\n\n"); if (NoSuid) rc = exec_nosuid(Program); else rc = execute((char *)"/bin/sh", (char *)"-c", Program, NULL, NULL, NULL); Altime(0); alarm_off(); alarm_on(); Syslog('+', "Door end, rc=%d", rc); free(temp1); printf("\n\n"); if (!NoPrompt) Pause(); } /* * Execute a door as real user, not suid. */ int exec_nosuid(char *mandato) { int rc, status; pid_t pid; if (mandato == NULL) return 1; /* Prevent running a shell */ Syslog('+', "Execve: /bin/sh -c %s", mandato); pid = fork(); if (pid == -1) return 1; if (pid == 0) { char *argv[4]; argv[0] = (char *)"sh"; argv[1] = (char *)"-c"; argv[2] = mandato; argv[3] = 0; execve("/bin/sh", argv, environ); exit(MBERR_EXEC_FAILED); } e_pid = pid; do { rc = waitpid(pid, &status, 0); e_pid = 0; } while (((rc > 0) && (rc != pid)) || ((rc == -1) && (errno == EINTR))); switch(rc) { case -1: WriteError("$Waitpid returned %d, status %d,%d", rc,status>>8,status&0xff); return -1; case 0: return 0; default: if (WIFEXITED(status)) { rc = WEXITSTATUS(status); if (rc) { WriteError("Exec_nosuid: returned error %d", rc); return rc; } } if (WIFSIGNALED(status)) { rc = WTERMSIG(status); WriteError("Wait stopped on signal %d", rc); return rc; } if (rc) WriteError("Wait stopped unknown, rc=%d", rc); return rc; } return 0; }