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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
package TestApp::Controller::MultiForm;
use strict;
use warnings;
use base 'Catalyst::Controller::HTML::FormFu';
sub multiform : Chained : CaptureArgs(0) {
my ( $self, $c ) = @_;
$c->stash->{template} = 'multiform.tt';
}
sub formconfig : Chained('multiform') : Args(0) : MultiFormConfig { }
sub formconfig_FORM_COMPLETE {
my ( $self, $c ) = @_;
my $multi = $c->stash->{multiform};
if ( $multi->complete ) {
my $params = $multi->current_form->params;
$c->stash->{results} = join "\n", map { sprintf "%s: %s", $_, $params->{$_} } keys %$params;
$c->stash->{message} = 'Complete';
}
}
sub formmethod : Chained('multiform') : Args(0) : MultiFormMethod('_load_form') { }
sub formmethod_FORM_COMPLETE {
my ( $self, $c ) = @_;
my $multi = $c->stash->{multiform};
if ( $multi->complete ) {
my $params = $multi->current_form->params;
$c->stash->{results} = join "\n", map { sprintf "%s: %s", $_, $params->{$_} } keys %$params;
$c->stash->{message} = 'Complete';
}
}
sub _load_form : Private {
return {
id => 'formmethod',
params_ignore_underscore => 1,
crypt_args => { '-key' => 'my secret', },
forms => [ { element => { name => 'page1' }, }, { element => { name => 'page2' }, } ],
};
}
sub file_upload : Chained('multiform') : Args(0) : MultiFormConfig { }
sub file_upload_FORM_COMPLETE {
my ( $self, $c ) = @_;
my $multi = $c->stash->{multiform};
if ( $multi->complete ) {
my $params = $multi->current_form->params;
$c->stash->{results} = '';
for ( keys %$params ) {
my $upload = $params->{$_};
my $size = $upload->size;
my $filename = $upload->filename;
my $type = $upload->type;
$c->stash->{results} .= <<END;
param: $_, size: $size, filename: $filename, type: $type
END
}
$c->stash->{message} = 'Complete';
}
}
1;
|
