% 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 (config->{debug} == 1) {

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

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

<%= $c->render_to_string(inline => l("pf_FIRST_PAGE_DESCRIPTION")); %>

% } elsif (index($ret{ret},"SUCCESS") != -1) {

<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>

% } else {

<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>

% }

<%= l "pf_CREATE_RULE" %>

<%= l "pf_SUMMARY_ADD_DESC" %>

<%= l "Protocol" %>

<%=select_field "proto"=>["TCP","UDP"], class => "form-select" %>

<%= l "pf_LABEL_SOURCE_PORT" %>

<%= l "pf_LABEL_DESTINATION_PORT" %>

<%= l "pf_LABEL_DESTINATION_HOST" %>

<%= l "pf_ALLOW_HOSTS" %>

<%= l "pf_RULE_COMMENT" %>

% my $btn = l("ADD");