summaryrefslogtreecommitdiff
path: root/kontakt.cgi
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2024-03-28 15:41:38 +0100
committerJonas Smedegaard <dr@jones.dk>2024-03-28 15:41:38 +0100
commitb1d158f333d37da682de6854cf80f83a6777fa80 (patch)
tree5315bea197e62dc7f74a4fe680cca531dc93d14d /kontakt.cgi
parent0a1aef1e7e502df51b9d85b6ac6428f255f58b41 (diff)
validate fields postnr antal
Diffstat (limited to 'kontakt.cgi')
-rwxr-xr-xkontakt.cgi5
1 files changed, 5 insertions, 0 deletions
diff --git a/kontakt.cgi b/kontakt.cgi
index a860a9d..cfe9a08 100755
--- a/kontakt.cgi
+++ b/kontakt.cgi
@@ -22,6 +22,8 @@ my ($confirm) = 1;
# Built-in email validation is too simplistic
my $valid_email = '/^[+_A-Za-z0-9-]+(\.[+_A-Za-z0-9-]+)*@[A-Za-z0-9-]+(\.[A-Za-z0-9-]+)*(\.[_A-Za-z0-9-]+)$/';
+my $valid_dk_zip = '/^([Dd][Kk])?.?[0-9-]{4}$/';
+
my $form = CGI::FormBuilder->new(
lang => 'da',
title => 'Henvendelse til Byvandring.nu',
@@ -37,8 +39,11 @@ my $form = CGI::FormBuilder->new(
kommentar
/],
validate => {
+ postnr => $valid_zip_dk,
+ _postnr => $valid_zip_dk, #fake check to silence warning of variable used only once
email => $valid_email,
_email => $valid_email, #fake check to silence warning of variable used only once
+ antal => 'INT',
},
required => [qw/
email