libsip/common/sip_headers.c

2N/A/*
2N/A * CDDL HEADER START
2N/A *
2N/A * The contents of this file are subject to the terms of the
2N/A * Common Development and Distribution License (the "License").
2N/A * You may not use this file except in compliance with the License.
2N/A *
2N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A * or http://www.opensolaris.org/os/licensing.
2N/A * See the License for the specific language governing permissions
2N/A * and limitations under the License.
2N/A *
2N/A * When distributing Covered Code, include this CDDL HEADER in each
2N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
2N/A * If applicable, add the following below this CDDL HEADER, with the
2N/A * fields enclosed by brackets "[]" replaced with your own identifying
2N/A * information: Portions Copyright [yyyy] [name of copyright owner]
2N/A *
2N/A * CDDL HEADER END
2N/A */
2N/A
2N/A/*
2N/A * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
2N/A * Use is subject to license terms.
2N/A */
2N/A
2N/A#pragma ident   "%Z%%M% %I% %E% SMI"
2N/A
2N/A#include <stdio.h>
2N/A#include <assert.h>
2N/A#include <errno.h>
2N/A#include <pthread.h>
2N/A#include <stdlib.h>
2N/A#include <string.h>
2N/A#include <sip.h>
2N/A
2N/A#include "sip_msg.h"
2N/A#include "sip_miscdefs.h"
2N/A#include "sip_parse_generic.h"
2N/A
2N/Asip_methods_t sip_methods[MAX_SIP_METHODS] = {
2N/A    {"UNKNOWN", 7},
2N/A    {"INVITE", 6},
2N/A    {"ACK", 3},
2N/A    {"OPTIONS", 7},
2N/A    {"BYE", 3},
2N/A    {"CANCEL", 6},
2N/A    {"REGISTER", 8},
2N/A    {"REFER", 5},
2N/A    {"INFO", 4},
2N/A    {"SUBSCRIBE", 9},
2N/A    {"NOTIFY", 6},
2N/A    {"PRACK", 5}
2N/A};
2N/A
2N/A/*
2N/A * Built-In Header function table
2N/A */
2N/Asip_header_function_t sip_header_function_table[] = {
2N/A    {"Unknown", NULL, sip_parse_unknown_header, NULL, NULL, NULL},
2N/A    {"CONTACT", "m", sip_parse_cftr_header, NULL, NULL,
2N/A    sip_free_cftr_header},
2N/A    {"FROM", "F", sip_parse_cftr_header, NULL, NULL, sip_free_cftr_header},
2N/A    {"TO", "T", sip_parse_cftr_header, NULL, NULL, sip_free_cftr_header},
2N/A    {"CONTENT-LENGTH", "l", sip_parse_clen_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"CONTENT-TYPE", "c", sip_parse_ctype_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"CALL-ID", "i", sip_parse_cid_header, NULL, NULL, sip_free_phdr},
2N/A    {"CSEQ", NULL, sip_parse_cseq_header, NULL, NULL, sip_free_phdr},
2N/A    {"VIA", "v", sip_parse_via_header, NULL, NULL, sip_free_phdr},
2N/A    {"Max-Forwards", NULL, sip_parse_maxf_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"RECORD-ROUTE", NULL, sip_parse_cftr_header, NULL, NULL,
2N/A    sip_free_cftr_header},
2N/A    {"ROUTE", NULL, sip_parse_cftr_header, NULL, NULL,
2N/A    sip_free_cftr_header},
2N/A    {"ACCEPT", NULL, sip_parse_acpt_header, NULL, NULL, sip_free_phdr},
2N/A    {"ACCEPT-ENCODING", NULL, sip_parse_acpt_encode_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"ACCEPT-LANGUAGE", NULL, sip_parse_acpt_lang_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"ALERT-INFO", NULL, sip_parse_alert_header, NULL, NULL, sip_free_phdr},
2N/A    {"ALLOW", NULL, sip_parse_allow_header, NULL, NULL, sip_free_phdr},
2N/A    {"CALL-INFO", NULL, sip_parse_callinfo_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"CONTENT-DISPOSITION", NULL, sip_parse_contentdis_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"CONTENT-ENCODING", "e", sip_parse_contentencode_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"CONTENT-LANGUAGE", NULL, sip_parse_contentlang_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"DATE", NULL, sip_parse_date_header, NULL, NULL, sip_free_phdr},
2N/A    {"ERROR-INFO", NULL, sip_parse_errorinfo_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"EXPIRES", NULL, sip_parse_expire_header, NULL, NULL, sip_free_phdr},
2N/A    {"IN-REPLY-TO", NULL, sip_parse_inreplyto_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"MIN-EXPIRES", NULL, sip_parse_minexpire_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"MIME-VERSION", NULL, sip_parse_mimeversion_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"ORGANIZATION", NULL, sip_parse_org_header, NULL, NULL, sip_free_phdr},
2N/A    {"PRIORITY", NULL, sip_parse_priority_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"REQUIRE", NULL, sip_parse_require_header, NULL, NULL, sip_free_phdr},
2N/A    {"REPLY-TO", NULL, sip_parse_replyto_header, NULL, NULL, sip_free_phdr},
2N/A    {"RETRY-AFTER", NULL, sip_parse_retryaft_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"SERVER", NULL, sip_parse_server_header, NULL, NULL, sip_free_phdr},
2N/A    {"SUBJECT", "s", sip_parse_subject_header, NULL, NULL, sip_free_phdr},
2N/A    {"TIMESTAMP", NULL, sip_parse_timestamp_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"UNSUPPORTED", NULL, sip_parse_usupport_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"SUPPORTED", "k", sip_parse_support_header, NULL, NULL, sip_free_phdr},
2N/A    {"USER-AGENT", NULL, sip_parse_useragt_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"WARNING", NULL, sip_parse_warn_header, NULL, NULL, sip_free_phdr},
2N/A    {"ALLOW-EVENTS", "u", sip_parse_allow_events_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"EVENT", "o", sip_parse_event_header, NULL, NULL, sip_free_phdr},
2N/A    {"SUBSCRIPTION-STATE", NULL, sip_parse_substate_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"AUTHORIZATION", NULL, sip_parse_author_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"AUTHENTICATION-INFO", NULL, sip_parse_ainfo_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"PROXY-AUTHORIZATION", NULL, sip_parse_pauthor_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"PROXY-AUTHENTICATE", NULL, sip_parse_pauthen_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"PROXY-REQUIRE", NULL, sip_parse_preq_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"WWW-AUTHENTICATE", NULL, sip_parse_wauthen_header, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"RSEQ", NULL, sip_parse_rseq, NULL, NULL, sip_free_phdr},
2N/A    {"RACK", NULL, sip_parse_rack, NULL, NULL, sip_free_phdr},
2N/A    {"P-ASSERTED-IDENTITY", NULL, sip_parse_passertedid, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"P-PREFERRED-IDENTITY", NULL, sip_parse_ppreferredid, NULL, NULL,
2N/A    sip_free_phdr},
2N/A    {"PRIVACY", NULL, sip_parse_privacy_header, NULL, NULL, sip_free_phdr},
2N/A    {NULL, NULL, NULL, NULL, NULL, NULL},
2N/A};
2N/A
2N/A#define MAX_SIP_HEADERS \
2N/A    sizeof (sip_header_function_table) / sizeof (sip_header_function_t)
2N/A
2N/A/*
2N/A * External/application provided function table
2N/A */
2N/Asip_header_function_t *sip_header_function_table_external = NULL;
2N/A
2N/A/*
2N/A * Free parameter list
2N/A */
2N/Astatic void
2N/Asip_free_params(sip_param_t *param_list)
2N/A{
2N/A    sip_param_t *param, *next_param;
2N/A
2N/A    param = param_list;
2N/A
2N/A    while (param != NULL) {
2N/A        next_param = param->param_next;
2N/A        free(param);
2N/A        param = next_param;
2N/A    }
2N/A}
2N/A
2N/A/*
2N/A * Common header free routine
2N/A */
2N/Avoid
2N/Asip_free_phdr(sip_parsed_header_t *header)
2N/A{
2N/A    sip_hdr_value_t *value;
2N/A    sip_hdr_value_t *next_value;
2N/A
2N/A    if (header == NULL)
2N/A        return;
2N/A    value = (sip_hdr_value_t *)header->value;
2N/A    while (value != NULL) {
2N/A        sip_free_params(value->sip_param_list);
2N/A        next_value = value->sip_next_value;
2N/A        free(value);
2N/A        value = next_value;
2N/A    }
2N/A    free(header);
2N/A}
2N/A
2N/A/*
2N/A * Free Contact/From/To header
2N/A */
2N/Avoid
2N/Asip_free_cftr_header(sip_parsed_header_t *header)
2N/A{
2N/A    sip_hdr_value_t *value;
2N/A    sip_hdr_value_t *next_value;
2N/A
2N/A    if (header == NULL)
2N/A        return;
2N/A    value = (sip_hdr_value_t *)header->value;
2N/A    while (value != NULL) {
2N/A        next_value = value->sip_next_value;
2N/A        sip_free_params(value->sip_param_list);
2N/A        if (value->cftr_name != NULL)
2N/A            free(value->cftr_name);
2N/A        if (value->sip_value_parsed_uri != NULL) {
2N/A            sip_free_parsed_uri(value->sip_value_parsed_uri);
2N/A            value->sip_value_parsed_uri = NULL;
2N/A        }
2N/A        free(value);
2N/A        value = next_value;
2N/A    }
2N/A    free(header);
2N/A}
2N/A
2N/A/*
2N/A * Return new header
2N/A */
2N/A_sip_header_t *
2N/Asip_new_header(int header_size)
2N/A{
2N/A    _sip_header_t *new_header;
2N/A
2N/A    new_header = calloc(1, sizeof (_sip_header_t));
2N/A    if (new_header == NULL)
2N/A        return (NULL);
2N/A
2N/A    /*
2N/A     * We are using snprintf which adds a null character
2N/A     * so allocate an extra byte which is not part of
2N/A     * the message header
2N/A     */
2N/A    new_header->sip_hdr_start = calloc(1, header_size + 1);
2N/A    if (new_header->sip_hdr_start == NULL) {
2N/A        free(new_header);
2N/A        return (NULL);
2N/A    }
2N/A    new_header->sip_hdr_end = new_header->sip_hdr_start + header_size;
2N/A    new_header->sip_hdr_current = new_header->sip_hdr_start;
2N/A    new_header->sip_hdr_allocated = B_TRUE;
2N/A    return (new_header);
2N/A}
2N/A
2N/A/*
2N/A * Free the given header
2N/A */
2N/Avoid
2N/Asip_free_header(_sip_header_t *sip_header)
2N/A{
2N/A    if (sip_header->sip_hdr_allocated) {
2N/A        assert(sip_header->sip_hdr_start != NULL);
2N/A        free(sip_header->sip_hdr_start);
2N/A    }
2N/A    if (sip_header->sip_hdr_parsed != NULL) {
2N/A        assert(sip_header->sip_header_functions != NULL);
2N/A        if (sip_header->sip_header_functions->header_free != NULL) {
2N/A            sip_header->sip_header_functions->header_free(
2N/A                sip_header->sip_hdr_parsed);
2N/A        }
2N/A    }
2N/A    free(sip_header);
2N/A}
2N/A
2N/A/*
2N/A * Return a copy of the header passed in.
2N/A */
2N/A_sip_header_t *
2N/Asip_dup_header(_sip_header_t *from)
2N/A{
2N/A    size_t      hdr_size;
2N/A    _sip_header_t   *to;
2N/A
2N/A    hdr_size = from->sip_hdr_end - from->sip_hdr_start;
2N/A    to = sip_new_header(hdr_size);
2N/A    if (to == NULL)
2N/A        return (NULL);
2N/A    if (from->sip_header_state == SIP_HEADER_DELETED_VAL) {
2N/A        to->sip_hdr_end = to->sip_hdr_start +
2N/A            sip_copy_values(to->sip_hdr_start, from);
2N/A    } else {
2N/A        (void) memcpy(to->sip_hdr_start, from->sip_hdr_start, hdr_size);
2N/A        to->sip_hdr_end = to->sip_hdr_start + hdr_size;
2N/A    }
2N/A    to->sip_header_functions = from->sip_header_functions;
2N/A    return (to);
2N/A}
2N/A
2N/A/*
2N/A * Copy header with extra_param, if any, to sip_msg
2N/A */
2N/Aint
2N/A_sip_copy_header(_sip_msg_t *sip_msg, _sip_header_t *header, char *extra_param,
2N/A    boolean_t skip_crlf)
2N/A{
2N/A    _sip_header_t   *new_header;
2N/A    int     hdrlen;
2N/A    int     extra_len = 0;
2N/A    int     ncrlf = 0;
2N/A    char        *p;
2N/A
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&sip_msg->sip_msg_mutex));
2N/A#endif
2N/A    if (extra_param != NULL) {
2N/A        extra_len = SIP_SPACE_LEN + sizeof (char) + SIP_SPACE_LEN +
2N/A            strlen(extra_param);
2N/A    }
2N/A    /*
2N/A     * Just take one if there are more, i.e. if this is the last header
2N/A     * before the content.
2N/A     */
2N/A    if (skip_crlf) {
2N/A        if (header->sip_hdr_end - strlen(SIP_CRLF) <=
2N/A            header->sip_hdr_start) {
2N/A            goto proceed;
2N/A        }
2N/A        p = header->sip_hdr_end - strlen(SIP_CRLF);
2N/A        while (strncmp(SIP_CRLF, p, strlen(SIP_CRLF)) == 0) {
2N/A            ncrlf++;
2N/A            if (p - strlen(SIP_CRLF) < header->sip_hdr_start)
2N/A                break;
2N/A            p -= strlen(SIP_CRLF);
2N/A        }
2N/A        /*
2N/A         * Take one CRLF.
2N/A         */
2N/A        ncrlf = (ncrlf - 1) * strlen(SIP_CRLF);
2N/A    }
2N/Aproceed:
2N/A    hdrlen = header->sip_hdr_end - header->sip_hdr_start - ncrlf;
2N/A    new_header = sip_new_header(hdrlen + extra_len);
2N/A    if (new_header == NULL)
2N/A        return (ENOMEM);
2N/A    if (header->sip_header_state == SIP_HEADER_DELETED_VAL) {
2N/A        int len;
2N/A
2N/A        len = sip_copy_values(new_header->sip_hdr_start, header);
2N/A        new_header->sip_hdr_end = new_header->sip_hdr_start + len;
2N/A        hdrlen = hdrlen - len + extra_len;
2N/A    } else {
2N/A        (void) memcpy(new_header->sip_hdr_start, header->sip_hdr_start,
2N/A            hdrlen);
2N/A        new_header->sip_hdr_end = new_header->sip_hdr_start + hdrlen;
2N/A        hdrlen = extra_len;
2N/A    }
2N/A    if (extra_param != NULL) {
2N/A        /*
2N/A         * Find CR
2N/A         */
2N/A        if (sip_find_cr(new_header) != 0) {
2N/A            sip_free_header(new_header);
2N/A            return (EINVAL);
2N/A        }
2N/A        hdrlen += new_header->sip_hdr_end - new_header->sip_hdr_current;
2N/A        (void) snprintf(new_header->sip_hdr_current, hdrlen + 1,
2N/A            " %c %s%s", SIP_SEMI, extra_param, SIP_CRLF);
2N/A    }
2N/A
2N/A    new_header->sip_hdr_end += extra_len;
2N/A    new_header->sip_header_functions = header->sip_header_functions;
2N/A    _sip_add_header(sip_msg, new_header, B_TRUE, B_FALSE, NULL);
2N/A    return (0);
2N/A}
2N/A
2N/A/*
2N/A * Copy all "header_name" headers from _old_msg to _new_msg
2N/A */
2N/Aint
2N/A_sip_find_and_copy_all_header(_sip_msg_t *_old_msg, _sip_msg_t *_new_msg,
2N/A    char *header_name)
2N/A{
2N/A    _sip_header_t   *header;
2N/A    int     ret = 0;
2N/A
2N/A    if (_old_msg == NULL || _new_msg == NULL)
2N/A        return (EINVAL);
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&_old_msg->sip_msg_mutex));
2N/A#endif
2N/A    if (_old_msg != _new_msg)
2N/A        (void) pthread_mutex_lock(&_new_msg->sip_msg_mutex);
2N/A    header = sip_search_for_header(_old_msg, header_name, NULL);
2N/A    while (header != NULL) {
2N/A        ret = _sip_copy_header(_new_msg, header, NULL, B_TRUE);
2N/A        if (ret != 0)
2N/A            break;
2N/A        header = sip_search_for_header(_old_msg, header_name, header);
2N/A    }
2N/A    if (_old_msg != _new_msg)
2N/A        (void) pthread_mutex_unlock(&_new_msg->sip_msg_mutex);
2N/A    return (ret);
2N/A}
2N/A
2N/A/*
2N/A * Copy header_name from _old_msg to _new_msg with extra_parm.
2N/A */
2N/Aint
2N/A_sip_find_and_copy_header(sip_msg_t _old_msg, sip_msg_t _new_msg,
2N/A    char *header_name, char *extra_param, boolean_t lock_newmsg)
2N/A{
2N/A    _sip_header_t   *header;
2N/A    int     ret;
2N/A
2N/A    if (_old_msg == NULL || _new_msg == NULL)
2N/A        return (EINVAL);
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&_old_msg->sip_msg_mutex));
2N/A#endif
2N/A    header = sip_search_for_header(_old_msg, header_name, NULL);
2N/A    if (header == NULL)
2N/A        return (EINVAL);
2N/A    if (lock_newmsg)
2N/A        (void) pthread_mutex_lock(&_new_msg->sip_msg_mutex);
2N/A    ret = _sip_copy_header(_new_msg, header, extra_param, B_TRUE);
2N/A    if (lock_newmsg)
2N/A        (void) pthread_mutex_unlock(&_new_msg->sip_msg_mutex);
2N/A    return (ret);
2N/A}
2N/A
2N/A/*
2N/A * Copy all headers from old_msg to new_msg
2N/A */
2N/Aint
2N/Asip_copy_all_headers(sip_msg_t old_msg, sip_msg_t new_msg)
2N/A{
2N/A    _sip_header_t   *header;
2N/A    _sip_msg_t  *_old_msg;
2N/A    _sip_msg_t  *_new_msg;
2N/A    int     ret = 0;
2N/A
2N/A    if (old_msg == NULL || new_msg == NULL)
2N/A        return (EINVAL);
2N/A    _old_msg = (_sip_msg_t *)old_msg;
2N/A    _new_msg = (_sip_msg_t *)new_msg;
2N/A
2N/A    (void) pthread_mutex_lock(&_old_msg->sip_msg_mutex);
2N/A    (void) pthread_mutex_lock(&_new_msg->sip_msg_mutex);
2N/A    header = sip_search_for_header(_old_msg, NULL, NULL);
2N/A    while (header != NULL) {
2N/A        ret = _sip_copy_header(_new_msg, header, NULL, B_FALSE);
2N/A        if (ret != 0)
2N/A            goto done;
2N/A        header = sip_search_for_header(_old_msg, NULL, header);
2N/A    }
2N/Adone:
2N/A    (void) pthread_mutex_unlock(&_new_msg->sip_msg_mutex);
2N/A    (void) pthread_mutex_unlock(&_old_msg->sip_msg_mutex);
2N/A    return (ret);
2N/A}
2N/A
2N/A/*
2N/A * Copy start line from msg to sip_msg
2N/A */
2N/Aint
2N/Asip_copy_start_line(sip_msg_t msg, sip_msg_t sip_msg)
2N/A{
2N/A    int     len;
2N/A    _sip_header_t   *new_header;
2N/A    _sip_msg_t  *_old_msg;
2N/A    _sip_msg_t  *_sip_msg;
2N/A
2N/A    if (msg == NULL || sip_msg == NULL)
2N/A        return (EINVAL);
2N/A    _old_msg = (_sip_msg_t *)msg;
2N/A    _sip_msg = (_sip_msg_t *)sip_msg;
2N/A
2N/A    (void) pthread_mutex_lock(&_old_msg->sip_msg_mutex);
2N/A    if (_old_msg->sip_msg_start_line == NULL) {
2N/A        (void) pthread_mutex_unlock(&_old_msg->sip_msg_mutex);
2N/A        return (EINVAL);
2N/A    }
2N/A    len = _old_msg->sip_msg_start_line->sip_hdr_end -
2N/A        _old_msg->sip_msg_start_line->sip_hdr_start;
2N/A    new_header = sip_new_header(len);
2N/A    if (new_header == NULL) {
2N/A        (void) pthread_mutex_unlock(&_old_msg->sip_msg_mutex);
2N/A        return (ENOMEM);
2N/A    }
2N/A    new_header->sip_hdr_sipmsg = _sip_msg;
2N/A    (void) pthread_mutex_lock(&sip_msg->sip_msg_mutex);
2N/A    _sip_msg->sip_msg_start_line = new_header;
2N/A    _sip_msg->sip_msg_len = len;
2N/A    (void) strncpy(_sip_msg->sip_msg_start_line->sip_hdr_start,
2N/A        _old_msg->sip_msg_start_line->sip_hdr_start, len);
2N/A    (void) sip_parse_first_line(_sip_msg->sip_msg_start_line,
2N/A        &_sip_msg->sip_msg_req_res);
2N/A    (void) pthread_mutex_unlock(&_old_msg->sip_msg_mutex);
2N/A    (void) pthread_mutex_unlock(&sip_msg->sip_msg_mutex);
2N/A    return (0);
2N/A}
2N/A
2N/A/*
2N/A * Delete start line from sip_msg
2N/A */
2N/Aint
2N/Asip_delete_start_line_locked(_sip_msg_t *_sip_msg)
2N/A{
2N/A    _sip_header_t   *header;
2N/A    _sip_header_t   *next_header;
2N/A
2N/A    if (_sip_msg->sip_msg_start_line == NULL)
2N/A        return (EINVAL);
2N/A
2N/A    header = _sip_msg->sip_msg_start_line;
2N/A    while (header != NULL) {
2N/A        next_header = header->sip_hdr_next;
2N/A        _sip_msg->sip_msg_len -= (header->sip_hdr_end -
2N/A            header->sip_hdr_start);
2N/A        sip_free_header(header);
2N/A        header = next_header;
2N/A    }
2N/A    _sip_msg->sip_msg_start_line = NULL;
2N/A
2N/A    /*
2N/A     * Also delete the sip_msg_req_res info since we don't have a start
2N/A     * line.
2N/A     */
2N/A    while (_sip_msg->sip_msg_req_res != NULL) {
2N/A        sip_message_type_t  *sip_msg_type_ptr;
2N/A
2N/A        sip_msg_type_ptr = _sip_msg->sip_msg_req_res->sip_next;
2N/A        if (_sip_msg->sip_msg_req_res->is_request) {
2N/A            sip_request_t   *reqline;
2N/A
2N/A            reqline = &_sip_msg->sip_msg_req_res->U.sip_request;
2N/A            if (reqline->sip_parse_uri != NULL) {
2N/A                sip_free_parsed_uri(reqline->sip_parse_uri);
2N/A                reqline->sip_parse_uri = NULL;
2N/A            }
2N/A        }
2N/A        free(_sip_msg->sip_msg_req_res);
2N/A        _sip_msg->sip_msg_req_res = sip_msg_type_ptr;
2N/A    }
2N/A    return (0);
2N/A}
2N/A
2N/A
2N/A/*
2N/A * Delete start line from sip_msg
2N/A */
2N/Aint
2N/Asip_delete_start_line(sip_msg_t sip_msg)
2N/A{
2N/A    _sip_msg_t  *_sip_msg;
2N/A    int     ret;
2N/A
2N/A    if (sip_msg == NULL)
2N/A        return (EINVAL);
2N/A
2N/A    _sip_msg = (_sip_msg_t *)sip_msg;
2N/A    (void) pthread_mutex_lock(&_sip_msg->sip_msg_mutex);
2N/A    ret = sip_delete_start_line_locked(_sip_msg);
2N/A    (void) pthread_mutex_unlock(&_sip_msg->sip_msg_mutex);
2N/A
2N/A    return (ret);
2N/A}
2N/A
2N/A/*
2N/A * Delete all headers from _sip_msg
2N/A */
2N/Avoid
2N/Asip_delete_all_headers(_sip_msg_t *_sip_msg)
2N/A{
2N/A    _sip_header_t *header;
2N/A
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&_sip_msg->sip_msg_mutex));
2N/A#endif
2N/A
2N/A    header = _sip_msg->sip_msg_headers_start;
2N/A    while (header != NULL) {
2N/A        _sip_header_t *next_header;
2N/A        next_header = header->sip_hdr_next;
2N/A        sip_free_header(header);
2N/A        header = next_header;
2N/A    }
2N/A    _sip_msg->sip_msg_headers_start = NULL;
2N/A    _sip_msg->sip_msg_headers_end = NULL;
2N/A}
2N/A
2N/A/*
2N/A * Delete and free the named header. If header_name is null
2N/A * free all headers.
2N/A */
2N/Avoid
2N/Asip_delete_headers(sip_msg_t sip_msg, char *header_name)
2N/A{
2N/A    _sip_header_t *header;
2N/A    _sip_msg_t *_sip_msg;
2N/A
2N/A    _sip_msg = (_sip_msg_t *)sip_msg;
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&_sip_msg->sip_msg_mutex));
2N/A#endif
2N/A    header = sip_search_for_header(_sip_msg, header_name, NULL);
2N/A    if (header == NULL)
2N/A        return;
2N/A    while (header != NULL) {
2N/A        if (_sip_msg->sip_msg_headers_start == header) {
2N/A            _sip_msg->sip_msg_headers_start = header->sip_hdr_next;
2N/A        } else {
2N/A            header->sip_hdr_prev->sip_hdr_next =
2N/A                header->sip_hdr_next;
2N/A        }
2N/A        if (_sip_msg->sip_msg_headers_end == header) {
2N/A            _sip_msg->sip_msg_headers_end = header->sip_hdr_prev;
2N/A        } else {
2N/A            header->sip_hdr_next->sip_hdr_prev =
2N/A                header->sip_hdr_prev;
2N/A        }
2N/A        sip_free_header(header);
2N/A        if (header_name != NULL)
2N/A            return;
2N/A        else
2N/A            header = sip_search_for_header(_sip_msg, NULL, NULL);
2N/A    }
2N/A}
2N/A
2N/A/*
2N/A * Add a header to sip_msg. If header_name is provided then the new header
2N/A * is added before that header, if first is set, or after. If append is
2N/A * set, then the header is added to the end of the header list.
2N/A */
2N/Avoid
2N/A_sip_add_header(_sip_msg_t *sip_msg, _sip_header_t *new_header,
2N/A    boolean_t append, boolean_t first, char *header_name)
2N/A{
2N/A    _sip_header_t   *header = NULL;
2N/A
2N/A    if (sip_msg == NULL || new_header == NULL)
2N/A        return;
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&sip_msg->sip_msg_mutex));
2N/A#endif
2N/A    new_header->sip_hdr_sipmsg = sip_msg;
2N/A    if (header_name != NULL) {
2N/A        _sip_header_t   *header_tmp;
2N/A
2N/A        header = sip_search_for_header(sip_msg, header_name, NULL);
2N/A        header_tmp = header;
2N/A        if (!first) {
2N/A            while (header != NULL) {
2N/A                header_tmp = header;
2N/A                header = sip_search_for_header(sip_msg,
2N/A                    header_name, header);
2N/A            }
2N/A        }
2N/A        header = header_tmp;
2N/A        if (header == NULL)
2N/A            append =  B_TRUE;
2N/A    }
2N/A
2N/A    if (header != NULL) {
2N/A        if (append) {
2N/A            new_header->sip_hdr_prev = header;
2N/A            if (sip_msg->sip_msg_headers_end == header) {
2N/A                sip_msg->sip_msg_headers_end = new_header;
2N/A                new_header->sip_hdr_next = NULL;
2N/A            } else {
2N/A                header->sip_hdr_next->sip_hdr_prev = new_header;
2N/A                new_header->sip_hdr_next = header->sip_hdr_next;
2N/A            }
2N/A            header->sip_hdr_next = new_header;
2N/A        } else {
2N/A            new_header->sip_hdr_next = header;
2N/A            if (sip_msg->sip_msg_headers_start == header) {
2N/A                sip_msg->sip_msg_headers_start = new_header;
2N/A                new_header->sip_hdr_prev = NULL;
2N/A            } else {
2N/A                header->sip_hdr_prev->sip_hdr_next = new_header;
2N/A                new_header->sip_hdr_prev = header->sip_hdr_prev;
2N/A            }
2N/A            header->sip_hdr_prev = new_header;
2N/A        }
2N/A    } else {
2N/A        if (append) {
2N/A            if (sip_msg->sip_msg_headers_end != NULL) {
2N/A                sip_msg->sip_msg_headers_end->sip_hdr_next =
2N/A                    new_header;
2N/A            } else {
2N/A                sip_msg->sip_msg_headers_start = new_header;
2N/A            }
2N/A            new_header->sip_hdr_prev =
2N/A                sip_msg->sip_msg_headers_end;
2N/A            new_header->sip_hdr_next = NULL;
2N/A            sip_msg->sip_msg_headers_end = new_header;
2N/A        } else {
2N/A            if (sip_msg->sip_msg_headers_start != NULL) {
2N/A                sip_msg->sip_msg_headers_start->sip_hdr_prev =
2N/A                    new_header;
2N/A            } else {
2N/A                sip_msg->sip_msg_headers_end = new_header;
2N/A            }
2N/A            new_header->sip_hdr_next =
2N/A                sip_msg->sip_msg_headers_start;
2N/A            new_header->sip_hdr_prev = NULL;
2N/A            sip_msg->sip_msg_headers_start = new_header;
2N/A        }
2N/A    }
2N/A    sip_msg->sip_msg_len += new_header->sip_hdr_end -
2N/A        new_header->sip_hdr_start;
2N/A}
2N/A
2N/A/*
2N/A * Scan through the function table and return the entry for the given header
2N/A * type.
2N/A */
2N/Asip_header_function_t *
2N/A_sip_get_header_functions(sip_header_function_t *sip_header_function_table,
2N/A    _sip_header_t *sip_header, char *header_name)
2N/A{
2N/A    int len;
2N/A    int i = 0;
2N/A
2N/A    if (sip_header == NULL && header_name == NULL)
2N/A        return (NULL);
2N/A
2N/A    /*
2N/A     * If header_name is NULL we first have to locate the name
2N/A     */
2N/A    if (header_name == NULL) {
2N/A        if (sip_skip_white_space(sip_header) != 0) {
2N/A            return (NULL);
2N/A        }
2N/A        header_name = sip_header->sip_hdr_current;
2N/A        if (sip_find_separator(sip_header, SIP_HCOLON, (char)NULL,
2N/A            (char)NULL, B_FALSE) != 0) {
2N/A            return (NULL);
2N/A        }
2N/A        len = sip_header->sip_hdr_current - header_name;
2N/A    } else {
2N/A        len = strlen(header_name);
2N/A    }
2N/A
2N/A    if (len > 0) {
2N/A        while (sip_header_function_table[i].header_name != NULL ||
2N/A            sip_header_function_table[i].header_short_name != NULL) {
2N/A            if (sip_header_function_table[i].header_name != NULL &&
2N/A                len ==
2N/A                strlen(sip_header_function_table[i].header_name)) {
2N/A                if (strncasecmp(header_name,
2N/A                    sip_header_function_table[i].
2N/A                    header_name, len) == 0) {
2N/A                    break;
2N/A                }
2N/A            } else if (sip_header_function_table[i].
2N/A                header_short_name != NULL && len ==
2N/A                strlen(sip_header_function_table[i].
2N/A                header_short_name)) {
2N/A                if (strncasecmp(header_name,
2N/A                    sip_header_function_table[i].
2N/A                    header_short_name, len) == 0) {
2N/A                    break;
2N/A                }
2N/A            }
2N/A            i++;
2N/A        }
2N/A    }
2N/A
2N/A    if (sip_header != NULL)
2N/A        sip_header->sip_hdr_current = sip_header->sip_hdr_start;
2N/A    if (sip_header_function_table[i].header_name == NULL)
2N/A        return (NULL);
2N/A    return (&sip_header_function_table[i]);
2N/A}
2N/A
2N/A/*
2N/A * Return the entry from the function table for the given header
2N/A */
2N/Asip_header_function_t *
2N/Asip_get_header_functions(_sip_header_t *sip_header, char *header_name)
2N/A{
2N/A    sip_header_function_t   *func;
2N/A    sip_header_function_t   *header_f_table = NULL;
2N/A
2N/A    if (sip_header_function_table_external != NULL) {
2N/A        header_f_table = _sip_get_header_functions(
2N/A            sip_header_function_table_external,
2N/A            sip_header, header_name);
2N/A        if (header_f_table != NULL)
2N/A            return (header_f_table);
2N/A    }
2N/A    func = _sip_get_header_functions(sip_header_function_table, sip_header,
2N/A        header_name);
2N/A    return (func);
2N/A}
2N/A
2N/A/*
2N/A * Search for the header name passed in.
2N/A */
2N/A_sip_header_t *
2N/Asip_search_for_header(_sip_msg_t *sip_msg, char *header_name,
2N/A    _sip_header_t *old_header)
2N/A{
2N/A    int         len = 0;
2N/A    int         full_len = 0;
2N/A    int         compact_len = 0;
2N/A    _sip_header_t       *header = NULL;
2N/A    char            *compact_name = NULL;
2N/A    char            *full_name = NULL;
2N/A    sip_header_function_t   *header_f_table = NULL;
2N/A
2N/A    if (sip_msg == NULL)
2N/A        return (NULL);
2N/A#ifdef  __solaris__
2N/A    assert(mutex_held(&sip_msg->sip_msg_mutex));
2N/A#endif
2N/A
2N/A    if (header_name != NULL) {
2N/A        header_f_table = sip_get_header_functions(NULL, header_name);
2N/A        if (header_f_table != NULL) {
2N/A            full_name = header_f_table->header_name;
2N/A            compact_name = header_f_table->header_short_name;
2N/A            if (full_name != NULL)
2N/A                full_len = strlen(full_name);
2N/A            if (compact_name != NULL)
2N/A                compact_len = strlen(compact_name);
2N/A        } else {
2N/A            header_f_table = &sip_header_function_table[0];
2N/A            full_name = header_name;
2N/A            full_len  = strlen(full_name);
2N/A        }
2N/A    }
2N/A
2N/A    if (old_header != NULL)
2N/A        header = old_header->sip_hdr_next;
2N/A    else
2N/A        header = sip_msg->sip_msg_headers_start;
2N/A
2N/A    while (header != NULL) {
2N/A
2N/A        if (header->sip_header_state == SIP_HEADER_DELETED) {
2N/A            header = header->sip_hdr_next;
2N/A            continue;
2N/A        }
2N/A
2N/A        if (compact_len == 0 && full_len == 0)
2N/A            break;
2N/A
2N/A        header->sip_hdr_current = header->sip_hdr_start;
2N/A
2N/A        if (sip_skip_white_space(header)) {
2N/A            header = header->sip_hdr_next;
2N/A            continue;
2N/A        }
2N/A
2N/A        len = header->sip_hdr_end - header->sip_hdr_current;
2N/A
2N/A        if (full_name != NULL && (full_len <= len) &&
2N/A            strncasecmp(header->sip_hdr_current, full_name,
2N/A            full_len) == 0) {
2N/A            header->sip_hdr_current += full_len;
2N/A            if (sip_skip_white_space(header)) {
2N/A                header = header->sip_hdr_next;
2N/A                continue;
2N/A            }
2N/A
2N/A            if (*header->sip_hdr_current == SIP_HCOLON) {
2N/A                header_name = full_name;
2N/A                break;
2N/A            }
2N/A        }
2N/A
2N/A        if (compact_name != NULL && (compact_len <= len) &&
2N/A            strncasecmp(header->sip_hdr_current, compact_name,
2N/A            compact_len) == 0) {
2N/A            header->sip_hdr_current += compact_len;
2N/A            if (sip_skip_white_space(header)) {
2N/A                header = header->sip_hdr_next;
2N/A                continue;
2N/A            }
2N/A            if (*header->sip_hdr_current == SIP_HCOLON) {
2N/A                header_name = compact_name;
2N/A                break;
2N/A            }
2N/A        }
2N/A        header = header->sip_hdr_next;
2N/A    }
2N/A
2N/A    if (header != NULL) {
2N/A        header->sip_hdr_current = header->sip_hdr_start;
2N/A        if (header_f_table == NULL) {
2N/A            header_f_table =
2N/A                sip_get_header_functions(header, header_name);
2N/A            if (header_f_table == NULL)
2N/A                header_f_table = &sip_header_function_table[0];
2N/A        }
2N/A
2N/A        header->sip_header_functions = header_f_table;
2N/A    }
2N/A    return (header);
2N/A}
2N/A
2N/A/*
2N/A * Return the start line as a string. Caller frees string
2N/A */
2N/Achar *
2N/A_sip_startline_to_str(_sip_msg_t *sip_msg, int *error)
2N/A{
2N/A    char        *slstr;
2N/A    int     len;
2N/A
2N/A    if (error != NULL)
2N/A        *error = 0;
2N/A
2N/A    if (sip_msg == NULL || sip_msg->sip_msg_start_line == NULL) {
2N/A        if (error != NULL)
2N/A            *error = EINVAL;
2N/A        return (NULL);
2N/A    }
2N/A    (void) pthread_mutex_lock(&sip_msg->sip_msg_mutex);
2N/A    len = sip_msg->sip_msg_start_line->sip_hdr_end -
2N/A        sip_msg->sip_msg_start_line->sip_hdr_start - 2;
2N/A    if ((slstr = malloc(len + 1)) == NULL) {
2N/A        (void) pthread_mutex_unlock(&sip_msg->sip_msg_mutex);
2N/A        if (error != NULL)
2N/A            *error = ENOMEM;
2N/A        return (NULL);
2N/A    }
2N/A    (void) strncpy(slstr, sip_msg->sip_msg_start_line->sip_hdr_start, len);
2N/A    (void) pthread_mutex_unlock(&sip_msg->sip_msg_mutex);
2N/A    slstr[len] = '\0';
2N/A    return (slstr);
2N/A}
2N/A
2N/A/*
2N/A * Return the given header as a string. Caller frees string
2N/A */
2N/Achar *
2N/Asip_hdr_to_str(sip_header_t sip_header, int *error)
2N/A{
2N/A    char        *hdrstr;
2N/A    char        *tmpptr;
2N/A    _sip_header_t   *_sip_header;
2N/A    int     len;
2N/A
2N/A    if (error != NULL)
2N/A        *error = 0;
2N/A
2N/A    if (sip_header == NULL) {
2N/A        if (error != NULL)
2N/A            *error = EINVAL;
2N/A        return (NULL);
2N/A    }
2N/A    _sip_header = (_sip_header_t *)sip_header;
2N/A    if (_sip_header->sip_header_state == SIP_HEADER_DELETED) {
2N/A        if (_sip_header->sip_hdr_sipmsg != NULL) {
2N/A            (void) pthread_mutex_unlock(
2N/A                &_sip_header->sip_hdr_sipmsg->sip_msg_mutex);
2N/A        }
2N/A        if (error != NULL)
2N/A            *error = EINVAL;
2N/A        return (NULL);
2N/A    }
2N/A    if (_sip_header->sip_hdr_sipmsg != NULL) {
2N/A        (void) pthread_mutex_lock(
2N/A            &_sip_header->sip_hdr_sipmsg->sip_msg_mutex);
2N/A    }
2N/A    len = _sip_header->sip_hdr_end - _sip_header->sip_hdr_start;
2N/A    hdrstr = malloc(len);
2N/A    if (hdrstr == NULL) {
2N/A        if (_sip_header->sip_hdr_sipmsg != NULL) {
2N/A            (void) pthread_mutex_unlock(
2N/A                &_sip_header->sip_hdr_sipmsg->sip_msg_mutex);
2N/A        }
2N/A        if (error != NULL)
2N/A            *error = ENOMEM;
2N/A        return (NULL);
2N/A    }
2N/A    if (_sip_header->sip_header_state == SIP_HEADER_DELETED_VAL) {
2N/A        len = sip_copy_values(hdrstr, _sip_header);
2N/A    } else {
2N/A        (void) strncpy(hdrstr, _sip_header->sip_hdr_start, len);
2N/A    }
2N/A    if (_sip_header->sip_hdr_sipmsg != NULL) {
2N/A        (void) pthread_mutex_unlock(
2N/A            &_sip_header->sip_hdr_sipmsg->sip_msg_mutex);
2N/A    }
2N/A    tmpptr = hdrstr + len;
2N/A    while (*tmpptr-- != '\n') {
2N/A        if (tmpptr == _sip_header->sip_hdr_start) {
2N/A            free(hdrstr);
2N/A            if (error != NULL)
2N/A                *error = EINVAL;
2N/A            return (NULL);
2N/A        }
2N/A    }
2N/A    *tmpptr = '\0';
2N/A    return (hdrstr);
2N/A}
2N/A
2N/A/*
2N/A * Given a param list find the named parameter.
2N/A * Returns a pointer to the value or NULL.
2N/A */
2N/Asip_param_t *
2N/Asip_get_param_from_list(sip_param_t *param_list, char *param_name)
2N/A{
2N/A    while (param_list != NULL) {
2N/A        if (param_list->param_name.sip_str_len == strlen(param_name) &&
2N/A            strncasecmp(param_list->param_name.sip_str_ptr, param_name,
2N/A            strlen(param_name)) == 0) {
2N/A            return (param_list);
2N/A        }
2N/A        param_list = param_list->param_next;
2N/A    }
2N/A    return (NULL);
2N/A}