/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <stdio.h>
#include <stdlib.h>
#include <strings.h>
#include <errno.h>
#include <pthread.h>
#include <sip.h>

#include "sip_msg.h"

/*
 * Generic function to get int or string value from a header
 */
static void *
sip_get_val_from_hdr(sip_hdr_value_t *val, int val_type, boolean_t stype,
    int *error)
{
        if (error != NULL)
                *error = 0;

        if (val == NULL || val->sip_value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        if (val->sip_value_state == SIP_VALUE_BAD)
                *error = EPROTO;

        switch (val_type) {
                case (SIP_INT_VAL):
                        return (&(val->int_val));
                case (SIP_STR_VAL):
                        return (&(val->str_val));
                case (SIP_STRS_VAL):
                        if (stype == B_TRUE) {
                                if (val->strs_val.s1.sip_str_ptr != NULL)
                                        return (&(val->strs_val.s1));
                                return (NULL);
                        }
                        if (val->strs_val.s2.sip_str_ptr != NULL)
                                return (&(val->strs_val.s2));
                        return (NULL);
                case (SIP_INTSTR_VAL):
                        if (stype == B_TRUE) {
                                if (val->intstr_str.sip_str_ptr != NULL)
                                        return (&(val->intstr_str));
                                else
                                        return (NULL);
                        }
                        return (&(val->intstr_int));
                case (SIP_AUTH_VAL):
                        return (&(val->auth_val));
        }
        if (error != NULL && *error == 0)
                *error = EINVAL;
        return (NULL);
}

/*
 * Generic function to get value from a header given the value type and
 * the string info (for multi-string values).
 */
static void *
sip_get_val_from_msg(sip_msg_t msg, char *hdr_name, int val_type,
    boolean_t stype, boolean_t empty_val, int *error)
{
        const _sip_header_t     *header;
        sip_hdr_value_t         *value;

        if (error != NULL)
                *error = 0;
        if (msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        header = sip_get_header(msg, hdr_name, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL && empty_val == B_FALSE)
                        *error = EPROTO;
                return (NULL);
        }
        return (sip_get_val_from_hdr(value, val_type, stype, error));
}

/*
 * Get the URI from the value
 */
const sip_str_t *
sip_get_cftruri_from_val(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *cftrvalue;

        if (error != NULL)
                *error = 0;

        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        cftrvalue = (sip_hdr_value_t *)value;
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (&cftrvalue->cftr_uri);
}

/*
 * Get display name from the value
 */
const sip_str_t *
sip_get_cftrname_from_val(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *cftrvalue;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        cftrvalue = (sip_hdr_value_t *)value;
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (cftrvalue->cftr_name);
}

/*
 * Contact header can have more than one value
 * so we require a value to be passed in to get a value.
 */
const sip_str_t *
sip_get_contact_uri_str(sip_header_value_t value, int *error)
{
        return (sip_get_cftruri_from_val(value, error));
}

/*
 * Contact header can have more than one value
 * so we require a value to be passed in to get a value.
 */
const sip_str_t *
sip_get_contact_display_name(sip_header_value_t value, int *error)
{
        return (sip_get_cftrname_from_val(value, error));
}

/*
 * Route header can have more than one value
 * so we require a value to be passed in to get a value.
 */
const sip_str_t *
sip_get_route_uri_str(sip_header_value_t value, int *error)
{
        return (sip_get_cftruri_from_val(value, error));
}

/*
 * Route header can have more than one value
 * so we require a value to be passed in to get a value.
 */
const sip_str_t *
sip_get_route_display_name(sip_header_value_t value, int *error)
{
        return (sip_get_cftrname_from_val(value, error));
}

/*
 * Get URI from the SIP message
 */
const sip_str_t *
sip_get_cftruri_from_msg(sip_msg_t sip_msg, int *error, char *hdrname)
{
        const sip_hdr_value_t   *value;
        const struct sip_header *header;

        if (error != NULL)
                *error = 0;
        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        header = sip_get_header(sip_msg, hdrname, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->sip_value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (&value->cftr_uri);
}

/*
 * Get display name from the SIP message
 */
const sip_str_t *
sip_get_cftrname_from_msg(sip_msg_t sip_msg, int *error, char *hdrname)
{
        const sip_hdr_value_t           *value;
        const struct  sip_header        *header;

        if (error != NULL)
                *error = 0;
        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(sip_msg, hdrname, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->sip_value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (value->cftr_name);
}

/*
 * Get FROM URI
 */
const sip_str_t *
sip_get_from_uri_str(sip_msg_t sip_msg, int *error)
{
        return (sip_get_cftruri_from_msg(sip_msg, error, SIP_FROM));
}

/*
 * Get FROM display name
 */
const sip_str_t *
sip_get_from_display_name(sip_msg_t sip_msg, int *error)
{
        return (sip_get_cftrname_from_msg(sip_msg, error, SIP_FROM));
}

/*
 * Return the FROM tag
 */
const sip_str_t *
sip_get_from_tag(sip_msg_t sip_msg, int *error)
{
        const sip_hdr_value_t   *value;
        const struct sip_header *header;

        if (error != NULL)
                *error = 0;
        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(sip_msg, SIP_FROM, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->sip_value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (sip_get_param_value((sip_header_value_t)value, "tag", error));
}

/*
 * Get TO URI
 */
const sip_str_t *
sip_get_to_uri_str(sip_msg_t sip_msg, int *error)
{
        return (sip_get_cftruri_from_msg(sip_msg, error, SIP_TO));
}

/*
 * Get TO display name
 */
const sip_str_t *
sip_get_to_display_name(sip_msg_t sip_msg, int *error)
{
        return (sip_get_cftrname_from_msg(sip_msg, error, SIP_TO));
}

/*
 * Get TO tag
 */
const sip_str_t *
sip_get_to_tag(sip_msg_t sip_msg, int *error)
{
        const sip_hdr_value_t   *value;
        const struct sip_header *header;

        if (error != NULL)
                *error = 0;
        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(sip_msg, SIP_TO, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        /*
         * If the value is BAD, update error to reflect it.
         */
        if (error != NULL && value->sip_value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        return (sip_get_param_value((sip_header_value_t)value, "tag", error));
}

/*
 * Return the Call-Id
 */
const sip_str_t *
sip_get_callid(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_CALL_ID, SIP_STR_VAL,
            B_FALSE, B_TRUE, error);
        return (r);
}

#define SIP_CSEQ_NUM    1
#define SIP_CSEQ_METHOD 2

/*
 * Get number/method from the CSEQ header
 */
static void *
sip_get_cseq_val(sip_msg_t msg, int type, int *error)
{
        const _sip_header_t     *header;
        sip_hdr_value_t         *val;

        if (error != NULL)
                *error = 0;

        if (msg == NULL)  {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(msg, SIP_CSEQ, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        val = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (val == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        if (error != NULL && val->sip_value.value_state == SIP_VALUE_BAD)
                *error = EPROTO;

        switch (type) {
                case SIP_CSEQ_NUM:
                        return (&(val->cseq_num));
                case SIP_CSEQ_METHOD:
                        return (&(val->cseq_method));
        }
        if (error != NULL)
                *error = EINVAL;
        return (NULL);
}

/*
 * Get CSEQ number
 */
int
sip_get_callseq_num(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_cseq_val(sip_msg, SIP_CSEQ_NUM, error);
        return (r == NULL ? -1 : *r);
}

/*
 * Get CSEQ method
 */
sip_method_t
sip_get_callseq_method(sip_msg_t sip_msg, int *error)
{
        sip_method_t    *r;

        r = (sip_method_t *)sip_get_cseq_val(sip_msg, SIP_CSEQ_METHOD, error);
        return (r == NULL ? -1 : *r);
}

/*
 * Via header can have more than one value
 * so we require a value to be passed in.
 */
const sip_str_t *
sip_get_via_sent_by_host(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *via_value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        via_value = (sip_hdr_value_t *)value;
        if (via_value->sip_value_state == SIP_VALUE_BAD && error != NULL)
                *error = EPROTO;
        return (&via_value->via_sent_by_host);
}

/*
 * Via header can have more than one value
 * so we require a value to be passed in.
 */
int
sip_get_via_sent_by_port(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *via_value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (-1);
        }
        via_value = (sip_hdr_value_t *)value;
        if (via_value->sip_value_state == SIP_VALUE_BAD && error != NULL)
                *error = EPROTO;
        return (via_value->via_sent_by_port);
}

/*
 * Return the protocol version from the VIA value
 */
const sip_str_t *
sip_get_via_sent_protocol_version(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *via_value;

        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        via_value = (sip_hdr_value_t *)value;
        if (via_value->sip_value_state == SIP_VALUE_BAD && error != NULL)
                *error = EPROTO;
        return (&via_value->via_protocol_vers);
}

/*
 * Return the protocol name
 */
const sip_str_t *
sip_get_via_sent_protocol_name(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *via_value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        via_value = (sip_hdr_value_t *)value;
        if (via_value->sip_value_state == SIP_VALUE_BAD && error != NULL)
                *error = EPROTO;
        return (&via_value->via_protocol_name);
}

/*
 * Return the transport from the VIA value
 */
const sip_str_t *
sip_get_via_sent_transport(sip_header_value_t value, int *error)
{
        sip_hdr_value_t *via_value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        via_value = (sip_hdr_value_t *)value;
        if (via_value->sip_value_state == SIP_VALUE_BAD && error != NULL)
                *error = EPROTO;
        return (&via_value->via_protocol_transport);
}

/*
 * get the branch id from the topmost VIA header
 */
char *
sip_get_branchid(sip_msg_t sip_msg, int *error)
{
        _sip_header_t           *header;
        sip_parsed_header_t     *parsed_header;
        sip_hdr_value_t         *via_value;
        const sip_str_t         *param_value;
        char                    *bid;
        _sip_msg_t              *_sip_msg;

        if (error != NULL)
                *error = 0;

        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        _sip_msg = (_sip_msg_t *)sip_msg;

        (void) pthread_mutex_lock(&_sip_msg->sip_msg_mutex);
        header = sip_search_for_header(_sip_msg, SIP_VIA, NULL);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }
        if (sip_parse_via_header(header, &parsed_header) != 0) {
                if (error != NULL)
                        *error = EPROTO;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }
        if (parsed_header == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }
        via_value = (sip_hdr_value_t *)parsed_header->value;
        if (via_value == NULL || via_value->sip_value_state == SIP_VALUE_BAD) {
                if (error != NULL)
                        *error = EPROTO;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }
        param_value = sip_get_param_value((sip_header_value_t)via_value,
            "branch", error);

        if (param_value == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }

        bid = (char *)malloc(param_value->sip_str_len + 1);
        if (bid == NULL) {
                if (error != NULL)
                        *error = ENOMEM;
                (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
                return (NULL);
        }
        (void) strncpy(bid, param_value->sip_str_ptr,
            param_value->sip_str_len);
        bid[param_value->sip_str_len] = '\0';
        (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
        return (bid);
}

/*
 * adds branchid to the topmost VIA header, if a branchid already exists,
 * returns error.
 */
int
sip_add_branchid_to_via(sip_msg_t sip_msg, char *branchid)
{
        int             err = 0;
        char            *param;
        int             plen;
        sip_header_t    via_hdr;
        _sip_msg_t      *_sip_msg;

        if (sip_msg == NULL)
                return (EINVAL);
        /*
         * If there is already a branchid param, error?
         */
        if (sip_get_branchid(sip_msg, NULL) != NULL)
                return (EINVAL);
        _sip_msg = (_sip_msg_t *)sip_msg;
        (void) pthread_mutex_lock(&_sip_msg->sip_msg_mutex);
        via_hdr = (sip_header_t)sip_search_for_header(_sip_msg, SIP_VIA, NULL);
        (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
        if (via_hdr == NULL)
                return (EINVAL);
        plen = strlen(branchid) + strlen("branch=") + 1;
        param = malloc(plen);
        if (param == NULL)
                return (ENOMEM);
        (void) snprintf(param, plen, "branch=%s", branchid);

        (void) sip_add_param(via_hdr, param, &err);
        free(param);

        return (err);
}

/*
 * returns the number of VIA headers in the SIP message
 */
int
sip_get_num_via(sip_msg_t sip_msg, int *error)
{
        _sip_msg_t      *_sip_msg;
        sip_header_t    hdr;
        int             via_cnt = 0;

        if (error != NULL)
                *error = 0;
        if (sip_msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (via_cnt);
        }
        _sip_msg = (_sip_msg_t *)sip_msg;
        (void) pthread_mutex_lock(&_sip_msg->sip_msg_mutex);
        hdr = (sip_header_t)sip_search_for_header(_sip_msg, SIP_VIA, NULL);
        while (hdr != NULL) {
                via_cnt++;
                hdr = (sip_header_t)sip_search_for_header(_sip_msg, SIP_VIA,
                    hdr);
        }
        (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
        return (via_cnt);
}

/*
 * Return Max-Forward value
 */
int
sip_get_maxforward(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_val_from_msg(sip_msg, SIP_MAX_FORWARDS, SIP_INT_VAL,
            B_FALSE, B_FALSE, error);
        if (r == NULL)
                return (-1);
        return (*r);
}

/*
 * Get the content type
 */
const sip_str_t *
sip_get_content_type(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_CONTENT_TYPE,
            SIP_STRS_VAL, B_TRUE, B_FALSE, error);
        return (r);
}

/*
 * Get the content sub-type
 */
const sip_str_t *
sip_get_content_sub_type(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_CONTENT_TYPE,
            SIP_STRS_VAL, B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * Return the content-length value
 */
int
sip_get_content_length(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_val_from_msg(sip_msg, SIP_CONTENT_LENGTH,
            SIP_INT_VAL, B_FALSE, B_FALSE, error);
        if (r == NULL)
                return (-1);
        return (*r);
}

/*
 * get allow-events
 */
const sip_str_t *
sip_get_allow_events(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_TRUE, error);
        return (r);
}

/*
 * get event
 */
const sip_str_t *
sip_get_event(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_EVENT, SIP_STR_VAL,
            B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get subscription state
 */
const sip_str_t *
sip_get_substate(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_SUBSCRIPTION_STATE,
            SIP_STR_VAL, B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get accept type
 */
const sip_str_t *
sip_get_accept_type(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STRS_VAL, B_TRUE, error);
        return (r);
}

/*
 * get accept subtype
 */
const sip_str_t *
sip_get_accept_sub_type(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STRS_VAL, B_FALSE,
            error);
        return (r);
}

/*
 * accept-encode can have more than one value
 */
const sip_str_t *
sip_get_accept_enc(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * accept-language can have more than one value
 */
const sip_str_t *
sip_get_accept_lang(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get URI from the alert-info header
 */
const sip_str_t *
sip_get_alert_info_uri(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get method from allow header
 */
sip_method_t
sip_get_allow_method(sip_header_value_t value, int *error)
{
        int             *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (int *)sip_get_val_from_hdr(val, SIP_INT_VAL, B_FALSE, error);
        return (r == NULL ? -1 : (sip_method_t)*r);
}

/*
 * get URI from call-info header
 */
const sip_str_t *
sip_get_call_info_uri(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get content-disposition value
 */
const sip_str_t *
sip_get_content_disp(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_CONTENT_DIS,
            SIP_STR_VAL, B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get content-encoding value
 */
const sip_str_t *
sip_get_content_enc(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get content-language value
 */
const sip_str_t *
sip_get_content_lang(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * sip_get_date_time, day, wkday, month, year
 */
#define D_TIME          0x01
#define D_DAY           0x02
#define D_MONTH         0x03
#define D_YEAR          0x04
#define D_WKDAY         0x05
#define D_TIMEZONE      0x06

/*
 * get date information
 */
static void *
sip_get_date_val(sip_msg_t msg, int type, int *error)
{
        const _sip_header_t     *header;
        sip_hdr_value_t         *val;

        if (error != NULL)
                *error = 0;
        if (msg == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(msg, SIP_DATE, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        val = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (val == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        if (error != NULL && val->sip_value.value_state == SIP_VALUE_BAD)
                *error = EPROTO;
        switch (type) {
                case (D_TIME):
                        return (&(val->date_t));
                case (D_DAY):
                        return (&(val->date_d));
                case (D_MONTH):
                        return (&(val->date_m));
                case (D_YEAR):
                        return (&(val->date_y));
                case (D_WKDAY):
                        return (&(val->date_wd));
                case (D_TIMEZONE):
                        return (&(val->date_tz));
        }
        if (error != NULL)
                *error = EINVAL;
        return (NULL);
}

/*
 * get time value
 */
const sip_str_t *
sip_get_date_time(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_date_val(sip_msg, D_TIME, error);
        return (r);
}

/*
 * get day
 */
int
sip_get_date_day(sip_msg_t sip_msg, int *error)
{
        int     *r = NULL;

        r = sip_get_date_val(sip_msg, D_DAY, error);
        return (r == NULL ? -1 : *(int *)r);
}

/*
 * get month
 */
const sip_str_t *
sip_get_date_month(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_date_val(sip_msg, D_MONTH, error);
        return (r);
}

/*
 * get year
 */
int
sip_get_date_year(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_date_val(sip_msg, D_YEAR, error);
        return (r == NULL ? -1 : *r);
}

/*
 * get day of the week
 */
const sip_str_t *
sip_get_date_wkday(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_date_val(sip_msg, D_WKDAY, error);
        return (r);
}

/*
 * get the timezone
 */
const sip_str_t *
sip_get_date_timezone(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_date_val(sip_msg, D_TIMEZONE, error);
        return (r);
}

/*
 * get error-info URI
 */
const sip_str_t *
sip_get_error_info_uri(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get priv-value from privacy
 */
const sip_str_t *
sip_get_priv_value(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * return expires value
 */
int
sip_get_expires(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_val_from_msg(sip_msg, SIP_EXPIRE, SIP_INT_VAL,
            B_FALSE, B_FALSE, error);
        if (r == NULL)
                return (-1);
        return (*r);
}

/*
 * get reply-to value
 */
const sip_str_t *
sip_get_in_reply_to(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get min-expires value
 */
int
sip_get_min_expires(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_val_from_msg(sip_msg, SIP_MIN_EXPIRE, SIP_INT_VAL,
            B_FALSE, B_FALSE, error);
        if (r == NULL)
                return (-1);
        return (*r);
}

/*
 * get mime-version
 */
const sip_str_t *
sip_get_mime_version(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_MIME_VERSION,
            SIP_STR_VAL, B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get organization value
 */
const sip_str_t *
sip_get_org(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_ORGANIZATION,
            SIP_STR_VAL, B_FALSE, B_TRUE, error);
        return (r);
}

/*
 * get priority value
 */
const sip_str_t *
sip_get_priority(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_PRIORITY,
            SIP_STR_VAL, B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get display name
 */
const sip_str_t *
sip_get_pidentity_display_name(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STRS_VAL, B_TRUE, error);

        return (r);
}

/*
 * get URI
 */
const sip_str_t *
sip_get_pidenty_uri_str(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STRS_VAL, B_FALSE,
            error);

        return (r);
}

/*
 * get display name from passerted-identity header
 */
const sip_str_t *
sip_get_passertedid_display_name(sip_header_value_t value, int *error)
{
        return (sip_get_pidentity_display_name(value, error));
}

/*
 * get URI from passerted-identity header
 */
const sip_str_t *
sip_get_passertedid_uri_str(sip_header_value_t value, int *error)
{
        return (sip_get_pidenty_uri_str(value, error));
}

/*
 * get display name from ppreferred-identity header
 */
const sip_str_t *
sip_get_ppreferredid_display_name(sip_header_value_t value, int *error)
{
        return (sip_get_pidentity_display_name(value, error));
}

/*
 * get URI from ppreferred-identity header
 */
const sip_str_t *
sip_get_ppreferredid_uri_str(sip_header_value_t value, int *error)
{
        return (sip_get_pidenty_uri_str(value, error));
}

#define SIP_RACK_RESP_NUM       1
#define SIP_RACK_CSEQ_NUM       2
#define SIP_RACK_METHOD         3

/*
 * Get rack information
 */
static void *
sip_get_rack_val(sip_msg_t msg, int type, int *error)
{
        const _sip_header_t     *header;
        sip_hdr_value_t         *val;

        if (error != NULL)
                *error = 0;

        if (msg == NULL)  {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        header = sip_get_header(msg, SIP_RACK, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        val = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (val == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }
        if (error != NULL && val->sip_value.value_state == SIP_VALUE_BAD)
                *error = EPROTO;

        switch (type) {
                case SIP_RACK_RESP_NUM:
                        return (&(val->rack_resp));
                case SIP_RACK_CSEQ_NUM:
                        return (&(val->rack_cseq));
                case SIP_RACK_METHOD:
                        return (&(val->rack_method));
        }
        if (error != NULL)
                *error = EINVAL;
        return (NULL);
}

/*
 * get response number for rack
 */
int
sip_get_rack_resp_num(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_rack_val(sip_msg, SIP_RACK_RESP_NUM, error);

        return (r == NULL ? -1 : *r);
}

/*
 * get sequence number for rack
 */
int
sip_get_rack_cseq_num(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_rack_val(sip_msg, SIP_RACK_CSEQ_NUM, error);

        return (r == NULL ? -1 : *r);
}

/*
 * get method for rack
 */
sip_method_t
sip_get_rack_method(sip_msg_t sip_msg, int *error)
{
        sip_method_t    *r;

        r = (sip_method_t *)sip_get_rack_val(sip_msg, SIP_RACK_METHOD, error);

        return (r == NULL ? -1 : *r);
}

/*
 * get response number from rseq
 */
int
sip_get_rseq_resp_num(sip_msg_t sip_msg, int *error)
{
        int     *r;

        r = (int *)sip_get_val_from_msg(sip_msg, SIP_RSEQ, SIP_INT_VAL,
            B_FALSE, B_FALSE, error);

        return (r == NULL ? -1 : *r);
}

/*
 * get reply-to display name
 */
const sip_str_t *
sip_get_replyto_display_name(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_REPLYTO,
            SIP_STRS_VAL, B_TRUE, B_FALSE, error);
        return (r);
}

/*
 * get reply-to URI
 */
const sip_str_t *
sip_get_replyto_uri_str(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_REPLYTO,
            SIP_STRS_VAL, B_FALSE, B_FALSE, error);

        return (r);
}

/*
 * get require value
 */
const sip_str_t *
sip_get_require(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get retry-after time
 */
int
sip_get_retry_after_time(sip_msg_t sip_msg, int *error)
{
        int     *t;

        t = (int *)sip_get_val_from_msg(sip_msg, SIP_RETRY_AFTER,
            SIP_INTSTR_VAL, B_FALSE, B_FALSE, error);
        if (t == NULL)
                return (-1);
        return (*t);
}

/*
 * get retry-after comments
 */
const sip_str_t *
sip_get_retry_after_cmts(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_RETRY_AFTER,
            SIP_INTSTR_VAL, B_TRUE, B_FALSE, error);
        return (r);
}

/*
 * get subject
 */
const sip_str_t *
sip_get_subject(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_SUBJECT, SIP_STR_VAL,
            B_FALSE, B_TRUE, error);
        return (r);
}

/*
 * get supported
 */
const sip_str_t *
sip_get_supported(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get timestamp delay
 */
const sip_str_t *
sip_get_tstamp_delay(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *t;

        t = sip_get_val_from_msg(sip_msg, SIP_TIMESTAMP, SIP_STRS_VAL, B_FALSE,
            B_FALSE, error);
        return (t);
}

/*
 * get timestamp
 */
const sip_str_t *
sip_get_tstamp_value(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *t;

        t = sip_get_val_from_msg(sip_msg, SIP_TIMESTAMP, SIP_STRS_VAL, B_TRUE,
            B_FALSE, error);
        return (t);
}

/*
 * get unsupported value
 */
const sip_str_t *
sip_get_unsupported(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        r = (sip_str_t *)sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get server value from message
 */
const sip_str_t *
sip_get_server(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = (sip_str_t *)sip_get_val_from_msg(sip_msg, SIP_SERVER, SIP_STR_VAL,
            B_FALSE, B_FALSE, error);
        return (r);
}

/*
 * get user-agent value
 */
const sip_str_t *
sip_get_user_agent(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = sip_get_val_from_msg(sip_msg, SIP_USER_AGENT, SIP_STR_VAL, B_FALSE,
            B_FALSE, error);
        return (r);
}

#define W_CODE  0x05
#define W_AGENT 0x06
#define W_TEXT  0x07

/*
 * get warning info
 */
static void *
sip_get_warninfo(sip_header_value_t value, int info, int *error)
{
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        if (error != NULL)
                *error = 0;

        if (val == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        if (val->sip_value_state == SIP_VALUE_BAD) {
                *error = EPROTO;
                return (NULL);
        }

        switch (info) {
                case (W_CODE):
                        return (&(val->warn_code));
                case (W_AGENT):
                        return (&(val->warn_agt));
                case (W_TEXT):
                        return (&(val->warn_text));
        }
        if (error != NULL)
                *error = EINVAL;
        return (NULL);
}

/*
 * get warning code
 */
int
sip_get_warning_code(sip_header_value_t value, int *error)
{
        int     *c;

        if (error != NULL)
                *error = 0;

        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (-1);
        }
        c = (int *)sip_get_warninfo(value, W_CODE, error);
        if (c == NULL)
                return (-1);
        return (*c);
}

/*
 * get warning agent
 */
const sip_str_t *
sip_get_warning_agent(sip_header_value_t value, int *error)
{
        sip_str_t       *r;

        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        r = (sip_str_t *)sip_get_warninfo(value, W_AGENT, error);
        return (r);
}

/*
 * get warning text
 */
const sip_str_t *
sip_get_warning_text(sip_header_value_t value, int *error)
{
        sip_str_t       *r;

        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        r = (sip_str_t *)sip_get_warninfo(value, W_TEXT, error);
        return (r);
}

/*
 * get authorization scheme
 */
const sip_str_t *
sip_get_author_scheme(sip_msg_t sip_msg, int *error)
{
        sip_str_t       *r;

        r = sip_get_val_from_msg(sip_msg, SIP_AUTHOR, SIP_AUTH_VAL, B_FALSE,
            B_FALSE, error);
        return (r);
}

/*
 * get authentication parameter
 */
static const sip_str_t *
sip_get_auth_param(sip_msg_t msg, char *hdr_name, char *pname, int *error)
{
        const _sip_header_t     *header;
        sip_hdr_value_t         *value;
        sip_param_t             *param;

        if (error != NULL)
                *error = 0;

        if (msg == NULL || pname == NULL || hdr_name == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        header = sip_get_header(msg, hdr_name, NULL, error);
        if (header == NULL) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }

        value = (sip_hdr_value_t *)sip_get_header_value(header, error);
        if (value == NULL) {
                if (error != NULL)
                        *error = EPROTO;
                return (NULL);
        }

        param = sip_get_param_from_list(value->auth_param, pname);
        if (param != NULL)
                return (&param->param_value);
        return (NULL);
}

/*
 * get authentication parameter
 */
const sip_str_t *
sip_get_author_param(sip_msg_t sip_msg, char *name, int *error)
{
        const sip_str_t *r;

        r = sip_get_auth_param(sip_msg, SIP_AUTHOR, name, error);
        return (r);
}

/*
 * get authentication info
 */
const sip_str_t *
sip_get_authen_info(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        r = sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get proxy-authentication scheme
 */
const sip_str_t *
sip_get_proxy_authen_scheme(sip_msg_t msg, int *error)
{
        sip_str_t       *r;

        r = sip_get_val_from_msg(msg, SIP_PROXY_AUTHEN, SIP_AUTH_VAL, B_FALSE,
            B_FALSE, error);
        return (r);
}

/*
 * get proxy authentication parameter
 */
const sip_str_t *
sip_get_proxy_authen_param(sip_msg_t sip_msg, char *name, int *error)
{
        const sip_str_t *r;

        r = sip_get_auth_param(sip_msg, SIP_PROXY_AUTHEN, name, error);
        return (r);
}

/*
 * get proxy-authorization scheme
 */
const sip_str_t *
sip_get_proxy_author_scheme(sip_msg_t msg, int *error)
{
        sip_str_t       *r;

        r = sip_get_val_from_msg(msg, SIP_PROXY_AUTHOR, SIP_AUTH_VAL, B_FALSE,
            B_FALSE, error);
        return (r);
}

/*
 * get proxy-authorization parameter
 */
const sip_str_t *
sip_get_proxy_author_param(sip_msg_t sip_msg, char *name, int *error)
{
        const sip_str_t *r;

        r = sip_get_auth_param(sip_msg, SIP_PROXY_AUTHOR, name, error);
        return (r);
}

/*
 * get proxy-require
 */
const sip_str_t *
sip_get_proxy_require(sip_header_value_t value, int *error)
{
        sip_str_t       *r;
        sip_hdr_value_t *val = (sip_hdr_value_t *)value;

        if (error != NULL)
                *error = 0;
        if (value == NULL || value->value_state == SIP_VALUE_DELETED) {
                if (error != NULL)
                        *error = EINVAL;
                return (NULL);
        }
        r = sip_get_val_from_hdr(val, SIP_STR_VAL, B_FALSE, error);
        return (r);
}

/*
 * get www-authentication scheme
 */
const sip_str_t *
sip_get_www_authen_scheme(sip_msg_t msg, int *error)
{
        sip_str_t       *r;

        r = sip_get_val_from_msg(msg, SIP_WWW_AUTHEN, SIP_AUTH_VAL, B_FALSE,
            B_FALSE, error);
        return (r);
}

/*
 * get www-authentication parameter
 */
const sip_str_t *
sip_get_www_authen_param(sip_msg_t sip_msg, char *name, int *error)
{
        const sip_str_t *r;

        r = sip_get_auth_param(sip_msg, SIP_WWW_AUTHEN, name, error);
        return (r);
}