hbci-interaction.c

/* hbci-interaction.c
   Copyright 2002 by Christian Stimming <stimming@tuhh.de> */

/***************************************************************************
 *                                                                         *
 *   This library is free software; you can redistribute it and/or         *
 *   modify it under the terms of the GNU Lesser General Public            *
 *   License as published by the Free Software Foundation; either          *
 *   version 2.1 of the License, or (at your option) any later version.    *
 *                                                                         *
 *   This library 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     *
 *   Lesser General Public License for more details.                       *
 *                                                                         *
 *   You should have received a copy of the GNU Lesser General Public      *
 *   License along with this library; if not, write to the Free Software   *
 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,            *
 *   MA  02110-1301  USA                                                   *
 *                                                                         *
 ***************************************************************************/

#include "config.h"

#include <gtk/gtk.h>
#include <glib/gi18n.h>
#include <stdio.h>
#include <string.h>
#include <locale.h>
#include <iconv.h>
#include <aqbanking/banking.h>
#include <gwenhywfar/bio_buffer.h>
#include <gwenhywfar/xml.h>

#include "hbci-interaction.h"
#include "hbci-interactionP.h"

#include "dialog-utils.h"
#include "druid-utils.h"
#include "gnc-ui-util.h"
#include "gnc-ui.h"
#include "gnc-gconf-utils.h"
#include "gnc-component-manager.h"
#include "gnc-session.h"

#include "dialog-pass.h"
#include "gnc-hbci-utils.h"

#include <aqbanking/version.h>
#if AQBANKING_VERSION_MAJOR > 2
# include <gwenhywfar/gui.h>
# define AB_Banking_SetMessageBoxFn GWEN_Gui_SetMessageBoxFn
# define AB_Banking_SetInputBoxFn GWEN_Gui_SetInputBoxFn
# define AB_Banking_SetShowBoxFn GWEN_Gui_SetShowBoxFn
# define AB_Banking_SetHideBoxFn GWEN_Gui_SetHideBoxFn
# define AB_Banking_SetProgressStartFn GWEN_Gui_SetProgressStartFn
# define AB_Banking_SetProgressAdvanceFn GWEN_Gui_SetProgressAdvanceFn
# define AB_Banking_SetProgressLogFn GWEN_Gui_SetProgressLogFn
# define AB_Banking_SetProgressEndFn GWEN_Gui_SetProgressEndFn
# define AB_Banking_SetGetTanFn GWEN_Gui_SetGetTanFn
# define AB_BANKING_MSG_FLAGS_TYPE_ERROR GWEN_GUI_MSG_FLAGS_TYPE_ERROR
# define AB_BANKING_INPUT_FLAGS_CONFIRM GWEN_GUI_INPUT_FLAGS_CONFIRM
# define AB_BANKING_INPUT_FLAGS_SHOW GWEN_GUI_INPUT_FLAGS_SHOW
# define AB_BANKING_PROGRESS_NONE GWEN_GUI_PROGRESS_NONE
# define AB_Banking_GetUserData(arg) GWEN_INHERIT_GETDATA(GWEN_GUI, GNCInteractor, arg)
# define AB_Banking_SetUserData(arg1, arg2)
/* Note about other changes: Replace callback object AB_BANKING by
   GWEN_GUI, to be created by GWEN_GUI_new; replace GetTan
   callback by watching for INPUT_FLAGS_TAN in InputBox(). */
#endif

GWEN_INHERIT(AB_BANKING, GNCInteractor)

#define GCONF_SECTION_CONNECTION GCONF_SECTION "/connection_dialog"
#define DIALOG_HBCILOG_CM_CLASS "dialog-hbcilog"

gchar *gnc__extractText(const char *text);
static void cm_close_handler(gpointer user_data);

GNCInteractor *gnc_AB_BANKING_interactors (AB_BANKING *api, GtkWidget *parent)
{
  GNCInteractor *data;
  gint component_id;
  
  data = g_new0 (GNCInteractor, 1);
  data->parent = parent;
  /* FIXME: The internal target encoding is hard-coded so far. This
     needs to be fixed for the gnome2 version; the target encoding is
     then probably utf-8 as well. iconv is also used in
     gnc_hbci_descr_tognc() in gnc-hbci-utils.c. */
  data->gnc_iconv_handler = 
    g_iconv_open(gnc_hbci_book_encoding(), gnc_hbci_AQBANKING_encoding());
  g_assert(data->gnc_iconv_handler != (GIConv)(-1));
  data->keepAlive = TRUE;
  data->cache_pin = 
    gnc_gconf_get_bool(GCONF_SECTION, KEY_REMEMBER_PIN, NULL);
  data->showbox_id = 1;
  data->showbox_hash = g_hash_table_new(NULL, NULL); 
  data->min_loglevel = AB_Banking_LogLevelVerbous;

  component_id = gnc_register_gui_component(DIALOG_HBCILOG_CM_CLASS,
                                            NULL, cm_close_handler,
                                            data);
  gnc_gui_component_set_session(component_id, gnc_get_current_session());

  /* set HBCI_Interactor */
  gnc_hbci_add_callbacks(api, data);
  return data;
}

void GNCInteractor_delete(GNCInteractor *data)
{
  if (data == NULL)
    return;
  if (data->dialog != NULL) {
    gnc_gconf_set_bool(GCONF_SECTION, KEY_CLOSE_ON_FINISH,
                       gtk_toggle_button_get_active 
                       (GTK_TOGGLE_BUTTON (data->close_checkbutton)),
                       NULL);
    gnc_save_window_size(GCONF_SECTION_CONNECTION, GTK_WINDOW (data->dialog));
    g_object_unref (G_OBJECT (data->dialog));
    gtk_widget_destroy (data->dialog);
  }
  
  gnc_unregister_gui_component_by_data(DIALOG_HBCILOG_CM_CLASS, data);

  data->dialog = NULL;

  g_hash_table_destroy(data->showbox_hash);
  g_iconv_close(data->gnc_iconv_handler);

  g_free (data);
}



/* ************************************************************
 */


GtkWidget *GNCInteractor_parent(const GNCInteractor *i)
{
  g_assert(i);
  return i->parent;
}

GtkWidget *GNCInteractor_dialog(const GNCInteractor *i)
{
  g_assert(i);
  return i->dialog;
}

static void GNCInteractor_setRunning (GNCInteractor *data)
{
  g_assert(data);
  data->state = RUNNING;
  gtk_widget_set_sensitive (GTK_WIDGET (data->abort_button), TRUE);
  gtk_widget_set_sensitive (GTK_WIDGET (data->close_button), FALSE);
  data->keepAlive = TRUE;
}
static void GNCInteractor_setFinished (GNCInteractor *data)
{
  g_assert(data);
  data->state = FINISHED;
  gtk_widget_set_sensitive (GTK_WIDGET (data->abort_button), FALSE);
  gtk_widget_set_sensitive (GTK_WIDGET (data->close_button), TRUE);
  if (gtk_toggle_button_get_active
      (GTK_TOGGLE_BUTTON (data->close_checkbutton)))
    GNCInteractor_hide (data);
}
static void GNCInteractor_setAborted (GNCInteractor *data)
{
  g_assert(data);
  data->state = ABORTED;
  gtk_widget_set_sensitive (GTK_WIDGET (data->abort_button), FALSE);
  gtk_widget_set_sensitive (GTK_WIDGET (data->close_button), TRUE);
  data->keepAlive = FALSE;
}


gboolean GNCInteractor_aborted(const GNCInteractor *i)
{
  g_assert(i);
  return !(i->keepAlive);
}

void GNCInteractor_show_nodelete(GNCInteractor *i)
{
  gboolean cache_pin = 
    gnc_gconf_get_bool(GCONF_SECTION, KEY_REMEMBER_PIN, NULL);
  g_assert(i);
  /* Show widgets */
  gtk_widget_show_all (i->dialog);

  /* Make sure the cache_pin option is up to date. */
  if (cache_pin != i->cache_pin) {
    /* AB_Banking_SetEnablePinCaching (ab, cache_pin); */
    i->cache_pin = cache_pin;
    if (cache_pin == FALSE)
      GNCInteractor_erasePIN (i);
  }
}
void GNCInteractor_show(GNCInteractor *i)
{
  g_assert(i);
  GNCInteractor_show_nodelete(i);
  /* Clear log window. */
  gtk_text_buffer_set_text
    (gtk_text_view_get_buffer (GTK_TEXT_VIEW (i->log_text) ),
     "", 0);
}


void GNCInteractor_hide(GNCInteractor *i)
{
  g_assert(i);
  if (gtk_toggle_button_get_active 
      (GTK_TOGGLE_BUTTON (i->close_checkbutton)))
    gtk_widget_hide_all (i->dialog);
  gnc_gconf_set_bool(GCONF_SECTION, KEY_CLOSE_ON_FINISH,
                     gtk_toggle_button_get_active 
                     (GTK_TOGGLE_BUTTON (i->close_checkbutton)),
                     NULL);
  gnc_save_window_size(GCONF_SECTION_CONNECTION, GTK_WINDOW (i->dialog));
}

gboolean GNCInteractor_get_cache_valid(const GNCInteractor *i)
{
  g_assert(i);
  return i->cache_pin;
}
void GNCInteractor_set_cache_valid(GNCInteractor *i, gboolean value)
{
  g_assert(i);
  /* Nothing to be done right now. */
}

void GNCInteractor_erasePIN(GNCInteractor *i)
{
  g_assert(i);
  /* Nothing to be done right now. */
}
void GNCInteractor_reparent (GNCInteractor *i, GtkWidget *new_parent)
{
  g_assert (i);
  if (new_parent != i->parent)
    {
      i->parent = new_parent;
      /*if (GTK_WIDGET (i->dialog) -> parent != NULL)
        gtk_widget_reparent (GTK_WIDGET (i->dialog), new_parent);
        else
        gtk_widget_set_parent (GTK_WIDGET (i->dialog), new_parent);*/
      gtk_window_set_transient_for (GTK_WINDOW (i->dialog), 
                               GTK_WINDOW (new_parent));
    }
}

gboolean GNCInteractor_hadErrors (const GNCInteractor *i)
{
  g_assert (i);
  return (i->msgBoxError != 0);
}

gboolean GNCInteractor_errorsLogged (const GNCInteractor *i)
{
  g_assert (i);
  /* Note: Unfortunately this does not mean at all that there actually
     has been any error. Old aqbanking versions had some debugging
     messages set at "error" level, and there can also be errors when
     closing connection that don't affect the job result at all. */
  return (i->min_loglevel < AB_Banking_LogLevelNotice);
}

/* ************************************************************ 
 */

/* This function extracts the normal text part out of the
   combi-strings that are passed from aqbanking. */
gchar *gnc__extractText(const char *text) 
{
  gchar *res;
  GWEN_BUFFEREDIO *bio;
  GWEN_XMLNODE *xmlNode;
  GWEN_BUFFER *buf;
  int rv;

  if (!text)
    text = "";

  buf=GWEN_Buffer_new(0, 256, 0, 1);
  GWEN_Buffer_AppendString(buf, text);
  GWEN_Buffer_Rewind(buf);

  /* check whether there is a html tag */
  bio=GWEN_BufferedIO_Buffer2_new(buf, 1);
  GWEN_BufferedIO_SetReadBuffer(bio, 0, 256);
  xmlNode=GWEN_XMLNode_new(GWEN_XMLNodeTypeTag, "html");
  rv=GWEN_XML_Parse(xmlNode, bio,
                    GWEN_XML_FLAGS_DEFAULT |
                    GWEN_XML_FLAGS_HANDLE_OPEN_HTMLTAGS |
                    GWEN_XML_FLAGS_NO_CONDENSE |
                    GWEN_XML_FLAGS_KEEP_CNTRL);
  GWEN_BufferedIO_Close(bio);
  GWEN_BufferedIO_free(bio);

  if (rv) {
    res = g_strdup(text);
  }
  else {
    GWEN_XMLNODE *nn;

    nn=GWEN_XMLNode_GetFirstData(xmlNode);
    if (nn) {
      res = g_strdup(GWEN_XMLNode_GetData(nn));
    }
    else {
      res = g_strdup(text);
    }
  }
  GWEN_XMLNode_free(xmlNode);
  return res;
}


char *gnc_hbci_utf8ToLatin1(GNCInteractor *data, const char *utf)
{
  char *utf8extracted, *latin1;

  g_assert(data);
  if (!utf) return g_strdup("");

  /* Get rid of the aaaarg html-combi-text part */
  utf8extracted = gnc__extractText(utf);
/*   printf("Extracted \"%s\" into \"%s\"\n", utf, utf8extracted); */

  latin1 = gnc_call_iconv(data->gnc_iconv_handler, utf8extracted);

/*   printf("Converted \"%s\" into \"%s\"\n", utf8extracted, latin1); */
  g_free(utf8extracted);
  return latin1;
}

/********************************************************
 * Now all the callback functions 
 */

static int inputBoxCB(AB_BANKING *ab,
                      GWEN_TYPE_UINT32 flags,
                      const char *utf8title,
                      const char *utf8text,
                      char *resultbuffer,
                      int minsize,
                      int maxLen)
{
  GNCInteractor *data;
  char *passwd = NULL;
  int retval = 0;
  int newPin;
  int hideInput;
  gchar *title, *text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);
  g_assert(maxLen > minsize);
  data->msgBoxError = flags & AB_BANKING_MSG_FLAGS_TYPE_ERROR;

  text = gnc_hbci_utf8ToLatin1(data, utf8text);
  title = gnc_hbci_utf8ToLatin1(data, utf8title);

  newPin = (flags | AB_BANKING_INPUT_FLAGS_CONFIRM) == 0;
  hideInput = (flags | AB_BANKING_INPUT_FLAGS_SHOW) != 0;

  while (TRUE) {

    if (newPin) {
      if (!hideInput)
        g_warning("inputBoxCB: Oops, hideInput==false and newPin==true, i.e. the input is supposed to be readable -- not implemented (since I thought this does not make sense when entering a new PIN).\n");
      retval = gnc_hbci_get_initial_password (data->parent,
                                              title,
                                              text,
                                              &passwd);
    }
    else {
      retval = gnc_hbci_get_password (data->parent,
                                      title,
                                      text,
                                      NULL,
                                      &passwd,
                                      hideInput);
    } /* newPin */
    
    if (!retval)
      break;
    
    g_assert(passwd);
    if (strlen(passwd) < (unsigned int)minsize) {
      gboolean retval;
      char *msg = 
        g_strdup_printf (  _("The PIN needs to be at least %d characters "
                             "long. Do you want to try again?"),
                           minsize);
      retval = gnc_verify_dialog (GTK_WIDGET (data->parent), 
                                           TRUE,
                                           "%s", msg);
      g_free (msg);
      if (!retval)
        break;
    }
    else if (strlen(passwd) >= (unsigned int)maxLen) {
      gboolean retval;
      char *msg = 
        g_strdup_printf (  _("You entered %ld characters, but the PIN must "
                             "be no longer than %d characters. "
                             "Do you want to try again?"),
                           (long)strlen(passwd), maxLen);
      retval = gnc_verify_dialog (GTK_WIDGET (data->parent), 
                                           TRUE,
                                           "%s", msg);
      g_free (msg);
      if (!retval)
        break;
    }
    else {
      g_assert (maxLen > strlen(passwd)); /* assertion was queried above */
      strcpy(resultbuffer, passwd);
      g_free (memset (passwd, 0, strlen (passwd)));
      g_free(title);
      g_free(text);
      return 0;
    }
  }
  
  /* User wanted to abort. */
  g_free(title);
  g_free(text);
  return 1;
}

/* **************************************** 
 */


static int getTanCB(AB_BANKING *ab,
                    const char *token,
                    const char *utf8title,
                    const char *utf8text,
                    char *resultbuffer,
                    int minsize,
                    int maxLen)
{
  GNCInteractor *data;
  char *passwd = NULL;
  int retval = 0;
  gchar *title, *text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);
  g_assert(maxLen > minsize);
  data->msgBoxError = 0;

  text = gnc_hbci_utf8ToLatin1(data, utf8text);
  title = gnc_hbci_utf8ToLatin1(data, utf8title);

  while (TRUE) {

    retval = gnc_hbci_get_password (data->parent,
                                    title,
                                    text,
                                    NULL,
                                    &passwd,
                                    FALSE);

    if (!retval)
      break;
    
    if (strlen(passwd) < (unsigned int)minsize) {
      gboolean retval;
      char *msg = 
        g_strdup_printf (  _("This TAN needs to be at least %d characters "
                             "long. Do you want to try again?"),
                           minsize);
      retval = gnc_verify_dialog (GTK_WIDGET (data->parent), 
                                           TRUE,
                                           "%s", msg);
      g_free (msg);
      if (!retval)
        break;
    }
    else if (strlen(passwd) >= (unsigned int)maxLen) {
      gboolean retval;
      char *msg = 
        g_strdup_printf (  _("You entered %ld characters, but the TAN must "
                             "be no longer than %d characters. "
                             "Do you want to try again?"),
                           (long)strlen(passwd), maxLen);
      retval = gnc_verify_dialog (GTK_WIDGET (data->parent), 
                                           TRUE,
                                           "%s", msg);
      g_free (msg);
      if (!retval)
        break;
    }
    else {
      g_assert (maxLen > strlen(passwd)); /* assertion was queried above */
      strcpy(resultbuffer, passwd);

      g_free (memset (passwd, 0, strlen (passwd)));
      g_free(title);
      g_free(text);
      return 0;
    }
  }
  
  /* User wanted to abort. */
  g_free(title);
  g_free(text);
  return 1;
}


/* ************************************************************ 
 */

static int keepAlive(void *user_data)
{
  GNCInteractor *data = user_data;
  GMainContext *context;

  g_assert(data);
  /*fprintf(stdout, "my-keepAlive: returning 1\n");*/

  /* Let the widgets be redrawn */
  context = g_main_context_default();
  while (g_main_context_iteration(context, FALSE));

  return data->keepAlive;
}


#ifndef GWENHYWFAR_CB
/* Has been introduced in gwenhywfar>=2.4.1 for callback function
   decoration on win32, but is empty everywhere else. */
# define GWENHYWFAR_CB
#endif
static void GWENHYWFAR_CB destr(void *bp, void *user_data)
{
  GNCInteractor *data = user_data;
  if (data == NULL)
    return;

  GNCInteractor_delete (data);
}


/* ************************************************************ 
 */

static void 
hideBoxCB(AB_BANKING *ab, GWEN_TYPE_UINT32 id)
{
  GNCInteractor *data;
  GtkWidget *dialog;
  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);

  if (id > 0) {
    dialog = g_hash_table_lookup(data->showbox_hash, GUINT_TO_POINTER(id));
  } else {
    dialog = data->showbox_last;
  }
  if (dialog) {
    gtk_widget_hide (dialog);
    gtk_widget_destroy (dialog);
    g_hash_table_remove(data->showbox_hash, GUINT_TO_POINTER(id));
  }
}

static GWEN_TYPE_UINT32
showBoxCB(AB_BANKING *ab, GWEN_TYPE_UINT32 flags,
          const char *utf8title, const char *utf8text)
{
  GtkWidget *dialog;
  GNCInteractor *data;
  GWEN_TYPE_UINT32 result;
  gchar *title, *text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);
  data->msgBoxError = flags & AB_BANKING_MSG_FLAGS_TYPE_ERROR;
  
  text = gnc_hbci_utf8ToLatin1(data, utf8text);
  title = gnc_hbci_utf8ToLatin1(data, utf8title);

  /* Create new dialog */
  dialog = gtk_message_dialog_new(GTK_WINDOW(data->parent),
                                  0,
                                  GTK_MESSAGE_INFO,
                                  GTK_BUTTONS_OK,
                                  "%s", text);

  if (title && (strlen(title) > 0))
    gtk_window_set_title (GTK_WINDOW (dialog), title);

  g_signal_connect(G_OBJECT(dialog), "response",
                   (GCallback)gtk_widget_hide, NULL);
  gtk_widget_show_all (dialog);

  result = data->showbox_id;
  g_hash_table_insert(data->showbox_hash, GUINT_TO_POINTER(result), dialog);
  data->showbox_id++;
  data->showbox_last = dialog;

  g_free(title);
  g_free(text);
  return result;
}

/* ************************************************************ 
 */

static int messageBoxCB(AB_BANKING *ab, GWEN_TYPE_UINT32 flags, 
                        const char *utf8title, const char *utf8text, 
                        const char *b1, const char *b2, const char *b3)
{
  GNCInteractor *data;
  GtkWidget *dialog, *label;
  int result;
  gchar *text, *title, *b1text, *b2text, *b3text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);
  data->msgBoxError = flags & AB_BANKING_MSG_FLAGS_TYPE_ERROR;

  text = gnc_hbci_utf8ToLatin1(data, utf8text);
  title = gnc_hbci_utf8ToLatin1(data, utf8title);
  b1text = gnc_hbci_utf8ToLatin1(data, b1);
  b2text = gnc_hbci_utf8ToLatin1(data, b2);
  b3text = gnc_hbci_utf8ToLatin1(data, b3);

  dialog = gtk_dialog_new_with_buttons (title, 
                                        GTK_WINDOW (data->parent),
                                        GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
                                        b1 ? b1text : NULL,
                                        1,
                                        b2 ? b2text : NULL,
                                        2,
                                        b3 ? b3text : NULL,
                                        3,
                                        NULL);
  /* Add the label, and show everything we've added to the dialog. */
  label = gtk_label_new (text);
  gtk_label_set_justify (GTK_LABEL (label), GTK_JUSTIFY_LEFT);
  gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->vbox),
                     label);
  gtk_widget_show_all (dialog);

  result = gtk_dialog_run (GTK_DIALOG (dialog));
  gtk_widget_destroy (dialog);
  if (result<1 || result>3) {
    g_warning("messageBoxCB: Bad result %d", result);
    result = 0;
  }
  g_free(title);
  g_free(text);
  g_free(b1text);
  g_free(b2text);
  g_free(b3text);
  return result;
}


/* ************************************************************ 
 */

#define progress_id 4711

static GWEN_TYPE_UINT32 progressStartCB(AB_BANKING *ab, const char *utf8title, 
                                        const char *utf8text, GWEN_TYPE_UINT32 total)
{
  GNCInteractor *data;
  gchar *title, *text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);
  
  text = gnc_hbci_utf8ToLatin1(data, utf8text);
  title = gnc_hbci_utf8ToLatin1(data, utf8title);

  /* Now set the text etc */
  gtk_entry_set_text (GTK_ENTRY (data->job_entry), title);
  gtk_entry_set_text (GTK_ENTRY (data->action_entry), text);

  /*   printf("progressLogCB: Logging msg: %s\n", text); */
  /*   GNCInteractor_add_log_text (data, text); */

  /* Set progress bar */
  gtk_widget_set_sensitive (data->action_progress, TRUE);
  gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR(data->action_progress), 0.0);
  data->action_max = total;
  GNCInteractor_setRunning(data);
  /* printf("progressStartCB: Action \"%s\" started, total %d.\n",
     text, total); */

  /* Show the dialog */
  GNCInteractor_show(data);

  /* Initialize loglevel caching */
  data->min_loglevel = AB_Banking_LogLevelVerbous;

  g_free(title);
  g_free(text);
  return progress_id;
}

static int progressAdvanceCB(AB_BANKING *ab, GWEN_TYPE_UINT32 id, 
                             GWEN_TYPE_UINT32 progress)
{
  GNCInteractor *data;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);

  if ((id != 0) && (id != progress_id)) {
/*     printf("progressLogCB: Oops, wrong progress id %d -- ignored.\n", id); */
  }

  if (progress != AB_BANKING_PROGRESS_NONE) {
    /* printf("progressLogCB: Progress set to %d out of %f.\n", 
       progress, data->action_max); */
    if (progress <= data->action_max) 
      gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (data->action_progress),
                                     progress/data->action_max);
  }

  return !keepAlive(data);
}


static int progressLogCB(AB_BANKING *ab, GWEN_TYPE_UINT32 id, 
                         AB_BANKING_LOGLEVEL level, const char *utf8text)
{
  GNCInteractor *data;
  gchar *text;

  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);

  text = gnc_hbci_utf8ToLatin1(data, utf8text);

  if ((id != 0) && (id != progress_id)) {
/*     printf("progressLogCB: Oops, wrong progress id %d -- ignored.\n", id); */
  }

  /* printf("progressLogCB: Logging msg: %s\n", text); */
  GNCInteractor_add_log_text (data, text);

  /* Cache loglevel */
  if (level < data->min_loglevel)
    data->min_loglevel = level;

  g_free(text);
  return !keepAlive(data);
}

static int progressEndCB(AB_BANKING *ab, GWEN_TYPE_UINT32 id)
{
  GNCInteractor *data;
  g_assert(ab);
  data = AB_Banking_GetUserData(ab);
  g_assert(data);

  if ((id != 0) && (id != progress_id)) {
/*     printf("progressLogCB: Oops, wrong progress id %d -- ignored.\n", id); */
  }

  GNCInteractor_setFinished(data);

  keepAlive(data);
  return 0;
}



/* ************************************************************ 
 */

int debug_pmonitor = FALSE;
void GNCInteractor_add_log_text (GNCInteractor *data, const char *msg)
{
  GtkTextBuffer *tb;
  GtkTextView *tv;
  g_assert(data);

  tv = GTK_TEXT_VIEW (data->log_text);
  tb = gtk_text_view_get_buffer (tv);
  gtk_text_buffer_insert_at_cursor (tb, msg, -1);
  gtk_text_buffer_insert_at_cursor (tb, "\n", -1);
  /* and scroll to the end of the buffer */
  gtk_text_view_scroll_to_mark (tv, gtk_text_buffer_get_insert (tb),
                                0.0, FALSE, 0.0, 0.0);
}

static void
on_button_clicked (GtkButton *button,
                   gpointer user_data)
{
  GNCInteractor *data = user_data;
  GMainContext *context;
  const char *name;
  g_assert(data);
  
  name = gtk_widget_get_name (GTK_WIDGET (button));
  if (strcmp (name, "abort_button") == 0) {
    GNCInteractor_setAborted(data);
  } else if (strcmp (name, "close_button") == 0) {
    if (data->state != RUNNING) {
      gtk_widget_hide_all (data->dialog); 
      /*data->dont_hide = FALSE;*/
      /*GNCInteractor_hide (data);*/
    }
  } else {
    g_critical("on_button_clicked: Oops, unknown button: %s\n",
           name);
  }
  /* Let the widgets be redrawn */
  context = g_main_context_default();
  while (g_main_context_iteration(context, FALSE));
}

static void
cm_close_handler(gpointer user_data)
{
  GNCInteractor *data = user_data;

  GNCInteractor_setAborted(data);
  /* Notes about correctly handling this ComponentManager close event:
     We can't actually close the dialog here because AqBanking might
     still be running and expecting the GNCInteractor object to exist
     (and it doesn't offer any handlers for aborting from here). This
     is not per se a problem with gnucash objects because as soon as
     AqBanking received the SetAborted signal, it will abort and not
     deliver any actual results, which means the gnc-hbci module will
     not continue any operation. 

     However, the dialog and the AB_BANKING object will still be
     around. It is unclear whether this is 1. correct or 2. wrong:
     1. It might be correct because a user might still want to see the
     log messages in the window until he manually closes the
     GNCInteractor. 2. It might be wrong because once we've received
     the close event, nobody wants to see the GNCInteractor log
     messages anyway. To implement the behaviour #2, we should add a
     new flag in GNCInteractor that is being queried in
     gnc_AB_BANKING_execute() right after AB_Banking_ExecuteQueue()
     has finished, and if it is activated from the cm_close_handler,
     gnc_AB_BANKING_execute should immediately delete the AB_BANKING
     object (which will also delete the GNCInteractor object) and
     abort.
  */
}


/********************************************************
 * Constructor 
 */
void
gnc_hbci_add_callbacks(AB_BANKING *ab, GNCInteractor *data)
{
  GtkWidget *dialog;
  GladeXML *xml;

  /* Create the progress dialog window */
  xml = gnc_glade_xml_new ("hbci.glade", "HBCI_connection_dialog");

  g_assert ((dialog = glade_xml_get_widget (xml, "HBCI_connection_dialog")) != NULL);
  data->dialog = dialog;
  g_assert ((data->job_entry = glade_xml_get_widget (xml, "job_entry")) != NULL);
  g_assert ((data->action_entry = glade_xml_get_widget (xml, "action_entry")) != NULL);
  g_assert ((data->action_progress = 
             glade_xml_get_widget (xml, "action_progress")) != NULL);
  g_assert ((data->log_text = glade_xml_get_widget (xml, "log_text")) != NULL);
  g_assert ((data->abort_button = glade_xml_get_widget (xml, "abort_button")) != NULL);
  gtk_widget_set_sensitive (GTK_WIDGET (data->abort_button), FALSE);
  g_assert ((data->close_button = glade_xml_get_widget (xml, "close_button")) != NULL);
  g_assert ((data->close_checkbutton = 
             glade_xml_get_widget (xml, "close_checkbutton")) != NULL);

  /* grey out the progress bar -- its unused at the moment */
  gtk_widget_set_sensitive (data->action_progress, FALSE);
  gtk_toggle_button_set_active 
    (GTK_TOGGLE_BUTTON (data->close_checkbutton), 
     gnc_gconf_get_bool(GCONF_SECTION, KEY_CLOSE_ON_FINISH, NULL));

  g_signal_connect (data->abort_button, "clicked", 
                    G_CALLBACK (on_button_clicked), data);
  g_signal_connect (data->close_button, "clicked", 
                    G_CALLBACK (on_button_clicked), data);

  if (data->parent)
    gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (data->parent));
  gnc_restore_window_size(GCONF_SECTION_CONNECTION, GTK_WINDOW (dialog));

  g_object_ref (G_OBJECT (dialog));
  gtk_widget_hide_all (dialog);

  GWEN_INHERIT_SETDATA(AB_BANKING, GNCInteractor,
                       ab, data,
                       &destr);

  AB_Banking_SetMessageBoxFn(ab, messageBoxCB);
  AB_Banking_SetInputBoxFn(ab, inputBoxCB);
  AB_Banking_SetShowBoxFn(ab, showBoxCB);
  AB_Banking_SetHideBoxFn(ab, hideBoxCB);
  AB_Banking_SetProgressStartFn(ab, progressStartCB);
  AB_Banking_SetProgressAdvanceFn(ab, progressAdvanceCB);
  AB_Banking_SetProgressLogFn(ab, progressLogCB);
  AB_Banking_SetProgressEndFn(ab, progressEndCB);

  /* AB_Banking_SetGetPinFn(ab,); */
  AB_Banking_SetGetTanFn(ab, getTanCB);

  AB_Banking_SetUserData(ab, data);

}

---