/*      $OpenBSD: pptp_subr.c,v 1.4 2012/05/08 13:15:12 yasuoka Exp $ */

/*-
 * Copyright (c) 2009 Internet Initiative Japan Inc.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/* utility functions for the pptp.c */

#include <sys/types.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <netinet/in.h>
#include <stdio.h>
#include <string.h>
#include <event.h>

#include "bytebuf.h"
#include "hash.h"
#include "slist.h"

#include "pptp.h"
#include "pptp_local.h"
#include "pptp_subr.h"

/* convert the Faming Capability bit as CSV strings */
const char *
pptp_framing_string(uint32_t bits)
{
        static char framing_cap_buf[40];

        snprintf(framing_cap_buf, sizeof(framing_cap_buf), "%s%s",
            (bits & PPTP_CTRL_FRAMING_ASYNC)? ",async" : "",
            (bits & PPTP_CTRL_FRAMING_SYNC)? ",sync" : "");

        if (strlen(framing_cap_buf) > 0)
                return &framing_cap_buf[1];

        return "";
}


/* convert the Bearer Capability bit as CSV strings */
const char *
pptp_bearer_string(uint32_t bits)
{
        static char bearer_cap_buf[40];

        snprintf(bearer_cap_buf, sizeof(bearer_cap_buf), "%s%s",
            (bits &PPTP_CTRL_BEARER_ANALOG)? ",analog" : "",
            (bits &PPTP_CTRL_BEARER_DIGITAL)? ",digital" : "");

        if (strlen(bearer_cap_buf) > 0)
                return &bearer_cap_buf[1];

        return "";
}

/* build common header part of a control packet */
void
pptp_init_header(struct pptp_ctrl_header *header, int length, int ctrl_mes_type)
{
        header->length = htons(length);
        header->pptp_message_type = htons(PPTP_MES_TYPE_CTRL);
        header->magic_cookie = htonl(PPTP_MAGIC_COOKIE);
        header->control_message_type = htons(ctrl_mes_type);
        header->reserved0 = 0;
}

#define NAME_VAL(x)     { x, #x }
static struct _label_name {
        int             label;
        const char      *name;
} pptp_StopCCRQ_reason_labels[] = {
        NAME_VAL(PPTP_StopCCRQ_REASON_NONE),
        NAME_VAL(PPTP_StopCCRQ_REASON_STOP_PROTOCOL),
        NAME_VAL(PPTP_StopCCRQ_REASON_STOP_LOCAL_SHUTDOWN),
}, pptp_StopCCRP_result_labels[] = {
        NAME_VAL(PPTP_StopCCRP_RESULT_OK),
        NAME_VAL(PPTP_StopCCRP_RESULT_GENERIC_ERROR),
}, pptp_general_error_labels[] = {
        NAME_VAL(PPTP_ERROR_NONE),
        NAME_VAL(PPTP_ERROR_NOT_CONNECTED),
        NAME_VAL(PPTP_ERROR_BAD_FORMAT),
        NAME_VAL(PPTP_ERROR_NO_RESOURCE),
        NAME_VAL(PPTP_ERROR_BAD_CALL),
}, pptp_ctrl_mes_type_labels[] = {
        NAME_VAL(PPTP_CTRL_MES_CODE_SCCRQ),
        NAME_VAL(PPTP_CTRL_MES_CODE_SCCRP),
        NAME_VAL(PPTP_CTRL_MES_CODE_StopCCRQ),
        NAME_VAL(PPTP_CTRL_MES_CODE_StopCCRP),
        NAME_VAL(PPTP_CTRL_MES_CODE_ECHO_RQ),
        NAME_VAL(PPTP_CTRL_MES_CODE_ECHO_RP),
        NAME_VAL(PPTP_CTRL_MES_CODE_OCRQ),
        NAME_VAL(PPTP_CTRL_MES_CODE_OCRP),
        NAME_VAL(PPTP_CTRL_MES_CODE_ICRQ),
        NAME_VAL(PPTP_CTRL_MES_CODE_ICRP),
        NAME_VAL(PPTP_CTRL_MES_CODE_ICCN),
        NAME_VAL(PPTP_CTRL_MES_CODE_CCR),
        NAME_VAL(PPTP_CTRL_MES_CODE_CDN),
        NAME_VAL(PPTP_CTRL_MES_CODE_SLI),
}, pptp_CDN_result_labels[] = {
        NAME_VAL(PPTP_CDN_RESULT_LOST_CARRIER),
        NAME_VAL(PPTP_CDN_RESULT_GENRIC_ERROR),
        NAME_VAL(PPTP_CDN_RESULT_ADMIN_SHUTDOWN),
        NAME_VAL(PPTP_CDN_RESULT_REQUEST),
};


/* value to strings convert macros */
#define LABEL_TO_STRING(func_name, label_names, prefix_len)             \
        const char *                                                    \
        func_name(int code)                                             \
        {                                                               \
                int i;                                                  \
                                                                        \
                for (i = 0; i < countof(label_names); i++) {            \
                        if (label_names[i].label == code)               \
                                return label_names[i].name + prefix_len;\
                }                                                       \
                                                                        \
                return "UNKNOWN";                                       \
        }
LABEL_TO_STRING(pptp_StopCCRQ_reason_string, pptp_StopCCRQ_reason_labels, 21)
LABEL_TO_STRING(pptp_StopCCRP_result_string, pptp_StopCCRP_result_labels, 21)
LABEL_TO_STRING(pptp_general_error_string, pptp_general_error_labels, 11)
LABEL_TO_STRING(pptp_ctrl_mes_type_string, pptp_ctrl_mes_type_labels, 19)
LABEL_TO_STRING(pptp_CDN_result_string, pptp_CDN_result_labels, 16)