diff options
author | Siri Reiter <siri@jones.dk> | 2017-12-21 23:07:12 +0100 |
---|---|---|
committer | Siri Reiter <siri@jones.dk> | 2017-12-21 23:07:12 +0100 |
commit | c3fb12b9ed5457ff2067017e2ab610026966d611 (patch) | |
tree | e1b45f510a5c77c1d6f2edb97cc747754b65a102 /kontakt.cgi | |
parent | 2457a0ed411461617d2d7048515d1901197ebb17 (diff) |
Customize form.
Diffstat (limited to 'kontakt.cgi')
-rwxr-xr-x | kontakt.cgi | 52 |
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; }; |