/* $Id$ */

/***
  This file is part of avahi.
 
  avahi 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.
 
  avahi 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 avahi; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  USA.
***/

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include <dbus/dbus.h>

#include <avahi-client/client.h>
#include <avahi-common/dbus.h>
#include <avahi-common/llist.h>
#include <avahi-common/error.h>
#include <avahi-common/malloc.h>

#include "client.h"
#include "internal.h"

static void pending_call_callback(DBusPendingCall *pending, void *userdata) {
    AvahiServiceResolver *r =  userdata;
    DBusMessage *message = NULL;
    AvahiStringList *strlst = NULL;
    DBusError error;
    
    assert(pending);
    assert(r);

    dbus_error_init(&error);

    if (!(message = dbus_pending_call_steal_reply(pending)))
        goto fail;

    if (dbus_message_get_type(message) == DBUS_MESSAGE_TYPE_METHOD_RETURN) {
        int j;
        int32_t interface, protocol, aprotocol;
        char *name, *type, *domain, *host, *address;
        uint16_t port;
        DBusMessageIter iter, sub;
        AvahiAddress a;
        
        if (!dbus_message_get_args(
                message, &error,
                DBUS_TYPE_INT32, &interface,
                DBUS_TYPE_INT32, &protocol,
                DBUS_TYPE_STRING, &name,
                DBUS_TYPE_STRING, &type,
                DBUS_TYPE_STRING, &domain,
                DBUS_TYPE_STRING, &host,
                DBUS_TYPE_INT32, &aprotocol,
                DBUS_TYPE_STRING, &address,
                DBUS_TYPE_UINT16, &port,
                DBUS_TYPE_INVALID) ||
            dbus_error_is_set (&error)) {
            fprintf(stderr, "Failed to parse resolver event.\n");
            goto fail;
        }
        
        dbus_message_iter_init(message, &iter);
        
        for (j = 0; j < 9; j++)
            dbus_message_iter_next(&iter);
        
        if (dbus_message_iter_get_arg_type(&iter) != DBUS_TYPE_ARRAY ||
            dbus_message_iter_get_element_type(&iter) != DBUS_TYPE_ARRAY) {
            fprintf(stderr, "Error parsing service resolving message");
            goto fail;
        }
        
        strlst = NULL;
        dbus_message_iter_recurse(&iter, &sub);
        
        for (;;) {
            DBusMessageIter sub2;
            int at, n;
            uint8_t *k;
            
            if ((at = dbus_message_iter_get_arg_type(&sub)) == DBUS_TYPE_INVALID)
                break;
            
            assert(at == DBUS_TYPE_ARRAY);
            
            if (dbus_message_iter_get_element_type(&sub) != DBUS_TYPE_BYTE) {
                fprintf(stderr, "Error parsing service resolving message");
                goto fail;
            }
            
            dbus_message_iter_recurse(&sub, &sub2);
            dbus_message_iter_get_fixed_array(&sub2, &k, &n);
            strlst = avahi_string_list_add_arbitrary(strlst, k, n);
            
            dbus_message_iter_next(&sub);
        }

        assert(address);
        if (!avahi_address_parse(address, (AvahiProtocol) aprotocol, &a)) {
            fprintf(stderr, "Failed to parse address\n");
            goto fail;
        }
    
        r->callback(r, (AvahiIfIndex) interface, (AvahiProtocol) protocol, AVAHI_RESOLVER_FOUND, name, type, domain, host, &a, port, strlst, r->userdata);

    } else {

        assert(dbus_message_get_type(message) == DBUS_MESSAGE_TYPE_ERROR);

        avahi_client_set_errno(r->client, avahi_error_dbus_to_number(dbus_message_get_error_name(message)));

        r->callback(r, (AvahiIfIndex) 0, (AvahiProtocol) 0, AVAHI_RESOLVER_TIMEOUT, NULL, NULL, NULL, NULL, NULL, 0, NULL, r->userdata);
    }

fail:
    
    if (message)
        dbus_message_unref(message);
    
    avahi_string_list_free(strlst);
    
    dbus_error_free (&error);
}

AvahiServiceResolver * avahi_service_resolver_new(
    AvahiClient *client,
    AvahiIfIndex interface,
    AvahiProtocol protocol,
    const char *name,
    const char *type,
    const char *domain,
    AvahiProtocol aprotocol,
    AvahiServiceResolverCallback callback,
    void *userdata) {

    DBusError error;
    AvahiServiceResolver *r;
    DBusMessage *message;
    int32_t i_interface, i_protocol, i_aprotocol;
    
    assert(client);
    assert(name);
    assert(type);

    if (!domain)
        domain = "";
    
    dbus_error_init (&error);

    if (client->state == AVAHI_CLIENT_DISCONNECTED) {
        avahi_client_set_errno(client, AVAHI_ERR_BAD_STATE);
        goto fail;
    }

    if (!(r = avahi_new(AvahiServiceResolver, 1))) {
        avahi_client_set_errno(client, AVAHI_ERR_NO_MEMORY);
        goto fail;
    }

    r->client = client;
    r->callback = callback;
    r->userdata = userdata;
    r->call = NULL;
    
    AVAHI_LLIST_PREPEND(AvahiServiceResolver, service_resolvers, client->service_resolvers, r);

    if (!(message = dbus_message_new_method_call(AVAHI_DBUS_NAME, AVAHI_DBUS_PATH_SERVER, AVAHI_DBUS_INTERFACE_SERVER, "ResolveService"))) {
        avahi_client_set_errno(client, AVAHI_ERR_NO_MEMORY);
        goto fail;
    }

    i_interface = interface;
    i_protocol = protocol;
    i_aprotocol = aprotocol;

    if (!(dbus_message_append_args(
              message,
              DBUS_TYPE_INT32, &i_interface,
              DBUS_TYPE_INT32, &i_protocol,
              DBUS_TYPE_STRING, &name,
              DBUS_TYPE_STRING, &type,
              DBUS_TYPE_STRING, &domain,
              DBUS_TYPE_INT32, &i_aprotocol,
              DBUS_TYPE_INVALID))) {
        avahi_client_set_errno(client, AVAHI_ERR_NO_MEMORY);
        goto fail;
    }

    if (!dbus_connection_send_with_reply(client->bus, message, &r->call, -1) ||
        !dbus_pending_call_set_notify(r->call, pending_call_callback, r, NULL)) {
        avahi_client_set_errno(client, AVAHI_ERR_NO_MEMORY);
        goto fail;
    }

    dbus_message_unref(message);

    return r;
    
fail:

    if (dbus_error_is_set(&error)) {
        avahi_client_set_dbus_error(client, &error);
        dbus_error_free(&error);
    }

    if (r)
        avahi_service_resolver_free(r);
    
    if (message)
        dbus_message_unref(message);

    return NULL;

}

int avahi_service_resolver_free(AvahiServiceResolver *r) {
    AvahiClient *client;

    assert(r);
    client = r->client;

    if (r->call) {
        dbus_pending_call_cancel(r->call);
        dbus_pending_call_unref(r->call);
    }

    AVAHI_LLIST_REMOVE(AvahiServiceResolver, service_resolvers, client->service_resolvers, r);

    avahi_free(r);

    return AVAHI_OK;
}

int avahi_service_resolver_block(AvahiServiceResolver *r) {
    AvahiClient *client;

    assert(r);
    client = r->client;

    if (r->call)
        dbus_pending_call_block(r->call);

    return AVAHI_OK;
}