diff options
Diffstat (limited to 'components/services/summary/nautilus-view/nautilus-summary-callbacks.c')
| -rw-r--r-- | components/services/summary/nautilus-view/nautilus-summary-callbacks.c | 321 |
1 files changed, 321 insertions, 0 deletions
diff --git a/components/services/summary/nautilus-view/nautilus-summary-callbacks.c b/components/services/summary/nautilus-view/nautilus-summary-callbacks.c new file mode 100644 index 000000000..5ef9e42d3 --- /dev/null +++ b/components/services/summary/nautilus-view/nautilus-summary-callbacks.c @@ -0,0 +1,321 @@ +/* -*- 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 <bonobo/bonobo-main.h> + +#include <libnautilus-extensions/nautilus-caption-table.h> +#include <libtrilobite/eazelproxy.h> +#include <libtrilobite/libammonite.h> +#include <libtrilobite/trilobite-redirect.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); + +} |