// The contents of this file are subject to the Mozilla Public License
// Version 1.0 (the "License"); you may not use this file except in
// compliance with the License. You may obtain a copy of the License at
// http://www.mozilla.org/MPL/ 
// 
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
// License for the specific language governing rights and limitations
// under the License. 
// 
// The Original Code is the Berkeley Open Infrastructure for Network Computing. 
// 
// The Initial Developer of the Original Code is the SETI@home project.
// Portions created by the SETI@home project are Copyright (C) 2002
// University of California at Berkeley. All Rights Reserved. 
// 
// Contributor(s):
//

#include "windows_cpp.h"

#include <string.h>
#include <sys/stat.h>

#ifdef _WIN32
#include "winsock.h"
#else
#include <unistd.h>
#endif

#include "error_numbers.h"
#include "filesys.h"
#include "log_flags.h"
#include "http.h"

#define HTTP_BLOCKSIZE  4096

void parse_url(char* url, char* host, char* file) {
    char* p;
    char buf[256];

    if (strncmp(url, "http://", 7) == 0) strcpy(buf, url+7);
    else strcpy(buf, url);
    p = strchr(buf, '/');
    if (p) {
        strcpy(file, p+1);
        *p = 0;
    } else {
        strcpy(file, "");
    }
    strcpy(host, buf);
}

// Note: HTTP 1.1 keeps connection open.
// We use 1.0 so we don't have to count bytes.
//

void http_get_request_header(char* buf, char* host, char* file, int offset) {
    if (offset) {
        sprintf(buf,
            "GET /%s;byte-range %d- HTTP/1.0\015\012"
            "User-Agent: BOINC client\015\012"
            "Host: %s:80\015\012"
            "Accept: */*\015\012"
            "\015\012",
            file, offset,
            host
        );
    } else {
        sprintf(buf,
            "GET /%s HTTP/1.0\015\012"
            "User-Agent: BOINC client\015\012"
            "Host: %s:80\015\012"
            "Accept: */*\015\012"
            "\015\012",
            file,
            host
        );
    }
}

void http_head_request_header(char* buf, char* host, char* file) {
    sprintf(buf,
        "HEAD /%s HTTP/1.0\015\012"
        "User-Agent: BOINC client\015\012"
        "Host: %s:80\015\012"
        "Accept: */*\015\012"
        "\015\012",
        file, host
    );
}

void http_post_request_header(char* buf, char* host, char* file, int size) {
    sprintf(buf,
        "POST /%s HTTP/1.0\015\012"
        "Pragma: no-cache\015\012"
        "Cache-Control: no-cache\015\012"
        "Host: %s:80\015\012"
        "Content-Type: application/octet-stream\015\012"
        "Content-Length: %d\015\012"
        "\015\012",
        file, host, size
    );
}

void http_put_request_header(
    char* buf, char* host, char* file, int size, int offset
) {
    if (offset) {
        sprintf(buf,
            "PUT /%s;byte-range %d- HTTP/1.0\015\012"
            "Pragma: no-cache\015\012"
            "Cache-Control: no-cache\015\012"
            "Host: %s:80\015\012"
            "Content-Type: application/octet-stream\015\012"
            "Content-Length: %d\015\012"
            "\015\012",
            file, offset,
            host, size
        );
    } else {
        sprintf(buf,
            "PUT /%s HTTP/1.0\015\012"
            "Pragma: no-cache\015\012"
            "Cache-Control: no-cache\015\012"
            "Host: %s:80\015\012"
            "Content-Type: application/octet-stream\015\012"
            "Content-Length: %d\015\012"
            "\015\012",
            file,
            host, size
        );
    }
}

int read_http_reply_header(int socket, HTTP_REPLY_HEADER& header) {
    int i;
    char buf[1024], *p;

    memset(buf, 0, sizeof(buf));
    header.content_length = 0;
    header.status = 404;        // default to failure
    for (i=0; i<1024; i++) {
#ifdef _WIN32
        recv(socket, buf+i, 1, 0);
#else
        read(socket, buf+i, 1);
#endif
        if (strstr(buf, "\r\n\r\n") || strstr(buf, "\n\n")) {
            if (log_flags.http_debug) printf("reply header:\n%s", buf);
            p = strchr(buf, ' ');
            if (p) {
                header.status = atoi(p+1);
            }
            p = strstr(buf, "Content-Length: ");
            if (p) {
                header.content_length = atoi(p+strlen("Content-Length: "));
            }
            return 0;
        }
    }
    return 1;
}

HTTP_OP::HTTP_OP() {
    http_op_state = HTTP_STATE_IDLE;
}

HTTP_OP::~HTTP_OP() {
}

int HTTP_OP::init_head(char* url) {
    parse_url(url, hostname, filename);
    NET_XFER::init(hostname, 80, HTTP_BLOCKSIZE);
    http_op_type = HTTP_OP_HEAD;
    http_op_state = HTTP_STATE_CONNECTING;
    return 0;
}

int HTTP_OP::init_get(char* url, char* out, int off) {
    offset = off;
    parse_url(url, hostname, filename);
    NET_XFER::init(hostname, 80, HTTP_BLOCKSIZE);
    strcpy(outfile, out);
    http_op_type = HTTP_OP_GET;
    http_op_state = HTTP_STATE_CONNECTING;
    return 0;
}

int HTTP_OP::init_post(char* url, char* in, char* out) {
    int retval;

    parse_url(url, hostname, filename);
    NET_XFER::init(hostname, 80, HTTP_BLOCKSIZE);
    strcpy(infile, in);
    strcpy(outfile, out);
    retval = file_size(infile, content_length);
    if (retval) return retval;
    http_op_type = HTTP_OP_POST;
    http_op_state = HTTP_STATE_CONNECTING;
    return 0;
}

int HTTP_OP::init_put(char* url, char* in, int off) {
    int retval;

    offset = off;
    parse_url(url, hostname, filename);
    NET_XFER::init(hostname, 80, HTTP_BLOCKSIZE);
    strcpy(infile, in);
    retval = file_size(infile, content_length);
    if (retval) return retval;
    http_op_type = HTTP_OP_PUT;
    http_op_state = HTTP_STATE_CONNECTING;
    return 0;
}

bool HTTP_OP::http_op_done() {
    return (http_op_state == HTTP_STATE_DONE);
}

HTTP_OP_SET::HTTP_OP_SET(NET_XFER_SET* p) {
    net_xfers = p;
}

int HTTP_OP_SET::insert(HTTP_OP* ho) {
    int retval;
    retval = net_xfers->insert(ho);
    if (retval) return retval;
    http_ops.push_back(ho);
    return 0;
}

bool HTTP_OP_SET::poll() {
    unsigned int i;
    char hdr[256];
    HTTP_OP* htp;
    int n;
    bool action = false;

    for (i=0; i<http_ops.size(); i++) {
        htp = http_ops[i];
        switch(htp->http_op_state) {
        case HTTP_STATE_CONNECTING:
            if (htp->is_connected) {
                htp->http_op_state = HTTP_STATE_REQUEST_HEADER;
                htp->want_upload = true;
                action = true;
            }
            break;
        case HTTP_STATE_REQUEST_HEADER:
            if (htp->io_ready) {
                action = true;
                switch(htp->http_op_type) {
                case HTTP_OP_POST:
                    http_post_request_header(
                        hdr, htp->hostname, htp->filename, htp->content_length
                    );
                    break;
                case HTTP_OP_GET:
                    http_get_request_header(hdr, htp->hostname, htp->filename, htp->offset);
                    break;
                case HTTP_OP_HEAD:
                    http_head_request_header(hdr, htp->hostname, htp->filename);
                    break;
                case HTTP_OP_PUT:
                    http_put_request_header(
                        hdr, htp->hostname, htp->filename, htp->content_length, htp->offset
                    );
                    break;
                }
#ifdef _WIN32
                n = send(htp->socket, hdr, strlen(hdr), 0);
#else
                n = write(htp->socket, hdr, strlen(hdr));
#endif
                if (log_flags.http_debug) {
                    printf("wrote HTTP header: %d bytes\n", n);
                }
                htp->io_ready = false;
                switch(htp->http_op_type) {
                case HTTP_OP_POST:
                case HTTP_OP_PUT:
                    htp->http_op_state = HTTP_STATE_REQUEST_BODY;
                    htp->file = fopen(htp->infile, "r");
                    if (!htp->file) {
                        fprintf(stderr, "HTTP_OP: no input file %s\n", htp->infile);
                        htp->io_done = true;
                        htp->http_op_retval = ERR_FOPEN;
                        htp->http_op_state = HTTP_STATE_DONE;
                        break;
                    }
                    htp->do_file_io = true;
                    break;
                case HTTP_OP_GET:
                case HTTP_OP_HEAD:
                    htp->http_op_state = HTTP_STATE_REPLY_HEADER;
                    htp->want_upload = false;
                    htp->want_download = true;
                    break;
                }
            }
            break;
        case HTTP_STATE_REQUEST_BODY:
            if (htp->io_done) {
                action = true;
                if (log_flags.http_debug) {
                    printf("finished sending request body\n");
                }
                htp->http_op_state = HTTP_STATE_REPLY_HEADER;
                fclose(htp->file);
                htp->file = 0;
                htp->do_file_io = false;
                htp->want_upload = false;
                htp->want_download = true;
            }
        case HTTP_STATE_REPLY_HEADER:
            if (htp->io_ready) {
                action = true;
                if (log_flags.http_debug) printf("got reply header\n");
                read_http_reply_header(htp->socket, htp->hrh);
                if (htp->hrh.status/100 != 2) {
                    htp->http_op_state = HTTP_STATE_DONE;
                    htp->http_op_retval = htp->hrh.status;
                    break;
                }
                switch (htp->http_op_type) {
                case HTTP_OP_HEAD:
                    htp->http_op_state = HTTP_STATE_DONE;
                    htp->http_op_retval = 0;
                    break;
                case HTTP_OP_GET:
                case HTTP_OP_POST:
                    htp->http_op_state = HTTP_STATE_REPLY_BODY;

                    // KLUDGE - should check for file first
                    unlink(htp->outfile);

                    htp->file = fopen(htp->outfile, "w");
                    if (!htp->file) {
                        fprintf(stderr,
                            "HTTP_OP: can't open output file %s\n",
                            htp->outfile
                        );
                        htp->io_done = true;
                        htp->http_op_state = HTTP_STATE_DONE;
                        htp->http_op_retval = ERR_FOPEN;
                        break;
                    }
                    htp->do_file_io = true;
                    break;
                case HTTP_OP_PUT:
                    htp->http_op_state = HTTP_STATE_DONE;
                    htp->http_op_retval = 0;
                }
            }
            break;
        case HTTP_STATE_REPLY_BODY:
            if (htp->io_done) {
                action = true;
                if (log_flags.http_debug) printf("got reply body\n");
                fclose(htp->file);
                htp->file = 0;
                htp->http_op_state = HTTP_STATE_DONE;
                htp->http_op_retval = 0;
                break;
            }
        }
    }
    return action;
}

int HTTP_OP_SET::remove(HTTP_OP* p) {
    vector<HTTP_OP*>::iterator iter;

    net_xfers->remove(p);

    iter = http_ops.begin();
    while (iter != http_ops.end()) {
    	if (*iter == p) {
	    http_ops.erase(iter);
	    return 0;
	}
	iter++;
    }
    fprintf(stderr, "HTTP_OP_SET::remove(): not found\n");
    return 1;
}

int HTTP_OP_SET::size() {
    return http_ops.size();
}