Bonjour

J'ai crée un formulaire avec pour le moment un champ texte.
Voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
#!/usr/bin/perl -w
 
use strict;                                            
use CGI qw(:standard);                                
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);   
 
$CGI::POST_MAX = 1024 * 100;   # Max 100K posts
$CGI::DISABLE_UPLOADS = 1;     # No upload
 
# Creating a new CGI object
my $cgi=new CGI;
 
# Form variables
my $name = $cgi->param('name');
my $form_alert={ };
 
# Operation
if($cgi->param('name') eq '') {
      $form_alert='All fields must be completed';
 
# Begin form
print $cgi->start_form(-id=>'feedback',
                       -method=>'post',
                       -action=>'feedback.cgi');
 
print $cgi->p('Please tell me your name:'."\n",
       $cgi->textfield(-name=>'name',
                           -id=>'name',
                           -type=>'text',
                          -size=>38))."\n";
 
if ($form_alert != '') {
     print $form_alert;
}
 
print $cgi->p($cgi->submit(-id=>'button',
                           -name=>'send',
                           -value=>'Send Comment')."\n",
                  $cgi->reset(-id=>'button',
                                   -name=>'erase',
                                   -value=>'Clear Comment'))."\n";
 
print $cgi->endform."\n";
 
}
# end operation
Je voudrais avoir la possibilité de vérifier si le champ est vide. Si tel est le cas, j'affiche un message avant l'envoi du message par email.

Pour le moment, je ne recherche pas d'infos sur l'envoi de mail mais simplement la vérification de champs

Merci