|
|
@@ -33,10 +33,18 @@ get qr|^/st/([^\?]*)(.*)$| => sub {
|
|
33
|
33
|
or return template 'not_found';
|
|
34
|
34
|
my $s = $m->generate_slave($params);
|
|
35
|
35
|
|
|
36
|
|
- template 'st', {
|
|
37
|
|
- st_headers => $s->head(),
|
|
38
|
|
- content => $s->body(),
|
|
39
|
|
- warnings => $s->warnings()
|
|
|
36
|
+ &helper::dmup(m=>$m);
|
|
|
37
|
+ &helper::dmup(s=>$s);
|
|
|
38
|
+ my $w = $s->warnings();
|
|
|
39
|
+ &helper::dmup(w=>$w);
|
|
|
40
|
+
|
|
|
41
|
+ template $format, {
|
|
|
42
|
+ s_head => $s->head(),
|
|
|
43
|
+ s_body => $s->body(),
|
|
|
44
|
+ s_warnings => $s->warnings(),
|
|
|
45
|
+ m_Name => $m->{meta}->{Name},
|
|
|
46
|
+ s_Master => $s->{meta}->{Master},
|
|
|
47
|
+ s_MasterRevision => $s->{meta}->{'Master Revision'}
|
|
40
|
48
|
}, { layout => $format };
|
|
41
|
49
|
};
|
|
42
|
50
|
|