/*
    Copyright (C) 2011  ABRT Team
    Copyright (C) 2011  RedHat inc.

    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.

    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 "internal_libreport.h"

struct dump_dir *steal_directory(const char *base_dir, const char *dump_dir_name)
{
    const char *base_name = strrchr(dump_dir_name, '/');
    if (base_name)
    {
        if (base_name[1] == '\0')
        {
            /* Drats. It has trailing slash(es) */
            /* Skip all trailing slashes */
            while (base_name > dump_dir_name && *--base_name == '/')
                continue;
            /* Find previous one */
            for (;;)
            {
                if (*base_name == '/')
                    break;
                base_name--;
                if (base_name < dump_dir_name)
                    /* It has ONLY trailing slash(es) */
                    break;
            }
        }
        base_name++;
    }
    else
        base_name = dump_dir_name;

    struct dump_dir *dd_dst;
    unsigned count = 100;
    char *dst_dir_name = concat_path_file(base_dir, base_name);
    while (1)
    {
        dd_dst = dd_create(dst_dir_name, (uid_t)-1, DEFAULT_DUMP_DIR_MODE);
        free(dst_dir_name);
        if (dd_dst)
            break;
        if (--count == 0)
        {
            error_msg("Can't create new dump dir in '%s'", base_dir);
            return NULL;
        }
        struct timeval tv;
        gettimeofday(&tv, NULL);
        dst_dir_name = xasprintf("%s/%s.%u", base_dir, base_name, (int)tv.tv_usec);
    }

    log_notice("Creating copy in '%s'", dd_dst->dd_dirname);
    if (copy_file_recursive(dump_dir_name, dd_dst->dd_dirname) < 0)
    {
        /* error. copy_file_recursive already emitted error message */
        /* Don't leave half-copied dir lying around */
        dd_delete(dd_dst);
        return NULL;
    }

    return dd_dst;
}

struct dump_dir *open_directory_for_writing(
                            const char *dump_dir_name,
                            bool (*ask)(const char *, const char *))
{
    struct dump_dir *dd = dd_opendir(dump_dir_name, DD_OPEN_READONLY);

    if (!dd)
        xfunc_die(); /* error msg was already logged */

    if (dd->locked)
        return dd;

    log_warning("'%s' is not writable", dump_dir_name);
    dd_close(dd);

    char *spooldir = concat_path_file(g_get_user_cache_dir(), "abrt/spool");

    if (ask && !ask(spooldir, dump_dir_name))
        return NULL;

    dd = steal_directory(spooldir, dump_dir_name);
    free(spooldir);

    if (!dd)
        return NULL;

    bool dd_was_cwd = false;
    {
        char old_cwd[PATH_MAX + 1];
        /* must get CWD before deleting */
        if (getcwd(old_cwd, sizeof(old_cwd)))
            dd_was_cwd = strcmp(old_cwd, dump_dir_name) == 0;
        else
            perror_msg("getcwd()");
    }

    /* Delete old dir and switch to new one.
     * Don't want to keep new dd open across deletion,
     * therefore it's a bit more complicated.
     */
    delete_dump_dir_possibly_using_abrtd(dump_dir_name);
    char *new_name = xstrdup(dd->dd_dirname);
    dd_close(dd);
    dd = dd_opendir(new_name, 0);
    free(new_name);

    if (!dd)
        xfunc_die(); /* error msg was already logged */

    /* Update CWD to the new dump dir path if CWD is the stolen dump dir */
    /* Nonexisting CWD breaks lot of things (i.e. gnome-open can't open URL)*/
    if (dd_was_cwd && chdir(dd->dd_dirname))
        perror_msg("chdir()");

    return dd;
}