/*
 * Copyright 2004,2005 The Apache Software Foundation.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include <axiom_node.h>
#include <axiom_element.h>
#include <axiom_soap_body.h>
#include <axis2_options.h>
#include <axutil_array_list.h>
#include <axis2_conf_ctx.h>
#include <axis2_svc.h>
#include <platforms/axutil_platform_auto_sense.h>

#include <savan_publishing_client.h>
#include <savan_subscriber.h>
#include <savan_util.h>
#include <savan_constants.h>
#include <savan_db_mgr.h>

struct savan_publishing_client_t
{
    axis2_conf_ctx_t *conf_ctx;
    axis2_svc_t *svc;
};

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


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

AXIS2_EXTERN savan_publishing_client_t * AXIS2_CALL
savan_publishing_client_create(
    const axutil_env_t *env,
    axis2_conf_ctx_t *conf_ctx,
    axis2_svc_t *svc)
{
    savan_publishing_client_t *client = NULL;

    AXIS2_ENV_CHECK(env, NULL);

    client = AXIS2_MALLOC(env->allocator, sizeof(savan_publishing_client_t));

    if (!client)
    {
        AXIS2_ERROR_SET(env->error, AXIS2_ERROR_NO_MEMORY, AXIS2_FAILURE);
        return NULL;
    }

    client->conf_ctx = conf_ctx;
    client->svc = svc;

    return client;
}

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

AXIS2_EXTERN void AXIS2_CALL
savan_publishing_client_free(
    savan_publishing_client_t *client, 
    const axutil_env_t *env)
{
    AXIS2_FREE(env->allocator, client);
}

AXIS2_EXTERN axis2_status_t AXIS2_CALL
savan_publishing_client_publish(
    savan_publishing_client_t *client,
    const axutil_env_t *env,
    axiom_node_t *payload)
{
    axutil_param_t *param = NULL;
    axis2_svc_t *pubs_svc = NULL;
    axutil_array_list_t *subs_store = NULL;
    axis2_conf_ctx_t *conf_ctx = NULL;
    axis2_conf_t *conf = NULL;
    axis2_module_desc_t *module_desc = NULL;
    int i = 0, size = 0;
    axutil_param_t *topic_param = NULL;
    axis2_char_t *topic_url = NULL;
    axutil_qname_t *qname = NULL;

    AXIS2_ENV_CHECK(env, AXIS2_FAILURE);

    AXIS2_LOG_DEBUG(env->log, AXIS2_LOG_SI, "[savan] "
        "Start:savan_publishing_client_publish");
   
    conf_ctx = client->conf_ctx;
    pubs_svc = client->svc;
    topic_param = axis2_svc_get_param(pubs_svc, env, "TopicURL");
    topic_url = axutil_param_get_value(topic_param, env);
    conf = axis2_conf_ctx_get_conf(conf_ctx, env);
    qname = axutil_qname_create(env, "savan", NULL, NULL);
    module_desc = axis2_conf_get_module(conf, env, qname);
    param = axis2_module_desc_get_param(module_desc, env, "SubscriptionMgrURL");
    axutil_qname_free(qname, env);
    if(param)
    {
        axis2_char_t *subs_mgr_url = NULL;

        axis2_svc_client_t* svc_client = NULL;
        axutil_param_t *svc_client_param = NULL;

        subs_mgr_url = axutil_param_get_value(param, env);
        svc_client_param = axis2_svc_get_param(pubs_svc, env, "svc_client");
        if(svc_client_param)
            svc_client = axutil_param_get_value(svc_client_param, env);
        if(!svc_client)
        {
            svc_client = 
                (axis2_svc_client_t *) savan_util_get_svc_client(env);
            svc_client_param = axutil_param_create(env, "svc_client", 
                svc_client);
            axis2_svc_add_param(pubs_svc, env, svc_client_param);
        }
        subs_store = 
            savan_util_get_subscriber_list_from_remote_subs_mgr(env, 
                topic_url, subs_mgr_url, svc_client);
    }
    else
    {
        axis2_char_t sql_retrieve[256];
        savan_db_mgr_t *db_mgr = NULL;
        axis2_char_t *topic_name = NULL;

        topic_name = savan_util_get_topic_name_from_topic_url(env, topic_url);
        sprintf(sql_retrieve, "select id, end_to, notify_to, delivery_mode, "\
            "expires, filter, renewed, topic_url from subscriber, topic"\
            " where topic.topic_name=subscriber.topic_name and"\
            " topic.topic_name='%s';", topic_name);
        db_mgr = savan_db_mgr_create(env, conf_ctx);
        if(db_mgr)
            subs_store = savan_db_mgr_retrieve_all(db_mgr, env,
                savan_db_mgr_subs_find_callback, sql_retrieve);
    }
    if (!subs_store)
    {
        AXIS2_LOG_ERROR(env->log, AXIS2_LOG_SI, 
            "[SAVAN] Subscriber store is NULL"); 
        return AXIS2_SUCCESS; /* returning FAILURE will break handler chain */
    }

    size = axutil_array_list_size(subs_store, env);
    for(i = 0; i < size; i++)
    {
        savan_subscriber_t * sub = NULL;
        sub = axutil_array_list_get(subs_store, env, i);
        if (sub)
        {
            axis2_char_t *id = savan_subscriber_get_id(sub, env);
            AXIS2_LOG_DEBUG(env->log, AXIS2_LOG_SI, "[savan][out handler] "
                "Publishing to %s", id);
            savan_subscriber_publish(sub, env, payload);
        }
    }
    AXIS2_LOG_DEBUG(env->log, AXIS2_LOG_SI, "[savan] "
        "End:savan_publishing_client_publish");
    
    return AXIS2_SUCCESS;
}