MORNI / HTML-FormEngine-1.01 / examples / feedback_fieldset.cgi 

            

              
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

              
#!/usr/bin/perl -w
use CGI;
use HTML::FormEngine;
use Mail::Mailer;
my $q = new CGI;
print $q->header;
my @fbackform = (
                 {
                     "templ" => "fieldset",
                     "LEGEND" => "Your Data",
                     "sub" => [
           
                               { 
                                   "NAME" => "Name",
                                   "ACCESSKEY" => 'n',
                                   "ID" => 'name',
                                   "ERROR" => 'not_null'},
                               {
                                   "NAME" => "Email",
                                   "ERROR" => ['not_null', 'rfc822'],
                               },
                               ],
                 },
                 {
                     "templ" => "fieldset",
                     "LEGEND" => "Your Comment",
                     "sub" => [
                               {
                                   "NAME" => "Subject",
                                   "ERROR" => 'not_null'},
                               {
                                   "templ" => "textarea",
                                   "NAME" => "Comment",
                                   "COLS" => 59,
                                   "ROWS" => 20,
                                   "ERROR" => sub { ($_) = @_; return (length($_) < 40) ? 'to short!' : ''; }}
                               ],
                 }
);
my $msg = '';
my $Form = new HTML::FormEngine(scalar $q->Vars);
$Form->conf(\@fbackform);
$Form->make;
if($Form->ok) {
  $Form->clear();
  my $mailer = Mail::Mailer->new();
  $mailer->open({ From    => '"FormEngine" <moritz@freesources.org>',
                  To      => '"'.$Form->get_input('Name').'" <'.$Form->get_input('Email').'>',
                  Subject => 'FormEngine example: Feedback:' . $Form->get_input('Subject')})
      or die "Can't open: $!\n";
  print $mailer "Your comment was:\n".$Form->get_input('Comment');
  $mailer->close();
  $msg = "Thanks! A mail has been send!";
}
print $q->start_html('FormEngine example: Feedback'),
      $Form->get,
      "<center><b>$msg</b></center>",
      $q->end_html;