/* $Id$ 
 *
 * Lasso - A free implementation of the Liberty Alliance specifications.
 *
 * Copyright (C) 2004 Entr'ouvert
 * http://lasso.entrouvert.org
 * 
 * Authors: Valery Febvre   <vfebvre@easter-eggs.com>
 *          Nicolas Clapies <nclapies@entrouvert.com>
 *
 * 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 <lasso/protocols/authn_response.h>
#include <lasso/protocols/authn_request.h>

//static GObjectClass *parent_class = NULL;

xmlChar *
lasso_authn_response_get_status(LassoAuthnResponse *response) {
  LassoNode *status_code;
  xmlChar *res;

  status_code = lasso_node_get_child(response, "StatusCode", NULL);
  if (status_code != NULL)
    return lasso_node_get_attr_value(status_code, "Value");
  else
    return(NULL);
}

/*
  lasso_authn_response_get_nameIdentifier
  lasso_authn_response_get_idpProvidedNameIdentifier

  assertion = lasso_node_get_child(response, "Assertion", NULL);
  nameIdentifier = lasso_node_get_child(assertion, "NameIdentifier", NULL);
  idpProvidedNameIdentifier = lasso_node_get_child(assertion, "IDPProvidedNameIdentifier", NULL);
*/

static void
lasso_authn_response_set_status(LassoAuthnResponse *response,
				const xmlChar      *statusCodeValue) {
  LassoNode *status, *status_code;

  status = lasso_samlp_status_new();

  status_code = lasso_samlp_status_code_new();
  lasso_samlp_status_code_set_value(LASSO_SAMLP_STATUS_CODE(status_code),
				    statusCodeValue);

  lasso_samlp_status_set_statusCode(LASSO_SAMLP_STATUS(status),
				    LASSO_SAMLP_STATUS_CODE(status_code));

  lasso_samlp_response_set_status(LASSO_SAMLP_RESPONSE(response),
				  LASSO_SAMLP_STATUS(status));
  lasso_node_destroy(status_code);
  lasso_node_destroy(status);
}

/*****************************************************************************/
/* public methods                                                            */
/*****************************************************************************/

/* gboolean */
/* lasso_authn_response_must_authenticate(LassoAuthnResponse *response, */
/* 				       LassoAuthnRe *request, */
/* 				       gboolean            is_authenticated) */
/* { */
/*   GData    *gd; */
/*   gboolean  must_authenticate = FALSE; */
/*   /\* default values for ForceAuthn and IsPassive *\/ */
/*   gboolean forceAuthn = FALSE; */
/*   gboolean isPassive  = TRUE; */
 
/*   gd = lasso_query_to_dict(LASSO_AUTHN_RESPONSE(response)->query); */
/*   /\* Get ForceAuthn and IsPassive *\/ */
/*   if (xmlStrEqual(lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "ForceAuthn"), 0), "true")) { */
/*     forceAuthn = TRUE; */
/*   } */
/*   if (xmlStrEqual((xmlChar *)lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "IsPassive"), 0), "false")) { */
/*     isPassive = FALSE; */
/*   } */
 
/*   if ((forceAuthn == TRUE || is_authenticated == FALSE) && isPassive == FALSE) { */
/*     must_authenticate = TRUE; */
/*   } */
/*   else */
/*     if (is_authenticated == FALSE && isPassive == TRUE) { */
/*       lasso_authn_response_set_status(response, lassoLibStatusCodeNoPassive); */
/*     } */
  
/*   g_datalist_clear(&gd); */
/*   return (must_authenticate); */
/* } */

/* void */
/* lasso_authn_response_process_authentication_result(LassoAuthnResponse *response, */
/* 						   gboolean            authentication_result) */
/* { */
/*   if (authentication_result == FALSE) { */
/*     lasso_authn_response_set_status(response, lassoLibStatusCodeUnknownPrincipal); */
/*   } */
/* } */

/* gboolean */
/* lasso_authn_response_verify_signature(LassoAuthnResponse *response, */
/* 				      xmlChar            *public_key_file, */
/* 				      xmlChar            *private_key_file) */
/* { */
/*   g_return_val_if_fail(LASSO_IS_AUTHN_RESPONSE(response), FALSE); */

/*   gboolean signature_status; */

/*   signature_status = lasso_query_verify_signature(LASSO_AUTHN_RESPONSE(response)->query, */
/* 						  public_key_file, */
/* 						  private_key_file); */

/*   /\* Status & StatusCode *\/ */
/*   if (signature_status == 0 || signature_status == 2) { */
/*     switch (signature_status) { */
/*     case 0: */
/*       lasso_authn_response_set_status(response, lassoLibStatusCodeInvalidSignature); */
/*       break; */
/*     case 2: */
/*       lasso_authn_response_set_status(response, lassoLibStatusCodeUnsignedAuthnRequest); */
/*       break; */
/*     } */
/*   } */

/*   if (signature_status == 1) */
/*     return (TRUE); */
/*   else */
/*     return (FALSE); */
/* } */

/*****************************************************************************/
/* overrided parent classes methods                                          */
/*****************************************************************************/

/* static void */
/* lasso_authn_response_dispose(LassoAuthnResponse *response) */
/* { */
/*   parent_class->dispose(G_OBJECT(response)); */
/* } */

/* override lasso_node_dump() method */
/* static xmlChar * */
/* lasso_authn_response_dump(LassoAuthnResponse *response, */
/* 			  const xmlChar      *encoding, */
/* 			  int                 format) */
/* { */
/*   LassoNode *response_copy, *request, *response_dump; */
/*   xmlChar   *dump; */

/*   response_dump = lasso_node_new(); */
/*   LASSO_NODE_GET_CLASS(response_dump)->set_name(response_dump, "LassoDumpAuthnResponse"); */
/*   response_copy = lasso_node_copy(LASSO_NODE(response)); */
/*   LASSO_NODE_GET_CLASS(response_dump)->add_child(response_dump, response_copy, FALSE); */
/*   if (response->query != NULL) { */
/*     request = lasso_authn_request_new_from_query(response->query); */
/*     LASSO_NODE_GET_CLASS(response_dump)->add_child(response_dump, request, FALSE); */
/*   } */
/*   else { */
/*     request = lasso_node_copy(response->request); */
/*     LASSO_NODE_GET_CLASS(response_dump)->add_child(response_dump, request, FALSE); */
/*   } */
/*   dump = lasso_node_dump(response_dump, encoding, format); */

/*   lasso_node_destroy(response_copy); */
/*   lasso_node_destroy(request); */
/*   lasso_node_destroy(response_dump); */

/*   return (dump); */
/* } */

/* static void */
/* lasso_authn_response_finalize(LassoAuthnResponse *response) */
/* { */
/*   if (response->query != NULL) */
/*     g_free(response->query); */
/*   if (response->request != NULL) */
/*     lasso_node_destroy(response->request); */
/*   parent_class->finalize(G_OBJECT(response)); */
/* } */

/*****************************************************************************/
/* instance and class init functions                                         */
/*****************************************************************************/

static void
lasso_authn_response_instance_init(LassoAuthnResponse *response)
{
}

static void
lasso_authn_response_class_init(LassoAuthnResponseClass *class)
{
  GObjectClass   *gobject_class = G_OBJECT_CLASS(class);
  //LassoNodeClass *lasso_node_class = LASSO_NODE_CLASS(class);

  //parent_class = g_type_class_peek_parent(class);
  /* override parent classes methods */
  //gobject_class->dispose  = (void *)lasso_authn_response_dispose;
  //gobject_class->finalize = (void *)lasso_authn_response_finalize;
  //lasso_node_class->dump  = lasso_authn_response_dump;
}

GType lasso_authn_response_get_type() {
  static GType this_type = 0;

  if (!this_type) {
    static const GTypeInfo this_info = {
      sizeof (LassoAuthnResponseClass),
      NULL,
      NULL,
      (GClassInitFunc) lasso_authn_response_class_init,
      NULL,
      NULL,
      sizeof(LassoAuthnResponse),
      0,
      (GInstanceInitFunc) lasso_authn_response_instance_init,
    };
    
    this_type = g_type_register_static(LASSO_TYPE_LIB_AUTHN_RESPONSE,
				       "LassoAuthnResponse",
				       &this_info, 0);
  }
  return this_type;
}

/* LassoNode* */
/* lasso_authn_response_new_from_dump(xmlChar *buffer) */
/* { */
/*   LassoNode *response, *request, *response_dump, *request_dump, *node_dump; */
/*   xmlNodePtr xmlNode_response, xmlNode_request; */

/*   g_return_val_if_fail(buffer != NULL, NULL); */

/*   response = LASSO_NODE(g_object_new(LASSO_TYPE_AUTHN_RESPONSE, NULL)); */
/*   request  = LASSO_NODE(g_object_new(LASSO_TYPE_AUTHN_REQUEST, NULL)); */

/*   node_dump = lasso_node_new_from_dump(buffer); */
/*   /\* get xmlNodes *\/ */
/*   response_dump = lasso_node_get_child(node_dump, "AuthnResponse", NULL); */
/*   request_dump  = lasso_node_get_child(node_dump, "AuthnRequest", NULL); */
/*   /\* xmlNodes are copies because they will be freed when node_dump will be destroy *\/ */
/*   xmlNode_response = xmlCopyNode(LASSO_NODE_GET_CLASS(response)->get_xmlNode(response_dump), 1); */
/*   xmlNode_request  = xmlCopyNode(LASSO_NODE_GET_CLASS(response)->get_xmlNode(request_dump), 1); */

/*   /\* put xmlNodes in LassoNodes *\/ */
/*   LASSO_NODE_GET_CLASS(response)->set_xmlNode(response, xmlNode_response); */
/*   LASSO_NODE_GET_CLASS(request)->set_xmlNode(request, xmlNode_request); */

/*   LASSO_AUTHN_RESPONSE(response)->request = request; */
/*   LASSO_AUTHN_RESPONSE(response)->query = NULL; */

/*   lasso_node_destroy(response_dump); */
/*   lasso_node_destroy(request_dump); */
/*   lasso_node_destroy(node_dump); */

/*   return (response); */
/* } */

LassoNode*
lasso_authn_response_new(char *providerID,
			 LassoNode *request)
{
  LassoNode *response;
  xmlChar *id, *time, content;
  
  g_return_val_if_fail(providerID != NULL, NULL);
  
  response = LASSO_NODE(g_object_new(LASSO_TYPE_AUTHN_RESPONSE, NULL));
  
  /* ResponseID */
  id = lasso_build_unique_id(32);
  lasso_samlp_response_abstract_set_responseID(LASSO_SAMLP_RESPONSE_ABSTRACT(response),
					       (const xmlChar *)id);
  xmlFree(id);
  
  /* MajorVersion */
  lasso_samlp_response_abstract_set_majorVersion(LASSO_SAMLP_RESPONSE_ABSTRACT(response),
						 lassoLibMajorVersion);     
  
  /* MinorVersion */
  lasso_samlp_response_abstract_set_minorVersion(LASSO_SAMLP_RESPONSE_ABSTRACT(response), 
						 lassoLibMinorVersion);

  /* IssueInstance */
  time = lasso_get_current_time();
  lasso_samlp_response_abstract_set_issueInstance(LASSO_SAMLP_RESPONSE_ABSTRACT(response),
						  (const xmlChar *)time);
  xmlFree(time);
  
  /* ProviderID */
  lasso_lib_authn_response_set_providerID(LASSO_LIB_AUTHN_RESPONSE(response),
					  providerID);
  
  /* TODO RelayState */

  /* Status Code */
  //lasso_authn_response_set_status(response, lassoSamlStatusCodeSuccess);
  
  return(response);
}

LassoNode*
lasso_authn_response_new_from_export(xmlChar *buffer,
				     gint     type)
{
  xmlChar *buffer_decoded = xmlMalloc(strlen(buffer));
  LassoNode *response, *node;
  xmlNodePtr xmlNode_response;

  g_return_val_if_fail(buffer != NULL, NULL);

  xmlSecBase64Decode(buffer, buffer_decoded, strlen(buffer));

  response = LASSO_NODE(g_object_new(LASSO_TYPE_AUTHN_RESPONSE, NULL));

  node = lasso_node_new_from_dump(buffer_decoded);
  xmlNode_response = xmlCopyNode(LASSO_NODE_GET_CLASS(node)->get_xmlNode(node), 1);
  LASSO_NODE_GET_CLASS(response)->set_xmlNode(response, xmlNode_response);

/*   LASSO_AUTHN_RESPONSE(response)->request = NULL; */
/*   LASSO_AUTHN_RESPONSE(response)->query = NULL; */
  lasso_node_destroy(node);

  return (response);
}

/* LassoNode* */
/* lasso_authn_response_new_from_request_query(gchar         *query, */
/* 					    const xmlChar *providerID) */
/* { */
/*   GData     *gd; */
/*   LassoNode *response; */
/*   xmlChar   *id, *time; */

/*   g_return_val_if_fail(query != NULL, NULL); */
/*   g_return_val_if_fail(providerID != NULL, NULL); */

/*   response = LASSO_NODE(g_object_new(LASSO_TYPE_AUTHN_RESPONSE, NULL)); */

/*   gd = lasso_query_to_dict(query); */
/* /\*   /\\* store query - need to verify signature *\\/ *\/ */
/* /\*   LASSO_AUTHN_RESPONSE(response)->query   = g_strdup(query); *\/ */
/* /\*   LASSO_AUTHN_RESPONSE(response)->request = lasso_authn_request_new_from_query(query); *\/ */

/*   /\* ResponseID *\/ */
/*   id = lasso_build_unique_id(32); */
/*   lasso_samlp_response_abstract_set_responseID(LASSO_SAMLP_RESPONSE_ABSTRACT(response), */
/* 					       (const xmlChar *)id); */
/*   xmlFree(id); */
/*   /\* MajorVersion *\/ */
/*   lasso_samlp_response_abstract_set_majorVersion(LASSO_SAMLP_RESPONSE_ABSTRACT(response), */
/* 						 lassoLibMajorVersion);      */
/*   /\* MinorVersion *\/ */
/*   lasso_samlp_response_abstract_set_minorVersion(LASSO_SAMLP_RESPONSE_ABSTRACT(response),  */
/* 						 lassoLibMinorVersion); */
/*   /\* IssueInstance *\/ */
/*   time = lasso_get_current_time(); */
/*   lasso_samlp_response_abstract_set_issueInstance(LASSO_SAMLP_RESPONSE_ABSTRACT(response), */
/* 						  (const xmlChar *)time); */
/*   xmlFree(time); */

/*   /\* ProviderID *\/ */
/*   lasso_lib_authn_response_set_providerID(LASSO_LIB_AUTHN_RESPONSE(response), */
/* 					  providerID); */

/*   /\* RelayState *\/ */
/*   if (lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "RelayState"), 0) != NULL) { */
/*     lasso_lib_authn_response_set_relayState(LASSO_LIB_AUTHN_RESPONSE(response), */
/* 					    lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "RelayState"), 0)); */
/*   } */
/*   /\* InResponseTo *\/ */
/*   if (lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "RequestID"), 0) != NULL) { */
/*     lasso_samlp_response_abstract_set_inResponseTo(LASSO_SAMLP_RESPONSE_ABSTRACT(response), */
/* 						   lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "RequestID"), 0)); */
/*   } */

/*   /\* consent *\/ */
/*   if (lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "consent"), 0) != NULL) { */
/*     lasso_lib_authn_response_set_consent(LASSO_LIB_AUTHN_RESPONSE(response), */
/* 					 lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "consent"), 0)); */
/*   }   */

/*   /\* Recipient *\/ */
/*   lasso_samlp_response_abstract_set_recipient(LASSO_SAMLP_RESPONSE_ABSTRACT(response), */
/* 					      lasso_g_ptr_array_index((GPtrArray *)g_datalist_get_data(&gd, "ProviderID"), 0)); */

/*   /\* Status & StatusCode *\/ */
/*   lasso_authn_response_set_status(response, lassoSamlStatusCodeSuccess); */

/*   g_datalist_clear(&gd); */

/*   return (response); */
/* } */

/* LassoNode* */
/* lasso_authn_response_new_from_lareq(xmlChar       *lareq, */
/* 				    const xmlChar *providerID) */
/* { */
  
/* } */