brianr/SM2Gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Edit template for controller - Refine params copy and bring DB opens up to spec with UTF8

Browse Source
This commit is contained in:
Brian Read
2025-10-06 10:57:00 +01:00
parent 29f8de63fd
commit ecb846fc6c
119 changed files with 10059 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
output/Portforwarding/default/_pf_add.html.new.ep Normal file
View File

@@ -0,0 +1,85 @@
<div id="pf_add">
% 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}) {
<pre>
%= dumper { ret_data => \%ret }
</pre>
% }
% if ($ret{ret} eq "") {
% } elsif (index($ret{ret},"SUCCESS") != -1) {
<br>
<div class="success">
%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
</div>
% } else {
<br>
<div class="sme-error">
%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
</div>
% }
<br />
% my $btn = l("ADD");
% if (config->{debug} == 1) {
</pre>
%= dumper $c->current_route
%= dumper $c->stash("ret")
</pre>
% }
%= form_for "/portforwardingb" => (method => "POST") => begin
<h2>
%=l "pf_CREATE_RULE"
</h2>
<p>
%=l "pf_SUMMARY_ADD_DESC"
</p><br>
<span class=label>
%=l "Protocol"
</span><span class=data>
%=select_field "proto"=>["TCP","UDP"]
</span><br><br>
<span class=label>
%=l "pf_LABEL_SOURCE_PORT"
</span><span class=data>
%=text_field "sport"
</span><br><br>
<span class=label>
%=l "pf_LABEL_DESTINATION_PORT"
</span>
<span class=data>
%=text_field "dport"
</span><br><br>
<span class=label>
%=l "pf_LABEL_DESTINATION_HOST"
</span>
<span class=data>
%=text_field "dhost"
</span><br><br>
<span class=label>
%=l "pf_ALLOW_HOSTS"
</span>
<span class=data>
%=text_field "allow"
</span><br><br>
<span class=label>
%=l "pf_RULE_COMMENT"
</span>
<span class=data>
%=text_field "cmmnt"
</span><br><br>
<p>
<br>
%= submit_button "$btn", class => "action"
</p>
%end
</div>

66
output/Portforwarding/default/_pf_del.html.new.ep Normal file
View File

@@ -0,0 +1,66 @@
<div id="ln_del">
% my $btn = l("REMOVE");
% my $proto = $pf_datas->{proto};
% my $sport = $pf_datas->{sport};
% my $dport = $pf_datas->{dport};
% my $dhost = $pf_datas->{dhost};
% my $cmmnt = $pf_datas->{cmmnt};
% my $allow = $pf_datas->{allow};
% if (config->{debug} == 1) {
<pre>
%= dumper $c->current_route
%= dumper $c->stash("ret")
%= dumper %$pf_datas
</pre>
% }
%= form_for "/portforwardinge" => (method => "POST") => begin
<br>
%= l "pf_SUMMARY_REMOVE_DESC"
</p><br>
<span class=label>
%=l "Protocol"
</span><span class=data>
%=$proto
</span><br><br>
<span class=label>
%=l "pf_LABEL_SOURCE_PORT"
</span><span class=data>
%=$sport
</span><br><br>
<span class=label>
%=l "pf_LABEL_DESTINATION_HOST"
</span>
<span class=data>
%=$dport
</span><br><br>
<span class=label>
%=l "pf_LABEL_DESTINATION_PORT"
</span>
<span class=data>
%=$dhost
</span><br><br>
<span class=label>
%=l "pf_RULE_COMMENT"
</span>
<span class=data>
%=$cmmnt
</span><br><br>
<span class=label>
%=l "pf_ALLOW_HOSTS"
</span>
<span class=data>
%=$allow
</span><br><br>
%#}
%= hidden_field sport=>$sport
%= hidden_field proto=>$proto
<br>
%= submit_button "$btn", class => "action"
</p>
%end
</div>

116
output/Portforwarding/default/_pf_list.html.new.ep Normal file
View File

@@ -0,0 +1,116 @@
<div id="pf_list">
% my $btn = l("pf_CREATE_RULE");
%= form_for "/portforwardinga" => (method => "POST") => begin
% my $numtcpforwards = @$tcpforwards;
% my $numudpforwards = @$udpforwards;
% 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}) {
<pre>
%= dumper { ret_data => \%ret }
</pre>
% }
% if ($ret{ret} eq "") {
%=l "pf_FIRST_PAGE_DESCRIPTION"
% } elsif (index($ret{ret},"SUCCESS") != -1) {
<br>
<div class="success">
%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
</div>
% } else {
<br>
<div class="sme-error">
%= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
</div>
% }
<br />
<p>
<br>
%= submit_button "$btn", class => "action"
</p>
% end
% if ($empty){
<br>
%=l "pf_NO_FORWARDS"
% } else {
<br>
%=l "pf_SHOW_FORWARDS"
<br><br />
<table class="sme-border TableSort"><thead>
<tr>
<th class="sme-border">
%=l "Protocol"
</th>
<th class="sme-border">
%=l "pf_LABEL_SOURCE_PORT"
</th>
<th class="sme-border">
%=l "pf_LABEL_DESTINATION_HOST"
</th>
<th class="sme-border">
%=l "pf_LABEL_DESTINATION_PORT"
</th>
<th class="sme-border">
%=l "pf_ALLOW_HOSTS"
</th>
<th class="sme-border">
%=l "pf_RULE_COMMENT"
</th>
<th class="sme-border">
%=l "ACTION"
</th>
</tr>
</thead><tbody>
% my %forwards = ();
% $forwards{TCP} = $tcpforwards;
% $forwards{UDP} = $udpforwards;
% foreach my $proto (sort keys %forwards) {
% if (@{ $forwards{$proto} }) {
% foreach my $entry (@{ $forwards{$proto} }) {
<tr>
% my $sport = $entry->key;
% my $dhost = $entry->prop("DestHost");
% my $dport = $entry->prop("DestPort") || "";
% my $cmmnt = $entry->prop("Comment") || "";
% my $allow = $entry->prop("AllowHosts") || "";
%= t td => (class => "sme-border") => $proto
%= t td => (class => "sme-border") => $sport
%= t td => (class => "sme-border") => $dhost
%= t td => (class => "sme-border") => $dport
%= t td => (class => "sme-border") => $allow
%= t td => (class => "sme-border") => $cmmnt
<td class="sme-border">
%my $remove_text = l("REMOVE"); # Localized text
%my $csrf_token = "TOKEN"; # CSRF token for security
%my $actionRemove = qq{
% <a href="portforwardingd?CsrfDef=$csrf_token&trt=DEL&sport=$sport&proto=$proto">
% <button type="button" class="sme-remove-button" title="$remove_text" >
% $remove_text
% </button>
% </a>
%};
<%= $c->render_to_string(inline => $actionRemove) %>
</td>
</tr>
% }
% }
%}
%}
</tbody>
</table>
%= hidden_field "trt" => $pf_datas->{trt}
</div>