diff options
Diffstat (limited to 'contact.cgi')
-rwxr-xr-x | contact.cgi | 32 |
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}; |