Finish PortForwarding 11.0.0-37.sme
This commit is contained in:
parent
76cbe17b34
commit
a2c75d9a29
@ -1,95 +1,118 @@
|
|||||||
<div>
|
<div>
|
||||||
|
|
||||||
% my $retref= $c->stash("ret");
|
% my $retref = $c->stash("ret");
|
||||||
% my %ret;
|
% my %ret = $retref ? %$retref : (ret => "");
|
||||||
% unless (length($retref)) {%ret = (ret=>"");}
|
% my @vars = split(/,/, $ret{vars} // '');
|
||||||
% else {%ret = %$retref;}
|
% my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars;
|
||||||
|
|
||||||
% 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];
|
|
||||||
|
|
||||||
<br>
|
<br>
|
||||||
%if ($ret{'ret'} eq "") {
|
|
||||||
|
% if ($ret{'ret'} eq "") {
|
||||||
%} elsif (index($ret{ret},"SUCCESS") != -1) {
|
|
||||||
|
% } elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||||
<div class="">
|
<div class="">
|
||||||
<!--<h2> Operation Status Report</h2>-->
|
<!--<h2> Operation Status Report</h2>-->
|
||||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
|
||||||
</div>
|
</div>
|
||||||
%} else {
|
% } else {
|
||||||
<div class="">
|
<div class="">
|
||||||
<!--<h2> Operation Status Report - Error</h2>-->
|
<!--<h2> Operation Status Report - Error</h2>-->
|
||||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
|
||||||
</div>
|
</div>
|
||||||
%}
|
|
||||||
<br />
|
|
||||||
% my $btn = l('ADD');
|
|
||||||
|
|
||||||
% if (config->{debug} == 1) {
|
|
||||||
<p>
|
|
||||||
%= dumper $c->current_route
|
|
||||||
%= dumper $c->stash("ret")
|
|
||||||
</p>
|
|
||||||
% }
|
% }
|
||||||
|
|
||||||
%= form_for '/portforwardingb' => (method => 'POST') => begin
|
|
||||||
<h2>
|
|
||||||
%=l "pf_CREATE_RULE"
|
|
||||||
</h2>
|
|
||||||
<p>
|
|
||||||
%=l "pf_SUMMARY_ADD_DESC"
|
|
||||||
</p><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_LABEL_PROTOCOL"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=select_field 'proto'=>["TCP","UDP"]
|
|
||||||
</span><br><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_LABEL_SOURCE_PORT"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=text_field 'sport'
|
|
||||||
</span>
|
|
||||||
<br><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_LABEL_DESTINATION_PORT"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=text_field 'dport'
|
|
||||||
</span>
|
|
||||||
<br><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_LABEL_DESTINATION_HOST"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=text_field 'dhost'
|
|
||||||
</span>
|
|
||||||
<br><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_ALLOW_HOSTS"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=text_field 'allow'
|
|
||||||
</span>
|
|
||||||
<br><br>
|
|
||||||
<span class="">
|
|
||||||
%=l "pf_RULE_COMMENT"
|
|
||||||
</span>
|
|
||||||
<span class="">
|
|
||||||
%=text_field 'cmmnt'
|
|
||||||
</span>
|
|
||||||
<br><br>
|
|
||||||
<p>
|
|
||||||
<br>
|
|
||||||
%= submit_button "$btn", class => ""
|
|
||||||
</p>
|
|
||||||
|
|
||||||
%end
|
% if (config->{debug} == 1) {
|
||||||
|
<pre>
|
||||||
|
<%= dumper $c->current_route %>
|
||||||
|
<%= dumper $c->stash("ret") %>
|
||||||
|
</pre>
|
||||||
|
% }
|
||||||
|
|
||||||
|
<h2><%= l "pf_CREATE_RULE" %></h2>
|
||||||
|
|
||||||
|
<form action="/smanager/portforwardingb" method="POST">
|
||||||
|
|
||||||
|
<br>
|
||||||
|
<div>
|
||||||
|
<%= l "pf_SUMMARY_ADD_DESC" %>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<%= l "pf_LABEL_PROTOCOL" %>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<%=select_field 'proto'=>["TCP","UDP"], class => "form-select" %>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<label for="inputSourcePort" class="col-form-label"><%= l "pf_LABEL_SOURCE_PORT" %></label>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<input type="text" name="sport" id="inputSourcePort" class="form-control" aria-describedby="Source Port">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<label for="inputDestinationPort" class="col-form-label"><%= l "pf_LABEL_DESTINATION_PORT" %></label>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<input type="text" name="port" id="inputDestinationPort" class="form-control" aria-describedby="Destination Port">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<label for="inputDestinationHost" class="col-form-label"><%= l "pf_LABEL_DESTINATION_HOST" %></label>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<input type="text" name="dhost" id="inputDestinationHost" class="form-control" aria-describedby="Destination Host">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<label for="inputAllowHosts" class="col-form-label"><%= l "pf_ALLOW_HOSTS" %></label>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<input type="text" name="allow" id="inputAllowHosts" class="form-control" aria-describedby="Allow Hosts">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<label for="inputRuleComment" class="col-form-label"><%= l "pf_RULE_COMMENT" %></label>
|
||||||
|
</div>
|
||||||
|
<div class="col-auto">
|
||||||
|
<input type="text" name="cmmnt" id="inputRuleComment" class="form-control" aria-describedby="Comment">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
|
% my $btn = l('ADD');
|
||||||
|
|
||||||
|
|
||||||
|
<div class="row g-3 align-items-center">
|
||||||
|
<div class="col-md-1">
|
||||||
|
<button type="submit" class="btn btn-primary"><%= $btn %></button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</form>
|
||||||
|
|
||||||
</div>
|
</div>
|
@ -1,6 +1,5 @@
|
|||||||
<div>
|
<div>
|
||||||
|
|
||||||
% my $btn = l('REMOVE');
|
|
||||||
% my $proto = $pf_datas->{proto};
|
% my $proto = $pf_datas->{proto};
|
||||||
% my $sport = $pf_datas->{sport};
|
% my $sport = $pf_datas->{sport};
|
||||||
% my $dport = $pf_datas->{dport};
|
% my $dport = $pf_datas->{dport};
|
||||||
@ -8,7 +7,7 @@
|
|||||||
% my $cmmnt = $pf_datas->{cmmnt};
|
% my $cmmnt = $pf_datas->{cmmnt};
|
||||||
% my $allow = $pf_datas->{allow};
|
% my $allow = $pf_datas->{allow};
|
||||||
|
|
||||||
% if (config->{debug} == 0) {
|
% if (config->{debug} == 1) {
|
||||||
<pre>
|
<pre>
|
||||||
<%= dumper $c->current_route %>
|
<%= dumper $c->current_route %>
|
||||||
<%= dumper $c->stash("ret") %>
|
<%= dumper $c->stash("ret") %>
|
||||||
@ -23,11 +22,17 @@
|
|||||||
<%= l 'pf_SUMMARY_REMOVE_DESC' %>
|
<%= l 'pf_SUMMARY_REMOVE_DESC' %>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
<table>
|
<table>
|
||||||
|
<thead>
|
||||||
|
<th class="col-md-4"> </th>
|
||||||
|
<th class="col-md-4"> </th>
|
||||||
|
</thead>
|
||||||
<tbody>
|
<tbody>
|
||||||
<tr>
|
<tr >
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_LABEL_PROTOCOL' %>
|
<%= l 'pf_LABEL_PROTOCOL' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $proto %>
|
<%= $proto %>
|
||||||
@ -35,7 +40,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_LABEL_SOURCE_PORT' %>
|
<%= l 'pf_LABEL_SOURCE_PORT' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $sport %>
|
<%= $sport %>
|
||||||
@ -43,7 +48,7 @@
|
|||||||
<tr>
|
<tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_LABEL_DESTINATION_HOST' %>
|
<%= l 'pf_LABEL_DESTINATION_HOST' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $dport %>
|
<%= $dport %>
|
||||||
@ -51,7 +56,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_LABEL_DESTINATION_PORT' %>
|
<%= l 'pf_LABEL_DESTINATION_PORT' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $dhost %>
|
<%= $dhost %>
|
||||||
@ -59,7 +64,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_RULE_COMMENT' %>
|
<%= l 'pf_RULE_COMMENT' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $cmmnt %>
|
<%= $cmmnt %>
|
||||||
@ -67,7 +72,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
<% l 'pf_ALLOW_HOSTS' %>
|
<%= l 'pf_ALLOW_HOSTS' %>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
<%= $allow %>
|
<%= $allow %>
|
||||||
@ -76,9 +81,13 @@
|
|||||||
</tbody>
|
</tbody>
|
||||||
</table>
|
</table>
|
||||||
|
|
||||||
|
<br>
|
||||||
|
|
||||||
<%= hidden_field sport=>$sport %>
|
<%= hidden_field sport=>$sport %>
|
||||||
<%= hidden_field proto=>$proto %>
|
<%= hidden_field proto=>$proto %>
|
||||||
|
|
||||||
|
% my $btn = l('REMOVE');
|
||||||
|
|
||||||
<div class="row g-3 align-items-center">
|
<div class="row g-3 align-items-center">
|
||||||
<div class="col-md-1">
|
<div class="col-md-1">
|
||||||
<button type="submit" class="btn btn-primary"><%= $btn %></button>
|
<button type="submit" class="btn btn-primary"><%= $btn %></button>
|
||||||
|
@ -6,35 +6,34 @@
|
|||||||
|
|
||||||
<br>
|
<br>
|
||||||
|
|
||||||
% my $retref= $c->stash("ret");
|
% my $retref = $c->stash("ret");
|
||||||
% my %ret;
|
% my %ret = $retref ? %$retref : (ret => "");
|
||||||
% unless (length($retref)) {%ret = (ret=>"");}
|
% my @vars = split(/,/, $ret{vars} // '');
|
||||||
% else {%ret = %$retref;}
|
% my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars;
|
||||||
|
|
||||||
% my $numtcpforwards = @$tcpforwards;
|
% my $numtcpforwards = @$tcpforwards;
|
||||||
% my $numudpforwards = @$udpforwards;
|
% my $numudpforwards = @$udpforwards;
|
||||||
|
|
||||||
% my @vars = split(",",$ret{vars});
|
% if ($c->app->config->{debug}) {
|
||||||
% my $var1 = @vars[0];
|
<pre>
|
||||||
% my $var2 = @vars[1];
|
%= dumper { ret_data => \%ret }
|
||||||
% my $var3 = @vars[2];
|
</pre>
|
||||||
% my $var4 = @vars[3];
|
% }
|
||||||
% my $var5 = @vars[4];
|
|
||||||
% my $var6 = @vars[5];
|
|
||||||
|
|
||||||
% if ($ret{ret} eq "") {
|
% if ($ret{ret} eq "") {
|
||||||
<%= $c->render_to_string(inline => l('pf_FIRST_PAGE_DESCRIPTION')); %>
|
<%= $c->render_to_string(inline => l('pf_FIRST_PAGE_DESCRIPTION')); %>
|
||||||
|
|
||||||
% } elsif (index($ret{ret},"SUCCESS") != -1) {
|
% } elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||||
<br>
|
<br>
|
||||||
<div>
|
<div>
|
||||||
<h2> Operation Status Report</h2>
|
<h2> Operation Status Report</h2>
|
||||||
<%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); %>
|
<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
|
||||||
</div>
|
</div>
|
||||||
% } else {
|
% } else {
|
||||||
<br>
|
<br>
|
||||||
<div class="text-danger">
|
<div class="text-danger">
|
||||||
<h2> Operation Status Report - Error</h2>
|
<h2> Operation Status Report - Error</h2>
|
||||||
<%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); %>
|
<%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
|
||||||
</div>
|
</div>
|
||||||
% }
|
% }
|
||||||
|
|
||||||
@ -52,7 +51,7 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
% if ($empty){
|
% if ($empty) {
|
||||||
<br>
|
<br>
|
||||||
<%= l 'pf_NO_FORWARDS' %>
|
<%= l 'pf_NO_FORWARDS' %>
|
||||||
% } else {
|
% } else {
|
||||||
|
@ -9,7 +9,7 @@
|
|||||||
<%= dumper "<pf>".$c->current_route %>
|
<%= dumper "<pf>".$c->current_route %>
|
||||||
<%= dumper $c->stash("ret") %>
|
<%= dumper $c->stash("ret") %>
|
||||||
<%= dumper $c->stash("portforwarding") %>
|
<%= dumper $c->stash("portforwarding") %>
|
||||||
% my $ref = $pf_datas->{portforwarding}; %>
|
% my $ref = $pf_datas->{portforwarding};
|
||||||
<%= dumper $ref->{TCP}->[0]."</pf>" %>
|
<%= dumper $ref->{TCP}->[0]."</pf>" %>
|
||||||
</pre>
|
</pre>
|
||||||
% }
|
% }
|
||||||
|
Loading…
x
Reference in New Issue
Block a user