/***********************************************************************/
/*                                                                     */
/*  GNU Data Access                                                    */
/*  Testing program                                                    */
/*  (c) 2000 Free Software Foundation                                  */
/*                                                                     */
/***********************************************************************/
/*                                                                     */
/*  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., 675 Mass Ave, Cambridge, MA 02139, USA.          */
/*                                                                     */
/***********************************************************************/

#include "config.h"
#include <glib.h>
#include <gda-common.h>
#include <gda-client.h>

#define MAXSTRLENGTH  1024

/* ------------------------------------------------------------------------- */
/* Print intro messages
/* ------------------------------------------------------------------------- */
void
intro ()
{
  g_print ("GDA-Test version %s\n", VERSION);
  g_print ("Copyright (c) 2000 Free Software Foundation, Inc.\n");
  g_print ("This program is part of GNU Data Access (GDA) version %s.\n",
	   VERSION);
  g_print ("GDA-Test comes with NO WARRANTY, ");
  g_print ("to the extent permitted by law.\n");
  g_print ("You may redistribute copies of ");
  g_print ("GDA-Test under the terms of the GNU\n");
  g_print ("General Public License. ");
  g_print ("For more information see the file COPYING.\n");
}

/* ------------------------------------------------------------------------- */
/* Print errors and exit program
/* ------------------------------------------------------------------------- */
int
die (GdaConnection* cnc)
{
  GList* errors;
  GList* node;
  GdaError* error;

  errors = gda_connection_get_errors (cnc);
  for (node = g_list_first (errors); node; node = g_list_next (node))
    {
      error = (GdaError*) node->data;
      g_print ("%s\n", gda_error_get_description (error));
    }
  gda_error_list_free (errors);
  exit (1);
}

/* ------------------------------------------------------------------------- */
/* List all providers
/* ------------------------------------------------------------------------- */
char*
list_providers ()
{
  GList* list;
  GList* node;
  GdaProvider* provider;
  int i = 0;

  list = gda_provider_list ();
  if (!list)
    {
      g_print ("\n*** Error ***\n");
      g_print ("There are no GDA providers available.\n");
      g_print ("If you installed libgda from a RPM, a DEB, or a Linux\n");
      g_print ("Distribution, you should install one of the providers,\n");
      g_print ("which you can get from the same source as you got libgda.\n");
      g_print ("If you built libgda yourself, you should run ./configure\n");
      g_print ("with one of the options that enable the providers (run\n");
      g_print ("./configure --help for details) and then make and install\n");
      g_print ("again.\n");
      g_print ("If you already installed a provider, the .oafinfo file is\n");
      g_print ("maybe not installed in the right directory.\n");
      exit (1);
    }

  g_print ("\nThe following %d GDA providers are available:\n",
	   g_list_length (list));
  for (node = g_list_first (list); node; node = g_list_next (node))
    {
      provider = (GdaProvider*) node->data;
      g_print ("%d: %s\n", ++i, GDA_PROVIDER_NAME (provider));
    }
  gda_provider_free_list (list);
}

/* ------------------------------------------------------------------------- */
/* List all primebase dbms
/* ------------------------------------------------------------------------- */
void
list_dbms (GdaConnection* cnc)
{
  GdaRecordset* rs;
  GdaCommand* cmd;
  GdaField* field;
  gint i;
  glong affected;

  cmd = gda_command_new();
  gda_command_set_connection(cmd, cnc);
  gda_command_set_text(cmd, "DESCRIBE DBMS; PRINTALL;");
  g_print ("\nopening dbms...\n");
  rs = gda_command_execute(cmd, &affected, 0);
  if (!rs) die (cnc);
  g_print ("\nThis database has following tables:\n");
  for (gda_recordset_move_first (rs); !gda_recordset_eof (rs);
       gda_recordset_move_next (rs)) {
    for (i = 0; i < gda_recordset_rowsize (rs); i++) {
	  field = gda_recordset_field_idx (rs, i);
	  g_print ("%s=%s\t", gda_field_get_name (field),
              gda_stringify_value (NULL, 0, field));
    }
	 
    g_print ("\n");
  }
  gda_recordset_free(rs);
  gda_command_set_connection(cmd, NULL);
  gda_command_free(cmd);
}

/* ------------------------------------------------------------------------- */
/* Main function
/* ------------------------------------------------------------------------- */
int
main (int argc, char* argv[])
{
  gchar* provider;
  GdaConnection* cnc;
  gchar dsn[MAXSTRLENGTH];
  gchar user[MAXSTRLENGTH];
  gchar* password = NULL;
  gint length;

  intro ();
  g_print ("\ninitializing...\n");
  gda_init ("gda-test", NULL, argc, argv);
  cnc = gda_connection_new (gda_corba_get_orb ());
  list_providers();
  provider = g_strdup("OAFIID:GNOME_GDA_Provider_Primebase_ConnectionFactory");
  g_print ("\nchoosing %s...\n", provider);
  gda_connection_set_provider (cnc, provider);
  g_print ("\nPlease enter dsn (like 'DATABASE=test'): ");
  fgets(dsn, MAXSTRLENGTH, stdin);
  length = strlen (dsn);
  dsn[length-1] = 0; /* remove \n at the end of the string */
  g_print ("Please enter user name: ");
  fgets(user, MAXSTRLENGTH, stdin);
  length = strlen (user);
  user[length-1] = 0;
  password = getpass("Please enter password: ");
  length = strlen(password);
//  password[length-1] = 0;
  g_print ("\nopening connection...\n");
  !gda_connection_open (cnc, dsn, user, password) || die (cnc);
  list_dbms (cnc);
  g_print ("\nclosing connection...\n", provider);
  gda_connection_free (cnc);
  return (0);
}