dialog loading, validation, more logic in forms, IP address banning

ui/dialog.go

@@ -13,7 +13,9 @@ package ui
 import (
 	"embed"
 	"fmt"
+	"net/mail"
 
+	"git.erbosoft.com/amy/amsterdam/database"
 	"gopkg.in/yaml.v3"
 )
 
@@ -28,6 +30,7 @@ type DialogItem struct {
 	MaxLength  int    `yaml:"maxlength,omitempty"`
 	Value      string `yaml:"value,omitempty"`
 	Param      string `yaml:"param,omitempty"`
+	AuxData    any
 }
 
 // Dialog holds the dialog definition.
@@ -72,6 +75,18 @@ func AmLoadDialog(name string) (*Dialog, error) {
 	return nil, err
 }
 
+// DateValues returns the date values stored in a date field.
+func (fld *DialogItem) DateValues() []int {
+	if fld.Type == "date" && fld.AuxData != nil {
+		return fld.AuxData.([]int)
+	}
+	rc := make([]int, 3)
+	rc[0] = -1
+	rc[1] = -1
+	rc[2] = -1
+	return rc
+}
+
 /* Field returns a pointer to a dialog's field, given its name.
  * Parameters:
  *     name - The name of the field to find.
@@ -107,3 +122,179 @@ func (d *Dialog) Render(ctxt AmContext) (string, any, error) {
 	ctxt.VarMap().Set("amsterdam_dialog", d)
 	return "framed_template", "dialog.jet", nil
 }
+
+/* LoadFromForm loads the values in a dialog from the form fields in the request.
+ * Parameters:
+ *     ctxt - The AmContext for this request.
+ */
+func (d *Dialog) LoadFromForm(ctxt AmContext) {
+	for _, fld := range d.Fields {
+		if fld.Type == "date" {
+			fld.Value = ""
+			dvals := make([]int, 3)
+			var err error
+			dvals[0], err = ctxt.FormFieldInt(fmt.Sprintf("%s_month", fld.Name))
+			if err != nil {
+				dvals[0] = -1
+				fld.Value = fmt.Sprintf("!undefined month %s: %v", fld.Name, err)
+			}
+			dvals[1], err = ctxt.FormFieldInt(fmt.Sprintf("%s_day", fld.Name))
+			if err != nil {
+				dvals[1] = -1
+				if fld.Value == "" {
+					fld.Value = fmt.Sprintf("!undefined day %s: %v", fld.Name, err)
+				}
+			}
+			dvals[2], err = ctxt.FormFieldInt(fmt.Sprintf("%s_year", fld.Name))
+			if err != nil {
+				dvals[2] = -1
+				if fld.Value == "" {
+					fld.Value = fmt.Sprintf("!undefined year %s: %v", fld.Name, err)
+				}
+			}
+			if dvals[0] > 0 && dvals[1] > 0 && dvals[2] > 0 {
+				fld.Value = fmt.Sprintf("%04d%02d%02d", dvals[2], dvals[0], dvals[1])
+			} else if fld.Value == "" && fld.Required {
+				if dvals[0] <= 0 {
+					fld.Value = fmt.Sprintf("!month not set %s", fld.Name)
+				} else if dvals[1] <= 0 {
+					fld.Value = fmt.Sprintf("!day not set %s", fld.Name)
+				} else if dvals[2] <= 0 {
+					fld.Value = fmt.Sprintf("!year not set %s", fld.Name)
+				}
+			}
+			fld.AuxData = dvals
+		} else {
+			fld.Value = ctxt.FormField(fld.Name)
+		}
+	}
+}
+
+// validatorFunc is a function that validates the contents of a dialog item.
+type validatorFunc func(*DialogItem) error
+
+// nilValidator is a validator function that doesn't do anything.
+func nilValidator(*DialogItem) error {
+	return nil
+}
+
+/* validateTextField validates a text field.
+ * Parameters:
+ *     fld - The field to be validated.
+ * Returns:
+ *     Standard Go error status.
+ */
+func validateTextField(fld *DialogItem) error {
+	if len(fld.Value) == 0 && fld.Required {
+		return fmt.Errorf("value of field \"%s\" is required", fld.Caption)
+	}
+	if len(fld.Value) > fld.MaxLength {
+		return fmt.Errorf("value of field \"%s\" can be no longer than %d characters", fld.Caption, fld.MaxLength)
+	}
+	return nil
+}
+
+/* validateAmsIdField validates an Amsterdam ID field.
+ * Parameters:
+ *     fld - The field to be validated.
+ * Returns:
+ *     Standard Go error status.
+ */
+func validateAmsIdField(fld *DialogItem) error {
+	err := validateTextField(fld)
+	if err == nil {
+		if !database.AmIsValidAmsterdamID(fld.Value) {
+			err = fmt.Errorf("value of field \"%s\" is not a valid identifier", fld.Caption)
+		}
+	}
+	return err
+}
+
+/* validateEmailField validates an E-mail address field.
+ * Parameters:
+ *     fld - The field to be validated.
+ * Returns:
+ *     Standard Go error status.
+ */
+func validateEmailField(fld *DialogItem) error {
+	err := validateTextField(fld)
+	if err == nil {
+		_, err = mail.ParseAddress(fld.Value)
+	}
+	return err
+}
+
+/* validateCountryField validates a country code field.
+ * Parameters:
+ *     fld - The field to be validated.
+ * Returns:
+ *     Standard Go error status.
+ */
+func validateCountryField(fld *DialogItem) error {
+	if fld.Value == "XX" && fld.Required {
+		return fmt.Errorf("country field \"%s\" not set", fld.Caption)
+	}
+	return nil
+}
+
+/* validateDateField validates a date field.
+ * Parameters:
+ *     fld - The field to be validated.
+ * Returns:
+ *     Standard Go error status.
+ */
+func validateDateField(fld *DialogItem) error {
+	if len(fld.Value) == 0 && fld.Required {
+		return fmt.Errorf("date value %s not set", fld.Caption)
+	}
+	if fld.Value[0] == '!' {
+		return fmt.Errorf("date value %s erroneous: %s", fld.Caption, fld.Value[1:])
+	}
+	if fld.AuxData == nil {
+		return fmt.Errorf("date value %s not set properly", fld.Caption)
+	}
+	dv := fld.AuxData.([]int)
+	if dv[0] > 12 || dv[1] > 31 {
+		return fmt.Errorf("date value %s malformed", fld.Caption)
+	}
+	q := fmt.Sprintf("%04d%02d%02d", dv[2], dv[0], dv[1])
+	if q != fld.Value {
+		return fmt.Errorf("date value %s should be %s but is %s", fld.Caption, q, fld.Value)
+	}
+	return nil
+}
+
+// validators maps the field types to validator functions.
+var validators = map[string]validatorFunc{
+	"ams_id":      validateAmsIdField,
+	"button":      nilValidator,
+	"checkbox":    nilValidator,
+	"countrylist": validateCountryField,
+	"date":        validateDateField,
+	"email":       validateEmailField,
+	"header":      nilValidator,
+	"hidden":      nilValidator,
+	"password":    validateTextField,
+	"text":        validateTextField,
+}
+
+/* Validate validates the values in the dialog.
+ * Returns:
+ *     Standard Go error status.
+ */
+func (d *Dialog) Validate() error {
+	for _, fld := range d.Fields {
+		if len(fld.Value) > 0 || fld.Required {
+			vfunc := validators[fld.Type]
+			if vfunc != nil {
+				err := vfunc(&fld)
+				if err != nil {
+					return err
+				}
+			} else {
+				return fmt.Errorf("don't know how to validate field %s of type %s", fld.Name, fld.Type)
+			}
+		}
+	}
+	return nil
+}