summaryrefslogtreecommitdiff
path: root/contact.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'contact.cgi')
-rwxr-xr-xcontact.cgi32
1 files changed, 23 insertions, 9 deletions
diff --git a/contact.cgi b/contact.cgi
index 036782c..7256b5a 100755
--- a/contact.cgi
+++ b/contact.cgi
@@ -24,35 +24,49 @@ my $form = CGI::FormBuilder->new(
title => 'Omni-presence contact form',
method => 'POST',
fields => [qw/
- comment
- zip
+ name
email
+ human
+ eyes
+ comment
/],
validate => {
- zip => INT,
email => $valid_email,
_email => $valid_email, #fake check to silence warning of variable used only once
},
required => [qw/
- comment
+ name
+ email
+ human
/],
messages => ':en_US',
- submit => ['Send the info'],
+ submit => ['Submit', 'Submit via secure connection'],
action => $webroot, #avoids loosing submitted values when redirected from other site
);
$form->field(
- name => 'zip',
- label => 'Postal nummer',
- size => 5,
+ name => 'name',
);
$form->field(
name => 'email',
);
$form->field(
+ name => 'human',
+ label => '',
+ options => ["I'm not a robot!"],
+ multiple => 0,
+ jsmessage => '- Sorry, no robots allowed!',
+);
+$form->field(
+ name => 'eyes',
+ label => 'eye color',
+ options => [qw(blue green other)],
+ type => 'select',
+);
+$form->field(
name => 'comment',
type => 'textarea',
- rows => 3,
+ rows => 5,
);
my ($form_required_text) = $form->{opt}{messages}{form_required_text};