commands/ftpd200/ftpd.c

   1 /* ftpd.c Copyright 1992-2000 by Michael Temari All Rights Reserved
   2  *
   3  * ftpd         An FTP server program for use with Minix.
   4  *
   5  * Usage:       Minix usage: tcpd ftp ftpd
   6  *
   7  * 06/14/92 Tnet Release        Michael Temari
   8  * 01/15/96 0.30                Michael Temari
   9  * 01/25/96 0.90                Michael Temari
  10  * 03/17/96 0.91                Michael Temari
  11  * 06/27/96 0.92                Michael Temari
  12  * 07/02/96 0.93                Michael Temari
  13  * 07/15/96 0.94                Michael Temari
  14  * 08/27/96 0.95                Michael Temari
  15  * 02/09/97 0.96                Michael Temari
  16  * 02/10/97 0.97                Michael Temari
  17  * 09/25/97 0.98                Michael Temari
  18  * 03/10/00 0.99                Michael Temari, <Michael@TemWare.Com>
  19  * 12/12/03 1.00                Michael Temari, <Michael@TemWare.Com>
  20  * 02/06/05 1.01                Michael Temari, <Michael@TemWare.Com>
  21  * 02/12/05 2.00                Michael Temari, <Michael@TemWare.Com>
  22  */
  23
  24 char *FtpdVersion = "2.00";
  25
  26 #include <sys/types.h>
  27 #include <signal.h>
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <ctype.h>
  31 #include <string.h>
  32 #include <time.h>
  33 #include <unistd.h>
  34 #include <net/gen/in.h>
  35 #include <net/gen/tcp.h>
  36
  37 #include "ftpd.h"
  38 #include "access.h"
  39 #include "file.h"
  40 #include "net.h"
  41
  42 _PROTOTYPE(static void init, (void));
  43 _PROTOTYPE(static int doHELP, (char *buff));
  44 _PROTOTYPE(static int doNOOP, (char *buff));
  45 _PROTOTYPE(static int doUNIMP, (char *buff));
  46 _PROTOTYPE(static int getline, (char *line, int len));
  47
  48 FILE *msgfile = (FILE *)NULL;
  49
  50 /* The following defines the inactivity timeout in seconds */
  51 #define INACTIVITY_TIMEOUT      60*5
  52
  53 char *days[] = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};
  54 char *months[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
  55                   "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
  56
  57 char line[512];
  58
  59 int type, format, mode, structure;
  60 int ftpdata_fd = -1;
  61 int loggedin, gotuser, anonymous;
  62 char username[80];
  63 char anonpass[128];
  64 char newroot[128];
  65
  66 ipaddr_t myipaddr, rmtipaddr, dataaddr;
  67 tcpport_t myport, rmtport, dataport;
  68
  69 char myhostname[256], rmthostname[256];
  70
  71 #define FTPD_LOG        "/usr/adm/ftpd.log"
  72 #define FTPD_MSG        "/etc/ftpd_msg"
  73
  74 FILE *logfile;
  75
  76 int timeout = 0;
  77
  78 _PROTOTYPE(static int doHELP, (char *buff));
  79 _PROTOTYPE(int readline, (char **args));
  80 _PROTOTYPE(void Timeout, (int sig));
  81 _PROTOTYPE(int main, (int argc, char *argv[]));
  82
  83 struct commands {
  84         char *name;
  85         _PROTOTYPE(int (*func), (char *buff));
  86 };
  87
  88 struct commands commands[] = {
  89         "ABOR", doUNIMP,
  90         "ACCT", doUNIMP,
  91         "ALLO", doALLO,
  92         "APPE", doAPPE,
  93         "CDUP", doCDUP,
  94         "CWD",  doCWD,
  95         "DELE", doDELE,
  96         "HELP", doHELP,
  97         "LIST", doLIST,
  98         "MDTM", doMDTM,
  99         "MKD",  doMKD,
 100         "MODE", doMODE,
 101         "NLST", doNLST,
 102         "NOOP", doNOOP,
 103         "PASS", doPASS,
 104         "PASV", doPASV,
 105         "PORT", doPORT,
 106         "PWD",  doPWD,
 107         "QUIT", doQUIT,
 108         "REIN", doUNIMP,
 109         "REST", doREST,
 110         "RETR", doRETR,
 111         "RMD",  doRMD,
 112         "RNFR", doRNFR,
 113         "RNTO", doRNTO,
 114         "SITE", doSITE,
 115         "SIZE", doSIZE,
 116         "SMNT", doUNIMP,
 117         "STAT", doSTAT,
 118         "STOR", doSTOR,
 119         "STOU", doSTOU,
 120         "STRU", doSTRU,
 121         "SYST", doSYST,
 122         "TYPE", doTYPE,
 123         "USER", doUSER,
 124         "XCUP", doCDUP,
 125         "XCWD", doCWD,
 126         "XMKD", doMKD,
 127         "XPWD", doPWD,
 128         "XRMD", doRMD,
 129         "",     (int (*)())0
 130 };
 131
 132 static void init()
 133 {
 134    loggedin = 0;
 135    gotuser = 0;
 136    anonymous = 0;
 137    newroot[0] = '\0';
 138    type = TYPE_A;
 139    format = 0;
 140    mode = MODE_S;
 141    structure = 0;
 142    ftpdata_fd = -1;
 143    username[0] = '\0';
 144    anonpass[0] = '\0';
 145 }
 146
 147 /* nothing, nada, zilch... */
 148 static int doNOOP(buff)
 149 char *buff;
 150 {
 151    printf("200 NOOP to you too!\r\n");
 152
 153    return(GOOD);
 154 }
 155
 156 /* giv'em help, what a USER! */
 157 static int doHELP(buff)
 158 char *buff;
 159 {
 160 struct commands *cmd;
 161 char star;
 162 int i;
 163 char *space = "    ";
 164
 165    printf("214-Here is a list of available ftp commands\r\n");
 166    printf("    Those with '*' are not yet implemented.\r\n");
 167
 168    i = 0;
 169    for(cmd = commands; *cmd->name != '\0'; cmd++) {
 170         if(cmd->func == doUNIMP)
 171                 star = '*';
 172         else
 173                 star = ' ';
 174         printf("     %s%c%s", cmd->name, star, space + strlen(cmd->name));
 175         if(++i == 6) {
 176                 printf("\r\n");
 177                 i = 0;
 178         }
 179    }
 180
 181    if(i)
 182         printf("\r\n");
 183
 184    printf("214 That's all the help you get.\r\n");
 185
 186    return(GOOD);
 187 }
 188
 189 /* not implemented */
 190 static int doUNIMP(buff)
 191 char *buff;
 192 {
 193    printf("502 Command \"%s\" not implemented!\r\n", line);
 194
 195    return(GOOD);
 196 }
 197
 198 /* convert line for use */
 199 void cvtline(args)
 200 char **args;
 201 {
 202 char *p;
 203
 204    p = line + strlen(line);
 205    while(--p >= line)
 206         if(*p == '\r' || *p == '\n' || isspace(*p))
 207                 *p = '\0';
 208         else
 209                 break;
 210
 211   p = line;
 212
 213 #ifdef DEBUG
 214   logit("COMMAND", line);
 215 #endif
 216
 217   while(*p && !isspace(*p)) {
 218         *p = toupper(*p);
 219         p++;
 220   }
 221
 222   if(*p) {
 223         *p = '\0';
 224         p++;
 225         while(*p && isspace(*p))
 226                 p++;
 227    }
 228
 229    *args = p;
 230
 231    return;
 232 }
 233
 234 static int getline(line, len)
 235 char *line;
 236 int len;
 237 {
 238 int s;
 239 int gotcr;
 240
 241    /* leave room for at end for null */
 242    len--;
 243
 244    /* got to be able to put in at least 1 character */
 245    if(len < 1)
 246         return(-1);
 247
 248    gotcr = 0;
 249    while(len-- > 0) {
 250         s = read(0, line, 1);
 251         if(s != 1)
 252                 return(-1);
 253         if(*line == '\n')
 254                 break;
 255         gotcr = (*line == '\r');
 256         line++;
 257    }
 258    if(gotcr)
 259         --line;
 260
 261    *line = '\0';
 262
 263    return(0);
 264 }
 265
 266 int readline(args)
 267 char **args;
 268 {
 269    if(getline(line, sizeof(line)))
 270         return(BAD);
 271
 272    cvtline(args);
 273
 274    return(GOOD);
 275 }
 276
 277 /* signal handler for inactivity timeout */
 278 void Timeout(sig)
 279 int sig;
 280 {
 281    timeout = 1;
 282
 283    printf("421 Inactivity timer expired.\r\n");
 284 }
 285
 286 /* logit */
 287 void logit(type, parm)
 288 char *type;
 289 char *parm;
 290 {
 291 time_t now;
 292 struct tm *tm;
 293
 294    if(logfile == (FILE *)NULL)
 295         return;
 296
 297    time(&now);
 298    tm = localtime(&now);
 299    fprintf(logfile, "%4d%02d%02d%02d%02d%02d ",
 300         1900+tm->tm_year,
 301         tm->tm_mon + 1,
 302         tm->tm_mday,
 303         tm->tm_hour, tm->tm_min, tm->tm_sec);
 304    fprintf(logfile, "%s %s %s %s %s\n",
 305         rmthostname, username, anonymous ? anonpass : username, type, parm);
 306    fflush(logfile);
 307 }
 308
 309 void showmsg(reply, filename)
 310 char *reply;
 311 char *filename;
 312 {
 313 FILE *mfp;
 314 char *pe;
 315 static char mline[256];
 316
 317    if(filename == (char *)NULL)
 318         mfp = msgfile;
 319    else
 320         mfp = fopen(filename, "r");
 321
 322    if(mfp == (FILE *)NULL)
 323         return;
 324
 325    while(fgets(mline, sizeof(mline), mfp) != (char *)NULL) {
 326         pe = mline + strlen(mline);
 327         while(--pe >= mline)
 328                 if(*pe == '\r' || *pe == '\n')
 329                         *pe = '\0';
 330                 else
 331                         break;
 332         printf("%s- %s\r\n", reply, mline);
 333    }
 334
 335    if(filename != (char *)NULL)
 336         fclose(mfp);
 337 }
 338
 339 int main(argc, argv)
 340 int argc;
 341 char *argv[];
 342 {
 343 struct commands *cmd;
 344 char *args;
 345 int status;
 346 time_t now;
 347 struct tm *tm;
 348 int s;
 349
 350    GetNetInfo();
 351
 352    /* open transfer log file if it exists */
 353    if((logfile = fopen(FTPD_LOG, "r")) != (FILE *)NULL) {
 354         fclose(logfile);
 355         logfile = fopen(FTPD_LOG, "a");
 356    }
 357
 358    /* open login msg file */
 359    msgfile = fopen(FTPD_MSG, "r");
 360
 361    /* Let's initialize some stuff */
 362    init();
 363
 364    /* Log the connection */
 365    logit("CONNECT", "");
 366
 367    /* Tell 'em we are ready */
 368    time(&now);
 369    tm = localtime(&now);
 370    printf("220 FTP service (Ftpd %s) ready on %s at ",
 371         FtpdVersion, myhostname);
 372    printf("%s, %02d %s %d %02d:%02d:%02d %s\r\n", days[tm->tm_wday],
 373         tm->tm_mday, months[tm->tm_mon], 1900+tm->tm_year,
 374         tm->tm_hour, tm->tm_min, tm->tm_sec,
 375         tzname[tm->tm_isdst]);
 376    fflush(stdout);
 377
 378    /* Loop here getting commands */
 379    while(1) {
 380         signal(SIGALRM, Timeout);
 381         alarm(INACTIVITY_TIMEOUT);
 382         if(readline(&args) != GOOD) {
 383                 if(!timeout)
 384                         printf("221 Control connection closing (EOF).\r\n");
 385                 break;
 386         }
 387         alarm(0);
 388         for(cmd = commands; *cmd->name != '\0'; cmd++)
 389                 if(!strcmp(line, cmd->name))
 390                         break;
 391         if(*cmd->name != '\0')
 392                 status = (*cmd->func)(args);
 393         else {
 394                 printf("500 Command \"%s\" not recognized.\r\n", line);
 395                 status = GOOD;
 396         }
 397         fflush(stdout);
 398         if(status != GOOD)
 399                 break;
 400    }
 401
 402    CleanUpPasv();
 403
 404    return(-1);
 405 }