% my $retref= $c->stash("ret"); % my %ret; % unless (length($retref)) {%ret = (ret=>"");} % else {%ret = %$retref;}

% my @vars = split(",",$ret{vars}); % my $var1 = @vars[0]; % my $var2 = @vars[1]; % my $var3 = @vars[2]; % my $var4 = @vars[3]; % my $var5 = @vars[4]; % my $var6 = @vars[5];

%if ($ret{'ret'} eq "") {

%} elsif (index($ret{ret},"SUCCESS") != -1) {
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
%} else {
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
%}
% my $btn = l('ADD');

% if (config->{debug} == 1) {

%= dumper $c->current_route %= dumper $c->stash("ret")

% }

%= form_for '/portforwardingb' => (method => 'POST') => begin

## %=l "pf_CREATE_RULE"

%=l "pf_SUMMARY_ADD_DESC"

%=l "pf_LABEL_PROTOCOL" %=select_field 'proto'=>["TCP","UDP"]
%=l "pf_LABEL_SOURCE_PORT" %=text_field 'sport'
%=l "pf_LABEL_DESTINATION_PORT" %=text_field 'dport'
%=l "pf_LABEL_DESTINATION_HOST" %=text_field 'dhost'
%=l "pf_ALLOW_HOSTS" %=text_field 'allow'
%=l "pf_RULE_COMMENT" %=text_field 'cmmnt'

%= submit_button "$btn", class => ""

%end