/* Copyright (C) 2019 MariaDB Corporation

   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; version 2 of
   the License.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA. */

#include <iostream>
#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>
#include "IOCoordinator.h"
#include "SMFileFactory.h"
#include "SMDataFile.h"
#include "messageFormat.h"
#include "boost/scoped_ptr.hpp"

using namespace std;
using namespace storagemanager;

void usage(const char *progname)
{
    cerr << progname << " reads from stdin and puts it in a file managed by StorageManager" << endl;
    cerr << "Usage: " << progname << " output_file" << endl;
}

bool SMOnline()
{
    struct sockaddr_un addr;
    memset(&addr, 0, sizeof(addr));
    addr.sun_family = AF_UNIX;
    strcpy(&addr.sun_path[1], &socket_name[1]);   // first char is null...
    int clientSocket = ::socket(AF_UNIX, SOCK_STREAM, 0);
    int err = ::connect(clientSocket, (const struct sockaddr *) &addr, sizeof(addr));
    if (err >= 0)
    {
        ::close(clientSocket);
        return true;
    }
    return false;
}

void putOffline(const char *fname, int prefixlen)
{
    uint8_t data[8192];
    int read_err, write_err;
    ssize_t count, offset = 0;
    
    boost::scoped_ptr<IOCoordinator> ioc(IOCoordinator::get());
    struct stat _stat;
    read_err = ioc->open(fname, O_CREAT | O_TRUNC | O_WRONLY, &_stat);
    if (read_err < 0)
    {
        int l_errno = errno;
        cerr << "Failed to open/create " << &fname[prefixlen] << ": " << 
            strerror_r(l_errno, (char *) data, 8192) << endl;
        exit(1);
    }
    
    do
    {
        read_err = ::read(STDIN_FILENO, data, 8192);
        if (read_err < 0)
        {
            int l_errno = errno;
            cerr << "Error reading stdin: " << strerror_r(l_errno, (char *) data, 8192) << endl;
            exit(1);
        }
        count = 0;
        while (count < read_err)
        {
            write_err = ioc->write(fname, &data[count], offset + count, read_err - count);
            if (write_err < 0)
            {
                int l_errno = errno;
                cerr << "Error writing to " << &fname[prefixlen] << ": " << 
                    strerror_r(l_errno, (char *) data, 8192) << endl;
                exit(1);
            }
            count += write_err;
        }
        offset += read_err;
    } while (read_err > 0);
}

void putOnline(const char *fname, int prefixlen)
{
    uint8_t data[8192];
    int read_err, write_err;
    ssize_t count;
    
    idbdatafile::SMFileFactory ffactory;
    boost::scoped_ptr<idbdatafile::SMDataFile> df(
        dynamic_cast<idbdatafile::SMDataFile *>(ffactory.open(fname, "w", 0, 0)));

    if (!df)
    {
        int l_errno = errno;
        cerr << "Failed to open/create " << &fname[prefixlen] << ": " << 
            strerror_r(l_errno, (char *) data, 8192) << endl;
        exit(1);
    }
    
    do
    {
        read_err = ::read(STDIN_FILENO, data, 8192);
        if (read_err < 0)
        {
            int l_errno = errno;
            cerr << "Error reading stdin: " << strerror_r(l_errno, (char *) data, 8192) << endl;
            exit(1);
        }
        count = 0;
        while (count < read_err)
        {
            write_err = df->write(&data[count], read_err - count);
            if (write_err < 0)
            {
                int l_errno = errno;
                cerr << "Error writing to " << &fname[prefixlen] << ": " << 
                    strerror_r(l_errno, (char *) data, 8192) << endl;
                exit(1);
            }
            count += write_err;
        }
    } while (read_err > 0);
}

int makePathPrefix(char *target, int targetlen)
{
    // MCOL-3438 -> add bogus directories to the front of each param
    Config *config = Config::get();
    int prefixDepth = stoi(config->getValue("ObjectStorage", "common_prefix_depth"));
    target[0] = '/';
    target[1] = 0;
    int bufpos = 1;
    
    for (int i = 0; i < prefixDepth; i++)
    {
        if (bufpos + 3 >= targetlen)
        {
            cerr << "invalid prefix depth in ObjectStorage/common_prefix_depth";
            exit(1);
        }
        memcpy(&target[bufpos], "x/\0", 3);
        bufpos += 2;
    }
    return bufpos;
}

int main(int argc, char **argv)
{
    if (argc != 2)
    {
        usage(argv[0]);
        return 1;
    }
    
    char prefix[8192];
    int prefixlen = makePathPrefix(prefix, 8192);
    
    if (SMOnline())
        putOnline(strncat(prefix, argv[1], 8192 - prefixlen), prefixlen);
    else
        putOffline(strncat(prefix, argv[1], 8192 - prefixlen), prefixlen);
    return 0;
}
    
    
