initial commit of file from CVS for smeserver-wbl on Sat Sep 7 21:14:56 AEST 2024
This commit is contained in:
@@ -0,0 +1,50 @@
|
||||
<div>
|
||||
% my $btn = l 'SAVE';
|
||||
%= form_for '/wbl2' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => $wbl_datas->{trt}
|
||||
|
||||
<h3>
|
||||
%=l 'wbl_BLACK_LIST_DESCRIPTION'
|
||||
</h3>
|
||||
%=l 'wbl_BLACK_TITLE'
|
||||
|
||||
<p>
|
||||
%=l 'wbl_BADHELO_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_BADHELO_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Badhelo' => (cols => 40) => begin
|
||||
% for (@{ $c->get_badhelo() }) {
|
||||
%= $_
|
||||
%}
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_BADMAILFROM_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_BADMAILFROM_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Badmailfrom' => (cols => 40) => begin
|
||||
% for (@{ $c->get_badmailfrom() }) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_BLACKLISTFROM_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_BLACKLISTFROM_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Blacklistfrom' => (cols => 40) => begin
|
||||
% for (@{ $c->get_blacklistfrom() }) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
%= submit_button "$btn", class => 'action'
|
||||
%end
|
||||
</div>
|
@@ -0,0 +1,24 @@
|
||||
<div id='wbl_choice'>
|
||||
|
||||
% my $btn = l 'NEXT';
|
||||
%= form_for '/wbl' => (method => 'POST') => begin
|
||||
<p><span class=label>
|
||||
%=l 'wbl_RBL_LIST_DESCRIPTION'
|
||||
</span><br>
|
||||
|
||||
<span class=label>
|
||||
%=l 'wbl_BLACK_LIST_DESCRIPTION'
|
||||
</span><span class=data>
|
||||
% param 'list' => $wbl_datas->{list} unless param 'list';
|
||||
%= select_field 'list' => $c->get_wbllist(), class => 'input'
|
||||
</span><br>
|
||||
|
||||
<span class=label>
|
||||
%=l 'wbl_WHITE_LIST_DESCRIPTION'
|
||||
</span></p>
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
%end
|
||||
</div>
|
@@ -0,0 +1,62 @@
|
||||
<div>
|
||||
|
||||
% my $btn = l 'SAVE';
|
||||
%= form_for '/wbl2' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => $wbl_datas->{trt}
|
||||
|
||||
<!-- # For URLList List
|
||||
# my @ubllist = get_ubllist();
|
||||
# $c->stash( ubllist => \@ubllist ); -->
|
||||
|
||||
<h3>
|
||||
%=l 'wbl_RBL_LIST_DESCRIPTION'
|
||||
</h3><br>
|
||||
%=l 'wbl_RBL_TITLE'
|
||||
|
||||
<p>
|
||||
%=l 'wbl_DNSBL_DESCRIPTION'
|
||||
<br><span class=label>
|
||||
%=l 'wbl_DNSBL_LABEL'
|
||||
</span><span class=data2>
|
||||
% param 'Dnsbl' => $wbl_datas->{dnsbl} unless param 'Dnsbl';
|
||||
%= select_field 'Dnsbl' => [[(l 'ENABLED') => 'enabled'], [(l 'DISABLED') => 'disabled']], class => 'input'
|
||||
</span></p>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_RBLLIST_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_RBLLIST_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Rbllist' => (cols => 40) => begin
|
||||
% for ( @{$c->get_rbllist()} ) {
|
||||
%= $_
|
||||
%}
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_RHSBL_DESCRIPTION'
|
||||
<br><span class=label>
|
||||
%=l 'wbl_RHSBL_LABEL'
|
||||
</span><span class=data2>
|
||||
% param 'Rhsbl' => $wbl_datas->{rhsbl} unless param 'Rhsbl';
|
||||
%= select_field 'Rhsbl' => [[(l 'ENABLED') => 'enabled'], [(l 'DISABLED') => 'disabled']], class => 'input'
|
||||
</span></p>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_SBLLIST_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_SBLLIST_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Sbllist' => (cols => 40) => begin
|
||||
% for ( @{$c->get_sbllist()} ) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
%= submit_button "$btn", class => 'action'
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,65 @@
|
||||
<div>
|
||||
% my $btn = l 'SAVE';
|
||||
%= form_for '/wbl2' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => $wbl_datas->{trt}
|
||||
|
||||
<h3>
|
||||
%=l 'wbl_WHITE_LIST_DESCRIPTION'
|
||||
</h3>
|
||||
%=l 'wbl_WHITE_TITLE'
|
||||
|
||||
<p>
|
||||
%=l 'wbl_WHITELISTHOSTS_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_WHITELISTHOSTS_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Whitelisthosts' => (cols => 40) => begin
|
||||
% for (@{ $c->get_whitelisthosts() }) {
|
||||
%= $_
|
||||
%}
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_WHITELISTHELO_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_WHITELISTHELO_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Whitelisthelo' => (cols => 40) => begin
|
||||
% for (@{ $c->get_whitelisthelo() }) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span></p><br>
|
||||
|
||||
<p>
|
||||
%=l 'wbl_WHITELISTSENDERS_DESCRIPTION'
|
||||
<br><br><span class=label>
|
||||
%=l 'wbl_WHITELISTSENDERS_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Whitelistsenders' => (cols => 40) => begin
|
||||
% for (@{ $c->get_whitelistsenders() }) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span>
|
||||
</p>
|
||||
<br>
|
||||
<p>
|
||||
%=l 'wbl_WHITELISTFROM_DESCRIPTION'
|
||||
<br><br>
|
||||
<span class=label>
|
||||
%=l 'wbl_WHITELISTFROM_LABEL'
|
||||
</span><span class=data2>
|
||||
%= text_area 'Whitelistfrom' => (cols => 40) => begin
|
||||
% for (@{ $c->get_whitelistfrom() }) {
|
||||
%= $_
|
||||
% }
|
||||
%end
|
||||
</span>
|
||||
</p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
%end
|
||||
</div>
|
33
root/usr/share/smanager/themes/default/templates/wbl.html.ep
Normal file
33
root/usr/share/smanager/themes/default/templates/wbl.html.ep
Normal file
@@ -0,0 +1,33 @@
|
||||
% layout 'default', title => "Sme server 2 - wbl", share_dir => '';
|
||||
|
||||
% content_for 'module' => begin
|
||||
|
||||
|
||||
<div id="module" class="module wbl-panel">
|
||||
|
||||
%if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $wbl_datas
|
||||
</p>
|
||||
%}
|
||||
|
||||
<h1><%= $title %></h1>
|
||||
|
||||
<br>
|
||||
%= l('wbl_WBL_DESCRIPTION')
|
||||
<br>
|
||||
|
||||
% if ($wbl_datas->{trt} eq 'RBL') {
|
||||
%= include 'partials/_wbl_rbl'
|
||||
%} elsif ($wbl_datas->{trt} eq 'BLACK') {
|
||||
%= include 'partials/_wbl_black'
|
||||
%} elsif ($wbl_datas->{trt} eq 'WHITE') {
|
||||
%= include 'partials/_wbl_white'
|
||||
%} else {
|
||||
%= include 'partials/_wbl_choice'
|
||||
%}
|
||||
|
||||
</div>
|
||||
%end
|
||||
|
Reference in New Issue
Block a user