// Copyright 2010 Dean Michael Berris.
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)

#include <boost/network/include/http/server.hpp>
#include <boost/thread.hpp>
#include <boost/lexical_cast.hpp>
#include <boost/filesystem.hpp>
#include <sys/mman.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/fcntl.h>
#include <unistd.h>
#include <iostream>

namespace http = boost::network::http;
namespace utils = boost::network::utils;

struct file_server;
struct dir_browser;
typedef http::async_server<file_server> server;

struct file_cache
{
    typedef std::map<std::string, std::pair<void *, std::size_t> > region_map;
    typedef std::map<std::string, std::vector<server::response_header> > meta_map;

    std::string doc_root_;
    region_map regions;
    meta_map file_headers;
    boost::shared_mutex cache_mutex;

    explicit file_cache(std::string const &doc_root) : doc_root_(doc_root) {}

    ~file_cache() throw() {
        BOOST_FOREACH(region_map::value_type const & region, regions) {
            munmap(region.second.first, region.second.second);
        }
    }

    bool has(std::string const &path)
    {
        boost::shared_lock<boost::shared_mutex> lock(cache_mutex);
        return regions.find(doc_root_ + path) != regions.end();
    }

    bool add(std::string const &path)
    {
        boost::upgrade_lock<boost::shared_mutex> lock(cache_mutex);

        std::string real_filename = doc_root_ + path;

        if (regions.find(real_filename) != regions.end()) return true;

        #ifdef O_NOATIME
        int fd = open(real_filename.c_str(), O_RDONLY | O_NOATIME | O_NONBLOCK);
        #else
        int fd = open(real_filename.c_str(), O_RDONLY | O_NONBLOCK);
        #endif

        if (fd == -1) return false;

        std::size_t size = lseek(fd, 0, SEEK_END);
        void *region = mmap(0, size, PROT_READ, MAP_PRIVATE, fd, 0);
        if (region == MAP_FAILED) {
            close(fd);
            return false;
        }

        boost::upgrade_to_unique_lock<boost::shared_mutex> unique_lock(lock);

        regions.insert(std::make_pair(real_filename, std::make_pair(region, size)));

        static server::response_header common_headers[] = {
            {"Connection", "close"},
            {"Content-Type", "x-application/octet-stream"},
            {"Content-Length", "0"}
        };

        std::vector<server::response_header> headers(common_headers, common_headers + 3);
        headers[2].value = boost::lexical_cast<std::string>(size);

        file_headers.insert(std::make_pair(real_filename, headers));
        return true;
    }

    std::pair<void *, std::size_t> get(std::string const &path)
    {
        boost::shared_lock<boost::shared_mutex> lock(cache_mutex);
        region_map::const_iterator region = regions.find(doc_root_ + path);
        if (region != regions.end())
            return region->second;
        else
            return std::pair<void *, std::size_t>(0, 0);
    }

    boost::iterator_range<std::vector<server::response_header>::iterator> meta(std::string const &path)
    {
        boost::shared_lock<boost::shared_mutex> lock(cache_mutex);

        static std::vector<server::response_header> empty_vector;

        meta_map::iterator headers = file_headers.find(doc_root_ + path);

        if (headers != file_headers.end()) {
            std::vector<server::response_header>::iterator begin = headers->second.begin();
            std::vector<server::response_header>::iterator end = headers->second.end();

            return boost::make_iterator_range(begin, end);
        } else
            return boost::make_iterator_range(empty_vector);
        }
};


struct dir_browser
{
    std::string root_;

    explicit dir_browser (const std::string& doc_root) : doc_root_(doc_root) {}

    bool is_directory(const std::string& path_) const {
        boost::filesystem::path path(path_);

        return is_directory(path_);
    }

    boost::iterator_range<std::vector<server::response_header>::iterator> meta(std::string const &path)
    {

        static std::vector<server::response_header> empty_vector;

        /*meta_map::iterator headers = file_headers.find(doc_root_ + path);

        if (headers != file_headers.end()) {
            std::vector<server::response_header>::iterator begin = headers->second.begin();
            std::vector<server::response_header>::iterator end = headers->second.end();

            return boost::make_iterator_range(begin, end);
        } else*/

        return boost::make_iterator_range(empty_vector);
    }

    std::string doc_root_;
};


struct connection_handler : boost::enable_shared_from_this<connection_handler>
{
    explicit connection_handler(file_cache &cache, dir_browser& browser) : file_cache_(cache), dir_browser_(browser) {}

    void operator()(std::string const &path, server::connection_ptr connection, bool serve_body)
    {
        bool ok = file_cache_.has(path);
        if (!ok) ok = file_cache_.add(path);
        if (ok) {
            send_headers(file_cache_.meta(path), connection);
            if (serve_body) send_file(file_cache_.get(path), 0, connection);
        } else {
            not_found(path, connection);
        }
    }

    void not_found(std::string const &path, server::connection_ptr connection)
    {
        static server::response_header headers[] = {{"Connection", "close"},
                                                    {"Content-Type", "text/plain"}};
        connection->set_status(server::connection::not_found);
        connection->set_headers(boost::make_iterator_range(headers, headers + 2));
        connection->write("File Not Found!");
    }

    template <class Range>
    void send_headers(Range const &headers, server::connection_ptr connection)
    {
        connection->set_status(server::connection::ok);
        connection->set_headers(headers);
    }

    void send_file(std::pair<void *, std::size_t> mmaped_region, off_t offset, server::connection_ptr connection)
    {
        // chunk it up page by page
        std::size_t adjusted_offset = offset + 4096;
        off_t rightmost_bound = std::min(mmaped_region.second, adjusted_offset);
        connection->write(  boost::asio::const_buffers_1(static_cast<char const *>(mmaped_region.first) + offset,
                                                         rightmost_bound),
                            boost::bind(&connection_handler::handle_chunk,
                                        connection_handler::shared_from_this(),
                                        mmaped_region,
                                        rightmost_bound,
                                        connection,
                                        _1)
                         ); // write
    }

    void handle_chunk(std::pair<void *, std::size_t> mmaped_region, off_t offset, server::connection_ptr connection, boost::system::error_code const &ec)
    {
        if (!ec && offset < mmaped_region.second)
            send_file(mmaped_region, offset, connection);
    }

    file_cache &file_cache_;
    dir_browser& dir_browser_;
};

struct file_server
{
    explicit file_server(file_cache &cache, dir_browser& browser) : cache_(cache), browser_(browser) {}

    void operator()(server::request const &request,
                    server::connection_ptr connection)
    {
        if (request.method == "HEAD") {
            boost::shared_ptr<connection_handler> h(new connection_handler(cache_, browser_));
            (*h)(request.destination, connection, false);
        } else if (request.method == "GET") {
            boost::shared_ptr<connection_handler> h(new connection_handler(cache_, browser_));
            (*h)(request.destination, connection, true);
        } else {
            static server::response_header error_headers[] = {{"Connection", "close"}};
            connection->set_status(server::connection::not_supported);
            connection->set_headers(boost::make_iterator_range(error_headers, error_headers + 1));
            connection->write("Method not supported.");
        }
    }

    file_cache &cache_;
    dir_browser& browser_;
};

int main(int argc, char *argv[]) {
    file_cache cache(".");
    dir_browser browser(".");

    file_server handler(cache, browser);


    server::options options(handler);
    server instance(options.thread_pool(boost::make_shared<utils::thread_pool>(4))
                    .address("0.0.0.0")
                    .port("8000")
                    .reuse_address(true));
    instance.run();
    return 0;
}