summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiri Reiter <siri@jones.dk>2017-12-21 23:07:12 +0100
committerSiri Reiter <siri@jones.dk>2017-12-21 23:07:12 +0100
commitc3fb12b9ed5457ff2067017e2ab610026966d611 (patch)
treee1b45f510a5c77c1d6f2edb97cc747754b65a102
parent2457a0ed411461617d2d7048515d1901197ebb17 (diff)
Customize form.
-rwxr-xr-xkontakt.cgi52
1 files changed, 40 insertions, 12 deletions
diff --git a/kontakt.cgi b/kontakt.cgi
index 9df30e7..3bc8656 100755
--- a/kontakt.cgi
+++ b/kontakt.cgi
@@ -5,9 +5,9 @@ use CGI::FormBuilder;
my $build_path = '../build';
# TODO: check if protocol-agnostic URL works
-my $webroot = 'https://byvandring.nu/feedback/';
-my $req_path = $build_path . '/html/feedback/index.html';
-my $ack_path = $build_path . '/html/feedback/tak/index.html';
+my $webroot = 'https://byvandring.nu/kontakt/';
+my $req_path = $build_path . '/html/kontakt/index.html';
+my $ack_path = $build_path . '/html/kontakt/tak/index.html';
my $webmaster = 'info@byvandring.nu';
#my $frontdesk = 'info@byvandring.nu';
@@ -22,20 +22,24 @@ my $valid_email = '/^[+_A-Za-z0-9-]+(\.[+_A-Za-z0-9-]+)*@[A-Za-z0-9-]+(\.[A-Za-z
my $form = CGI::FormBuilder->new(
lang => 'da',
- title => 'Feedback til Byvandring.nu',
+ title => 'Henvendelse til Byvandring.nu',
method => 'POST',
fields => [qw/
- kommentar
+ navn
+ org
postnr
email
+ tur
+ antal
+ tid
+ kommentar
/],
validate => {
- postnr => INT,
email => $valid_email,
_email => $valid_email, #fake check to silence warning of variable used only once
},
required => [qw/
- kommentar
+ email
/],
messages => ':da_DK',
submit => ['Send oplysningerne'],
@@ -43,14 +47,38 @@ my $form = CGI::FormBuilder->new(
);
$form->field(
+ name => 'navn',
+ label => 'Navn',
+ comment => '(dit eget navn)'
+);
+$form->field(
+ name => 'org',
+ label => 'Firma/ skole',
+ comment => '(hvem du repræsenterer)'
+);
+$form->field(
name => 'postnr',
label => 'Postnummer',
size => 5,
comment => '(hvis du har lyst)'
);
$form->field(
- name => 'email',
- comment => '(hvis du vil kontaktes igen)'
+ name => 'tur',
+ label => 'Tur',
+ size => 5,
+ comment => '(Tur, bydel eller tema)'
+);
+$form->field(
+ name => 'antal',
+ label => 'Antal',
+ size => 5,
+ comment => '(Antal deltagere)'
+);
+$form->field(
+ name => 'tid',
+ label => 'Tidspunkt',
+ size => 5,
+ comment => '(Dato og tidspunkt)'
);
$form->field(
name => 'kommentar',
@@ -63,13 +91,13 @@ my ($mail_from) = $webmaster;
my ($mail_to, $mail_subject);
if ($form->submitted) {
- $infostring = "Tak for din feedback!";
+ $infostring = "Tak for din henvendelse!";
if ($form->validate) {
$mail_to = $frontdesk;
- $mail_subject = 'Feedback til Byvandring.nu';
+ $mail_subject = 'Henvendelse til Byvandring.nu';
} else {
$mail_to = "$frontdesk, $helpdesk";
- $mail_subject = 'FEJL ved feedback til Byvandring.nu';
+ $mail_subject = 'FEJL ved henvendelse til Byvandring.nu';
$infostring .= "\n<P>OBS! Der var fejl i et eller flere af felterne. Informationerne er sendt uanset, men det anbefales at gå tilbage, checke at alle felter er udfyldt korrekt, og derefter sende igen.";
$confirm = 0;
};