webpage.go

package common

import (
	"bufio"
	"bytes"
	"encoding/base64"
	"fmt"
	"github.com/beevik/etree"
	"github.com/fatih/structtag"
	"github.com/gorilla/sessions"
	"github.com/labstack/echo-contrib/session"
	"github.com/labstack/echo/v4"
	"io"
	"net/http"
	"reflect"
	"regexp"
	"strconv"
	"strings"
	"time"
)

const (
	OPTION_FILE          = "file"
	OPTION_HIDDEN        = "hidden"
	OPTION_SELECT        = "select"
	OPTION_MULTISELECT   = "multiselect"
	OPTION_DATALIST      = "datalist"
	OPTION_PASSWORD      = "password"
	OPTION_AUTOFOCUS     = "autofocus"
	OPTION_REQUIRED      = "required"
	OPTION_READONLY      = "readonly"
	OPTION_MULTILINE     = "multiline"
	OPTION_MEGALINE      = "megaline"
	OPTION_NOLABEL       = "nolabel"
	OPTION_EXPERTVIEW    = "expertview"
	OPTION_NOPLACEHOLDER = "noplaceholder"

	INPUT_WIDTH_NORMAL = "pure-input-1-4"
	INPUT_WIDTH_WIDE   = "pure-input-2-4"

	CSS_DIALOG_CONTENT     = "css-dialog-content pure-controls"
	CSS_DEFAULT_CONTENT    = "css-default-content pure-controls"
	CSS_ERROR_BOX          = "css-error-box blink"
	CSS_WARNING_BOX        = "css-warning-box blink"
	CSS_SUCCESS_BOX        = "css-success-box"
	CSS_VERTICAL_DIV       = "css-vertical-div"
	CSS_LOGVIEWER          = "css-logviewer"
	CSS_CONTENT            = "css-content"
	CSS_CHECKLIST          = "css-checklist"
	CSS_CHECKLIST_CHECKBOX = "css-checklist-checkbox"
	CSS_CHECKBOX           = "css-checkbox"
	CSS_BUTTON_GROUP       = "css-button-group"
	CSS_BORDER             = "css-border"

	CSS_COLOR_OFF = "#CFCFCF"
	CSS_COLOR_ON  = "MediumSeaGreen"

	FLASH_WARNING = "warning-flash"
	FLASH_ERROR   = "error-flash"
	FLASH_SUCCESS = "success-flash"

	COOKIE_PASSWORD = "password"
	COOKIE_EXPIRE   = "expire"

	FLASH_TIMEOUT = time.Second
)

type Webpage struct {
	doc *etree.Document

	HtmlRoot          *etree.Element
	HtmlHead          *etree.Element
	HtmlTitle         *etree.Element
	HtmlMenu          *etree.Element
	HtmlBody          *etree.Element
	HtmlScrollContent *etree.Element
	HtmlContent       *etree.Element
}

type FuncFieldIterator func(string, reflect.StructField, reflect.Value, *structtag.Tag) (bool, []string)

type ActionItem struct {
	Caption  string
	Icon     string
	Action   string
	Download string
	Message string
	Enabled  bool
	SubItems []ActionItem
}

func NewPage(context echo.Context, contentStyle string, title string) (*Webpage, error) {
	p := Webpage{doc: etree.NewDocument()}

	p.HtmlRoot = p.doc.CreateElement("html")

	lang := *FlagLanguage
	if lang == "" {
		lang = DEFAULT_LANGUAGE
	}
	p.HtmlRoot.CreateAttr("lang", lang)

	p.HtmlHead = p.HtmlRoot.CreateElement("head")
	p.HtmlTitle = p.HtmlHead.CreateElement("title")
	p.HtmlTitle.SetText(title)

	htmlMeta := p.HtmlHead.CreateElement("meta")
	htmlMeta.CreateAttr("name", "viewport")
	htmlMeta.CreateAttr("content", "width = device-width, initial-scale = 1")

	htmlMeta = p.HtmlHead.CreateElement("meta")
	htmlMeta.CreateAttr("charset", "UTF-8")

	p.HtmlBody = p.HtmlRoot.CreateElement("body")

	p.HtmlMenu = p.HtmlBody.CreateElement("div")

	p.HtmlScrollContent = p.HtmlBody.CreateElement("div")
	p.HtmlScrollContent.CreateAttr("class", CSS_CONTENT)

	p.HtmlContent = p.HtmlScrollContent.CreateElement("div")

	if contentStyle != "" {
		p.HtmlContent.CreateAttr("class", contentStyle)
	}

	if context != nil {
		msgs := PullFlash(context, FLASH_WARNING)
		if msgs != nil {
			htmlError := p.HtmlContent.CreateElement("div")
			htmlError.CreateAttr("class", CSS_WARNING_BOX)
			htmlError.SetText(strings.Join(msgs, "??br??br"))
		}

		msgs = PullFlash(context, FLASH_SUCCESS)
		if msgs != nil {
			htmlError := p.HtmlContent.CreateElement("div")
			htmlError.CreateAttr("class", CSS_SUCCESS_BOX)
			htmlError.SetText(strings.Join(msgs, "??br??br"))
		}

		msgs = PullFlash(context, FLASH_ERROR)
		if msgs != nil {
			htmlError := p.HtmlContent.CreateElement("div")
			htmlError.CreateAttr("class", CSS_ERROR_BOX)
			htmlError.SetText(strings.Join(msgs, "??br??br"))
		}
	}

	return &p, nil
}

func PullFlash(context echo.Context, flashName string) []string {
	cookie, _ := session.Get(Title(), context)
	if cookie != nil {
		flashes := cookie.Flashes(flashName)
		if len(flashes) > 0 {
			flash := strings.Split(flashes[0].(string), "??br")

			err := cookie.Save(context.Request(), context.Response())
			if Error(err) {
				return nil
			}

			return flash
		}
	}

	return nil
}

func PushFlash(context echo.Context, flashName string, flash string) error {
	list := PullFlash(context, flashName)

	list = append(list, flash)

	cookie, _ := session.Get(Title(), context)
	if cookie != nil {
		cookie.AddFlash(strings.Join(list, "??br"), flashName)
	}

	err := cookie.Save(context.Request(), context.Response())
	if Error(err) {
		return err
	}

	return nil
}

func getCookie(context echo.Context) *sessions.Session {
	cookie, err := session.Get(Title(), context)

	DebugError(err)

	// Ignore the error (maybe the current cookie was encrypted with an outdated httpServer.store key)

	if cookie.IsNew {
		cookie.Options.Path = "/"
		cookie.Options.MaxAge = 0
		cookie.Options.HttpOnly = true
		if context.IsTLS() {
			cookie.Options.Secure = true
			cookie.Options.SameSite = http.SameSiteStrictMode
		} else {
			cookie.Options.Secure = false
			cookie.Options.SameSite = http.SameSiteDefaultMode
		}
	}

	return cookie
}

func DisableCookie(context echo.Context) error {
	cookie := getCookie(context)

	cookie.Options.MaxAge = -1
	delete(cookie.Values, COOKIE_PASSWORD)
	delete(cookie.Values, COOKIE_EXPIRE)

	err := cookie.Save(context.Request(), context.Response())
	if Error(err) {
		return err
	}

	return nil
}

func RefreshCookie(context echo.Context, timeout time.Duration) error {
	cookie := getCookie(context)

	cookie.Options.MaxAge = int(timeout.Seconds())
	cookie.Values[COOKIE_EXPIRE] = fmt.Sprintf("%s", time.Now().Add(timeout).Format(DateTimeMask))

	err := cookie.Save(context.Request(), context.Response())
	if Error(err) {
		return err
	}

	return nil
}

func AuthenticateCookie(context echo.Context, password string, timeout time.Duration) error {
	cookie := getCookie(context)

	// Ignore the error (maybe the current cookie was encrypted with an outdated httpServer.store key)

	cookie.Options.MaxAge = int(timeout.Seconds())

	cookie.Values[COOKIE_PASSWORD] = password
	cookie.Values[COOKIE_EXPIRE] = fmt.Sprintf("%s", time.Now().Add(timeout).Format(DateTimeMask))

	err := cookie.Save(context.Request(), context.Response())
	if Error(err) {
		return err
	}

	return nil
}

func IsCookieAuthenticated(context echo.Context, login string, hashFunc func(string) string) bool {
	cookie, err := session.Get(Title(), context)
	if err != nil {
		return false
	}

	expire, ok := cookie.Values[COOKIE_EXPIRE]
	if !ok {
		return false
	}

	expireTime, err := ParseDateTime(DateTimeMask, expire.(string))
	if Error(err) {
		return false
	}

	if time.Now().After(expireTime) {
		return false
	}

	sessionPassword, ok := cookie.Values[COOKIE_PASSWORD]
	if !ok {
		return false
	}

	if hashFunc != nil {
		sessionPassword = hashFunc(sessionPassword.(string))
	}

	return login != "" && login == sessionPassword
}

func NewMenu(page *Webpage, menuItems []ActionItem, selectedTitle string, disableMenues bool) {
	page.HtmlMenu.CreateAttr("class", "pure-menu pure-menu-horizontal")

	newMenuitem(page.HtmlMenu, true, menuItems, selectedTitle, disableMenues)
}

func newMenuitem(parent *etree.Element, mainMenu bool, menuItems []ActionItem, selectedTitle string, disableMenues bool) {
	htmlUl := parent.CreateElement("ul")
	if mainMenu {
		htmlUl.CreateAttr("class", "pure-menu-list")
	} else {
		htmlUl.CreateAttr("class", "pure-menu-children")
	}

	for _, menu := range menuItems {
		classes := []string{"pure-menu-item"}

		isMenuDisabled := !menu.Enabled || disableMenues
		if isMenuDisabled {
			classes = append(classes, "pure-menu-disabled")
		} else {
			if menu.Caption == selectedTitle {
				classes = append(classes, "pure-menu-selected")
			}

			if len(menu.SubItems) > 0 {
				classes = append(classes, "pure-menu-has-children")
				classes = append(classes, "pure-menu-allow-hover")
			}
		}

		htmlMenu := htmlUl.CreateElement("li")
		htmlMenu.CreateAttr("class", strings.Join(classes, " "))

		htmlAhref := htmlMenu.CreateElement("a")
		htmlAhref.CreateAttr("class", "pure-menu-link")
		htmlAhref.CreateAttr("style", "cursor: pointer")

		if menu.Caption != "" {
			caption := menu.Caption
			if menu.Icon != "" {
				caption = "--%" + menu.Icon + "%--" + caption
			}

			htmlAhref.SetText(caption)
		}

		if !isMenuDisabled {
			if len(menu.SubItems) > 0 {
				htmlAhref.CreateAttr("onClick", "return false;")
			} else {
				if strings.Index(menu.Action, ";") != -1 {
					htmlAhref.CreateAttr("onClick", menu.Action)
				} else {
					if menu.Message != "" {
						htmlAhref.CreateAttr("onClick", fmt.Sprintf("if(confirm('%s')) { window.location.replace('%s'); }",menu.Message,menu.Action))
					} else {
						htmlAhref.CreateAttr("href", menu.Action)
					}
				}
			}

			if len(menu.SubItems) > 0 {
				newMenuitem(htmlMenu, false, menu.SubItems, selectedTitle, disableMenues)
			}

			if menu.Download != "" {
				htmlAhref.CreateAttr("download", menu.Download)
			}
		}
	}
}

func NewRefreshPage(name string, url string) (*Webpage, error) {
	p := Webpage{doc: etree.NewDocument()}

	p.HtmlRoot = p.doc.CreateElement("html")
	p.HtmlHead = p.HtmlRoot.CreateElement("head")
	p.HtmlTitle = p.HtmlHead.CreateElement("title")
	p.HtmlTitle.SetText(name)
	p.HtmlBody = p.HtmlRoot.CreateElement("body")

	htmlMeta := p.HtmlHead.CreateElement("meta")
	htmlMeta.CreateAttr("http-equiv", "refresh")
	htmlMeta.CreateAttr("content", fmt.Sprintf("0; URL=%s", url))

	return &p, nil
}

func NewForm(parent *etree.Element, caption string, data interface{}, method string, formAction string, actions []ActionItem, readOnly bool, isExpertViewAvailable bool, funcFieldIterator FuncFieldIterator) (*etree.Element, *etree.Element, error) {
	htmlForm := parent.CreateElement("form")
	htmlForm.CreateAttr("method", method)
	htmlForm.CreateAttr("enctype", echo.MIMEMultipartForm)
	htmlForm.CreateAttr("class", "pure-form pure-form-aligned")

	htmlForm.CreateAttr("action", formAction)
	htmlForm.CreateAttr("method", method)

	htmlGroup := htmlForm.CreateElement("div")
	htmlGroup.CreateAttr("class", CSS_BUTTON_GROUP)

	htmlGroupCenter := htmlGroup.CreateElement("center")

	htmlFieldset := htmlForm.CreateElement("fieldset")
	htmlFieldset.CreateAttr("id", "fieldset")

	isFieldExpertView, err := newFieldset(0, htmlFieldset, caption, data, "", readOnly, isExpertViewAvailable, funcFieldIterator)
	if Error(err) {
		return nil, nil, err
	}

	for i, action := range actions {
		NewButton(htmlGroupCenter, i == 0, action)
	}

	if isFieldExpertView {
		expertViewCheckbox := newCheckbox(htmlGroupCenter, isExpertViewAvailable)
		expertViewCheckbox.SetText(Translate("Expert view"))
		expertViewCheckbox.CreateAttr("onClick", fmt.Sprintf("setExpertViewVisible(--$fieldset$--);"))
		expertViewCheckbox.CreateAttr("style", "display: flex; justify-content: flex-end")
	} else {
		if len(actions) == 0 {
			htmlForm.RemoveChild(htmlGroup)
		}
	}

	return htmlForm, htmlGroup, nil
}

func BindForm(context echo.Context, data interface{}, bodyLimit int) error {
	if strings.Index(context.Request().Header.Get("Content-Type"), "multipart/form-data") == -1 {
		return fmt.Errorf("no multipart/form-data request: %+v", context.Request())
	}

	err := context.Request().ParseMultipartForm(int64(bodyLimit))
	if Error(err) {
		return err
	}

	err = IterateStruct(data, func(fieldPath string, fieldType reflect.StructField, fieldValue reflect.Value) error {
		_, ok := context.Request().Form[fieldPath]
		if !ok {
			_, ok = context.Request().MultipartForm.File[fieldPath]
		}

		switch fieldValue.Kind() {
		case reflect.Struct:
			break
		case reflect.Bool:
			if ok {
				fieldValue.SetBool(true)
			} else {
				fieldValue.SetBool(false)
			}
		case reflect.Int:
			if ok {
				formValue := context.Request().FormValue(fieldPath)
				if formValue == "" {
					formValue = "0"
				}

				i, err := strconv.Atoi(formValue)
				if Error(err) {
					break
				}
				fieldValue.SetInt(int64(i))
			}
		case reflect.String:
			if ok {
				values := context.Request().Form[fieldPath]

				if len(values) > 0 {
					fieldValue.SetString(strings.Join(values, ";"))
				}
			}
		case reflect.Slice:
			if ok {
				_, file, err := context.Request().FormFile(fieldPath)
				if file == nil {
					return nil
				}
				if Error(err) {
					return err
				}

				src, err := file.Open()
				if Error(err) {
					return err
				}
				defer func() {
					Error(src.Close())
				}()

				var buf bytes.Buffer

				_, err = io.Copy(&buf, src)
				if Error(err) {
					return err
				}

				fieldValue.SetBytes([]byte(base64.StdEncoding.EncodeToString(buf.Bytes())))
			}
		case reflect.MapOf(reflect.TypeOf(""), reflect.TypeOf("")).Kind():
			if ok {
				values := context.Request().Form[fieldPath]
				scanner := bufio.NewScanner(strings.NewReader(values[0]))
				for scanner.Scan() {
					line := strings.TrimSpace(scanner.Text())

					ss := strings.Split(line, "=")
					if len(ss) != 2 {
						return fmt.Errorf("invalid format key=value: %s", line)
					}

					fieldValue.SetMapIndex(reflect.ValueOf(ss[0]), reflect.ValueOf(ss[1]))
				}
			}
		default:
			return fmt.Errorf("unsupported field: %s", fieldPath)
		}

		return nil
	})

	return err
}

func newCheckbox(parent *etree.Element, checked bool) *etree.Element {
	var htmlInput *etree.Element

	if parent == nil {
		htmlInput = etree.NewElement("input")
	} else {
		htmlInput = parent.CreateElement("input")
	}

	htmlInput.CreateAttr("type", "checkbox")
	htmlInput.CreateAttr("class", CSS_CHECKBOX)
	htmlInput.CreateAttr("value", "true")
	if checked {
		htmlInput.CreateAttr("checked", "")
	}

	return htmlInput
}

func newFieldset(index int, parent *etree.Element, caption string, data interface{}, path string, readOnly bool, isExpertViewActive bool, funcFieldIterator FuncFieldIterator) (bool, error) {
	expertViewFieldExists := false

	if reflect.TypeOf(data).Kind() == reflect.Ptr {
		data = reflect.ValueOf(data).Elem()
	}

	htmlLegend := parent.CreateElement("legend")
	htmlLegend.SetText(Translate(caption))

	structValue := reflect.ValueOf(data)

	for i := 0; i < structValue.NumField(); i++ {
		fieldType := structValue.Type().Field(i)
		fieldPath := fieldType.Name
		if path != "" {
			fieldPath = strings.Join([]string{path, fieldPath}, "_")
		}
		fieldValue := structValue.Field(i)
		fieldValues := []string{}

		fieldTags, err := structtag.Parse(string(fieldType.Tag))
		if Error(err) {
			return false, err
		}

		tagHtml, err := fieldTags.Get("html")
		if err != nil {
			continue
		}

		if funcFieldIterator != nil {
			var fieldVisible bool

			fieldVisible, fieldValues = funcFieldIterator(fieldPath, fieldType, fieldValue, tagHtml)

			if !fieldVisible {
				continue
			}
		}

		Debug("%+v", fieldType)

		if fieldType.Type.Kind() == reflect.Struct {
			if i == 0 {
				parent.RemoveChildAt(0)
			}

			var ev bool

			ev, err = newFieldset(index+1, parent, tagHtml.Name, fieldValue.Interface(), fieldPath, readOnly, isExpertViewActive, funcFieldIterator)
			if Error(err) {
				return false, err
			}

			expertViewFieldExists = expertViewFieldExists || ev

			continue
		}

		htmlDiv := parent.CreateElement("div")

		classes := []string{"pure-control-group"}

		isFieldExpertView := IndexOf(tagHtml.Options, OPTION_EXPERTVIEW) != -1
		isFieldHidden := (IndexOf(tagHtml.Options, OPTION_HIDDEN) != -1) || (isFieldExpertView && !isExpertViewActive)
		isFieldReadOnly := (IndexOf(tagHtml.Options, OPTION_READONLY) != -1)

		expertViewFieldExists = expertViewFieldExists || isFieldExpertView

		if isFieldExpertView {
			classes = append(classes, OPTION_EXPERTVIEW)
		}

		htmlDiv.CreateAttr("class", strings.Join(classes, " "))

		if isFieldHidden {
			htmlDiv.CreateAttr("style", "display: none;")
		}

		htmlLabel := htmlDiv.CreateElement("label")
		htmlLabel.CreateAttr("for", fieldPath)

		if IndexOf(tagHtml.Options, OPTION_NOLABEL) == -1 {
			htmlLabel.SetText(Translate(tagHtml.Name))
		}

		var htmlInput *etree.Element

		switch fieldType.Type.Kind() {
		case reflect.Bool:
			htmlInput = newCheckbox(htmlDiv, fieldValue.Bool())
		default:
			if IndexOf(tagHtml.Options, OPTION_MULTILINE) != -1 || IndexOf(tagHtml.Options, OPTION_MEGALINE) != -1 {
				htmlInput = htmlDiv.CreateElement("textarea")
				htmlInput.CreateAttr("class", INPUT_WIDTH_WIDE)
				htmlInput.CreateAttr("cols", "65")

				if IndexOf(tagHtml.Options, OPTION_MULTILINE) != -1 {
					htmlInput.CreateAttr("rows", "5")
				} else {
					htmlInput.CreateAttr("rows", "20")
				}

				if reflect.TypeOf(fieldValue.Interface()).Kind() == reflect.Map {
					sb := strings.Builder{}
					iter := fieldValue.MapRange()
					for iter.Next() {
						k := iter.Key()
						v := iter.Value()
						sb.WriteString(fmt.Sprintf("%s=%s\n",k,v))
					}
					htmlInput.SetText(sb.String())
				} else {
					if !fieldValue.IsZero() {
						htmlInput.SetText(fieldValue.String())
					}
				}

				break
			}

			if IndexOf(tagHtml.Options, OPTION_MULTISELECT) != -1 {
				htmlSpan := htmlDiv.CreateElement("span")
				htmlSpan.CreateAttr("class", CSS_CHECKLIST)

				preselectValue := fieldValue.String()
				if reflect.TypeOf(fieldValue.Interface()).Kind() == reflect.Int {
					preselectValue = strconv.Itoa(int(fieldValue.Int()))
				}

				preselectedValues := make(map[string]bool)

				list := strings.Split(preselectValue, ";")

				for _, v := range list {
					preselectedValues[v] = true
				}

				for _, value := range fieldValues {
					htmlItem := htmlSpan.CreateElement("input")
					htmlItem.CreateAttr("type", "checkbox")
					htmlItem.CreateAttr("value", value)
					htmlItem.CreateAttr("name", fieldPath)
					htmlItem.CreateAttr("class", CSS_CHECKLIST_CHECKBOX)
					htmlItem.CreateAttr("onkeypress", "multiCheck(event);")
					htmlItem.SetText(value)

					if preselectedValues[value] {
						htmlItem.CreateAttr("checked", "")
					}

					if IndexOf(tagHtml.Options, OPTION_AUTOFOCUS) != -1 {
						htmlItem.CreateAttr("autofocus", "")
					}

					if IndexOf(tagHtml.Options, OPTION_READONLY) != -1 {
						htmlItem.CreateAttr("readonly", "")
					}

					htmlSpan.CreateElement("br")
				}

				continue
			}

			if IndexOf(tagHtml.Options, OPTION_SELECT) != -1 {
				htmlInput = htmlDiv.CreateElement("select")
				htmlInput.CreateAttr("class", INPUT_WIDTH_NORMAL)

				preselectValue := fieldValue.String()
				if reflect.TypeOf(fieldValue.Interface()).Kind() == reflect.Int {
					preselectValue = strconv.Itoa(int(fieldValue.Int()))
				}

				preselectedValues := make(map[string]bool)
				preselectedValues[preselectValue] = true

				for _, value := range fieldValues {
					htmlOption := htmlInput.CreateElement("option")
					htmlOption.CreateAttr("value", value)
					htmlOption.SetText(value)

					if preselectedValues[value] {
						htmlOption.CreateAttr("selected", "")
					}
				}

				break
			}

			htmlInput = htmlDiv.CreateElement("input")
			htmlInput.CreateAttr("class", INPUT_WIDTH_NORMAL)
			htmlInput.CreateAttr("onclick", "this.select();")

			if fieldType.Type.Kind() == reflect.Int {
				htmlInput.CreateAttr("type", "number")
				htmlInput.CreateAttr("value", fmt.Sprintf("%d", fieldValue.Int()))
				option, err := fieldTags.Get("html_min")
				if err == nil {
					htmlInput.CreateAttr("min", fmt.Sprintf("%s", option.Value()))
				}
				option, err = fieldTags.Get("html_max")
				if err == nil {
					htmlInput.CreateAttr("max", fmt.Sprintf("%s", option.Value()))
				}

				if !readOnly && !isFieldReadOnly {
					htmlInput.CreateAttr("onchange", fmt.Sprintf("document.getElementById(--$%s.range$--).value = this.value;", fieldPath))

					htmlRange := htmlDiv.CreateElement("input")
					htmlRange.CreateAttr("id", fmt.Sprintf("%s.range", fieldPath))
					htmlRange.CreateAttr("class", INPUT_WIDTH_NORMAL)

					htmlRange.CreateAttr("type", "range")
					htmlRange.CreateAttr("tabIndex", "-1")
					htmlRange.CreateAttr("value", fmt.Sprintf("%d", fieldValue.Int()))
					option, err = fieldTags.Get("html_min")
					if err == nil {
						htmlRange.CreateAttr("min", fmt.Sprintf("%s", option.Value()))
					}
					option, err = fieldTags.Get("html_max")
					if err == nil {
						htmlRange.CreateAttr("max", fmt.Sprintf("%s", option.Value()))
					}

					htmlRange.CreateAttr("oninput", fmt.Sprintf("document.getElementById(--$%s$--).value = this.value;", fieldPath))
				}
			} else {
				if IndexOf(tagHtml.Options, OPTION_FILE) != -1 {
					htmlInput.CreateAttr("type", "file")

					tagAccept, err := fieldTags.Get("accept")
					if err == nil {
						htmlInput.CreateAttr("accept", tagAccept.Name)
					}
				} else {
					if IndexOf(tagHtml.Options, OPTION_PASSWORD) != -1 {
						htmlInput.CreateAttr("type", "password")
					} else {
						htmlInput.CreateAttr("type", "text")
					}
					htmlInput.CreateAttr("value", fieldValue.String())
				}
			}

			if IndexOf(tagHtml.Options, OPTION_DATALIST) != -1 {
				htmlInput.CreateAttr("list", fieldPath+"_list")

				htmlDatalist := htmlDiv.CreateElement("datalist")
				htmlDatalist.CreateAttr("id", fieldPath+"_list")

				for _, value := range fieldValues {
					htmlOption := htmlDatalist.CreateElement("option")
					htmlOption.CreateAttr("value", value)
					htmlOption.SetText(value)
				}
			}
		}

		htmlInput.CreateAttr("name", fieldPath)
		htmlInput.CreateAttr("id", fieldPath)
		htmlInput.CreateAttr("spellcheck", "false")

		if IndexOf(tagHtml.Options, OPTION_NOPLACEHOLDER) == -1 {
			htmlInput.CreateAttr("placeholder", Translate(tagHtml.Name))
		}

		if IndexOf(tagHtml.Options, OPTION_AUTOFOCUS) != -1 {
			htmlInput.CreateAttr("autofocus", "")
		}

		if IndexOf(tagHtml.Options, OPTION_REQUIRED) != -1 {
			htmlInput.CreateAttr("required", "")
		}

		if readOnly || IndexOf(tagHtml.Options, OPTION_READONLY) != -1 {
			htmlInput.CreateAttr("readonly", "")
		}

		tagPattern, err := fieldTags.Get("html_pattern")
		if err == nil {
			pattern := tagPattern.Name

			pattern = strings.ReplaceAll(pattern, ";", ",")

			htmlInput.CreateAttr("pattern", pattern)
			htmlInput.CreateAttr("title", Translate("Invalid characters used in the input. Valid %v", pattern))
		}
	}

	return expertViewFieldExists, nil
}
func NewButton(parent *etree.Element, primary bool, actionItem ActionItem) *etree.Element {
	button := parent.CreateElement("input")

	button.CreateAttr("value", actionItem.Caption)

	if actionItem.Action != "submit" && actionItem.Action != "reset" {
		button.CreateAttr("type", "button")
		if strings.Index(actionItem.Action, ";") != -1 {
			button.CreateAttr("onclick", actionItem.Action)
		} else {
			button.CreateAttr("onclick", "location.href=--$"+actionItem.Action+"$--")
		}
	} else {
		button.CreateAttr("type", actionItem.Action)
	}

	if primary {
		button.CreateAttr("class", "pure-button pure-button-primary")
	} else {
		button.CreateAttr("class", "pure-button")
	}

	return button
}

func NewTable(parent *etree.Element, cells [][]string) *etree.Element {
	htmlTable := parent.CreateElement("table")
	htmlTable.CreateAttr("class", "pure-table pure-table.bordered")

	var htmlHeader, htmlRow *etree.Element
	var tagName string

	for rowIndex, row := range cells {
		if rowIndex == 0 {
			htmlHeader = htmlTable.CreateElement("thead")
			htmlRow = htmlHeader.CreateElement("tr")
			tagName = "th"
		} else {
			htmlHeader = htmlTable.CreateElement("tbody")
			htmlRow = htmlHeader.CreateElement("tr")
			tagName = "td"
		}

		if rowIndex%2 == 1 {
			htmlRow.CreateAttr("class", "pure-table-odd")
		}

		for _, cell := range row {
			htmlCell := htmlRow.CreateElement(tagName)
			htmlCell.SetText(cell)
		}
	}

	return htmlTable
}

func (this *Webpage) HTML() (string, error) {
	this.doc.Indent(4)
	this.doc.WriteSettings = etree.WriteSettings{
		CanonicalEndTags: true,
		CanonicalText:    true,
		CanonicalAttrVal: false,
		UseCRLF:          false,
	}

	html, err := this.doc.WriteToString()
	if Error(err) {
		return "", err
	}

	// icons
	html = strings.ReplaceAll(html, "--%", "<i class=\"")
	html = strings.ReplaceAll(html, "%--", "\" style=\"width:22px;text-align: center;\"></i>\n")

	// suppress masking
	html = strings.ReplaceAll(html, "--[", "<")
	html = strings.ReplaceAll(html, "]--", ">")
	html = strings.ReplaceAll(html, "--$", "'")
	html = strings.ReplaceAll(html, "$--", "'")
	html = strings.ReplaceAll(html, "=\"\"", "")
	html = strings.ReplaceAll(html, "??br", "<br/>")

	if this.HtmlContent != nil && this.HtmlContent.SelectAttr("class") == nil {
		r := regexp.MustCompile(" class\\=\\\".*?\\\"")
		html = r.ReplaceAllString(html, "")
	}

	// preserve empty href attribute"

	html = strings.ReplaceAll(html, "<a href ", "<a href=\"\" ")

	strayEnds := []string{"></link>", "></meta>", "></input>"}
	for _, strayEnd := range strayEnds {
		html = strings.ReplaceAll(html, strayEnd, "/>")
	}

	html = fmt.Sprintf("<!DOCTYPE html>\n%s", html)

	return html, nil
}

func Hack4BrowserUpdate() string {
	if IsRunningAsExecutable() {
		return ""
	}

	return "?" + strconv.Itoa(Rnd(999999999))
}