root/trunk/third/nautilus/components/services/summary/nautilus-view/nautilus-summary-callbacks.c @ 15547

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */

/* 
 * Copyright (C) 2000 Eazel, 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., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 *
 * Author: J Shane Culpepper <pepper@eazel.com>
 */

#include <config.h>

#include <libgnomeui/gnome-stock.h>
#include <stdio.h>
#include <unistd.h>

#include <orb/orbit.h>
#include <liboaf/liboaf.h>
#include <libtrilobite/eazelproxy.h>
#include <libtrilobite/libammonite.h>
#include <libtrilobite/trilobite-redirect.h>
#include <bonobo/bonobo-main.h>

#include <libnautilus-extensions/nautilus-caption-table.h>

#include "nautilus-summary-view.h"
#include "eazel-summary-shared.h"
#include "nautilus-summary-dialogs.h"
#include "nautilus-summary-menu-items.h"
#include "nautilus-summary-callbacks.h"
#include "nautilus-summary-view-private.h"

#define notDEBUG_PEPPER 1

static void     authn_cb_succeeded                      (const EazelProxy_User          *user,
                                                         gpointer                       state,
                                                         CORBA_Environment              *ev);
static void     authn_cb_failed                         (const EazelProxy_User          *user,
                                                         const EazelProxy_AuthnFailInfo *info,
                                                         gpointer                       state,
                                                         CORBA_Environment              *ev);


/* Be careful not to invoke another HTTP request; this call is
 * invoked from a two-way CORBA call from ammonite
 */
static void
authn_cb_succeeded (const EazelProxy_User *user, gpointer state, CORBA_Environment *ev)
{
        NautilusSummaryView    *view;
        gint                    timeout;

        view = NAUTILUS_SUMMARY_VIEW (state);

        g_assert (Pending_Login == view->details->pending_operation);

        view->details->pending_operation = Pending_None;
        
        timeout = gtk_timeout_add (0, logged_in_callback, view);

        bonobo_object_unref (BONOBO_OBJECT (view->details->nautilus_view));
}

/* Be careful not to invoke another HTTP request; this call is
 * invoked from a two-way CORBA call from ammonite
 */
static void
authn_cb_failed (const EazelProxy_User *user, const EazelProxy_AuthnFailInfo *info, gpointer state, CORBA_Environment *ev)
{
        NautilusSummaryView    *view;

        view = NAUTILUS_SUMMARY_VIEW (state);

        g_assert (Pending_Login == view->details->pending_operation);

        view->details->pending_operation = Pending_None;

        view->details->logged_in = FALSE;
        
        update_menu_items (view, FALSE);

        if (info && ( info->code == EAZELPROXY_AUTHN_FAIL_NETWORK
            || info->code == EAZELPROXY_AUTHN_FAIL_SERVER)) {
                nautilus_summary_login_failure_dialog (view, _("I'm sorry, network problems are preventing you from connecting to Eazel Services."));
                view->details->attempt_number = 0;
                view->details->current_attempt = initial;
        } else if (info && ( info->code == EAZELPROXY_AUTHN_FAIL_USER_NOT_ACTIVATED)) {
                /* FIXME we really should use the services alert icon here, eh? */
                nautilus_summary_login_failure_dialog (view, _("Your Eazel Services account has not yet been activated.  "
                            "You can't log into Eazel Services until you activate your account.\n\n"
                            "Please check your email for activation instructions."));
                view->details->attempt_number = 0;
                view->details->current_attempt = initial;
        } else if (info && ( info->code == EAZELPROXY_AUTHN_FAIL_USER_DISABLED)) {
                /* FIXME we really should use the services alert icon here, eh? */
                nautilus_summary_login_failure_dialog (view, _("Your Eazel Service User Account has been temporarily disabled.\n\n"
                            "Please try again in a few minutes, or contact Eazel support if this problem continues."));
                view->details->attempt_number = 0;
                view->details->current_attempt = initial;
        } else {
                /* Most likely error: bad username or password */

                view->details->attempt_number++;

                /* FIXME it would be best to display an error dialog
                 * explaining the problem and offering at least an "I forgot
                 * my password" button (and possibly a "Register" button as well)
                 * In any vase, the dialog that's here is insufficient
                 */

#if 0
                if (view->details->attempt_number > 0 && view->details->attempt_number < 5) {
#endif
                        view->details->current_attempt = retry;
                        generate_login_dialog (view);
#if 0
                } else {
                        nautilus_summary_login_failure_dialog (view, _("We're sorry, but your name and password are still not recognized."));
                        view->details->attempt_number = 0;
                        view->details->current_attempt = initial;
                }
#endif
        }
        
        bonobo_object_unref (BONOBO_OBJECT (view->details->nautilus_view));
}

/* callback to handle the login button.  Right now only does a simple redirect. */
void
login_button_cb (GtkWidget      *button, NautilusSummaryView    *view)
{
        char            *user_name;
        char            *password;
        EazelProxy_AuthnInfo *authinfo;
        CORBA_Environment ev;

        AmmoniteAuthCallbackWrapperFuncs cb_funcs = {
                authn_cb_succeeded, authn_cb_failed
        };

        CORBA_exception_init (&ev);

        g_assert (Pending_None == view->details->pending_operation);

        /* FIXME this doesn't actually handle the case when user_control is NIL
         * very well.  No callback is generated, so no user feedback is generated
         * and the summary view is left in an illegal state
         */

        if (CORBA_OBJECT_NIL != view->details->user_control) {
                view->details->authn_callback = ammonite_auth_callback_wrapper_new (bonobo_poa(), &cb_funcs, view);

                user_name = nautilus_caption_table_get_entry_text (NAUTILUS_CAPTION_TABLE (view->details->caption_table), 0);
                password = nautilus_caption_table_get_entry_text (NAUTILUS_CAPTION_TABLE (view->details->caption_table), 1);

                authinfo = EazelProxy_AuthnInfo__alloc ();
                authinfo->username = CORBA_string_dup (user_name);
                authinfo->password = CORBA_string_dup (password);
                user_name = NULL;
                password = NULL;
                                
                authinfo->services_redirect_uri = CORBA_string_dup ("");
                authinfo->services_login_path = CORBA_string_dup ("");

                /* Ref myself until the callback returns */
                bonobo_object_ref (BONOBO_OBJECT (view->details->nautilus_view));

                view->details->pending_operation = Pending_Login;
                
                EazelProxy_UserControl_authenticate_user (
                        view->details->user_control,
                        authinfo, TRUE, 
                        view->details->authn_callback, &ev
                );

                if (CORBA_NO_EXCEPTION != ev._major) {
                        g_warning ("Exception during EazelProxy login");
                        /* FIXME bugzilla.eazel.com 2745: cleanup after fail here */
                }


        }
        
        CORBA_exception_free (&ev);
}

/* callback to handle the logout button.  Right now only does a simple redirect. */
void
logout_button_cb (GtkWidget      *button, NautilusSummaryView    *view)
{
        CORBA_Environment       ev;
        EazelProxy_UserList     *users;
        CORBA_unsigned_long     i;
        gint                    timeout;
        CORBA_exception_init (&ev);

        if (CORBA_OBJECT_NIL != view->details->user_control) {
        /* Get list of currently active users */

                users = EazelProxy_UserControl_get_active_users (
                        view->details->user_control, &ev
                );

                if (CORBA_NO_EXCEPTION != ev._major) {
                        g_message ("Exception while logging out user");
                        return;
                }

        /* Log out the current default user */
                for (i = 0; i < users->_length ; i++) {
                        EazelProxy_User *cur;

                        cur = users->_buffer + i;

                        if (cur->is_default) {
                                g_message ("Logging out user '%s'", cur->user_name);
                                EazelProxy_UserControl_logout_user (
                                        view->details->user_control,
                                        cur->proxy_port, &ev
                                );
                                break;
                        }
                }

                CORBA_free (users);
        }

        timeout = gtk_timeout_add (0, logged_out_callback, view);

        CORBA_exception_free (&ev);
}

gint
logged_in_callback (gpointer    raw)
{
        NautilusSummaryView     *view;

        view = NAUTILUS_SUMMARY_VIEW (raw);
        view->details->logged_in = TRUE;

        update_menu_items (view, TRUE);
        nautilus_view_open_location_in_this_window
                (view->details->nautilus_view, "eazel:");

        return (FALSE);
}


gint
logged_out_callback (gpointer   raw)
{
        NautilusSummaryView     *view;

        view = NAUTILUS_SUMMARY_VIEW (raw);
        view->details->logged_in = FALSE;
        
        update_menu_items (view, FALSE);
        nautilus_view_open_location_in_this_window
                (view->details->nautilus_view, "eazel:");

        return (FALSE);
}

/* callback to handle the maintenance button.  Right now only does a simple redirect. */
void
preferences_button_cb (GtkWidget      *button, NautilusSummaryView    *view)
{
        char    *url;
        url = NULL;

        url = trilobite_redirect_lookup (PREFERENCES_KEY);
        if (!url) {
                g_error ("Failed to load Registration url!");
        }

        nautilus_view_open_location_in_this_window
                (view->details->nautilus_view, url);
        g_free (url);

}

/* callback to handle the forgotten password button. */
void
forgot_password_button_cb (GtkWidget      *button, NautilusSummaryView    *view)
{

        nautilus_view_open_location_in_this_window
                (view->details->nautilus_view, SUMMARY_CHANGE_PWD_FORM);

}

/* callback to handle the register button.  Right now only does a simple redirect. */
void
register_button_cb (GtkWidget      *button, NautilusSummaryView    *view)
{
        char    *url;
        url = NULL;

        url = trilobite_redirect_lookup (REGISTER_KEY);
        if (!url) {
                g_error ("Failed to load Registration url!");
        }

        nautilus_view_open_location_in_this_window
                (view->details->nautilus_view, url);
        g_free (url);

}

/* here is the callback to handle service tab selection */
void
service_tab_selected_callback (GtkWidget                *widget,
                                int                     which_tab,
                                NautilusSummaryView     *view)
{

        gtk_notebook_set_page (GTK_NOTEBOOK (view->details->services_notebook), which_tab);

}

/* here is the callback to handle updates tab selection */
void
updates_tab_selected_callback (GtkWidget                *widget,
                                int                     which_tab,
                                NautilusSummaryView     *view)
{

        gtk_notebook_set_page (GTK_NOTEBOOK (view->details->updates_notebook), which_tab);

}