/*
 * Remmina - The GTK+ Remote Desktop Client
 * Copyright (C) 2010 Vic Lee 
 *
 * 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., 59 Temple Place, Suite 330, 
 * Boston, MA 02111-1307, USA.
 */

#include "config.h"

#ifdef HAVE_LIBSSH

#include <gtk/gtk.h>
#include <glib/gi18n.h>
#include "remminapublic.h"
#include "remminasftpclient.h"
#include "remminapluginmanager.h"
#include "remminassh.h"
#include "remminaprotocolwidget.h"
#include "remminasftpplugin.h"

#define REMMINA_PLUGIN_SFTP_FEATURE_PREF_SHOW_HIDDEN 1

typedef struct _RemminaPluginSftpData
{
    GtkWidget *client;
    pthread_t thread;
    RemminaSFTP *sftp;
} RemminaPluginSftpData;

static RemminaPluginService *remmina_plugin_service = NULL;

static gpointer
remmina_plugin_sftp_main_thread (gpointer data)
{
    RemminaProtocolWidget *gp = (RemminaProtocolWidget*) data;
    RemminaPluginSftpData *gpdata;
    RemminaFile *remminafile;
    RemminaSSH *ssh;
    RemminaSFTP *sftp = NULL;
    gboolean cont = FALSE;
    gint ret;
    const gchar *cs;

    pthread_setcancelstate (PTHREAD_CANCEL_ENABLE, NULL);
    CANCEL_ASYNC

    gpdata = (RemminaPluginSftpData*) g_object_get_data (G_OBJECT (gp), "plugin-data");

    ssh = g_object_get_data (G_OBJECT (gp), "user-data");
    if (ssh)
    {
        /* Create SFTP connection based on existing SSH session */
        sftp = remmina_sftp_new_from_ssh (ssh);
        if (remmina_ssh_init_session (REMMINA_SSH (sftp)) &&
            remmina_ssh_auth (REMMINA_SSH (sftp), NULL) > 0 &&
            remmina_sftp_open (sftp))
        {
            cont = TRUE;
        }
    }
    else
    {
        /* New SFTP connection */
        remminafile = remmina_plugin_service->protocol_plugin_get_file (gp);
        remmina_plugin_service->file_set_string (remminafile, "ssh_server",
            remmina_plugin_service->file_get_string (remminafile, "server"));

        sftp = remmina_sftp_new_from_file (remminafile);
        while (1)
        {
            if (!remmina_ssh_init_session (REMMINA_SSH (sftp)))
            {
                remmina_plugin_service->protocol_plugin_set_error (gp, "%s", REMMINA_SSH (sftp)->error);
                break;
            }

            ret = remmina_ssh_auth_gui (REMMINA_SSH (sftp),
                REMMINA_INIT_DIALOG (remmina_protocol_widget_get_init_dialog (gp)), TRUE);
            if (ret == 0)
            {
                remmina_plugin_service->protocol_plugin_set_error (gp, "%s", REMMINA_SSH (sftp)->error);
            }
            if (ret <= 0) break;

            if (!remmina_sftp_open (sftp))
            {
                remmina_plugin_service->protocol_plugin_set_error (gp, "%s", REMMINA_SSH (sftp)->error);
                break;
            }

            cs = remmina_plugin_service->file_get_string (remminafile, "execpath");
            if (cs && cs[0])
            {
                remmina_ftp_client_set_dir (REMMINA_FTP_CLIENT (gpdata->client), cs);
            }

            cont = TRUE;
            break;
        }
    }
    if (!cont)
    {
        if (sftp) remmina_sftp_free (sftp);
        IDLE_ADD ((GSourceFunc) remmina_plugin_service->protocol_plugin_close_connection, gp);
        return NULL;
    }

    remmina_sftp_client_open (REMMINA_SFTP_CLIENT (gpdata->client), sftp);
    /* RemminaSFTPClient owns the object, we just take the reference */
    gpdata->sftp = sftp;

    remmina_plugin_service->protocol_plugin_emit_signal (gp, "connect");

    gpdata->thread = 0;
    return NULL;
}

static void
remmina_plugin_sftp_client_on_realize (GtkWidget *widget, RemminaProtocolWidget *gp)
{
    RemminaFile *remminafile;

    remminafile = remmina_plugin_service->protocol_plugin_get_file (gp);
    remmina_ftp_client_load_state (REMMINA_FTP_CLIENT (widget), remminafile);
}

static void
remmina_plugin_sftp_init (RemminaProtocolWidget *gp)
{
    RemminaPluginSftpData *gpdata;
    RemminaFile *remminafile;

    gpdata = g_new0 (RemminaPluginSftpData, 1);
    g_object_set_data_full (G_OBJECT (gp), "plugin-data", gpdata, g_free);

    remminafile = remmina_plugin_service->protocol_plugin_get_file (gp);

    gpdata->client = remmina_sftp_client_new ();
    gtk_widget_show (gpdata->client);
    gtk_container_add (GTK_CONTAINER (gp), gpdata->client);

    remmina_ftp_client_set_show_hidden (REMMINA_FTP_CLIENT (gpdata->client),
        remmina_plugin_service->file_get_int (remminafile, "showhidden", FALSE));

    remmina_plugin_service->protocol_plugin_register_hostkey (gp, gpdata->client);

    g_signal_connect (G_OBJECT (gpdata->client),
        "realize", G_CALLBACK (remmina_plugin_sftp_client_on_realize), gp);
}

static gboolean
remmina_plugin_sftp_open_connection (RemminaProtocolWidget *gp)
{
    RemminaPluginSftpData *gpdata;

    gpdata = (RemminaPluginSftpData*) g_object_get_data (G_OBJECT (gp), "plugin-data");

    remmina_plugin_service->protocol_plugin_set_expand (gp, TRUE);
    remmina_plugin_service->protocol_plugin_set_width (gp, 640);
    remmina_plugin_service->protocol_plugin_set_height (gp, 480);

    if (pthread_create (&gpdata->thread, NULL, remmina_plugin_sftp_main_thread, gp))
    {
        remmina_plugin_service->protocol_plugin_set_error (gp,
            "Failed to initialize pthread. Falling back to non-thread mode...");
        gpdata->thread = 0;
        return FALSE;
    }
    else
    {
        return TRUE;
    }
    return TRUE;
}

static gboolean
remmina_plugin_sftp_close_connection (RemminaProtocolWidget *gp)
{
    RemminaPluginSftpData *gpdata;
    RemminaFile *remminafile;

    gpdata = (RemminaPluginSftpData*) g_object_get_data (G_OBJECT (gp), "plugin-data");
    remminafile = remmina_plugin_service->protocol_plugin_get_file (gp);
    if (gpdata->thread)
    {
        pthread_cancel (gpdata->thread);
        if (gpdata->thread) pthread_join (gpdata->thread, NULL);
    }

    remmina_ftp_client_save_state (REMMINA_FTP_CLIENT (gpdata->client), remminafile);
    remmina_plugin_service->protocol_plugin_emit_signal (gp, "disconnect");
    return FALSE;
}

static gboolean
remmina_plugin_sftp_query_feature (RemminaProtocolWidget *gp, const RemminaProtocolFeature *feature)
{
    return TRUE;
}

static void
remmina_plugin_sftp_call_feature (RemminaProtocolWidget *gp, const RemminaProtocolFeature *feature)
{
    RemminaPluginSftpData *gpdata;
    RemminaFile *remminafile;

    gpdata = (RemminaPluginSftpData*) g_object_get_data (G_OBJECT (gp), "plugin-data");
    remminafile = remmina_plugin_service->protocol_plugin_get_file (gp);
    switch (feature->id)
    {
    case REMMINA_PROTOCOL_FEATURE_TOOL_SSH:
        remmina_plugin_service->open_connection (
            remmina_file_dup_temp_protocol (remmina_plugin_service->protocol_plugin_get_file (gp), "SSH"),
            NULL, gpdata->sftp, NULL);
        return;
    case REMMINA_PROTOCOL_FEATURE_TOOL_SFTP:
        remmina_plugin_service->open_connection (
            remmina_file_dup_temp_protocol (remmina_plugin_service->protocol_plugin_get_file (gp), "SFTP"),
            NULL, gpdata->sftp, NULL);
        return;
    case REMMINA_PLUGIN_SFTP_FEATURE_PREF_SHOW_HIDDEN:
        remmina_ftp_client_set_show_hidden (REMMINA_FTP_CLIENT (gpdata->client),
            remmina_plugin_service->file_get_int (remminafile, "showhidden", FALSE));
        return;
    }
}

static const RemminaProtocolFeature remmina_plugin_sftp_features[] =
{
    { REMMINA_PROTOCOL_FEATURE_TYPE_PREF, REMMINA_PLUGIN_SFTP_FEATURE_PREF_SHOW_HIDDEN,
      GINT_TO_POINTER (REMMINA_PROTOCOL_FEATURE_PREF_CHECK), "showhidden", N_("Show Hidden Files") },
    { REMMINA_PROTOCOL_FEATURE_TYPE_END, 0, NULL, NULL, NULL }
};

static RemminaProtocolPlugin remmina_plugin_sftp =
{
    REMMINA_PLUGIN_TYPE_PROTOCOL,
    "SFTP",
    N_("SFTP - Secure File Transfer"),
    GETTEXT_PACKAGE,
    VERSION,

    "remmina-sftp",
    "remmina-sftp",
    NULL,
    NULL,
    REMMINA_PROTOCOL_SSH_SETTING_SFTP,
    remmina_plugin_sftp_features,

    remmina_plugin_sftp_init,
    remmina_plugin_sftp_open_connection,
    remmina_plugin_sftp_close_connection,
    remmina_plugin_sftp_query_feature,
    remmina_plugin_sftp_call_feature
};

void
remmina_sftp_plugin_register (void)
{
    remmina_plugin_service = &remmina_plugin_manager_service;
    remmina_plugin_service->register_plugin ((RemminaPlugin *) &remmina_plugin_sftp);
}

#else
 
void
remmina_sftp_plugin_register (void)
{
}

#endif