diff --git a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_add.html.ep b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_add.html.ep index e86c920..896517c 100644 --- a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_add.html.ep +++ b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_add.html.ep @@ -1,95 +1,118 @@
- % 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]; + % 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 ($ret{'ret'} eq "") { - - %} elsif (index($ret{ret},"SUCCESS") != -1) { + + % if ($ret{'ret'} eq "") { + + % } elsif (index($ret{ret},"SUCCESS") != -1) {
- %= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); + <%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
- %} else { + % } else {
- %= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); + <%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
- %} -
- % 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 + % if (config->{debug} == 1) { +
+        <%= dumper $c->current_route %>
+        <%= dumper $c->stash("ret") %>
+    
+ % } + +

<%= l "pf_CREATE_RULE" %>

+ +
+ +
+
+ <%= l "pf_SUMMARY_ADD_DESC" %> +
+ +
+ +
+
+ <%= l "pf_LABEL_PROTOCOL" %> +
+
+ <%=select_field 'proto'=>["TCP","UDP"], class => "form-select" %> +
+
+ +
+ +
+
+ +
+
+ +
+
+ +
+ +
+
+ +
+
+ +
+
+ +
+ +
+
+ +
+
+ +
+
+ +
+ +
+
+ +
+
+ +
+
+ +
+ +
+
+ +
+
+ +
+
+ +
+ + % my $btn = l('ADD'); + + +
+
+ +
+
+
\ No newline at end of file diff --git a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_del.html.ep b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_del.html.ep index c5fad48..2b260cb 100644 --- a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_del.html.ep +++ b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_del.html.ep @@ -1,6 +1,5 @@
- % my $btn = l('REMOVE'); % my $proto = $pf_datas->{proto}; % my $sport = $pf_datas->{sport}; % my $dport = $pf_datas->{dport}; @@ -8,7 +7,7 @@ % my $cmmnt = $pf_datas->{cmmnt}; % my $allow = $pf_datas->{allow}; - % if (config->{debug} == 0) { + % if (config->{debug} == 1) {
             <%= dumper $c->current_route %>
             <%= dumper $c->stash("ret") %>
@@ -23,11 +22,17 @@
             <%= l 'pf_SUMMARY_REMOVE_DESC' %>
         
+
+ + + + + - +
  
- <% l 'pf_LABEL_PROTOCOL' %> + <%= l 'pf_LABEL_PROTOCOL' %> <%= $proto %> @@ -35,7 +40,7 @@
- <% l 'pf_LABEL_SOURCE_PORT' %> + <%= l 'pf_LABEL_SOURCE_PORT' %> <%= $sport %> @@ -43,7 +48,7 @@
- <% l 'pf_LABEL_DESTINATION_HOST' %> + <%= l 'pf_LABEL_DESTINATION_HOST' %> <%= $dport %> @@ -51,7 +56,7 @@
- <% l 'pf_LABEL_DESTINATION_PORT' %> + <%= l 'pf_LABEL_DESTINATION_PORT' %> <%= $dhost %> @@ -59,7 +64,7 @@
- <% l 'pf_RULE_COMMENT' %> + <%= l 'pf_RULE_COMMENT' %> <%= $cmmnt %> @@ -67,7 +72,7 @@
- <% l 'pf_ALLOW_HOSTS' %> + <%= l 'pf_ALLOW_HOSTS' %> <%= $allow %> @@ -76,9 +81,13 @@
+
+ <%= hidden_field sport=>$sport %> <%= hidden_field proto=>$proto %> + % my $btn = l('REMOVE'); +
diff --git a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_list.html.ep b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_list.html.ep index 661157c..7fcd306 100644 --- a/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_list.html.ep +++ b/root/usr/share/smanager/themes/AdminLTE/templates/partials/_pf_list.html.ep @@ -6,35 +6,34 @@
- % my $retref= $c->stash("ret"); - % my %ret; - % unless (length($retref)) {%ret = (ret=>"");} - % else {%ret = %$retref;} + % my $retref = $c->stash("ret"); + % my %ret = $retref ? %$retref : (ret => ""); + % my @vars = split(/,/, $ret{vars} // ''); + % my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars; % my $numtcpforwards = @$tcpforwards; % my $numudpforwards = @$udpforwards; - % 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 ($c->app->config->{debug}) { +
+		%= dumper { ret_data => \%ret }
+	
+ % } % if ($ret{ret} eq "") { <%= $c->render_to_string(inline => l('pf_FIRST_PAGE_DESCRIPTION')); %> + % } elsif (index($ret{ret},"SUCCESS") != -1) {

Operation Status Report

- <%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); %> + <%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
% } else {

Operation Status Report - Error

- <%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); %> + <%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6])) %>
% } @@ -52,7 +51,7 @@ - % if ($empty){ + % if ($empty) {
<%= l 'pf_NO_FORWARDS' %> % } else { diff --git a/root/usr/share/smanager/themes/AdminLTE/templates/portforwarding.html.ep b/root/usr/share/smanager/themes/AdminLTE/templates/portforwarding.html.ep index 7cd93ae..2f0f80a 100644 --- a/root/usr/share/smanager/themes/AdminLTE/templates/portforwarding.html.ep +++ b/root/usr/share/smanager/themes/AdminLTE/templates/portforwarding.html.ep @@ -9,7 +9,7 @@ <%= dumper "".$c->current_route %> <%= dumper $c->stash("ret") %> <%= dumper $c->stash("portforwarding") %> - % my $ref = $pf_datas->{portforwarding}; %> + % my $ref = $pf_datas->{portforwarding}; <%= dumper $ref->{TCP}->[0]."" %> % }