#include <sys/socket.h>
#include<string.h>
#include<stdlib.h>
#include<stdio.h>

void sendHttpHeader(int socket, char response[]);
int daytime(char buf[]);
char*substring(char *string, int position, int length);
int  contains(char str1[], char str2[]){
  char* ptr;
  ptr=strstr(str1, str2);
  if(ptr==NULL){
    return 0;
  }
  return 1;
}

 void HttpRequestThread(void * charSocket){
   printf("Thread Created\n");
   int socket = (int)charSocket;
   // Set up the reading from the socket, and then write a success to the socket.
   char buffer[256]; // Buffer is where the read is stored.

   int status=read(socket, buffer, 255); 
   if(status<0) error("There was an error reading the input");
 
   // Process the HTTP Request the user sent to the server.
   printf("The user sent the message: %s \n", buffer);
   if(contains(buffer, "HTTP/1.1")==0 && contains(buffer, "HTTP/1.0")==0){
     printf("The message received was not an HTTP message %s", " ");
     close(socket);
     return;
   }

    if(contains(buffer,"GET")==1){
      // Gets the filename from the sent request.
      char *fileName=(char*) malloc(sizeof(buffer)-13);
      strncpy(fileName, buffer+13, sizeof(buffer)-13);
      fileName=substring(fileName, 0, strlen(fileName)-2);
      FILE * fp;
      char script[999];
      char directory[256];
      char response[9999];
      getcwd(directory, sizeof(directory));
      strcat(script,"cat ");
      strcat(script, directory);
      strcat(script, "/");
      strcat(script,fileName);
      printf("The script will run: %s. \n", script);
      // The script is now generated, just run it.
      
      fp=popen(script, "r");
      char line[999];
      while(fgets(line, sizeof(line)-1, fp)!=NULL){
        strcat(response,line);
      }
      if(strlen(response)==0) strcat(response,"404 error: File not found");
      printf("The response was: %s \n", response);
      sendHttpHeader(socket, response);

    } else if(contains(buffer,"PUT")==1){
      // PUT request in the following Format
      // PUT HTTP/1.1 [filename] <filedata>data</filedata>

      // Gets the filename from the sent request.
      char *temp = strstr(buffer, "<filedata>");
      int filenameOffset = temp - buffer;

      //File name is set
      char *fileName=(char*) malloc(filenameOffset-1);
      strncpy(fileName, buffer+13, filenameOffset - 14 );

      printf("The file name is: %s\n", fileName);

      //Get the file Data
      char *fileData =(char*) malloc( sizeof(buffer)- filenameOffset);
      strncpy(fileData, buffer + filenameOffset, sizeof(buffer) - filenameOffset\
	      - 1);
      printf("The file data is: %s\n", fileData);

      FILE * fileOutput;
      fileOutput = fopen (fileName, "w");
      if (fileOutput != NULL){
        fputs (fileData, fileOutput );
        fclose (fileOutput);
      }
      else {
        printf("Error Writing file\n");
      }
      status=write(socket, "PUT request processed \n", 22);
    } else if(contains(buffer,"DELETE")==1){

      // Gets the filename from the sent request.
      char *fileName=(char*) malloc(sizeof(buffer)-16);
      strncpy(fileName, buffer+16, sizeof(buffer)-16);
      fileName=substring(fileName, 0, strlen(fileName)-2);
      FILE * fp;
      char script[999];
      char directory[256];
      char response[9999];
      getcwd(directory, sizeof(directory));
      strcat(script,"rm ");
      strcat(script, directory);
      strcat(script, "/");
      strcat(script,fileName);
      printf("The script will run: %s. \n", script);
      // The script is now generated, just run it.

      fp=popen(script, "r");
      char line[999];
      while(fgets(line, sizeof(line)-1, fp)!=NULL){
	strcat(response,line);
      }
      status=write(socket, response, strlen(response));
    } else if(contains(buffer,"HEAD")==1){
      sendHttpHeader(socket, "");
    }
    
    close(socket);
  }

char *substring(char *string, int position, int length) 
{
  char *pointer;
  int c;
  pointer = malloc(length+1);
  for (c = 0; c<position-1; c++) 
    string++; 
 
  for (c = 0; c<length; c++)
    {
      *(pointer+c) = *string;      
      string++;   
    }
  *(pointer+c) = '\0';
  return pointer;
}

// Is given the response to give, and the socket to send on.
// Creates a header and concatonates response, then sends the header+response.
// Should really be renamed sendWithHeader since it now also sends response.
void sendHttpHeader(int socket, char response[]){
  char headerResponse[9999];
  char date[256];
  daytime(date);
  strcat(headerResponse, "Content-Type: text/html; ");
  strcat(headerResponse, "charset=UTF-8 \n");
  strcat(headerResponse, "Server: Jeff And Charles CS436 Project \n");
  strcat(headerResponse, "Date: ");
  strcat(headerResponse, date);
  strcat(headerResponse, "Content-Length: ");
  int length=strlen(response)+strlen(headerResponse)+3;
  char cLength[256];
  sprintf(cLength, "%i",length);
  strcat(headerResponse, cLength);
  strcat(headerResponse, "\n");
  strcat(headerResponse, response);
  strcat(headerResponse, "\n");
  write(socket, headerResponse, strlen(headerResponse));
}

int daytime(char buf[])
    {
      char    *ctime();
      time_t  now;

      (void) time(&now);
      sprintf(buf, "%s", ctime(&now));
}