/*
 * Copyright 2004 James Bursa <bursa@users.sourceforge.net>
 * Copyright 2003 Phil Mellor <monkeyson@users.sourceforge.net>
 * Copyright 2004 John Tytgat <joty@netsurf-browser.org>
 * Copyright 2005-9 John-Mark Bell <jmb@netsurf-browser.org>
 * Copyright 2009 Paul Blokus <paul_pl@users.sourceforge.net>
 * Copyright 2010 Michael Drake <tlsa@netsurf-browser.org>
 *
 * This file is part of NetSurf, http://www.netsurf-browser.org/
 *
 * NetSurf is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; version 2 of the License.
 *
 * NetSurf is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/** \file
 * Form handling functions (implementation).
 */

#include <assert.h>
#include <ctype.h>
#include <limits.h>
#include <stdbool.h>
#include <stdio.h>
#include <string.h>
#include <dom/dom.h>

#include "content/fetch.h"
#include "content/hlcache.h"
#include "css/css.h"
#include "css/utils.h"
#include "desktop/mouse.h"
#include "desktop/knockout.h"
#include "desktop/plot_style.h"
#include "desktop/plotters.h"
#include "desktop/scrollbar.h"
#include "desktop/textarea.h"
#include "render/box.h"
#include "render/font.h"
#include "render/form.h"
#include "render/html.h"
#include "render/html_internal.h"
#include "render/layout.h"
#include "utils/corestrings.h"
#include "utils/log.h"
#include "utils/messages.h"
#include "utils/talloc.h"
#include "utils/url.h"
#include "utils/utf8.h"
#include "utils/utils.h"

#define MAX_SELECT_HEIGHT 210
#define SELECT_LINE_SPACING 0.2
#define SELECT_BORDER_WIDTH 1
#define SELECT_SELECTED_COLOUR 0xDB9370

struct form_select_menu {
	int line_height;
	int width, height;
	struct scrollbar *scrollbar;
	int f_size;
	bool scroll_capture;
	select_menu_redraw_callback callback;
	void *client_data;
	struct content *c;
};

static plot_style_t plot_style_fill_selected = {
	.fill_type = PLOT_OP_TYPE_SOLID,
	.fill_colour = SELECT_SELECTED_COLOUR,
};

static plot_font_style_t plot_fstyle_entry = {
	.family = PLOT_FONT_FAMILY_SANS_SERIF,
	.weight = 400,
	.flags = FONTF_NONE,
	.background = 0xffffff,
	.foreground = 0x000000,
};

static char *form_acceptable_charset(struct form *form);
static char *form_encode_item(const char *item, uint32_t len, const char *charset,
		const char *fallback);
static void form_select_menu_clicked(struct form_control *control,
		int x, int y);
static void form_select_menu_scroll_callback(void *client_data,
		struct scrollbar_msg_data *scrollbar_data);

/**
 * Create a struct form.
 *
 * \param  node    DOM node associated with form
 * \param  action  URL to submit form to, or NULL for default
 * \param  target  Target frame of form, or NULL for default
 * \param  method  method and enctype
 * \param  charset acceptable encodings for form submission, or NULL
 * \param  doc_charset  encoding of containing document, or NULL
 * \return  a new structure, or NULL on memory exhaustion
 */
struct form *form_new(void *node, const char *action, const char *target, 
		form_method method, const char *charset, 
		const char *doc_charset)
{
	struct form *form;

	form = calloc(1, sizeof *form);
	if (!form)
		return NULL;

	form->action = strdup(action != NULL ? action : "");
	if (form->action == NULL) {
		free(form);
		return NULL;
	}

	form->target = target != NULL ? strdup(target) : NULL;
	if (target != NULL && form->target == NULL) {
		free(form->action);
		free(form);
		return NULL;
	}

	form->method = method;

	form->accept_charsets = charset != NULL ? strdup(charset) : NULL;
	if (charset != NULL && form->accept_charsets == NULL) {
		free(form->target);
		free(form->action);
		free(form);
		return NULL;
	}

	form->document_charset = doc_charset != NULL ? strdup(doc_charset)
						     : NULL;
	if (doc_charset && form->document_charset == NULL) {
		free(form->accept_charsets);
		free(form->target);
		free(form->action);
		free(form);
		return NULL;
	}

	form->node = node;

	return form;
}

/**
 * Free a form, and any controls it owns.
 *
 * \param form  The form to free
 *
 * \note There may exist controls attached to box tree nodes which are not
 * associated with any form. These will leak at present. Ideally, they will
 * be cleaned up when the box tree is destroyed. As that currently happens
 * via talloc, this won't happen. These controls are distinguishable, as their
 * form field will be NULL.
 */
void form_free(struct form *form)
{
	struct form_control *c, *d;

	for (c = form->controls; c != NULL; c = d) {
		d = c->next;

		form_free_control(c);
	}

	free(form->action);
	free(form->target);
	free(form->accept_charsets);
	free(form->document_charset);

	free(form);
}

/**
 * Create a struct form_control.
 *
 * \param  node  Associated DOM node
 * \param  type  control type
 * \return  a new structure, or NULL on memory exhaustion
 */
struct form_control *form_new_control(void *node, form_control_type type)
{
	struct form_control *control;

	control = calloc(1, sizeof *control);
	if (control == NULL)
		return NULL;

	control->node = node;
	control->type = type;

	return control;
}


/**
 * Add a control to the list of controls in a form.
 *
 * \param form  The form to add the control to
 * \param control  The control to add
 */
void form_add_control(struct form *form, struct form_control *control)
{
	if (form == NULL) {
		return;
	}

	control->form = form;

	if (form->controls != NULL) {
		assert(form->last_control);

		form->last_control->next = control;
		control->prev = form->last_control;
		control->next = NULL;
		form->last_control = control;
	} else {
		form->controls = form->last_control = control;
	}
}


/**
 * Free a struct form_control.
 *
 * \param  control  structure to free
 */
void form_free_control(struct form_control *control)
{
	free(control->name);
	free(control->value);
	free(control->initial_value);

	if (control->type == GADGET_SELECT) {
		struct form_option *option, *next;

		for (option = control->data.select.items; option;
				option = next) {
			next = option->next;
			free(option->text);
			free(option->value);
			free(option);
		}
		if (control->data.select.menu != NULL)
			form_free_select_menu(control);
	}

	if (control->type == GADGET_TEXTAREA ||
			control->type == GADGET_TEXTBOX ||
			control->type == GADGET_PASSWORD) {

		if (control->data.text.initial != NULL)
			dom_string_unref(control->data.text.initial);

		if (control->data.text.ta != NULL)
			textarea_destroy(control->data.text.ta);
	}

	free(control);
}


/**
 * Add an option to a form select control.
 *
 * \param  control   form control of type GADGET_SELECT
 * \param  value     value of option, used directly (not copied)
 * \param  text      text for option, used directly (not copied)
 * \param  selected  this option is selected
 * \param  node      the DOM node this option is associated with
 * \return  true on success, false on memory exhaustion
 */
bool form_add_option(struct form_control *control, char *value, char *text,
		     bool selected, void *node)
{
	struct form_option *option;

	assert(control);
	assert(control->type == GADGET_SELECT);

	option = calloc(1, sizeof *option);
	if (!option)
		return false;

	option->value = value;
	option->text = text;

	/* add to linked list */
	if (control->data.select.items == 0)
		control->data.select.items = option;
	else
		control->data.select.last_item->next = option;
	control->data.select.last_item = option;

	/* set selected */
	if (selected && (control->data.select.num_selected == 0 ||
			control->data.select.multiple)) {
		option->selected = option->initial_selected = true;
		control->data.select.num_selected++;
		control->data.select.current = option;
	}

	control->data.select.num_items++;

	option->node = node;

	return true;
}


/**
 * Identify 'successful' controls via the DOM.
 *
 * All text strings in the successful controls list will be in the charset most
 * appropriate for submission. Therefore, no utf8_to_* processing should be
 * performed upon them.
 *
 * \todo The chosen charset needs to be made available such that it can be
 * included in the submission request (e.g. in the fetch's Content-Type header)
 *
 * \param  form           form to search for successful controls
 * \param  submit_button  control used to submit the form, if any
 * \param  successful_controls  updated to point to linked list of
 *                        fetch_multipart_data, 0 if no controls
 * \return  true on success, false on memory exhaustion
 *
 * See HTML 4.01 section 17.13.2.
 */
bool form_successful_controls_dom(struct form *_form,
				  struct form_control *_submit_button,
				  struct fetch_multipart_data **successful_controls)
{
	dom_html_form_element *form = _form->node;
	dom_html_element *submit_button = (_submit_button != NULL) ? _submit_button->node : NULL;
	dom_html_collection *form_elements = NULL;
	dom_html_options_collection *options = NULL;
	dom_node *form_element = NULL, *option_element = NULL;
	dom_exception err;
	dom_string *nodename = NULL, *inputname = NULL, *inputvalue = NULL, *inputtype = NULL;
	struct fetch_multipart_data sentinel, *last_success, *success_new;
	bool had_submit = false, element_disabled, checked;
	char *charset, *rawfile_temp = NULL, *basename;
	uint32_t index, element_count;
	struct image_input_coords *coords;

	last_success = &sentinel;
	sentinel.next = NULL;
	
	LOG(("XYZZY: Yay, let's look for a form"));
	
	/** \todo Replace this call with something DOMish */
	charset = form_acceptable_charset(_form);
	if (charset == NULL) {
		LOG(("failed to find charset"));
		return false;
	}

#define ENCODE_ITEM(i) (((i) == NULL) ? (				\
			form_encode_item("", 0, charset, _form->document_charset) \
			):(					\
			form_encode_item(dom_string_data(i), dom_string_byte_length(i), \
					 charset, _form->document_charset) \
			))
	
	err = dom_html_form_element_get_elements(form, &form_elements);
	
	if (err != DOM_NO_ERR) {
		LOG(("Could not get form elements"));
		goto dom_no_memory;
	}
	
	LOG(("Reffed %p", form_elements));
	
	err = dom_html_collection_get_length(form_elements, &element_count);
	
	if (err != DOM_NO_ERR) {
		LOG(("Could not get form element count"));
		goto dom_no_memory;
	}
	
	for (index = 0; index < element_count; index++) {
		if (form_element != NULL) {
			LOG(("Unreffed %p", form_element));
			dom_node_unref(form_element);
			form_element = NULL;
		}
		if (nodename != NULL) {
			dom_string_unref(nodename);
			nodename = NULL;
		}
		if (inputname != NULL) {
			dom_string_unref(inputname);
			inputname = NULL;
		}
		if (inputvalue != NULL) {
			dom_string_unref(inputvalue);
			inputvalue = NULL;
		}
		if (inputtype != NULL) {
			dom_string_unref(inputtype);
			inputtype = NULL;
		}
		if (options != NULL) {
			dom_html_options_collection_unref(options);
			options = NULL;
		}
		err = dom_html_collection_item(form_elements,
					       index, &form_element);
		if (err != DOM_NO_ERR) {
			LOG(("Could not retrieve form element %d", index));
			goto dom_no_memory;
		}
		LOG(("Reffed %p", form_element));
		/* Form elements are one of:
		 *   HTMLInputElement
		 *   HTMLTextAreaElement
		 *   HTMLSelectElement
		 */
		err = dom_node_get_node_name(form_element, &nodename);
		if (err != DOM_NO_ERR) {
			LOG(("Could not get node name"));
			goto dom_no_memory;
		}
		LOG(("Found a node(%p): `%*s`", nodename,
		     dom_string_byte_length(nodename),
		     dom_string_data(nodename)));
		if (dom_string_isequal(nodename, corestring_dom_TEXTAREA)) {
			err = dom_html_text_area_element_get_disabled(
				(dom_html_text_area_element *)form_element,
				&element_disabled);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get text area disabled property"));
				goto dom_no_memory;
			}
			err = dom_html_text_area_element_get_name(
				(dom_html_text_area_element *)form_element,
				&inputname);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get text area name property"));
				goto dom_no_memory;
			}
		} else if (dom_string_isequal(nodename, corestring_dom_SELECT)) {
			err = dom_html_select_element_get_disabled(
				(dom_html_select_element *)form_element,
				&element_disabled);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get select disabled property"));
				goto dom_no_memory;
			}
			err = dom_html_select_element_get_name(
				(dom_html_select_element *)form_element,
				&inputname);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get select name property"));
				goto dom_no_memory;
			}
		} else if (dom_string_isequal(nodename, corestring_dom_INPUT)) {
			err = dom_html_input_element_get_disabled(
				(dom_html_input_element *)form_element,
				&element_disabled);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get input disabled property"));
				goto dom_no_memory;
			}
			err = dom_html_input_element_get_name(
				(dom_html_input_element *)form_element,
				&inputname);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get input name property"));
				goto dom_no_memory;
			}
		} else if (dom_string_isequal(nodename, corestring_dom_BUTTON)) {
			/* It was a button, no fair */
			continue;
		} else {
			/* Unknown element type came through! */
			LOG(("Unknown element type: %*s",
			     dom_string_byte_length(nodename),
			     dom_string_data(nodename)));
			goto dom_no_memory;
		}
		if (element_disabled)
			continue;
		if (inputname == NULL)
			continue;
		
		if (dom_string_isequal(nodename, corestring_dom_TEXTAREA)) {
			err = dom_html_text_area_element_get_value(
				(dom_html_text_area_element *)form_element,
				&inputvalue);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get text area content"));
				goto dom_no_memory;
			}
		} else if (dom_string_isequal(nodename, corestring_dom_SELECT)) {
			uint32_t options_count, option_index;
			err = dom_html_select_element_get_options(
				(dom_html_select_element *)form_element,
				&options);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get select options collection"));
				goto dom_no_memory;
			}
			err = dom_html_options_collection_get_length(
				options, &options_count);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get select options collection length"));
				goto dom_no_memory;
			}
			for(option_index = 0; option_index < options_count;
					++option_index) {
				bool selected;
				if (option_element != NULL) {
					dom_node_unref(option_element);
					option_element = NULL;
				}
				if (inputvalue != NULL) {
					dom_string_unref(inputvalue);
					inputvalue = NULL;
				}
				err = dom_html_options_collection_item(
					options, option_index, &option_element);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get options item %d", option_index));
					goto dom_no_memory;
				}
				err = dom_html_option_element_get_selected(
					(dom_html_option_element *)option_element,
					&selected);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get option selected property"));
					goto dom_no_memory;
				}
				if (!selected)
					continue;
				err = dom_html_option_element_get_value(
					(dom_html_option_element *)option_element,
					&inputvalue);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get option value"));
					goto dom_no_memory;
				}
				
				success_new = calloc(1, sizeof(*success_new));
				if (success_new == NULL) {
					LOG(("Could not allocate data for option"));
					goto dom_no_memory;
				}
		
				last_success->next = success_new;
				last_success = success_new;
		
				success_new->name = ENCODE_ITEM(inputname);
				if (success_new->name == NULL) {
					LOG(("Could not encode name for option"));
					goto dom_no_memory;
				}
				success_new->value = ENCODE_ITEM(inputvalue);
				if (success_new->value == NULL) {
					LOG(("Could not encode value for option"));
					goto dom_no_memory;
				}
			}
			continue;
		} else if (dom_string_isequal(nodename, corestring_dom_INPUT)) {
			/* Things to consider here */
			/* Buttons -- only if the successful control */
			/* radio and checkbox -- only if selected */
			/* file -- also get the rawfile */
			/* everything else -- just value */
			err = dom_html_input_element_get_type(
				(dom_html_input_element *) form_element,
				&inputtype);
			if (err != DOM_NO_ERR) {
				LOG(("Could not get input element type"));
				goto dom_no_memory;
			}
			if (dom_string_caseless_isequal(
				    inputtype, corestring_dom_submit)) {
				LOG(("Examining submit button"));
				if (submit_button == NULL && !had_submit)
					/* no button used, and first submit
					 * node found, so use it
					 */
					had_submit = true;
				else if ((dom_node *)submit_button !=
					 (dom_node *)form_element)
					continue;
				err = dom_html_input_element_get_value(
					(dom_html_input_element *)form_element,
					&inputvalue);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get submit button value"));
					goto dom_no_memory;
				}
				/* Drop through to report the successful button */
			} else if (dom_string_caseless_isequal(
					   inputtype, corestring_dom_image)) {
				/* We *ONLY* use an image input if it was the
				 * thing which activated us
				 */
				LOG(("Examining image button"));
				 if ((dom_node *)submit_button !=
				     (dom_node *)form_element)
					 continue;
				 
				 err = dom_node_get_user_data(
					 form_element,
					 corestring_dom___ns_key_image_coords_node_data,
					 &coords);
				 if (err != DOM_NO_ERR) {
					 LOG(("Could not get image XY data"));
					 goto dom_no_memory;
				 }
				 if (coords == NULL) {
					 LOG(("No XY data on the image input"));
					 goto dom_no_memory;
				 }
				 
				 basename = ENCODE_ITEM(inputname);
				 
				 success_new = calloc(1, sizeof(*success_new));
				 if (success_new == NULL) {
					 free(basename);
					 LOG(("Could not allocate data for image.x"));
					 goto dom_no_memory;
				 }
				 
				 last_success->next = success_new;
				 last_success = success_new;
				 
				 success_new->name = malloc(strlen(basename) + 3);
				 if (success_new->name == NULL) {
					 free(basename);
					 LOG(("Could not allocate name for image.x"));
					 goto dom_no_memory;
				 }
				 success_new->value = malloc(20);
				 if (success_new->value == NULL) {
					 free(basename);
					 LOG(("Could not allocate value for image.x"));
					 goto dom_no_memory;
				 }
				 sprintf(success_new->name, "%s.x", basename);
				 sprintf(success_new->value, "%d", coords->x);
				 
				 success_new = calloc(1, sizeof(*success_new));
				 if (success_new == NULL) {
					 free(basename);
					 LOG(("Could not allocate data for image.y"));
					 goto dom_no_memory;
				 }
				 
				 last_success->next = success_new;
				 last_success = success_new;
				 
				 success_new->name = malloc(strlen(basename) + 3);
				 if (success_new->name == NULL) {
					 free(basename);
					 LOG(("Could not allocate name for image.y"));
					 goto dom_no_memory;
				 }
				 success_new->value = malloc(20);
				 if (success_new->value == NULL) {
					 free(basename);
					 LOG(("Could not allocate value for image.y"));
					 goto dom_no_memory;
				 }
				 sprintf(success_new->name, "%s.y", basename);
				 sprintf(success_new->value, "%d", coords->y);
				 free(basename);
				 continue;
			} else if (dom_string_caseless_isequal(
					   inputtype, corestring_dom_radio) ||
				   dom_string_caseless_isequal(
					   inputtype, corestring_dom_checkbox)) {
				LOG(("Examining radio or checkbox"));
				err = dom_html_input_element_get_checked(
					(dom_html_input_element *)form_element,
					&checked);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get input element checked"));
					goto dom_no_memory;
				}
				if (!checked)
					continue;
				err = dom_html_input_element_get_value(
					(dom_html_input_element *)form_element,
					&inputvalue);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get input element value"));
					goto dom_no_memory;
				}
				if (inputvalue == NULL)
					inputvalue = dom_string_ref(
						corestring_dom_on);
				/* Fall through to simple allocation */
			} else if (dom_string_caseless_isequal(
					   inputtype, corestring_dom_file)) {
				LOG(("Examining file input"));
				err = dom_html_input_element_get_value(
					(dom_html_input_element *)form_element,
					&inputvalue);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get file value"));
					goto dom_no_memory;
				}
				err = dom_node_get_user_data(
					form_element,
					corestring_dom___ns_key_file_name_node_data,
					&rawfile_temp);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get file rawname"));
					goto dom_no_memory;
				}
				rawfile_temp = strdup(rawfile_temp != NULL ?
						      rawfile_temp :
						      "");
				if (rawfile_temp == NULL) {
					LOG(("Could not copy file rawname"));
					goto dom_no_memory;
				}
				/* Fall out to the allocation */
			} else if (dom_string_caseless_isequal(
					   inputtype, corestring_dom_reset) ||
				   dom_string_caseless_isequal(
					   inputtype, corestring_dom_button)) {
				/* Skip these */
				LOG(("Skipping RESET and BUTTON"));
				continue;
			} else {
				/* Everything else is treated as text values */
				LOG(("Retrieving generic input text"));
				err = dom_html_input_element_get_value(
					(dom_html_input_element *)form_element,
					&inputvalue);
				if (err != DOM_NO_ERR) {
					LOG(("Could not get input value"));
					goto dom_no_memory;
				}
				/* Fall out to the allocation */
			}
		}
		
		success_new = calloc(1, sizeof(*success_new));
		if (success_new == NULL) {
			LOG(("Could not allocate data for generic"));
			goto dom_no_memory;
		}
		
		last_success->next = success_new;
		last_success = success_new;
		
		success_new->name = ENCODE_ITEM(inputname);
		if (success_new->name == NULL) {
			LOG(("Could not encode name for generic"));
			goto dom_no_memory;
		}
		success_new->value = ENCODE_ITEM(inputvalue);
		if (success_new->value == NULL) {
			LOG(("Could not encode value for generic"));
			goto dom_no_memory;
		}
		if (rawfile_temp != NULL) {
			success_new->file = true;
			success_new->rawfile = rawfile_temp;
			rawfile_temp = NULL;
		}
	}
	
	free(charset);
	if (form_element != NULL) {
		LOG(("Unreffed %p", form_element));
		dom_node_unref(form_element);
	}
	if (form_elements != NULL) {
		LOG(("Unreffed %p", form_elements));
		dom_html_collection_unref(form_elements);
	}
	if (nodename != NULL)
		dom_string_unref(nodename);
	if (inputname != NULL)
		dom_string_unref(inputname);
	if (inputvalue != NULL)
		dom_string_unref(inputvalue);
	if (options != NULL)
		dom_html_options_collection_unref(options);
	if (option_element != NULL)
		dom_node_unref(option_element);
	if (inputtype != NULL)
		dom_string_unref(inputtype);
	if (rawfile_temp != NULL)
		free(rawfile_temp);
	*successful_controls = sentinel.next;
	
	for (success_new = *successful_controls; success_new != NULL;
	     success_new = success_new->next) {
		LOG(("%p -> %s=%s", success_new, success_new->name, success_new->value));
		LOG(("%p -> file=%s rawfile=%s", success_new,
		     success_new->file ? "yes" : "no", success_new->rawfile));
	}
	return true;
	
dom_no_memory:
	free(charset);
	fetch_multipart_data_destroy(sentinel.next);
	
	if (form_elements != NULL)
		dom_html_collection_unref(form_elements);
	if (form_element != NULL)
		dom_node_unref(form_element);
	if (nodename != NULL)
		dom_string_unref(nodename);
	if (inputname != NULL)
		dom_string_unref(inputname);
	if (inputvalue != NULL)
		dom_string_unref(inputvalue);
	if (options != NULL)
		dom_html_options_collection_unref(options);
	if (option_element != NULL)
		dom_node_unref(option_element);
	if (inputtype != NULL)
		dom_string_unref(inputtype);
	if (rawfile_temp != NULL)
		free(rawfile_temp);
	
	return false;
}
#undef ENCODE_ITEM

/**
 * Encode controls using application/x-www-form-urlencoded.
 *
 * \param  form  form to which successful controls relate
 * \param  control  linked list of fetch_multipart_data
 * \param  query_string  iff true add '?' to the start of returned data
 * \return  URL-encoded form, or 0 on memory exhaustion
 */

static char *form_url_encode(struct form *form,
		struct fetch_multipart_data *control,
		bool query_string)
{
	char *name, *value;
	char *s, *s2;
	unsigned int len, len1, len_init;
	url_func_result url_err;

	if (query_string)
		s = malloc(2);
	else
		s = malloc(1);

	if (s == NULL)
		return NULL;

	if (query_string) {
		s[0] = '?';
		s[1] = '\0';
		len_init = len = 1;
	} else {
		s[0] = '\0';
		len_init = len = 0;
	}

	for (; control; control = control->next) {
		url_err = url_escape(control->name, 0, true, NULL, &name);
		if (url_err == URL_FUNC_NOMEM) {
			free(s);
			return NULL;
		}

		assert(url_err == URL_FUNC_OK);

		url_err = url_escape(control->value, 0, true, NULL, &value);
		if (url_err == URL_FUNC_NOMEM) {
			free(name);
			free(s);
			return NULL;
		}

		assert(url_err == URL_FUNC_OK);

		len1 = len + strlen(name) + strlen(value) + 2;
		s2 = realloc(s, len1 + 1);
		if (!s2) {
			free(value);
			free(name);
			free(s);
			return NULL;
		}
		s = s2;
		sprintf(s + len, "%s=%s&", name, value);
		len = len1;
		free(name);
		free(value);
	}

	if (len > len_init)
		/* Replace trailing '&' */
		s[len - 1] = '\0';
	return s;
}

/**
 * Find an acceptable character set encoding with which to submit the form
 *
 * \param form  The form
 * \return Pointer to charset name (on heap, caller should free) or NULL
 */
char *form_acceptable_charset(struct form *form)
{
	char *temp, *c;

	if (!form)
		return NULL;

	if (!form->accept_charsets) {
		/* no accept-charsets attribute for this form */
		if (form->document_charset)
			/* document charset present, so use it */
			return strdup(form->document_charset);
		else
			/* no document charset, so default to 8859-1 */
			return strdup("ISO-8859-1");
	}

	/* make temporary copy of accept-charsets attribute */
	temp = strdup(form->accept_charsets);
	if (!temp)
		return NULL;

	/* make it upper case */
	for (c = temp; *c; c++)
		*c = toupper(*c);

	/* is UTF-8 specified? */
	c = strstr(temp, "UTF-8");
	if (c) {
		free(temp);
		return strdup("UTF-8");
	}

	/* dispense with temporary copy */
	free(temp);

	/* according to RFC2070, the accept-charsets attribute of the
	 * form element contains a space and/or comma separated list */
	c = form->accept_charsets;

	/* What would be an improvement would be to choose an encoding
	 * acceptable to the server which covers as much of the input
	 * values as possible. Additionally, we need to handle the case
	 * where none of the acceptable encodings cover all the textual
	 * input values.
	 * For now, we just extract the first element of the charset list
	 */
	while (*c && !isspace(*c)) {
		if (*c == ',')
			break;
		c++;
	}

	return strndup(form->accept_charsets, c - form->accept_charsets);
}

/**
 * Convert a string from UTF-8 to the specified charset
 * As a final fallback, this will attempt to convert to ISO-8859-1.
 *
 * \todo Return charset used?
 *
 * \param item String to convert
 * \param len Length of string to convert
 * \param charset Destination charset
 * \param fallback Fallback charset (may be NULL),
 *                 used iff converting to charset fails
 * \return Pointer to converted string (on heap, caller frees), or NULL
 */
char *form_encode_item(const char *item, uint32_t len, const char *charset,
		const char *fallback)
{
	nserror err;
	char *ret = NULL;
	char cset[256];

	if (!item || !charset)
		return NULL;

	snprintf(cset, sizeof cset, "%s//TRANSLIT", charset);

	err = utf8_to_enc(item, cset, 0, &ret);
	if (err == NSERROR_BAD_ENCODING) {
		/* charset not understood, try without transliteration */
		snprintf(cset, sizeof cset, "%s", charset);
		err = utf8_to_enc(item, cset, len, &ret);

		if (err == NSERROR_BAD_ENCODING) {
			/* nope, try fallback charset (if any) */
			if (fallback) {
				snprintf(cset, sizeof cset, 
						"%s//TRANSLIT", fallback);
				err = utf8_to_enc(item, cset, 0, &ret);

				if (err == NSERROR_BAD_ENCODING) {
					/* and without transliteration */
					snprintf(cset, sizeof cset,
							"%s", fallback);
					err = utf8_to_enc(item, cset, 0, &ret);
				}
			}

			if (err == NSERROR_BAD_ENCODING) {
				/* that also failed, use 8859-1 */
				err = utf8_to_enc(item, "ISO-8859-1//TRANSLIT",
						0, &ret);
				if (err == NSERROR_BAD_ENCODING) {
					/* and without transliteration */
					err = utf8_to_enc(item, "ISO-8859-1",
							0, &ret);
				}
			}
		}
	}
	if (err == NSERROR_NOMEM) {
		return NULL;
	}

	return ret;
}

/**
 * Open a select menu for a select form control, creating it if necessary.
 *
 * \param client_data	data passed to the redraw callback
 * \param control	the select form control for which the menu is being
 * 			opened
 * \param callback	redraw callback for the select menu
 * \param bw		the browser window in which the select menu is being
 * 			opened
 * \return		false on memory exhaustion, true otherwise
 */
bool form_open_select_menu(void *client_data,
		struct form_control *control,
		select_menu_redraw_callback callback,
		struct content *c)
{
	int line_height_with_spacing;
	struct box *box;
	plot_font_style_t fstyle;
	int total_height;
	struct form_select_menu *menu;


	/* if the menu is opened for the first time */
	if (control->data.select.menu == NULL) {

		menu = calloc(1, sizeof (struct form_select_menu));
		if (menu == NULL) {
			warn_user("NoMemory", 0);
			return false;
		}

		control->data.select.menu = menu;

		box = control->box;

		menu->width = box->width +
				box->border[RIGHT].width +
				box->border[LEFT].width +
				box->padding[RIGHT] + box->padding[LEFT];

		font_plot_style_from_css(control->box->style,
				&fstyle);
		menu->f_size = fstyle.size;

		menu->line_height = FIXTOINT(FDIV((FMUL(FLTTOFIX(1.2),
				FMUL(nscss_screen_dpi,
				INTTOFIX(fstyle.size / FONT_SIZE_SCALE)))),
				F_72));

		line_height_with_spacing = menu->line_height +
				menu->line_height *
				SELECT_LINE_SPACING;

		total_height = control->data.select.num_items *
				line_height_with_spacing;
		menu->height = total_height;

		if (menu->height > MAX_SELECT_HEIGHT) {

			menu->height = MAX_SELECT_HEIGHT;
		}
		menu->client_data = client_data;
		menu->callback = callback;
		if (!scrollbar_create(false,
				menu->height,
    				total_height,
				menu->height,
				control,
				form_select_menu_scroll_callback,
				&(menu->scrollbar))) {
			free(menu);
			return false;
		}
		menu->c = c;
	}
	else menu = control->data.select.menu;

	menu->callback(client_data, 0, 0, menu->width, menu->height);

	return true;
}


/**
 * Destroy a select menu and free allocated memory.
 * 
 * \param control	the select form control owning the select menu being
 * 			destroyed
 */
void form_free_select_menu(struct form_control *control)
{
	if (control->data.select.menu->scrollbar != NULL)
		scrollbar_destroy(control->data.select.menu->scrollbar);
	free(control->data.select.menu);
	control->data.select.menu = NULL;
}

/**
 * Redraw an opened select menu.
 * 
 * \param control	the select menu being redrawn
 * \param x		the X coordinate to draw the menu at
 * \param x		the Y coordinate to draw the menu at
 * \param scale		current redraw scale
 * \param clip		clipping rectangle
 * \param ctx		current redraw context
 * \return		true on success, false otherwise
 */
bool form_redraw_select_menu(struct form_control *control, int x, int y,
		float scale, const struct rect *clip,
		const struct redraw_context *ctx)
{
	const struct plotter_table *plot = ctx->plot;
	struct box *box;
	struct form_select_menu *menu = control->data.select.menu;
	struct form_option *option;
	int line_height, line_height_with_spacing;
	int width, height;
	int x0, y0, x1, scrollbar_x, y1, y2, y3;
	int item_y;
	int text_pos_offset, text_x;
	int scrollbar_width = SCROLLBAR_WIDTH;
	int i;
	int scroll;
	int x_cp, y_cp;
	struct rect r;
	
	box = control->box;
	
	x_cp = x;
	y_cp = y;
	width = menu->width;
	height = menu->height;
	line_height = menu->line_height;
	
	line_height_with_spacing = line_height +
			line_height * SELECT_LINE_SPACING;
	scroll = scrollbar_get_offset(menu->scrollbar);
	
	if (scale != 1.0) {
		x *= scale;
		y *= scale;
		width *= scale;
		height *= scale;
		scrollbar_width *= scale;
		
		i = scroll / line_height_with_spacing;
		scroll -= i * line_height_with_spacing;
		line_height *= scale;
		line_height_with_spacing *= scale;
		scroll *= scale;
		scroll += i * line_height_with_spacing;
	}
	
	
	x0 = x;
	y0 = y;
	x1 = x + width - 1;
	y1 = y + height - 1;
	scrollbar_x = x1 - scrollbar_width;

	r.x0 = x0;
	r.y0 = y0;
	r.x1 = x1 + 1;
	r.y1 = y1 + 1;
	if (!plot->clip(&r))
		return false;
	if (!plot->rectangle(x0, y0, x1, y1 ,plot_style_stroke_darkwbasec))
		return false;
		
	
	x0 = x0 + SELECT_BORDER_WIDTH;
	y0 = y0 + SELECT_BORDER_WIDTH;
	x1 = x1 - SELECT_BORDER_WIDTH;
	y1 = y1 - SELECT_BORDER_WIDTH;
	height = height - 2 * SELECT_BORDER_WIDTH;

	r.x0 = x0;
	r.y0 = y0;
	r.x1 = x1 + 1;
	r.y1 = y1 + 1;
	if (!plot->clip(&r))
		return false;
	if (!plot->rectangle(x0, y0, x1 + 1, y1 + 1,
			plot_style_fill_lightwbasec))
		return false;
	option = control->data.select.items;
	item_y = line_height_with_spacing;
	
	while (item_y < scroll) {
		option = option->next;
		item_y += line_height_with_spacing;
	}
	item_y -= line_height_with_spacing;
	text_pos_offset = y - scroll +
			(int) (line_height * (0.75 + SELECT_LINE_SPACING));
	text_x = x + (box->border[LEFT].width + box->padding[LEFT]) * scale;
	
	plot_fstyle_entry.size = menu->f_size;
	
	while (option && item_y - scroll < height) {
		
 		if (option->selected) {
 			y2 = y + item_y - scroll;
 			y3 = y + item_y + line_height_with_spacing - scroll;
 			if (!plot->rectangle(x0, (y0 > y2 ? y0 : y2),
					scrollbar_x + 1,
     					(y3 < y1 + 1 ? y3 : y1 + 1),
					&plot_style_fill_selected))
				return false;
 		}
		
		y2 = text_pos_offset + item_y;
		if (!plot->text(text_x, y2, option->text,
				strlen(option->text), &plot_fstyle_entry))
			return false;
		
		item_y += line_height_with_spacing;
		option = option->next;
	}
		
	if (!scrollbar_redraw(menu->scrollbar,
			x_cp + menu->width - SCROLLBAR_WIDTH,
      			y_cp,
			clip, scale, ctx))
		return false;
	
	return true;
}

/**
 * Check whether a clipping rectangle is completely contained in the
 * select menu.
 *
 * \param control	the select menu to check the clipping rectangle for
 * \param scale		the current browser window scale
 * \param clip_x0	minimum x of clipping rectangle
 * \param clip_y0	minimum y of clipping rectangle
 * \param clip_x1	maximum x of clipping rectangle
 * \param clip_y1	maximum y of clipping rectangle
 * \return		true if inside false otherwise
 */
bool form_clip_inside_select_menu(struct form_control *control, float scale,
		const struct rect *clip)
{
	struct form_select_menu *menu = control->data.select.menu;
	int width, height;
	

	width = menu->width;
	height = menu->height;
	
	if (scale != 1.0) {
		width *= scale;
		height *= scale;
	}
	
	if (clip->x0 >= 0 && clip->x1 <= width &&
			clip->y0 >= 0 && clip->y1 <= height)
		return true;

	return false;
}


/**
 * Process a selection from a form select menu.
 *
 * \param  bw	    browser window with menu
 * \param  control  form control with menu
 * \param  item	    index of item selected from the menu
 */

static void form__select_process_selection(html_content *html,
		struct form_control *control, int item)
{
	struct box *inline_box;
	struct form_option *o;
	int count;

	assert(control != NULL);
	assert(html != NULL);

	/** \todo Even though the form code is effectively part of the html
	 *        content handler, poking around inside contents is not good */

	inline_box = control->box->children->children;

	for (count = 0, o = control->data.select.items;
			o != NULL;
			count++, o = o->next) {
		if (!control->data.select.multiple && o->selected) {
			o->selected = false;
			dom_html_option_element_set_selected(o->node, false);
		}
		if (count == item) {
			if (control->data.select.multiple) {
				if (o->selected) {
					o->selected = false;
					dom_html_option_element_set_selected(
							o->node, false);
					control->data.select.num_selected--;
				} else {
					o->selected = true;
					dom_html_option_element_set_selected(
							o->node, true);
					control->data.select.num_selected++;
				}
			} else {
				dom_html_option_element_set_selected(
						o->node, true);
				o->selected = true;
			}
		}
		if (o->selected)
			control->data.select.current = o;
	}

	talloc_free(inline_box->text);
	inline_box->text = 0;
	if (control->data.select.num_selected == 0)
		inline_box->text = talloc_strdup(html->bctx,
				messages_get("Form_None"));
	else if (control->data.select.num_selected == 1)
		inline_box->text = talloc_strdup(html->bctx,
				control->data.select.current->text);
	else
		inline_box->text = talloc_strdup(html->bctx,
				messages_get("Form_Many"));
	if (!inline_box->text) {
		warn_user("NoMemory", 0);
		inline_box->length = 0;
	} else
		inline_box->length = strlen(inline_box->text);
	inline_box->width = control->box->width;

	html__redraw_a_box(html, control->box);
}


void form_select_process_selection(hlcache_handle *h,
		struct form_control *control, int item)
{
	assert(h != NULL);

	form__select_process_selection(
			(html_content *)hlcache_handle_get_content(h),
			control, item);
}

/**
 * Handle a click on the area of the currently opened select menu.
 * 
 * \param control	the select menu which received the click
 * \param x		X coordinate of click
 * \param y		Y coordinate of click
 */
void form_select_menu_clicked(struct form_control *control, int x, int y)
{	
	struct form_select_menu *menu = control->data.select.menu;
	struct form_option *option;
	html_content *html = (html_content *)menu->c;
	int line_height, line_height_with_spacing;	
	int item_bottom_y;
	int scroll, i;
	
	scroll = scrollbar_get_offset(menu->scrollbar);
	
	line_height = menu->line_height;
	line_height_with_spacing = line_height +
			line_height * SELECT_LINE_SPACING;
	
	option = control->data.select.items;
	item_bottom_y = line_height_with_spacing;
	i = 0;
	while (option && item_bottom_y < scroll + y) {
		item_bottom_y += line_height_with_spacing;
		option = option->next;
		i++;
	}
	
	if (option != NULL) {
		form__select_process_selection(html, control, i);
	}
	
	menu->callback(menu->client_data, 0, 0, menu->width, menu->height);
}

/**
 * Handle mouse action for the currently opened select menu.
 *
 * \param control	the select menu which received the mouse action
 * \param mouse		current mouse state
 * \param x		X coordinate of click
 * \param y		Y coordinate of click
 * \return		text for the browser status bar or NULL if the menu has
 * 			to be closed
 */
const char *form_select_mouse_action(struct form_control *control,
		browser_mouse_state mouse, int x, int y)
{
	struct form_select_menu *menu = control->data.select.menu;
	int x0, y0, x1, y1, scrollbar_x;
	const char *status = NULL;
	bool multiple = control->data.select.multiple;
	
	x0 = 0;
	y0 = 0;
	x1 = menu->width;
	y1 = menu->height;
	scrollbar_x = x1 - SCROLLBAR_WIDTH;
	
	if (menu->scroll_capture ||
			(x > scrollbar_x && x < x1 && y > y0 && y < y1)) {
		/* The scroll is currently capturing all events or the mouse
		 * event is taking place on the scrollbar widget area
		 */
		x -= scrollbar_x;
		return scrollbar_mouse_status_to_message(
				scrollbar_mouse_action(menu->scrollbar,
						mouse, x, y));
	}
	
	
	if (x > x0 && x < scrollbar_x && y > y0 && y < y1) {
		/* over option area */
		
		if (mouse & (BROWSER_MOUSE_CLICK_1 | BROWSER_MOUSE_CLICK_2))
			/* button 1 or 2 click */
			form_select_menu_clicked(control, x, y);
		
		if (!(mouse & BROWSER_MOUSE_CLICK_1 && !multiple))
			/* anything but a button 1 click over a single select
			   menu */
			status = messages_get(control->data.select.multiple ?
					"SelectMClick" : "SelectClick");
		
	} else if (!(mouse & (BROWSER_MOUSE_CLICK_1 | BROWSER_MOUSE_CLICK_2)))
		/* if not a button 1 or 2 click*/
		status = messages_get("SelectClose");
			
	return status;
}

/**
 * Handle mouse drag end for the currently opened select menu.
 *
 * \param control	the select menu which received the mouse drag end
 * \param mouse		current mouse state
 * \param x		X coordinate of drag end
 * \param y		Y coordinate of drag end
 */
void form_select_mouse_drag_end(struct form_control *control,
		browser_mouse_state mouse, int x, int y)
{
	int x0, y0, x1, y1;
	int box_x, box_y;
	struct box *box;
	struct form_select_menu *menu = control->data.select.menu;

	box = control->box;

	/* Get global coords of scrollbar */
	box_coords(box, &box_x, &box_y);
	box_x -= box->border[LEFT].width;
	box_y += box->height + box->border[BOTTOM].width +
			box->padding[BOTTOM] + box->padding[TOP];

	/* Get drag end coords relative to scrollbar */
	x = x - box_x;
	y = y - box_y;

	if (menu->scroll_capture) {
		x -= menu->width - SCROLLBAR_WIDTH;
		scrollbar_mouse_drag_end(menu->scrollbar, mouse, x, y);
		return;
	}
	
	x0 = 0;
	y0 = 0;
	x1 = menu->width;
	y1 = menu->height;
		
	
	if (x > x0 && x < x1 - SCROLLBAR_WIDTH && y >  y0 && y < y1)
		/* handle drag end above the option area like a regular click */
		form_select_menu_clicked(control, x, y);
}

/**
 * Callback for the select menus scroll
 */
void form_select_menu_scroll_callback(void *client_data,
		struct scrollbar_msg_data *scrollbar_data)
{
	struct form_control *control = client_data;
	struct form_select_menu *menu = control->data.select.menu;
	html_content *html = (html_content *)menu->c;
	
	switch (scrollbar_data->msg) {
		case SCROLLBAR_MSG_MOVED:
			menu->callback(menu->client_data,
				    	0, 0,
					menu->width,
     					menu->height);
			break;
		case SCROLLBAR_MSG_SCROLL_START:
		{
			struct rect rect = {
				.x0 = scrollbar_data->x0,
				.y0 = scrollbar_data->y0,
				.x1 = scrollbar_data->x1,
				.y1 = scrollbar_data->y1
			};

			browser_window_set_drag_type(html->bw,
					DRAGGING_CONTENT_SCROLLBAR, &rect);

			menu->scroll_capture = true;
		}
			break;
		case SCROLLBAR_MSG_SCROLL_FINISHED:
			menu->scroll_capture = false;

			browser_window_set_drag_type(html->bw,
					DRAGGING_NONE, NULL);
			break;
		default:
			break;
	}
}

/**
 * Get the dimensions of a select menu.
 *
 * \param control	the select menu to get the dimensions of
 * \param width		gets updated to menu width
 * \param height	gets updated to menu height
 */
void form_select_get_dimensions(struct form_control *control,
		int *width, int *height)
{
	*width = control->data.select.menu->width;
	*height = control->data.select.menu->height;
}

/**
 * Callback for the core select menu.
 */
void form_select_menu_callback(void *client_data,
		int x, int y, int width, int height)
{
	html_content *html = client_data;
	int menu_x, menu_y;
	struct box *box;
	
	box = html->visible_select_menu->box;
	box_coords(box, &menu_x, &menu_y);
		
	menu_x -= box->border[LEFT].width;
	menu_y += box->height + box->border[BOTTOM].width +
			box->padding[BOTTOM] +
			box->padding[TOP];
	content__request_redraw((struct content *)html, menu_x + x, menu_y + y,
			width, height);
}


/**
 * Set a radio form control and clear the others in the group.
 *
 * \param  content  content containing the form, of type CONTENT_TYPE
 * \param  radio    form control of type GADGET_RADIO
 */

void form_radio_set(html_content *html,
		struct form_control *radio)
{
	struct form_control *control;

	assert(html);
	assert(radio);
	if (!radio->form)
		return;

	if (radio->selected)
		return;

	for (control = radio->form->controls; control;
			control = control->next) {
		if (control->type != GADGET_RADIO)
			continue;
		if (control == radio)
			continue;
		if (strcmp(control->name, radio->name) != 0)
			continue;

		if (control->selected) {
			control->selected = false;
			dom_html_input_element_set_checked(control->node, false);
			html__redraw_a_box(html, control->box);
		}
	}

	radio->selected = true;
	dom_html_input_element_set_checked(radio->node, true);
	html__redraw_a_box(html, radio->box);
}


/**
 * Collect controls and submit a form.
 */

void form_submit(nsurl *page_url, struct browser_window *target,
		struct form *form, struct form_control *submit_button)
{
	char *data = NULL;
	struct fetch_multipart_data *success;
	nsurl *action_url;
	nsurl *action_query;
	nserror error;

	assert(form != NULL);

	if (form_successful_controls_dom(form, submit_button, &success) == false) {
		warn_user("NoMemory", 0);
		return;
	}

	/* Decompose action */
	if (nsurl_create(form->action, &action_url) != NSERROR_OK) {
		free(data);
		fetch_multipart_data_destroy(success);
		warn_user("NoMemory", 0);
		return;
	}

	switch (form->method) {
	case method_GET:
		data = form_url_encode(form, success, true);
		if (data == NULL) {
			fetch_multipart_data_destroy(success);
			warn_user("NoMemory", 0);
			return;
		}

		/* Replace query segment */
		error = nsurl_replace_query(action_url, data, &action_query); 
		if (error != NSERROR_OK) {
			nsurl_unref(action_query);
			free(data);
			fetch_multipart_data_destroy(success);
			warn_user(messages_get_errorcode(error), 0);
			return;
		}

		/* Construct submit url */
		browser_window_navigate(target,
					action_query,
					page_url,
					BROWSER_WINDOW_HISTORY |
					BROWSER_WINDOW_VERIFIABLE,
					NULL,
					NULL,
					NULL);

		nsurl_unref(action_query);
		break;

	case method_POST_URLENC:
		data = form_url_encode(form, success, false);
		if (data == NULL) {
			fetch_multipart_data_destroy(success);
			warn_user("NoMemory", 0);
			nsurl_unref(action_url);
			return;
		}

		browser_window_navigate(target,
					action_url,
					page_url,
					BROWSER_WINDOW_HISTORY |
					BROWSER_WINDOW_VERIFIABLE,
					data,
					NULL,
					NULL);
		break;

	case method_POST_MULTIPART:
		browser_window_navigate(target, 
					action_url, 
					page_url,
					BROWSER_WINDOW_HISTORY | 
					BROWSER_WINDOW_VERIFIABLE,
					NULL, 
					success, 
					NULL);

		break;
	}

	nsurl_unref(action_url);
	fetch_multipart_data_destroy(success);
	free(data);
}

void form_gadget_update_value(struct html_content *html,
			      struct form_control *control, char *value)
{
	switch (control->type) {
	case GADGET_HIDDEN:
	case GADGET_TEXTBOX:
	case GADGET_TEXTAREA:
	case GADGET_PASSWORD:
	case GADGET_FILE:
		if (control->value != NULL) {
			free(control->value);
		}
		control->value = value;
		if (control->node != NULL) {
			dom_exception err;
			dom_string *str;
			err = dom_string_create((uint8_t *)value,
						strlen(value), &str);
			if (err == DOM_NO_ERR) {
				if (control->type == GADGET_TEXTAREA)
					err = dom_html_text_area_element_set_value(
						(dom_html_text_area_element *)(control->node),
						str);
				else
					err = dom_html_input_element_set_value(
						(dom_html_input_element *)(control->node),
						str);
				dom_string_unref(str);
			}
		}
		break;
	default:
		/* Do nothing */
		break;
	}
}
