% my $retref= $c->stash("ret"); % my %ret = $retref ? %$retref : (ret => ""); % my @vars = split(/,/, $ret{vars} // ""); % my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars; % if ($c->app->config->{debug}) {

		%= dumper { ret_data => \%ret }
	

% } % if ($ret{ret} eq "") { % } elsif (index($ret{ret},"SUCCESS") != -1) {
% } else {
% }
% 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 "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 => "action"

%end