/*
remote_provisioning.c
Copyright (C) 2010  Belledonne Communications SARL

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 "private.h"
#include "xml2lpc.h"

#define XML2LPC_CALLBACK_BUFFER_SIZE  1024

static void xml2lpc_callback(void *ctx, xml2lpc_log_level level, const char *fmt, va_list list) {
	char buffer[XML2LPC_CALLBACK_BUFFER_SIZE];
	vsnprintf(buffer, XML2LPC_CALLBACK_BUFFER_SIZE, fmt, list);

	if (level == XML2LPC_ERROR)
		ms_error("%s", buffer);
	else if (level == XML2LPC_WARNING)
		ms_warning("%s", buffer);
	/*else
		ms_message("%s", buffer); // Don't log debug messages */
}

static void linphone_remote_provisioning_apply(LinphoneCore *lc, const char *xml) {
	xml2lpc_context *context = xml2lpc_context_new(xml2lpc_callback, lc);
	int result = xml2lpc_set_xml_string(context, xml);
	if (result == 0) {
		result = xml2lpc_convert(context, linphone_core_get_config(lc));
		if (result == 0) {
			lp_config_sync(linphone_core_get_config(lc));
			xml2lpc_context_destroy(context);
			linphone_configuring_terminated(lc, LinphoneConfiguringSuccessful, NULL);
		} else {
			xml2lpc_context_destroy(context);
			linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "xml to lpc failed");
		}
	} else {
		xml2lpc_context_destroy(context);
		linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "invalid xml");
	}
}

static int linphone_remote_provisioning_load_file( LinphoneCore* lc, const char* file_path){
	int status = -1;
	FILE* f = fopen(file_path, "r");

	if( f ){
		fseek(f, 0, SEEK_END);
		long fsize = ftell(f);
		fseek(f, 0, SEEK_SET);

		char* provisioning = ms_malloc(fsize + 1);
		provisioning[fsize]='\0';
		if (fread(provisioning, fsize, 1, f)==0){
			ms_error("Could not read xml provisioning file from %s",file_path);
			status=-1;
		}else{
			linphone_remote_provisioning_apply(lc, provisioning);
			status = 0;
		}
		ms_free(provisioning);
		fclose(f);
	} else {
		ms_error("Couldn't open file %s for provisioning", file_path);
	}

	return status;
}

static void belle_request_process_response_event(void *ctx, const belle_http_response_event_t *event) {
	LinphoneCore *lc = (LinphoneCore *)ctx;
	belle_sip_message_t *body = BELLE_SIP_MESSAGE(event->response);
	const char *message = belle_sip_message_get_body(body);

	if (belle_http_response_get_status_code(event->response) == 200) {
		linphone_remote_provisioning_apply(lc, message);
	} else {
		linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "http error");
	}
}

static void belle_request_process_io_error(void *ctx, const belle_sip_io_error_event_t *event) {
	LinphoneCore *lc = (LinphoneCore *)ctx;
	linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "http io error");
}

static void belle_request_process_timeout(void *ctx, const belle_sip_timeout_event_t *event) {
	LinphoneCore *lc = (LinphoneCore *)ctx;
	linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "http timeout");
}

static void belle_request_process_auth_requested(void *ctx, belle_sip_auth_event_t *event) {
	LinphoneCore *lc = (LinphoneCore *)ctx;
	linphone_configuring_terminated(lc, LinphoneConfiguringFailed, "http auth requested");
}

int linphone_remote_provisioning_download_and_apply(LinphoneCore *lc, const char *remote_provisioning_uri) {
	const char* file_path = strstr(remote_provisioning_uri, "file://");

	if( file_path == remote_provisioning_uri ){
		// We allow for 'local remote-provisioning' in case the file is to be opened from the hard drive
		file_path += strlen("file://");
		return linphone_remote_provisioning_load_file(lc, file_path);
	} else {
		belle_generic_uri_t *uri=belle_generic_uri_parse(remote_provisioning_uri);
		belle_http_request_listener_callbacks_t belle_request_listener = {
			belle_request_process_response_event,
			belle_request_process_io_error,
			belle_request_process_timeout,
			belle_request_process_auth_requested
		};
		belle_http_request_listener_t *listener = belle_http_request_listener_create_from_callbacks(&belle_request_listener, lc);
		belle_http_request_t *request;

		if (uri==NULL) {
			belle_sip_error("Invalid provisioning URI [%s]",remote_provisioning_uri);
			return -1;
		}
		request=belle_http_request_create("GET",uri, NULL);
		belle_http_provider_send_request(lc->http_provider, request, listener);
		return 0;
	}
}

void linphone_core_set_provisioning_uri(LinphoneCore *lc, const char *uri) {
	lp_config_set_string(lc->config,"misc","config-uri",uri);
}

const char*linphone_core_get_provisioning_uri(const LinphoneCore *lc){
	return lp_config_get_string(lc->config,"misc","config-uri",NULL);
}

bool_t linphone_core_is_provisioning_transient(LinphoneCore *lc) {
	return lp_config_get_int(lc->config, "misc", "transient_provisioning", 0) == 1;
}