source: trunk/minix/commands/ftpd200/ftpd.c@ 15

/* ftpd.c Copyright 1992-2000 by Michael Temari All Rights Reserved
 *
 * ftpd         An FTP server program for use with Minix.
 *
 * Usage:       Minix usage: tcpd ftp ftpd
 *
 * 06/14/92 Tnet Release        Michael Temari
 * 01/15/96 0.30                Michael Temari
 * 01/25/96 0.90                Michael Temari
 * 03/17/96 0.91                Michael Temari
 * 06/27/96 0.92                Michael Temari
 * 07/02/96 0.93                Michael Temari
 * 07/15/96 0.94                Michael Temari
 * 08/27/96 0.95                Michael Temari
 * 02/09/97 0.96                Michael Temari
 * 02/10/97 0.97                Michael Temari
 * 09/25/97 0.98                Michael Temari
 * 03/10/00 0.99                Michael Temari, <Michael@TemWare.Com>
 * 12/12/03 1.00                Michael Temari, <Michael@TemWare.Com>
 * 02/06/05 1.01                Michael Temari, <Michael@TemWare.Com>
 * 02/12/05 2.00                Michael Temari, <Michael@TemWare.Com>
 */

char *FtpdVersion = "2.00";

#include <sys/types.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <net/gen/in.h>
#include <net/gen/tcp.h>

#include "ftpd.h"
#include "access.h"
#include "file.h"
#include "net.h"

_PROTOTYPE(static void init, (void));
_PROTOTYPE(static int doHELP, (char *buff));
_PROTOTYPE(static int doNOOP, (char *buff));
_PROTOTYPE(static int doUNIMP, (char *buff));
_PROTOTYPE(static int getline, (char *line, int len));

FILE *msgfile = (FILE *)NULL;

/* The following defines the inactivity timeout in seconds */
#define INACTIVITY_TIMEOUT      60*5

char *days[] = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};
char *months[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
                  "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};

char line[512];

int type, format, mode, structure;
int ftpdata_fd = -1;
int loggedin, gotuser, anonymous;
char username[80];
char anonpass[128];
char newroot[128];

ipaddr_t myipaddr, rmtipaddr, dataaddr;
tcpport_t myport, rmtport, dataport;

char myhostname[256], rmthostname[256];

#define FTPD_LOG        "/usr/adm/ftpd.log"
#define FTPD_MSG        "/etc/ftpd_msg"

FILE *logfile;

int timeout = 0;

_PROTOTYPE(static int doHELP, (char *buff));
_PROTOTYPE(int readline, (char **args));
_PROTOTYPE(void Timeout, (int sig));
_PROTOTYPE(int main, (int argc, char *argv[]));

struct commands {
        char *name;
        _PROTOTYPE(int (*func), (char *buff));
};

struct commands commands[] = {
        "ABOR", doUNIMP,
        "ACCT", doUNIMP,
        "ALLO", doALLO,
        "APPE", doAPPE,
        "CDUP", doCDUP,
        "CWD",  doCWD,
        "DELE", doDELE,
        "HELP", doHELP,
        "LIST", doLIST,
        "MDTM", doMDTM,
        "MKD",  doMKD,
        "MODE", doMODE,
        "NLST", doNLST,
        "NOOP", doNOOP,
        "PASS", doPASS,
        "PASV", doPASV,
        "PORT", doPORT,
        "PWD",  doPWD,
        "QUIT", doQUIT,
        "REIN", doUNIMP,
        "REST", doREST,
        "RETR", doRETR,
        "RMD",  doRMD,
        "RNFR", doRNFR,
        "RNTO", doRNTO,
        "SITE", doSITE,
        "SIZE", doSIZE,
        "SMNT", doUNIMP,
        "STAT", doSTAT,
        "STOR", doSTOR,
        "STOU", doSTOU,
        "STRU", doSTRU,
        "SYST", doSYST,
        "TYPE", doTYPE,
        "USER", doUSER,
        "XCUP", doCDUP,
        "XCWD", doCWD,
        "XMKD", doMKD,
        "XPWD", doPWD,
        "XRMD", doRMD,
        "",     (int (*)())0
};

static void init()
{
   loggedin = 0;
   gotuser = 0;
   anonymous = 0;
   newroot[0] = '\0';
   type = TYPE_A;
   format = 0;
   mode = MODE_S;
   structure = 0;
   ftpdata_fd = -1;
   username[0] = '\0';
   anonpass[0] = '\0';
}

/* nothing, nada, zilch... */
static int doNOOP(buff)
char *buff;
{
   printf("200 NOOP to you too!\r\n");

   return(GOOD);
}

/* giv'em help, what a USER! */
static int doHELP(buff)
char *buff;
{
struct commands *cmd;
char star;
int i;
char *space = "    ";

   printf("214-Here is a list of available ftp commands\r\n");
   printf("    Those with '*' are not yet implemented.\r\n");

   i = 0;
   for(cmd = commands; *cmd->name != '\0'; cmd++) {
        if(cmd->func == doUNIMP)
                star = '*';
        else
                star = ' ';
        printf("     %s%c%s", cmd->name, star, space + strlen(cmd->name));
        if(++i == 6) {
                printf("\r\n");
                i = 0;
        }
   }

   if(i)
        printf("\r\n");

   printf("214 That's all the help you get.\r\n");

   return(GOOD);
}

/* not implemented */
static int doUNIMP(buff)
char *buff;
{
   printf("502 Command \"%s\" not implemented!\r\n", line);

   return(GOOD);
}

/* convert line for use */
void cvtline(args)
char **args;
{
char *p;

   p = line + strlen(line);
   while(--p >= line)
        if(*p == '\r' || *p == '\n' || isspace(*p))
                *p = '\0';
        else
                break;

  p = line;

#ifdef DEBUG
  logit("COMMAND", line);
#endif

  while(*p && !isspace(*p)) {
        *p = toupper(*p);
        p++;
  }

  if(*p) {
        *p = '\0';
        p++;
        while(*p && isspace(*p))
                p++;
   }

   *args = p;

   return;
}

static int getline(line, len)
char *line;
int len;
{
int s;
int gotcr;

   /* leave room for at end for null */
   len--;

   /* got to be able to put in at least 1 character */
   if(len < 1)
        return(-1);

   gotcr = 0;
   while(len-- > 0) {
        s = read(0, line, 1);
        if(s != 1)
                return(-1);
        if(*line == '\n')
                break;
        gotcr = (*line == '\r');
        line++;
   }
   if(gotcr)
        --line;

   *line = '\0';

   return(0);
}

int readline(args)
char **args;
{
   if(getline(line, sizeof(line)))
        return(BAD);

   cvtline(args);

   return(GOOD);
}

/* signal handler for inactivity timeout */
void Timeout(sig)
int sig;
{
   timeout = 1;

   printf("421 Inactivity timer expired.\r\n");
}

/* logit */
void logit(type, parm)
char *type;
char *parm;
{
time_t now;
struct tm *tm;

   if(logfile == (FILE *)NULL)
        return;

   time(&now);
   tm = localtime(&now);
   fprintf(logfile, "%4d%02d%02d%02d%02d%02d ",
        1900+tm->tm_year,
        tm->tm_mon + 1,
        tm->tm_mday,
        tm->tm_hour, tm->tm_min, tm->tm_sec);
   fprintf(logfile, "%s %s %s %s %s\n",
        rmthostname, username, anonymous ? anonpass : username, type, parm);
   fflush(logfile);
}

void showmsg(reply, filename)
char *reply;
char *filename;
{
FILE *mfp;
char *pe;
static char mline[256];

   if(filename == (char *)NULL)
        mfp = msgfile;
   else
        mfp = fopen(filename, "r");

   if(mfp == (FILE *)NULL)
        return;

   while(fgets(mline, sizeof(mline), mfp) != (char *)NULL) {
        pe = mline + strlen(mline);
        while(--pe >= mline)
                if(*pe == '\r' || *pe == '\n')
                        *pe = '\0';
                else
                        break;
        printf("%s- %s\r\n", reply, mline);
   }

   if(filename != (char *)NULL)
        fclose(mfp);
}

int main(argc, argv)
int argc;
char *argv[];
{
struct commands *cmd;
char *args;
int status;
time_t now;
struct tm *tm;
int s;

   GetNetInfo();

   /* open transfer log file if it exists */
   if((logfile = fopen(FTPD_LOG, "r")) != (FILE *)NULL) {
        fclose(logfile);
        logfile = fopen(FTPD_LOG, "a");
   }

   /* open login msg file */
   msgfile = fopen(FTPD_MSG, "r");

   /* Let's initialize some stuff */
   init();

   /* Log the connection */
   logit("CONNECT", "");

   /* Tell 'em we are ready */
   time(&now);
   tm = localtime(&now);
   printf("220 FTP service (Ftpd %s) ready on %s at ",
        FtpdVersion, myhostname);
   printf("%s, %02d %s %d %02d:%02d:%02d %s\r\n", days[tm->tm_wday],
        tm->tm_mday, months[tm->tm_mon], 1900+tm->tm_year,
        tm->tm_hour, tm->tm_min, tm->tm_sec,
        tzname[tm->tm_isdst]);
   fflush(stdout);

   /* Loop here getting commands */
   while(1) {
        signal(SIGALRM, Timeout);
        alarm(INACTIVITY_TIMEOUT);
        if(readline(&args) != GOOD) {
                if(!timeout)
                        printf("221 Control connection closing (EOF).\r\n");
                break;
        }
        alarm(0);
        for(cmd = commands; *cmd->name != '\0'; cmd++)
                if(!strcmp(line, cmd->name))
                        break;
        if(*cmd->name != '\0')
                status = (*cmd->func)(args);
        else {
                printf("500 Command \"%s\" not recognized.\r\n", line);
                status = GOOD;
        }
        fflush(stdout);
        if(status != GOOD)
                break;
   }

   CleanUpPasv();

   return(-1);
}