/* packet-imf.c

 * Routines for Internet Message Format (IMF) packet disassembly

 *

 * Copyright (c) 2007 by Graeme Lunt

 *

 * Wireshark - Network traffic analyzer

 * By Gerald Combs <gerald@wireshark.org>

 * Copyright 1999 Gerald Combs

 *

 * SPDX-License-Identifier: GPL-2.0-or-later

 */

#include "config.h"

#include <epan/packet.h>

#include <epan/prefs.h>

#include <epan/uat.h>

#include <epan/expert.h>

#include <wsutil/str_util.h>

#include <wsutil/array.h>

#include <epan/tap.h>

#include <epan/export_object.h>

#include "packet-ber.h"

#include "packet-media-type.h"

#include "packet-imf.h"

#include "packet-ess.h"

#include "packet-p1.h"

void proto_register_imf(void);

void proto_reg_handoff_imf(void);

static int imf_eo_tap;

static int proto_imf;

static int hf_imf_date;

static int hf_imf_from;

static int hf_imf_sender;

static int hf_imf_reply_to;

static int hf_imf_to;

static int hf_imf_cc;

static int hf_imf_bcc;

static int hf_imf_message_id;

static int hf_imf_in_reply_to;

static int hf_imf_references;

static int hf_imf_subject;

static int hf_imf_comments;

static int hf_imf_user_agent;

static int hf_imf_keywords;

static int hf_imf_resent_date;

static int hf_imf_resent_from;

static int hf_imf_resent_sender;

static int hf_imf_resent_to;

static int hf_imf_resent_cc;

static int hf_imf_resent_bcc;

static int hf_imf_resent_message_id;

static int hf_imf_return_path;

static int hf_imf_received;

static int hf_imf_content_type;

static int hf_imf_content_type_type;

static int hf_imf_content_type_parameters;

static int hf_imf_content_id;

static int hf_imf_content_transfer_encoding;

static int hf_imf_content_description;

static int hf_imf_mime_version;

static int hf_imf_thread_index;

static int hf_imf_lines;

static int hf_imf_precedence;

static int hf_imf_ext_mailer;

static int hf_imf_ext_mimeole;

static int hf_imf_ext_tnef_correlator;

static int hf_imf_ext_expiry_date;

static int hf_imf_ext_uidl;

static int hf_imf_ext_authentication_warning;

static int hf_imf_ext_virus_scanned;

static int hf_imf_ext_original_to;

static int hf_imf_extension;

static int hf_imf_extension_type;

static int hf_imf_extension_value;

/* RFC 2156 */

static int hf_imf_autoforwarded;

static int hf_imf_autosubmitted;

static int hf_imf_x400_content_identifier;

static int hf_imf_content_language;

static int hf_imf_conversion;

static int hf_imf_conversion_with_loss;

static int hf_imf_delivery_date;

static int hf_imf_discarded_x400_ipms_extensions;

static int hf_imf_discarded_x400_mts_extensions;

static int hf_imf_dl_expansion_history;

static int hf_imf_deferred_delivery;

static int hf_imf_expires;

static int hf_imf_importance;

static int hf_imf_incomplete_copy;

static int hf_imf_latest_delivery_time;

static int hf_imf_message_type;

static int hf_imf_original_encoded_information_types;

static int hf_imf_originator_return_address;

static int hf_imf_priority;

static int hf_imf_reply_by;

static int hf_imf_sensitivity;

static int hf_imf_supersedes;

static int hf_imf_x400_content_type;

static int hf_imf_x400_mts_identifier;

static int hf_imf_x400_originator;

static int hf_imf_x400_received;

static int hf_imf_x400_recipients;

static int hf_imf_delivered_to;

static int hf_imf_message_text;

static int hf_imf_display_name;

static int hf_imf_address;

/* static int hf_imf_mailbox_list; */

static int hf_imf_mailbox_list_item;

/* static int hf_imf_address_list; */

static int hf_imf_address_list_item;

/* draft-zeilenga-email-seclabel-04 */

static int hf_imf_siolabel;

static int hf_imf_siolabel_marking;

static int hf_imf_siolabel_fgcolor;

static int hf_imf_siolabel_bgcolor;

static int hf_imf_siolabel_type;

static int hf_imf_siolabel_label;

static int hf_imf_siolabel_unknown;

static int ett_imf;

static int ett_imf_content_type;

static int ett_imf_mailbox;

static int ett_imf_group;

static int ett_imf_mailbox_list;

static int ett_imf_address_list;

static int ett_imf_siolabel;

static int ett_imf_extension;

static int ett_imf_message_text;

static dissector_handle_t imf_handle;

static expert_field ei_imf_unknown_param;

/* Used for IMF Export Object feature */

typedef struct _imf_eo_t {

  char     *filename;

  char     *sender_data;

  char     *subject_data;

  uint32_t payload_len;

  char     *payload_data;

} imf_eo_t;

static tap_packet_status

imf_eo_packet(void *tapdata, packet_info *pinfo, epan_dissect_t *edt _U_, const void *data, tap_flags_t flags _U_)

{

  export_object_list_t *object_list = (export_object_list_t *)tapdata;

  const imf_eo_t *eo_info = (const imf_eo_t *)data;

  export_object_entry_t *entry;

  if(eo_info) { /* We have data waiting for us */

    /* These values will be freed when the Export Object window

     * is closed. */

    entry = g_new(export_object_entry_t, 1);

    char *start = g_strrstr_len(eo_info->sender_data, -1, "<");

    char *stop = g_strrstr_len(eo_info->sender_data, -1,  ">");

    /* Only include the string inside of the "<>" brackets. If there is nothing between

    the two brackets use the sender_data string */

    if(start && stop && stop > start && (stop - start) > 2){

        entry->hostname = ws_strdup_printf("%.*s", (int) (stop - start - 1), start + 1);

    } else {

        entry->hostname = g_strdup(eo_info->sender_data);

    }

    entry->pkt_num = pinfo->num;

    entry->content_type = g_strdup("EML file");

    entry->filename = ws_strdup_printf("%s.eml", eo_info->subject_data);

    entry->payload_len = eo_info->payload_len;

    entry->payload_data = (uint8_t *)g_memdup2(eo_info->payload_data, eo_info->payload_len);

    object_list->add_entry(object_list->gui_data, entry);

    return TAP_PACKET_REDRAW; /* State changed - window should be redrawn */

  } else {

    return TAP_PACKET_DONT_REDRAW; /* State unchanged - no window updates needed */

  }

}

struct imf_field {

  char         *name;           /* field name - in lower case for matching purposes */

  int          *hf_id;          /* wireshark field */

  void         (*subdissector)(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

  bool         add_to_col_info; /* add field to column info */

};

#define NO_SUBDISSECTION NULL

static void dissect_imf_mailbox(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

static void dissect_imf_address(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

static void dissect_imf_address_list(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

static void dissect_imf_mailbox_list(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

static void dissect_imf_siolabel(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo);

static const struct imf_field imf_fields[] = {

  {"unknown-extension",                   &hf_imf_extension_type, NO_SUBDISSECTION, false}, /* unknown extension */

  {"date",                                &hf_imf_date, NO_SUBDISSECTION, false}, /* date-time */

  {"from",                                &hf_imf_from, dissect_imf_mailbox_list , true}, /* mailbox_list */

  {"sender",                              &hf_imf_sender, dissect_imf_mailbox, false}, /* mailbox */

  {"reply-to",                            &hf_imf_reply_to, dissect_imf_address_list , false}, /* address_list */

  {"to",                                  &hf_imf_to, dissect_imf_address_list , false}, /* address_list */

  {"cc",                                  &hf_imf_cc, dissect_imf_address_list , false}, /* address_list */

  {"bcc",                                 &hf_imf_bcc, dissect_imf_address_list , false}, /* address_list */

  {"message-id",                          &hf_imf_message_id, NO_SUBDISSECTION, false}, /* msg-id */

  {"in-reply-to",                         &hf_imf_in_reply_to, NO_SUBDISSECTION, false}, /* msg-id */

  {"references",                          &hf_imf_references, NO_SUBDISSECTION, false}, /* msg-id */

  {"subject",                             &hf_imf_subject, NO_SUBDISSECTION, true}, /* unstructured */

  {"comments",                            &hf_imf_comments, NO_SUBDISSECTION, false}, /* unstructured */

  {"user-agent",                          &hf_imf_user_agent, NO_SUBDISSECTION, false}, /* unstructured */

  {"keywords",                            &hf_imf_keywords, NULL, false}, /* phrase_list */

  {"resent-date",                         &hf_imf_resent_date, NO_SUBDISSECTION, false},

  {"resent-from",                         &hf_imf_resent_from, dissect_imf_mailbox_list, false},

  {"resent-sender",                       &hf_imf_resent_sender, dissect_imf_mailbox, false},

  {"resent-to",                           &hf_imf_resent_to, dissect_imf_address_list, false},

  {"resent-cc",                           &hf_imf_resent_cc, dissect_imf_address_list, false},

  {"resent-bcc",                          &hf_imf_resent_bcc, dissect_imf_address_list, false},

  {"resent-message-id",                   &hf_imf_resent_message_id, NO_SUBDISSECTION, false},

  {"return-path",                         &hf_imf_return_path, NULL, false},

  {"received",                            &hf_imf_received, NO_SUBDISSECTION, false},

  /* these are really multi-part - but we parse them anyway */

  {"content-type",                        &hf_imf_content_type, NULL, false}, /* handled separately as a special case */

  {"content-id",                          &hf_imf_content_id, NULL, false},

  {"content-description",                 &hf_imf_content_description, NULL, false},

  {"content-transfer-encoding",           &hf_imf_content_transfer_encoding, NULL, false},

  {"mime-version",                        &hf_imf_mime_version, NO_SUBDISSECTION, false},

  /* MIXER - RFC 2156 */

  {"autoforwarded",                       &hf_imf_autoforwarded, NULL, false},

  {"autosubmitted",                       &hf_imf_autosubmitted, NULL, false},

  {"x400-content-identifier",             &hf_imf_x400_content_identifier, NULL, false},

  {"content-language",                    &hf_imf_content_language, NULL, false},

  {"conversion",                          &hf_imf_conversion, NULL, false},

  {"conversion-with-loss",                &hf_imf_conversion_with_loss, NULL, false},

  {"delivery-date",                       &hf_imf_delivery_date, NULL, false},

  {"discarded-x400-ipms-extensions",      &hf_imf_discarded_x400_ipms_extensions, NULL, false},

  {"discarded-x400-mts-extensions",       &hf_imf_discarded_x400_mts_extensions, NULL, false},

  {"dl-expansion-history",                &hf_imf_dl_expansion_history, NULL, false},

  {"deferred-delivery",                   &hf_imf_deferred_delivery, NULL, false},

  {"expires",                             &hf_imf_expires, NULL, false},

  {"importance",                          &hf_imf_importance, NULL, false},

  {"incomplete-copy",                     &hf_imf_incomplete_copy, NULL, false},

  {"latest-delivery-time",                &hf_imf_latest_delivery_time, NULL, false},

  {"message-type",                        &hf_imf_message_type, NULL, false},

  {"original-encoded-information-types",  &hf_imf_original_encoded_information_types, NULL, false},

  {"originator-return-address",           &hf_imf_originator_return_address, NULL, false},

  {"priority",                            &hf_imf_priority, NULL, false},

  {"reply-by",                            &hf_imf_reply_by, NULL, false},

  {"sensitivity",                         &hf_imf_sensitivity, NULL, false},

  {"supersedes",                          &hf_imf_supersedes, NULL, false},

  {"x400-content-type",                   &hf_imf_x400_content_type, NULL, false},

  {"x400-mts-identifier",                 &hf_imf_x400_mts_identifier, NULL, false},

  {"x400-originator",                     &hf_imf_x400_originator, NULL, false},

  {"x400-received",                       &hf_imf_x400_received, NULL, false},

  {"x400-recipients",                     &hf_imf_x400_recipients, NULL, false},

  /* delivery */

  {"delivered-to",                        &hf_imf_delivered_to, dissect_imf_mailbox, false}, /* mailbox */

  /* some others */

  {"x-mailer",                            &hf_imf_ext_mailer, NO_SUBDISSECTION, false}, /* unstructured */

  {"thread-index",                        &hf_imf_thread_index, NO_SUBDISSECTION, false}, /* unstructured */

  {"lines",                               &hf_imf_lines, NULL, false},

  {"precedence",                          &hf_imf_precedence, NULL, false},

  {"x-mimeole",                           &hf_imf_ext_mimeole, NO_SUBDISSECTION, false}, /* unstructured */

  {"expiry-date",                         &hf_imf_ext_expiry_date, NO_SUBDISSECTION, false}, /* unstructured */

  {"x-ms-tnef-correlator",                &hf_imf_ext_tnef_correlator, NO_SUBDISSECTION, false}, /* unstructured */

  {"x-uidl",                              &hf_imf_ext_uidl, NO_SUBDISSECTION, false}, /* unstructured */

  {"x-authentication-warning",            &hf_imf_ext_authentication_warning, NO_SUBDISSECTION, false}, /* unstructured */

  {"x-virus-scanned",                     &hf_imf_ext_virus_scanned, NO_SUBDISSECTION, false}, /* unstructured */

  {"x-original-to",                       &hf_imf_ext_original_to, dissect_imf_address_list, false},

  {"sio-label",                           &hf_imf_siolabel, dissect_imf_siolabel, false}, /* sio-label */

  {NULL, NULL, NULL, false},

};

static wmem_map_t *imf_field_table;

#define FORMAT_UNSTRUCTURED  0

#define FORMAT_MAILBOX       1

#define FORMAT_ADDRESS       2

#define FORMAT_MAILBOX_LIST  3

#define FORMAT_ADDRESS_LIST  4

#define FORMAT_SIO_LABEL     5

static const value_string header_format[] = {

  { FORMAT_UNSTRUCTURED, "Unstructured" },

  { FORMAT_MAILBOX,      "Mailbox"      },

  { FORMAT_ADDRESS,      "Address"      },

  { FORMAT_MAILBOX_LIST, "Mailbox List" },

  { FORMAT_ADDRESS_LIST, "Address List" },

  { FORMAT_SIO_LABEL,    "SIO-Label"    },

  { 0, NULL }

};

static const value_string add_to_col_info[] = {

  { 0, "No"  },

  { 1, "Yes" },

  { 0, NULL }

};

typedef struct _header_field_t {

  char *header_name;

  char *description;

  unsigned  header_format;

  unsigned  add_to_col_info;

} header_field_t;

static header_field_t *header_fields;

static unsigned num_header_fields;

static GHashTable *custom_field_table;

static hf_register_info *dynamic_hf;

static unsigned dynamic_hf_size;

static bool

header_fields_update_cb(void *r, char **err)

{

  header_field_t *rec = (header_field_t *)r;

  char c;

  if (rec->header_name == NULL) {

    *err = g_strdup("Header name can't be empty");

    return false;

  }

  g_strstrip(rec->header_name);

  if (rec->header_name[0] == 0) {

    *err = g_strdup("Header name can't be empty");

    return false;

  }

  /* Check for invalid characters (to avoid asserting out when

   * registering the field).

   */

  c = proto_check_field_name(rec->header_name);

  if (c) {

    *err = ws_strdup_printf("Header name can't contain '%c'", c);

    return false;

  }

  *err = NULL;

  return true;

}

static void *

header_fields_copy_cb(void *n, const void *o, size_t siz _U_)

{

  header_field_t *new_rec = (header_field_t *)n;

  const header_field_t *old_rec = (const header_field_t *)o;

  new_rec->header_name = g_strdup(old_rec->header_name);

  new_rec->description = g_strdup(old_rec->description);

  new_rec->header_format = old_rec->header_format;

  new_rec->add_to_col_info = old_rec->add_to_col_info;

  return new_rec;

}

static void

header_fields_free_cb(void *r)

{

  header_field_t *rec = (header_field_t *)r;

  g_free(rec->header_name);

  g_free(rec->description);

}

UAT_CSTRING_CB_DEF(header_fields, header_name, header_field_t)

UAT_CSTRING_CB_DEF(header_fields, description, header_field_t)

UAT_VS_DEF(header_fields, header_format, header_field_t, unsigned, 0, "Unstructured")

Unexecuted instantiation: packet-imf.c:header_fields_header_format_set_cb

Unexecuted instantiation: packet-imf.c:header_fields_header_format_tostr_cb

UAT_VS_DEF(header_fields, add_to_col_info, header_field_t, unsigned, 0, "No")

Unexecuted instantiation: packet-imf.c:header_fields_add_to_col_info_set_cb

Unexecuted instantiation: packet-imf.c:header_fields_add_to_col_info_tostr_cb

/* Define media_type/Content type table */

static dissector_table_t media_type_dissector_table;

static void

dissect_imf_address(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo)

{

  proto_tree *group_tree;

  proto_item *group_item;

  unsigned addr_pos;

  /* if there is a colon present it is a group */

  if(!tvb_find_uint8_length(tvb, offset, length, ':', &addr_pos)) {

    /* there isn't - so it must be a mailbox */

    dissect_imf_mailbox(tvb, offset, length, item, pinfo);

  } else {

    /* it is a group */

    group_tree = proto_item_add_subtree(item, ett_imf_group);

    /* the display-name is mandatory */

    group_item = proto_tree_add_item(group_tree, hf_imf_display_name, tvb, offset, addr_pos - offset - 1, ENC_ASCII);

    /* consume any whitespace */

    for(addr_pos++ ;addr_pos < (offset + length); addr_pos++) {

      if(!g_ascii_isspace(tvb_get_uint8(tvb, addr_pos))) {

        break;

      }

    }

    if(tvb_get_uint8(tvb, addr_pos) != ';') {

      dissect_imf_mailbox_list(tvb, addr_pos, length - (addr_pos - offset), group_item, pinfo);

      /* XXX: need to check for final ';' */

    }

  }

}

static void

dissect_imf_mailbox(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo _U_)

{

  proto_tree *mbox_tree;

  unsigned    addr_pos, end_pos;

  mbox_tree = proto_item_add_subtree(item, ett_imf_mailbox);

  /* Here is the plan:

     If we can't find and angle brackets, then the whole field is an address.

     If we find angle brackets, then the address is between them and the display name is

     anything before the opening angle bracket

  */

  if(!tvb_find_uint8_length(tvb, offset, length, '<', &addr_pos)) {

    /* we can't find an angle bracket - the whole field is therefore the address */

    (void) proto_tree_add_item(mbox_tree, hf_imf_address, tvb, offset, length, ENC_ASCII);

  } else {

    /* we can find an angle bracket - let's see if we can find a display name */

    /* XXX: the '<' could be in the display name */

    for(; offset < addr_pos; offset++) {

      if(!g_ascii_isspace(tvb_get_uint8(tvb, offset))) {

        break;

      }

    }

    if(offset != addr_pos) { /* there is a display name */

      (void) proto_tree_add_item(mbox_tree, hf_imf_display_name, tvb, offset, addr_pos - offset - 1, ENC_ASCII);

    }

    if(!tvb_find_uint8_length(tvb, addr_pos + 1, length - (addr_pos + 1 - offset), '>', &end_pos)) {

      (void) proto_tree_add_item(mbox_tree, hf_imf_address, tvb, addr_pos + 1, end_pos - addr_pos - 1, ENC_ASCII);

    }

  }

}

static void

dissect_imf_address_list(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo)

{

  proto_item *addr_item = NULL;

  proto_tree *tree = NULL;

  unsigned    count = 0;

  unsigned    item_offset;

  unsigned    end_offset;

  unsigned    item_length;

  bool        end_offset_found;

  /* a comma separated list of addresses */

  tree = proto_item_add_subtree(item, ett_imf_address_list);

  item_offset = offset;

  do {

    count++; /* increase the number of items */

    end_offset_found = tvb_find_uint8_length(tvb, item_offset, length - (item_offset - offset), ',', &end_offset);

    if(end_offset_found == false) {

      /* length is to the end of the buffer */

      item_length = length - (item_offset - offset);

    } else {

      item_length = end_offset - item_offset;

    }

    addr_item = proto_tree_add_item(tree, hf_imf_address_list_item, tvb, item_offset, item_length, ENC_ASCII);

    dissect_imf_address(tvb, item_offset, item_length, addr_item, pinfo);

    if(end_offset_found == true) {

      item_offset = end_offset + 1;

    }

  } while(end_offset_found == true);

  /* now indicate the number of items found */

  proto_item_append_text(item, ", %d item%s", count, plurality(count, "", "s"));

}

static void

dissect_imf_mailbox_list(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo)

{

  proto_item *mbox_item = NULL;

  proto_tree *tree = NULL;

  unsigned    count = 0;

  unsigned    item_offset;

  unsigned    end_offset;

  unsigned    item_length;

  bool        end_offset_found;

  /* a comma separated list of mailboxes */

  tree = proto_item_add_subtree(item, ett_imf_mailbox_list);

  item_offset = offset;

  do {

    end_offset_found = tvb_find_uint8_length(tvb, item_offset, length - (item_offset - offset), ',', &end_offset);

    count++; /* increase the number of items */

    if(end_offset_found == false) {

      /* length is to the end of the buffer */

      item_length = length - (item_offset - offset);

    } else {

      item_length = end_offset - item_offset;

    }

    mbox_item = proto_tree_add_item(tree, hf_imf_mailbox_list_item, tvb, item_offset, item_length, ENC_ASCII);

    dissect_imf_mailbox(tvb, item_offset, item_length, mbox_item, pinfo);

    if(end_offset_found == true) {

      item_offset = end_offset + 1;

    }

  } while(end_offset_found == true);

  /* now indicate the number of items found */

  proto_item_append_text(item, ", %d item%s", count, plurality(count, "", "s"));

}

static void

dissect_imf_siolabel(tvbuff_t *tvb, unsigned offset, unsigned length, proto_item *item, packet_info *pinfo)

{

  proto_tree *tree = NULL;

  proto_item *sub_item = NULL;

  unsigned    item_offset, item_length;

  unsigned    value_offset, value_length;

  unsigned    end_offset;

  bool        end_offset_found;

  tvbuff_t   *label_tvb;

  char       *type = NULL;

  wmem_strbuf_t  *label_string = wmem_strbuf_new(pinfo->pool, "");

  /* a semicolon separated list of attributes */

  tree = proto_item_add_subtree(item, ett_imf_siolabel);

  item_offset = offset;

  do {

    end_offset_found = tvb_find_uint8_length(tvb, item_offset, length - (item_offset - offset), ';', &end_offset);

    /* skip leading space */

    item_offset = tvb_skip_wsp(tvb, item_offset, end_offset);

    if (end_offset_found == false) {

      /* length is to the end of the buffer */

      tvb_find_line_end_length(tvb, item_offset, length - (item_offset - offset), &item_length, NULL);

    } else {

      item_length = end_offset - item_offset;

    }

    tvb_find_uint8_length(tvb, item_offset, length - (item_offset - offset), '=', &value_offset);

    value_offset  = value_offset +1;

    value_offset = tvb_skip_wsp(tvb, value_offset, end_offset);

    value_length = item_length - (value_offset - item_offset);

    value_length = tvb_skip_wsp_return(tvb, value_offset + value_length - 1);

    if (tvb_strneql(tvb, item_offset, "marking", 7) == 0) {

      const uint8_t* marking;

      proto_tree_add_item_ret_string(tree, hf_imf_siolabel_marking, tvb, value_offset, value_length, ENC_ASCII|ENC_NA, pinfo->pool, &marking);

      proto_item_append_text(item, ": %s", marking);

    } else if (tvb_strneql(tvb, item_offset, "fgcolor", 7) == 0) {

      proto_tree_add_item(tree, hf_imf_siolabel_fgcolor, tvb, value_offset, value_length, ENC_ASCII);

    } else if (tvb_strneql(tvb, item_offset, "bgcolor", 7) == 0) {

      proto_tree_add_item(tree, hf_imf_siolabel_bgcolor, tvb, value_offset, value_length, ENC_ASCII);

    } else if (tvb_strneql(tvb, item_offset, "type", 4) == 0) {

      type = (char*)tvb_get_string_enc(pinfo->pool, tvb, value_offset + 1, value_length - 2, ENC_ASCII); /* quoted */

      proto_tree_add_item(tree, hf_imf_siolabel_type, tvb, value_offset, value_length, ENC_ASCII);

    } else if (tvb_strneql(tvb, item_offset, "label", 5) == 0) {

      char *label = (char*)tvb_get_string_enc(pinfo->pool, tvb, value_offset + 1, value_length - 2, ENC_ASCII); /* quoted */

      wmem_strbuf_append(label_string, label);

      if (tvb_get_uint8(tvb, item_offset + 5) == '*') { /* continuations */

        int num;

        tvb_get_string_int(tvb, item_offset + 6, value_offset - item_offset + 6, ENC_STR_DEC, &num, NULL);

        proto_tree_add_string_format(tree, hf_imf_siolabel_label, tvb, value_offset, value_length,

                                     label, "Label[%d]: \"%s\"", num, label);

      } else {

        proto_tree_add_item(tree, hf_imf_siolabel_label, tvb, value_offset, value_length, ENC_ASCII);

      }

    } else {

      sub_item = proto_tree_add_item(tree, hf_imf_siolabel_unknown, tvb, item_offset, item_length, ENC_ASCII);

      expert_add_info(pinfo, sub_item, &ei_imf_unknown_param);

    }

    if (end_offset_found == true) {

      item_offset = end_offset + 1;

    }

  } while (end_offset_found == true);

  if (type && wmem_strbuf_get_len(label_string) > 0) {

    if (strcmp (type, ":ess") == 0) {

      label_tvb = base64_to_tvb(tvb, wmem_strbuf_get_str(label_string));

      add_new_data_source(pinfo, label_tvb, "ESS Security Label");

      dissect_ess_ESSSecurityLabel_PDU(label_tvb, pinfo, tree, NULL);

    } else if (strcmp (type, ":x411") == 0) {

      label_tvb = base64_to_tvb(tvb, wmem_strbuf_get_str(label_string));

      add_new_data_source(pinfo, label_tvb, "X.411 Security Label");

      dissect_p1_MessageSecurityLabel_PDU(label_tvb, pinfo, tree, NULL);

    }

  }

}

static void

dissect_imf_content_type(tvbuff_t *tvb, packet_info *pinfo, unsigned offset, unsigned length, proto_item *item,

                         const char **type, const char **parameters)

{

  unsigned first_colon;

  unsigned end_offset;

  unsigned len;

  int t_offset;

  proto_tree *ct_tree;

  /* first strip any whitespace */

  tvb_skip_wsp(tvb, offset, length);

  /* find the first colon - there has to be a colon as there will have to be a boundary */

  first_colon = tvb_find_uint8_length(tvb, offset, length, ';', &first_colon);

  if(tvb_find_uint8_length(tvb, offset, length, ';', &first_colon)) {

    ct_tree = proto_item_add_subtree(item, ett_imf_content_type);

    len = first_colon - offset;

    proto_tree_add_item_ret_string(ct_tree, hf_imf_content_type_type, tvb, offset, len, ENC_ASCII|ENC_NA, pinfo->pool, (const uint8_t**)type);

    t_offset = imf_find_field_end (tvb, first_colon + 1, offset + length, NULL);

    if (t_offset == -1) {

       /* No end found */

       return;

    }

    end_offset = (unsigned)t_offset;

    len = end_offset - (first_colon + 1) - 2;  /* Do not include the last CRLF */

    proto_tree_add_item_ret_string(ct_tree, hf_imf_content_type_parameters, tvb, first_colon + 1, len, ENC_ASCII|ENC_NA, pinfo->pool, (const uint8_t**)parameters);

  }

}

int

imf_find_field_end(tvbuff_t *tvb, unsigned offset, unsigned max_length, bool *last_field)

{

  while(offset < max_length) {

    /* look for CR */

    if(tvb_find_uint8_length(tvb, offset, max_length - offset, '\r', &offset)) {

      /* protect against buffer overrun and only then look for next char */

        if (++offset < max_length && tvb_get_uint8(tvb, offset) == '\n') {

        /* OK - so we have found CRLF */

          if (++offset >= max_length) {

            /* end of buffer and also end of fields */

            if (last_field) {

              *last_field = true;

            }

            /* caller expects that there is CRLF after returned offset, if last_field is set */

            return offset - 2;

          }

        /* peek the next character */

        switch(tvb_get_uint8(tvb, offset)) {

        case '\r':

          /* probably end of the fields */

          if ((offset + 1) < max_length && tvb_get_uint8(tvb, offset + 1) == '\n') {

            if(last_field) {

              *last_field = true;

            }

          }

          return offset;

        case  ' ':

        case '\t':

          /* continuation line */

          break;

        default:

          /* this is a new field */

          return offset;

        }

      }

    } else {

      /* couldn't find a CR - strange */

      break;

    }

  }

  return -1;  /* Fail: No CR found (other than possible continuation) */

}

static int

dissect_imf(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_)

{

  proto_item  *item;

  proto_tree  *unknown_tree, *text_tree;

  const char *content_type_str = NULL;

  char  *content_encoding_str = NULL;

  const char *parameters = NULL;

  int   hf_id;

  unsigned start_offset = 0;

  unsigned value_offset = 0;

  unsigned unknown_offset = 0;

  unsigned end_offset = 0;

  int t_offset;

  unsigned max_length;

  bool end_offset_found;

  char *key;

  bool last_field = false;

  tvbuff_t *next_tvb;

  const struct imf_field *f_info;

  imf_eo_t *eo_info = NULL;

  if (have_tap_listener(imf_eo_tap)) {

    eo_info = wmem_new(pinfo->pool, imf_eo_t);

    /* initialize the eo_info fields in case they are missing later */

    eo_info->sender_data = "";

    eo_info->subject_data = "";

  }

  /* Want to preserve existing protocol name and show that it is carrying IMF */

  col_append_str(pinfo->cinfo, COL_PROTOCOL, "/");

  col_set_fence(pinfo->cinfo, COL_PROTOCOL);

  col_set_str(pinfo->cinfo, COL_PROTOCOL, "IMF");

  col_clear(pinfo->cinfo, COL_INFO);

  item = proto_tree_add_item(tree, proto_imf, tvb, 0, -1, ENC_NA);

  tree = proto_item_add_subtree(item, ett_imf);

  max_length = tvb_captured_length(tvb);

  /* first go through the tvb until we find a blank line and extract the content type if

     we find one */

  /* XXX: What if the tvb contains encrypted data ? is there a way to bypass dissection if so ?  */

  /*      As it is, the following code blithely tries to parse what may be binary data.          */

  while(!last_field) {

    /* look for a colon first */

    end_offset_found = tvb_find_uint8_length(tvb, start_offset, max_length - start_offset, ':', &end_offset);

    if(end_offset_found == false) {

      /* we couldn't find another colon - strange - we should have broken out of here by now */

      /* XXX: flag an error */

      break;

    } else {

      key = (char*)tvb_get_string_enc(pinfo->pool, tvb, start_offset, end_offset - start_offset, ENC_ASCII);

      /* convert to lower case */

      ascii_strdown_inplace (key);

      /* look up the key in built-in fields */

      f_info = (const struct imf_field *)wmem_map_lookup(imf_field_table, key);

      if(f_info == NULL && custom_field_table) {

        /* look up the key in custom fields */

        f_info = (const struct imf_field *)g_hash_table_lookup(custom_field_table, key);

      }

      if(f_info == NULL) {

        /* set as an unknown extension */

        f_info = imf_fields;

        unknown_offset = start_offset;

      }

      hf_id = *(f_info->hf_id);

      /* value starts immediately after the colon */

      start_offset = end_offset+1;

      t_offset = imf_find_field_end(tvb, start_offset, max_length, &last_field);

      if(t_offset == -1) {

        break;   /* Something's fishy */

      }

      end_offset = (unsigned)t_offset;

      /* remove any leading whitespace */

      for(value_offset = start_offset; value_offset < end_offset; value_offset++)

        if(!g_ascii_isspace(tvb_get_uint8(tvb, value_offset))) {

          break;

        }

      if(value_offset == end_offset) {

        /* empty field - show whole value */

        value_offset = start_offset;

      }

      if(hf_id == hf_imf_extension_type) {

        /* remove 2 bytes to take off the final CRLF to make things a little prettier */

        item = proto_tree_add_item(tree, hf_imf_extension, tvb, unknown_offset, end_offset - unknown_offset - 2, ENC_ASCII);

        proto_item_append_text(item, " (Contact Wireshark developers if you want this supported.)");

        unknown_tree = proto_item_add_subtree(item, ett_imf_extension);

        proto_tree_add_item(unknown_tree, hf_imf_extension_type, tvb, unknown_offset, start_offset - 1 - unknown_offset, ENC_ASCII);

        /* remove 2 bytes to take off the final CRLF to make things a little prettier */

        item = proto_tree_add_item(unknown_tree, hf_imf_extension_value, tvb, value_offset, end_offset - value_offset - 2, ENC_ASCII);

      } else {

        /* remove 2 bytes to take off the final CRLF to make things a little prettier */

        item = proto_tree_add_item(tree, hf_id, tvb, value_offset, end_offset - value_offset - 2, ENC_ASCII|ENC_NA);

      }

      if(f_info->add_to_col_info) {

        col_append_fstr(pinfo->cinfo, COL_INFO, "%s: %s, ", f_info->name,

                        tvb_format_text(pinfo->pool, tvb, value_offset, end_offset - value_offset - 2));

        /* if sender or subject, store for sending to the tap */

        if (eo_info && have_tap_listener(imf_eo_tap)) {

          if (*f_info->hf_id == hf_imf_from) {

            eo_info->sender_data = (char*)tvb_get_string_enc(pinfo->pool, tvb, value_offset, end_offset - value_offset - 2, ENC_ASCII|ENC_NA);

          } else if(*f_info->hf_id == hf_imf_subject) {

            eo_info->subject_data = (char*)tvb_get_string_enc(pinfo->pool, tvb, value_offset, end_offset - value_offset - 2, ENC_ASCII|ENC_NA);

          }

        }

      }

      if(hf_id == hf_imf_content_type) {

        /* we need some additional processing to extract the content type and parameters */

        dissect_imf_content_type(tvb, pinfo, start_offset, end_offset - start_offset, item,

                                 &content_type_str, &parameters);

      } else if (hf_id == hf_imf_content_transfer_encoding) {

        content_encoding_str = (char*)tvb_get_string_enc (pinfo->pool, tvb, value_offset, end_offset - value_offset - 2, ENC_ASCII);

      } else if(f_info->subdissector) {

        /* we have a subdissector */

        f_info->subdissector(tvb, value_offset, end_offset - value_offset, item, pinfo);

      }

    }

    start_offset = end_offset;

  }

  if (last_field) {

    /* Remove the extra CRLF after all the fields */

    end_offset += 2;

  }

  if (end_offset_found == false) {

    end_offset = 0;

  }

  /* specify a content type until we can work it out for ourselves */

  /* content_type_str = "multipart/mixed"; */

  /* now dissect the MIME based upon the content type */

  if(content_type_str && media_type_dissector_table) {

    media_content_info_t content_info;

    col_set_fence(pinfo->cinfo, COL_INFO);

    if(content_encoding_str && !g_ascii_strncasecmp(content_encoding_str, "base64", 6)) {

      char *string_data = (char*)tvb_get_string_enc(pinfo->pool, tvb, end_offset, tvb_reported_length(tvb) - end_offset, ENC_ASCII);

      next_tvb = base64_to_tvb(tvb, string_data);

      add_new_data_source(pinfo, next_tvb, content_encoding_str);

    } else {

      next_tvb = tvb_new_subset_remaining(tvb, end_offset);

    }

    content_info.type = MEDIA_CONTAINER_OTHER;

    content_info.media_str = parameters;

    content_info.data = NULL;

    dissector_try_string_with_data(media_type_dissector_table, content_type_str, next_tvb, pinfo, tree, true, (void*)&content_info);

  } else {

    /* just show the lines or highlight the rest of the buffer as message text */

    item = proto_tree_add_item(tree, hf_imf_message_text, tvb, end_offset, tvb_reported_length_remaining(tvb, end_offset) , ENC_NA);

    text_tree = proto_item_add_subtree(item, ett_imf_message_text);

    start_offset = end_offset;

    while (tvb_offset_exists(tvb, start_offset)) {

      /*

       * Find the end of the line.

       */

      tvb_find_line_end_remaining(tvb, start_offset, NULL, &end_offset);

      /*

       * Put this line.

       */

      proto_tree_add_format_wsp_text(text_tree, tvb, start_offset, end_offset - start_offset);

      col_append_sep_str(pinfo->cinfo, COL_INFO, ", ",

                         tvb_format_text_wsp(pinfo->pool, tvb, start_offset, end_offset - start_offset));

      /*

       * Step to the next line.

       */

      start_offset = end_offset;

    }

  }

  if (eo_info && have_tap_listener(imf_eo_tap)) {

    /* Set payload info */

    eo_info->payload_len = max_length;

    eo_info->payload_data = (char *) tvb_memdup(pinfo->pool, tvb, 0, max_length);

    /* Send to tap */

    tap_queue_packet(imf_eo_tap, pinfo, eo_info);

  }

  return tvb_captured_length(tvb);

}

static void

free_imf_field (void *data)

{

  struct imf_field *imffield = (struct imf_field *) data;

  g_free (imffield->name);

  g_free (imffield);

}

static void

deregister_header_fields(void)

{

  if (dynamic_hf) {

    /* Deregister all fields */

    for (unsigned i = 0; i < dynamic_hf_size; i++) {

      proto_deregister_field (proto_imf, *(dynamic_hf[i].p_id));

      g_free (dynamic_hf[i].p_id);

    }

    proto_add_deregistered_data (dynamic_hf);

    dynamic_hf = NULL;

    dynamic_hf_size = 0;

  }

  if (custom_field_table) {

    g_hash_table_destroy (custom_field_table);

    custom_field_table = NULL;

  }

}

static void

header_fields_post_update_cb (void)

{

  int *hf_id;

  struct imf_field *imffield;

  char *header_name;

  deregister_header_fields();

  if (num_header_fields) {

    custom_field_table = g_hash_table_new_full (g_str_hash, g_str_equal, NULL, free_imf_field);

    dynamic_hf = g_new0(hf_register_info, num_header_fields);

    dynamic_hf_size = num_header_fields;