initial commit of file from CVS for smeserver-domains on Sat Sep 7 20:20:35 AEST 2024

This commit is contained in:
Trevor Batley
2024-09-07 20:20:35 +10:00
parent 473793e265
commit 484fb3201d
16 changed files with 2331 additions and 2 deletions

View File

@@ -0,0 +1,38 @@
%#
%# Add/edit pseudonym
%#
<div class="">
% my $btn = l('SAVE');
%= form_for '/dungog_domains' => (method => 'POST') => begin
%my $domain = $c->param("domain");
%my $acct = $c->param("acct") || '';
%my $pseudo = $c->param("pseudo") || '';
%=$c->l('ddo_Domain_Name',$domain)
<br>
%=$c->render_to_string(inline =>l('ddo_ENTER_a_pseudonym',$domain))
<br>
<span class=label>
%=l "ddo_Pseudonym"
</span>
<span class=data>
%=text_field 'pseudo' =>$pseudo
%="\@$domain"
</span>
<br><br>
<span class=label>
%=l "ddo_Local_User"
</span>
<span class=data>
% param LocalAccount => "$acct";
%=select_field 'LocalAccount'=>$accts
</span>
%=hidden_field 'domain'=>$domain
%=hidden_field 'acct'=>$acct
%=hidden_field 'trt'=>'EMAIL'
%=hidden_field 'oldpseudo'=>$pseudo
<br>
%= submit_button "$btn", class => 'action'
<br>
% end
</div>

View File

@@ -0,0 +1,56 @@
%#
%# Initial Domain list
%#
<div id='ddo_list'>
% my $btn = l('SAVE');
%= form_for '/dungog_domains' => (method => 'POST') => begin
<br>
%=$c->l('ddo_Current_List')
% if ($empty){
<br>
%=l 'ddo_NO_DOMAINS'
% } else {
<table class="sme-border"><tbody>
<tr>
<th class='sme-border'>
%=l 'DOMAIN'
</th>
<th class='sme-border'>
%=l 'DESCRIPTION'
</th>
<th class='sme-border'>
%=l 'ddo_Mail_Delivery'
</th>
<th class='sme-border' '>
%=l 'ddo_Delegation'
</th>
</tr>
% foreach my $domain (@$domains) {
<tr>
%= t td => (class => 'sme-border') => $domain->{"Domain"}
%= t td => (class => 'sme-border') => $domain->{"Description"}
<td class=sme-border>
<a href="/smanager/dungog_domains1?trt=EMAIL&domain=<%= $domain->{"Domain"}%>"><%=l 'MODIFY'%></a>
</td>
% my $delegation = $domain->{"Delegation"};
<td class=sme-border>
<a href="/smanager/dungog_domains2?trt=OPTIONS&domain=<%= $domain->{"Domain"}%>"><%=l $delegation%></a>
</td>
</tr>
%}
</tbody>
</table>
% }
%# This may not be needed - Save from the subservient panels should do the job.
%#=$c->render_to_string(inline =>l('ddo_Need_Save'));
<br>
%#= submit_button "$btn", class => 'action'
<br>
% end
</div>

View File

@@ -0,0 +1,73 @@
%#
%# Modify domain email
%#
<div class="ddo_email">
% my $btn = $c->l('SAVE');
% my $MailServer = $ddo_datas->{mailserver};
%= form_for '/dungog_domains' => (method => 'POST') => begin
<br>
% my $domain = $c->param('domain');
%=$c->render_to_string(inline =>l('ddo_Delegate_Domain',$domain))
<br>
<span class=label>
%=l "ddo_Server_or_IP"
</span>
<span class=data>
%=text_field 'MailServer' =>$MailServer
</span>
<br><br>
%if ($empty) {
%=$c->l('ddo_No_pseudonyms_for',$domain);
<br>
<a href="/smanager/dungog_domains3?domain=<%=$domain %>&mode=new"><button type='button'><%= $c->l('ddo_Click_Here')%></button></a>
%=$c->render_to_string(inline=>l('ddo_Click_Here_first'))
<br>
%} else {
%=$c->l('ddo_Current_list_for',$domain);
<br>
<a href="/smanager/dungog_domains3?domain=<%=$domain %>&mode=new"><button type='button'><%= $c->l('ddo_Click_Here')%></button></a>
%=$c->render_to_string(inline=>l('ddo_Click_Here_add'))
<br><br>
%#Table of pseudonyms:
<table class="sme-border"><tbody>
<tr>
<th class='sme-border'>
%=l 'ddo_Pseudonyms'
</th>
<th class='sme-border'>
%=l 'ddo_Local_User'
</th>
<th class='sme-border'>
</th>
<th class='sme-border' '>
</th>
</tr>
% foreach my $pseudo (@$pseudos) {
<tr>
%= t td => (class => 'sme-border') => $pseudo->{"Pseudonym"}
%= t td => (class => 'sme-border') => $pseudo->{"user"}
<td class=sme-border>
<a href="/smanager/dungog_domains3?trt=EMAIL&pseudo=<%= $pseudo->{'Pseudonym'}%>&domain=<%= $domain%>"><%=l 'MODIFY'%></a>
</td>
<td class=sme-border>
<a href="/smanager/dungog_domains4?trt=OPTIONS&pseudo=<%= $pseudo->{'Pseudonym'}%>&domain=<%= $domain%>"><%=l 'REMOVE'%></a>
</td>
</tr>
%}
</tbody>
</table>
%}
%= hidden_field trt=>"SERVER"
%= hidden_field domain=>$domain
<br>
%=$c->render_to_string(inline =>l('ddo_Need_Save'));
<br>
%= submit_button "$btn", class => 'action'
% end
</div>

View File

@@ -0,0 +1,35 @@
%#
%# Modify domain options
%#
<div class="ddo_modify_options">
% my $btn = l('SAVE');
% my $domain = $c->param('domain');
% my $group = $ddo_datas->{group};
% my $owner = $ddo_datas->{owner};
%=l('ddo_Domain_Name',$domain)
<br>
%= $c->render_to_string(inline =>l('ddo_alternate delegate'))
%= form_for '/dungog_domains' => (method => 'POST') => begin
<span class=label>
%=l "ddo_Alternative_Admin"
</span>
<span class=data>
% param Owner => "$owner";
%=select_field 'Owner'=>$userlist
</span>
<br>
%= l('ddo_restrict_to_group')
<br>
<span class=label>
%=l "ddo_Alternative_Group"
</span>
<span class=data>
% param Group => "$group";
%=select_field 'Group'=>$grouplist
</span>
%= hidden_field trt=>'OPTIONS'
%= hidden_field domain=>$domain
<br>
%= submit_button "$btn", class => 'action'
% end
</div>