//makefile
TOPDIR = ../
include $(TOPDIR)Rules.mak
EXTRA_LIBS += -lpthread

EXEC = $(INSTALL_DIR)/httpd  ./httpd
OBJS = httpd.o copy.o

HTTPD_DOCUMENT_ROOT = /mnt/yaffs
CFLAGS += -DHTTPD_DOCUMENT_ROOT=\"$(HTTPD_DOCUMENT_ROOT)\"

all: $(EXEC)

$(EXEC): $(OBJS)
    $(CC) $(LDFLAGS) -o $@ $(OBJS) $(EXTRA_LIBS)

install:
    $(EXP_INSTALL) $(EXEC) $(INSTALL_DIR)

clean:
    -rm -f $(EXEC) *.elf *.gdb *.o

/* httpd.c:  A very simple http server
 * Copyfight (C) 2003      Zou jian guo <ah_zou@163.com>
 * Copyright (C) 2000         Lineo, Inc.  (www.lineo.com)
 * Copyright (c) 1997-1999 D. Jeff Dionne <jeff@lineo.ca>
 * Copyright (c) 1998      Kenneth Albanowski <kjahds@kjahds.com>
 * Copyright (c) 1999      Nick Brok <nick@nbrok.iaehv.nl>
 *
 * This program 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
 * (at your option) any later version.
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <errno.h>
#include <sys/stat.h>
#include <dirent.h>
#include <signal.h>
#include <unistd.h>
#include <ctype.h>
#include "pthread.h"

#define DEBUG

;
;

#ifndef O_BINARY
#define O_BINARY 0
#endif

];
int content_length;

#define SERVER_PORT 80

int PrintHeader(FILE *f, int content_type)
{
  alarm(TIMEOUT);
  fprintf(f,"HTTP/1.0 200 OK\n");
  switch (content_type)
  {
   case 't':
    fprintf(f,"Content-type: text/plain\n");
    break;
   case 'g':
    fprintf(f,"Content-type: image/gif\n");
    break;
   case 'j':
    fprintf(f,"Content-type: image/jpeg\n");
    break;
   case 'h':
    fprintf(f,"Content-type: text/html\n");
    break;
  }
  fprintf(f,"Server: uClinux-httpd 0.2.2\n");
  fprintf(f,"Expires: 0\n");
  fprintf(f,"\n");
  alarm();
  );
}

int DoJpeg(FILE *f, char *name)//发送jpeg图像文件内容
{
  char *buf;
  FILE * infile;
  int count;

  if (!(infile = fopen(name, "r"))) {
    alarm(TIMEOUT);
    fprintf(stderr, "Unable to open JPEG file %s, %d\n", name, errno);
    fflush(f);
    alarm();
    ;
  }

  PrintHeader(f,'j');    

  copy(infile,f); /* prints the page */

  alarm(TIMEOUT);
  fclose(infile);
  alarm();

  ;
}

int DoGif(FILE *f, char *name)
{
  char *buf;
  FILE * infile;
  int count;

  if (!(infile = fopen(name, "r"))) {
    alarm(TIMEOUT);
    fprintf(stderr, "Unable to open GIF file %s, %d\n", name, errno);
    fflush(f);
    alarm();
    ;
  }

  PrintHeader(f,'g');

  copy(infile,f); /* prints the page */  

  alarm(TIMEOUT);
  fclose(infile);
  alarm();

  ;
}

int DoDir(FILE *f, char *name)//发送当前目录文件列表信息
{
  char *buf;
  DIR * dir;
  struct dirent * dirent;

  ) {
    fprintf(stderr, "Unable to open directory %s, %d\n", name, errno);
    fflush(f);
    ;
  }

  PrintHeader(f,'h');

  alarm(TIMEOUT);
  fprintf(f, "<H1>Index of %s</H1>\n\n",name);
  alarm();

  ] != '/') {
    strcat(name, "/");
  }

  while(dirent = readdir(dir)) {
    alarm(TIMEOUT);

    fprintf(f, "<p><a href=\"/%s%s\">%s</a></p>\n", name, dirent->d_name, dirent->d_name);
    alarm();
  }

  closedir(dir);
  ;
}

int DoHTML(FILE *f, char *name)//发送html文件内容
{
  char *buf;
  FILE *infile;
  int count;
  ;

  if (!(infile = fopen(name,"r"))) {
    alarm(TIMEOUT);
    fprintf(stderr, "Unable to open HTML file %s, %d\n", name, errno);
    fflush(f);
    alarm();
    ;
  }

  PrintHeader(f,'h');
  copy(infile,f); /* prints the page */  

  alarm(TIMEOUT);
  fclose(infile);
  alarm();

  ;
}

int DoText(FILE *f, char *name)//发送纯文本文件内容
{
  char *buf;
  FILE *infile;
  int count;

  if (!(infile = fopen(name,"r"))) {
    alarm(TIMEOUT);
    fprintf(stderr, "Unable to open text file %s, %d\n", name, errno);
    fflush(f);
    alarm();
    ;
  }

  PrintHeader(f,'t');
  copy(infile,f); /* prints the page */  

  alarm(TIMEOUT);
  fclose(infile);
  alarm();

  ;
}

int ParseReq(FILE *f, char *r)//解析客户请求
{
      char *bp;
      struct stat stbuf;
      char * arg;
      char * c;
      int e;
      int raw;

#ifdef DEBUG
      printf("req is '%s'\n", r);
#endif

      while(*(++r) != ' ');  /*skip non-white space*/
      while(isspace(*r))
          r++;

      while (*r == '/')
          r++;
      bp = r;

      while(*r && (*(r) != ' ') && (*(r) != '?'))
          r++;

#ifdef DEBUG
      printf("bp='%s' %x, r='%s' \n", bp, *bp,r);
#endif

      if (*r == '?')
      {
          char * e;
          *r = ;
          arg = r+;
          if (e = strchr(arg,' '))
        {
              *e = '\0';
          }
      } else
    {
          arg = ;
          *r = ;
    }

      c = bp;

/*zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz*/
      ] == 0x20){
        c[]='.';
        c[]='\0';
    }
/*zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz*/
    ] == '\0') strcat(c,".");

    if (c && !stat(c, &stbuf))
      {
        if (S_ISDIR(stbuf.st_mode))
        {
            char * end = c + strlen(c);
            strcat(c, "/index.html");
            if (!stat(c, &stbuf))
            {
                DoHTML(f, c);
            }
            else
            {
                  *end = '\0';
                DoDir(f,c);
            }
        }
        , ".gif"))
              DoGif(f,c);
        , , ".jpeg"))
              DoJpeg(f,c);
        , , ".html"))
            DoHTML(f,c);
             else
                  DoText(f,c);
    }
    else{
          PrintHeader(f,'h');//发送http协议数据头
          alarm(TIMEOUT);
          fprintf(f, "<html><head><title>404 File Not Found</title></head>\n");
        fprintf(f, "<body>The requested URL was not found on this server</body></html>\n");
          alarm();
    }
      ;
}

void sigalrm(int signo)
{
    /* got an alarm, exit & recycle */
    exit();
}

int HandleConnect(int fd)
{
  FILE *f;

  ];
  ];

  f = fdopen(fd,"a+");
  if (!f) {
    fprintf(stderr, "httpd: Unable to open httpd input fd, error %d\n", errno);
    alarm(TIMEOUT);
    close(fd);
    alarm();
    ;
  }
  setbuf(f, );

  alarm(TIMEOUT);

  , f)) {
    fprintf(stderr, "httpd: Error reading connection, error %d\n", errno);
    fclose(f);
    alarm();
    ;
  }
#ifdef DEBUG
      printf("buf = '%s'\n", buf);
#endif

      alarm();

      referrer[] = '\0';
      content_length = -;

     alarm(TIMEOUT);
    //read other line to parse Rrferrer and content_length infomation
    , f) && (strlen(buf1) > )) {
          alarm(TIMEOUT);
        #ifdef DEBUG
            printf("Got buf1 '%s'\n", buf1);
        #endif
        )) {
              ;
              while (isspace(*c))
                c++;
            strcpy(referrer, c);
        }
        )) {
              ;
              while (isspace(*c))
                c++;
              strcpy(referrer, c);
        }
        )) {
              content_length = atoi(buf1+);
        }
      }
      alarm();

      if (ferror(f)) {
        fprintf(stderr, "http: Error continuing reading connection, error %d\n", errno);
        fclose(f);
        ;
      }    

      ParseReq(f, buf);

      alarm(TIMEOUT);
      fflush(f);
      fclose(f);
      alarm();
      ;
}

void* key(void* data)
{
    int c;
    for(;;){
        c=getchar();
        if(c == 'q' || c == 'Q'){
            KEY_QUIT=;
            exit();
            break;
        }
    }

}

int main(int argc, char *argv[])
{
  int fd, s;
  int len;
  ;
  struct sockaddr_in ec;
  struct sockaddr_in server_sockaddr;

  pthread_t th_key;
  void * retval;

  signal(SIGCHLD, SIG_IGN);
  signal(SIGPIPE, SIG_IGN);
  signal(SIGALRM, sigalrm);

  chroot(HTTPD_DOCUMENT_ROOT);
  printf("starting httpd...\n");
  printf("press q to quit.\n");
//  chdir("/");

   && !strcmp(argv[], "-i")) {
    /* I'm running from inetd, handle the request on stdin */
    fclose(stderr);
    HandleConnect();
    exit();
  }

  ) {
    perror("Unable to obtain network");
    exit();
  }

  if((setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (void *)&true,
         ) {
    perror("setsockopt failed");
    exit();
  }

  server_sockaddr.sin_family = AF_INET;
  server_sockaddr.sin_port = htons(SERVER_PORT);
  server_sockaddr.sin_addr.s_addr = htonl(INADDR_ANY);

  if(bind(s, (struct sockaddr *)&server_sockaddr,
      )  {
    perror("Unable to bind socket");
    exit();
  }

  *) == -) { /* Arbitrary, 8 files/page, 3 clients */
    perror("Unable to listen");
    exit();
  }

       pthread_create(&th_key, NULL, key, );
  /* Wait until producer and consumer finish. */
  printf("wait for connection.\n");
  ) {

    len = sizeof(ec);
    ) {
      exit();
      close(s);
    }
    HandleConnect(fd);

  }
  pthread_join(th_key, &retval);
}