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
407
root/usr/share/smanager/lib/SrvMngr/Controller/Dungog_domains.pm
Normal file
407
root/usr/share/smanager/lib/SrvMngr/Controller/Dungog_domains.pm
Normal file
@@ -0,0 +1,407 @@
|
||||
package SrvMngr::Controller::Dungog_domains;
|
||||
##----------------------------------------------------------------------
|
||||
## heading : Network
|
||||
## description : Domain pseudonyms
|
||||
## navigation : 6000 736
|
||||
##
|
||||
## name : Dungog_domainsget, method : get, url : /dungog_domains, ctlact : Dungog_domains##main
|
||||
## name : Dungog_domainspost,method : post, url : /dungog_domains, ctlact : Dungog_domains##do_Save
|
||||
## name : Dungog_domains1, method : get, url : /dungog_domains1, ctlact : Dungog_domains##do_Email
|
||||
## name : Dungog_domains2, method : get, url : /dungog_domains2, ctlact : Dungog_domains##do_Options
|
||||
## name : Dungog_domains3, method : get, url : /dungog_domains3, ctlact : Dungog_domains##do_AddPseudo
|
||||
## name : Dungog_domains4, method : get, url : /dungog_domains4, ctlact : Dungog_domains##do_DelPseudo
|
||||
## routes : end
|
||||
##
|
||||
## Documentation : https://wiki.contribs.org/Domains
|
||||
##----------------------------------------------------------------------
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Mojo::Base 'Mojolicious::Controller';
|
||||
|
||||
use Locale::gettext;
|
||||
use SrvMngr::I18N;
|
||||
use SrvMngr qw(theme_list init_session);
|
||||
|
||||
use Data::Dumper;
|
||||
use esmith::util;
|
||||
use esmith::HostsDB;
|
||||
use esmith::AccountsDB;
|
||||
|
||||
our $db = esmith::ConfigDB->open();
|
||||
our $adb = esmith::AccountsDB->open();
|
||||
|
||||
use constant FALSE => 0;
|
||||
use constant TRUE => 1;
|
||||
|
||||
our $domaindb = esmith::ConfigDB->open('/home/e-smith/db/domains')
|
||||
or die "Unable to open domains db";
|
||||
|
||||
our $dungogdb = esmith::ConfigDB->open('/home/e-smith/db/dungog')
|
||||
or die("Unable to open dungog db"); #Created by rpm
|
||||
|
||||
my %ddo_datas = ();
|
||||
|
||||
sub main {
|
||||
#
|
||||
# Main Panel
|
||||
#
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my $title = $c->l('ddo_title');
|
||||
my $modul = '';
|
||||
|
||||
$ddo_datas{first} = 'ddo_Intro';
|
||||
$ddo_datas{trt} = 'LIST';
|
||||
|
||||
my @domains = get_domain_table($c);
|
||||
my $empty = ( scalar @domains == 0 ); #Always be at least one?
|
||||
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ddo_datas => \%ddo_datas,
|
||||
domains => \@domains,
|
||||
empty => $empty
|
||||
);
|
||||
|
||||
$c->render( template => 'dungog_domains' );
|
||||
|
||||
}
|
||||
|
||||
sub do_Save {
|
||||
|
||||
#
|
||||
# Save pressed
|
||||
#
|
||||
# Just Save data, restart email and log success
|
||||
# .. and return to main panel
|
||||
#
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my $title = $c->l('ddo_title');
|
||||
my $modul = '';
|
||||
my $domain = $c->param("domain");
|
||||
#die("Save:$domain");
|
||||
|
||||
# Save it in here..
|
||||
my $trt = $c->param("trt");
|
||||
if ( $trt eq "SERVER" ) {
|
||||
my $MailServer = $c->param('MailServer') || '';
|
||||
#die($MailServer);
|
||||
unless ( $MailServer eq 'skipMS' ) {
|
||||
if ( $MailServer eq '' ) {
|
||||
$domaindb->delete_prop( $domain, 'MailServer' );
|
||||
}
|
||||
else {
|
||||
$domaindb->set_prop( $domain, 'MailServer', $MailServer );
|
||||
}
|
||||
}
|
||||
|
||||
system( "/sbin/e-smith/signal-event", "email-update" ) == 0
|
||||
or die("Error occurred while restarting email.\n");
|
||||
}
|
||||
elsif ( $trt eq 'OPTIONS' ) {
|
||||
my $owner = $c->param('Owner');
|
||||
my $group = $c->param('Group');
|
||||
|
||||
#Check exists and create if necessary
|
||||
my $rec = $dungogdb->get($domain)
|
||||
|| $dungogdb->new_record( $domain, { type => 'domain' } );
|
||||
$dungogdb->set_prop( $domain, 'owner', $owner );
|
||||
$dungogdb->set_prop( $domain, 'group', $group );
|
||||
}
|
||||
elsif ( $trt eq 'EMAIL' ) {
|
||||
my $resmsg = perform_pseudo_save($c);
|
||||
if ( $resmsg ne "ok" ) {
|
||||
$ddo_datas{error} = $resmsg; #Error Message
|
||||
do_AddPseudo($c);
|
||||
return
|
||||
} else {
|
||||
$ddo_datas{success} = 'ddo_SUCCESS';
|
||||
do_Email($c);
|
||||
return
|
||||
}
|
||||
|
||||
}
|
||||
$ddo_datas{success} = 'ddo_SUCCESS';
|
||||
$ddo_datas{trt} = 'LIST';
|
||||
my @domains = get_domain_table($c);
|
||||
my $empty = ( scalar @domains == 0 ); #Always be at least one?
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ddo_datas => \%ddo_datas,
|
||||
domains => \@domains,
|
||||
empty => $empty
|
||||
);
|
||||
$c->render( template => 'dungog_domains' );
|
||||
|
||||
}
|
||||
|
||||
sub perform_pseudo_save {
|
||||
#
|
||||
# Save or create a new pseudonymn
|
||||
# mode = new or modify
|
||||
my $c = shift;
|
||||
my $domain = $c->param('domain');
|
||||
my $acct = $c->param('LocalAccount');
|
||||
my $pseu = $c->param('pseudo');
|
||||
my $Pseudonym = "$pseu\@$domain";
|
||||
my $mode = $c->param('mode') | 'modify';
|
||||
my $oldpseudo = $c->param('oldpseudo');
|
||||
|
||||
# get all pseudonyms for this domain
|
||||
my @vdemail = ();
|
||||
foreach my $account ( $adb->get_all_by_prop($domain,type=>'pseudonym') ) {
|
||||
push( @vdemail, $account->key );
|
||||
}
|
||||
|
||||
#don't overwite existing users
|
||||
if ( $mode eq 'new' ) {
|
||||
foreach (@vdemail) {
|
||||
if ( $_ eq $pseu ) {
|
||||
return 'ddo_pseudo_already_exists';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ( $pseu =~ /^([a-zA-Z0-9][\-\_\.a-zA-Z0-9]*)$/ ) {
|
||||
$pseu = $1;
|
||||
}
|
||||
else {
|
||||
return $c->l( 'ddo_pseudo_unexpected_character', $pseu );
|
||||
}
|
||||
|
||||
if ( $acct eq '' ) {
|
||||
return 'ddo_need_local_account';
|
||||
}
|
||||
|
||||
#Create it if necessary
|
||||
my $rec = $adb->get($Pseudonym)
|
||||
|| $adb->new_record( $Pseudonym, { type => 'pseudonym' } );
|
||||
|
||||
$adb->set_prop( $Pseudonym, 'Account', $acct );
|
||||
|
||||
#we changed the Pseudonym, so delete the old
|
||||
if ($oldpseudo ne ''){
|
||||
if ( $mode eq 'modify' and $oldpseudo ne $pseu) {
|
||||
my $delpseudo = "$oldpseudo\@$domain";
|
||||
if (my $delkey = $adb->get($delpseudo)) {
|
||||
$delkey->delete or die("Unable to delete $Pseudonym from accounts:".$delkey->key);
|
||||
}
|
||||
}
|
||||
}
|
||||
return "ok";
|
||||
}
|
||||
|
||||
sub do_Email {
|
||||
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my %ddo_datas = ();
|
||||
my $title = $c->l('ddo_Email_Title');
|
||||
my $modul = '';
|
||||
|
||||
my $domain = $c->param("domain");
|
||||
my $MailServer = $domaindb->get_prop($domain, 'MailServer');
|
||||
my @pseudos = get_domain_pseudonyms( $c, $domain );
|
||||
my $empty = ( scalar @pseudos == 0 );
|
||||
$ddo_datas{trt} = 'EMAIL';
|
||||
$ddo_datas{mailserver} = $MailServer;
|
||||
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ddo_datas => \%ddo_datas,
|
||||
pseudos => \@pseudos,
|
||||
empty => $empty
|
||||
);
|
||||
$c->render( template => 'dungog_domains' );
|
||||
}
|
||||
|
||||
sub do_Options {
|
||||
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my $title = $c->l('ddo_modify_options_TITLE');
|
||||
my $modul = '';
|
||||
|
||||
#Data for selection controls
|
||||
my $domain = $c->param("domain");
|
||||
my $owner = $dungogdb->get_prop( $domain, "owner" ) || 'admin';
|
||||
my $group = $dungogdb->get_prop( $domain, "group" ) || 'everyone';
|
||||
if ( $group eq 'Administrator' ) {
|
||||
$group = $owner;
|
||||
}
|
||||
|
||||
my @userlist = ( 'admin', 'everyone' );
|
||||
my @grouplist = ( 'everyone', 'Administrator' );
|
||||
push( @userlist, '-- groups --' );
|
||||
foreach ( sort $adb->get_all_by_prop( type => 'group' ) ) {
|
||||
push( @userlist, $_->key );
|
||||
push( @grouplist, $_->key );
|
||||
|
||||
}
|
||||
push( @userlist, '-- users --' );
|
||||
foreach ( sort $adb->get_all_by_prop( type => 'user' ) ) {
|
||||
push( @userlist, $_->key );
|
||||
}
|
||||
|
||||
$ddo_datas{trt} = 'OPTIONS';
|
||||
$ddo_datas{owner} = $owner;
|
||||
$ddo_datas{group} = $group;
|
||||
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ddo_datas => \%ddo_datas,
|
||||
grouplist => \@grouplist,
|
||||
userlist => \@userlist
|
||||
);
|
||||
$c->render( template => 'dungog_domains' );
|
||||
}
|
||||
|
||||
sub do_DelPseudo {
|
||||
#
|
||||
# Delete pseudonym
|
||||
#
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my $title = $c->l('ddo_title');
|
||||
my $modul = '';
|
||||
|
||||
# Delete it in here..
|
||||
my $pseu = $c->param('pseudo');
|
||||
my $domain = $c->param('domain');
|
||||
my $Pseudonym = "$pseu\@$domain";
|
||||
|
||||
my $delkey = $adb->get("$Pseudonym") or die("Unable to find $Pseudonym in accounts");
|
||||
$delkey->delete or die("Unable to delete $Pseudonym from accounts:".$delkey->key);
|
||||
|
||||
$ddo_datas{success} = 'ddo_Delete_successful';
|
||||
$ddo_datas{trt} = 'EMAIL';
|
||||
|
||||
do_Email($c);
|
||||
}
|
||||
|
||||
sub do_AddPseudo {
|
||||
#
|
||||
# Add or edit pseudonym
|
||||
#
|
||||
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
my $title = $c->l('ddo_Edit_Title');
|
||||
my $modul = '';
|
||||
my $domain = $c->param("domain");
|
||||
my @accts = get_accts( $c, $domain );
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ddo_datas => \%ddo_datas,
|
||||
accts => \@accts
|
||||
);
|
||||
$ddo_datas{trt} = 'ADD';
|
||||
$c->render( template => 'dungog_domains' );
|
||||
|
||||
}
|
||||
|
||||
sub get_domain_pseudonyms {
|
||||
my ( $c, $domain ) = @_;
|
||||
|
||||
# get all pseudonyms
|
||||
my @vdemail = ();
|
||||
|
||||
foreach my $record ( $adb->get_all_by_prop( type => 'pseudonym' ) ) {
|
||||
my $key = $record->key;
|
||||
push( @vdemail, $key );
|
||||
}
|
||||
|
||||
# find email for this domain
|
||||
my @vdemail2 = ();
|
||||
foreach (@vdemail) {
|
||||
( my $u, my $d ) = split( /@/, $_ );
|
||||
my $acct = $adb->get_prop( "$_", "Account" ) || '';
|
||||
my %thisrow = ( 'Pseudonym' => $u, "user" => $acct );
|
||||
push( @vdemail2, \%thisrow ) if ( $d eq $domain );
|
||||
}
|
||||
|
||||
return @vdemail2;
|
||||
|
||||
}
|
||||
|
||||
sub get_domain_table {
|
||||
#
|
||||
# Return full table of all domains OR just the details for the specified one
|
||||
#
|
||||
my ( $c, $findDomain ) = @_; #$c and domain to find
|
||||
$findDomain = FALSE if ( scalar(@_) <= 1 );
|
||||
my $key;
|
||||
my @virtualDomains = ();
|
||||
foreach my $domain ( $domaindb->get_all_by_prop( type => 'domain' ) ) {
|
||||
$key = $domain->key;
|
||||
push( @virtualDomains, $key );
|
||||
}
|
||||
my $numDomains = @virtualDomains;
|
||||
if ( $numDomains == 0 ) { return () }
|
||||
else {
|
||||
my $domain;
|
||||
my @virtualDomains2d = ();
|
||||
|
||||
foreach $domain ( sort @virtualDomains ) {
|
||||
my %properties = $domaindb->get($domain)->props;
|
||||
my $test = $domaindb->get_prop( $domain, "dns" ) || '';
|
||||
my $owner = $dungogdb->get_prop( $domain, "owner" ) || 'admin';
|
||||
my $group = $dungogdb->get_prop( $domain, "group" ) || 'everyone';
|
||||
my %thisrow;
|
||||
|
||||
%thisrow = (
|
||||
"Domain" => $domain,
|
||||
"Description" => $properties{'Description'},
|
||||
|
||||
#"Content" => $content,
|
||||
"Delegation" => "$owner" . '::' . "$group"
|
||||
);
|
||||
push( @virtualDomains2d, \%thisrow );
|
||||
|
||||
if ($findDomain) {
|
||||
if ( $domain eq $findDomain ) {
|
||||
@virtualDomains2d = (); #Just return matching one
|
||||
push( @virtualDomains2d, \%thisrow );
|
||||
last;
|
||||
}
|
||||
} #Found the one needed
|
||||
}
|
||||
return @virtualDomains2d; #Return the lot
|
||||
}
|
||||
}
|
||||
|
||||
sub get_accts {
|
||||
my ( $c, $domain ) = @_;
|
||||
my $owner = $dungogdb->get_prop( $domain, "owner" ) || '';
|
||||
my $group = $dungogdb->get_prop( $domain, "group" ) || 'everyone';
|
||||
my @selected = [];
|
||||
my $userlist = $adb->get_prop($group,"Members") || '';
|
||||
if ( $group eq 'everyone' ) {
|
||||
my @acctrecs = $adb->get_all_by_prop( type => "user" );
|
||||
foreach my $acct (@acctrecs) {
|
||||
push( @selected, $acct->key )
|
||||
}
|
||||
}
|
||||
elsif ( $group eq 'Administrator' ) {
|
||||
@selected = ($owner);
|
||||
}
|
||||
else {
|
||||
@selected = split( /,/, $userlist );
|
||||
}
|
||||
return sort @selected;
|
||||
}
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,65 @@
|
||||
package SrvMngr::I18N::Modules::Dungog_domains::en;
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
use Mojo::Base 'SrvMngr::I18N';
|
||||
|
||||
use SrvMngr::I18N::Modules::General::en;
|
||||
|
||||
my %lexicon = (
|
||||
'ddo_title' =>'Domain Pseudonyms',
|
||||
'ddo_Final_Save' => 'Settings saved and email restarted.',
|
||||
'ddo_Intro' => 'Set pseudonyms specifically for a single domain,<br>This panel just shows the pseudonyms for a each single domain.<br>See also the <a href="/smanager/pseudonyms">Pseudonyms</a> panel to set global pseudonyms.<br>Documentation: <a href="https://wiki.contribs.org/Domains">https://wiki.contribs.org/Domains</a>',
|
||||
'ddo_Current_List' => 'Current List of Domains.',
|
||||
'ddo_Mail_Delivery' => ' Mail Delivery',
|
||||
'ddo_Delegation' => 'Delegation',
|
||||
'ddo_Need_Save' => '<strong>Save Settings</strong><br>Pseudonym settings are not activated until you save them here',
|
||||
'ddo_Delegate_Domain' => 'Delegate the domain "[_1]"<br>
|
||||
Forward all email for this domain to a remote mailserver, either use a FQDN mail.domain.net or an IP address. Or leave blank and forward domain specific pseudonyms below.
|
||||
CAUTION. enable your remote server before delegating or you may create a mail loop.',
|
||||
'ddo_Server_or_IP' => 'Server Name or IP',
|
||||
'ddo_No_Pseudonyms' => 'There are no pseudonyms for the domain "[_1]"',
|
||||
'ddo_Click_Here' => 'Click here',
|
||||
'ddo_Click_Here_first' => ' to add your first pseudonym.',
|
||||
'ddo_Click_Here_add' => ' to add another pseudonym.',
|
||||
'ddo_Domain_Name' => 'Domain Name:[_1]',
|
||||
'ddo_Alternative_Admin_description' => 'The alternative administrator is used delegate a domain to a user or group.
|
||||
They can then add email addresses with userpanel-domains
|
||||
First delegate them here, then delegate the userpanel with userpanel access.
|
||||
For full access delegate this panel, dungog-domains.',
|
||||
'ddo_Alternative_Admin' => 'Alternative administrator:',
|
||||
'ddo_Restrict' => 'Restrict the userlist in the email dropdown box to the Administrator or members of a group',
|
||||
'ddo_Alternative_Group' => 'Alternative group:',
|
||||
'ddo_SUCCESS' => 'Successfully modified domain [_1].',
|
||||
'ddo_NO_DOMAINS' => 'The are no domains in the system',
|
||||
'ddo_Current_list_for' => 'Current List of pseudonyms for the domain "[_1]"',
|
||||
'ddo_No_pseudonyms_for' => 'There are no pseudonyms for the domain "[_1]"',
|
||||
'ddo_Email_Title' => 'Modify Domain Email',
|
||||
'ddo_Edit_Title' => 'Modify Email Address',
|
||||
'ddo_Local_User' => 'Local User',
|
||||
'ddo_Pseudonyms' => 'Pseudonyms',
|
||||
'ddo_Pseudonym' => 'Pseudonym',
|
||||
'ddo_ENTER_a_pseudonym' => 'Enter a pseudonym.<br>NOTE. @[_1] is added for you.',
|
||||
'ddo_Delete_successful' =>'Successfully removed Pseudonym.',
|
||||
'ddo_pseudo_already_exists' => 'Error: Pseudonym already exists.',
|
||||
'ddo_pseudo_unexpected_character'=>'Error: unexpected characters in Pseudonym [_1]',
|
||||
'ddo_need_local_account' => "Error: please select a local account.",
|
||||
'ddo_modify_options_TITLE'=>'Modify Domain pseudonyms - Options',
|
||||
'ddo_alternate delegate'=>'The alternative administrator is used delegate a domain to a user or group.<br>
|
||||
They can then add email addresses with userpanel-domains.<br>
|
||||
First delegate them here, then delegate the userpanel with userpanel access.<br>
|
||||
For full access delegate this panel, dungog-domains.',
|
||||
'ddo_alternative_admin' => 'Alternative administrator:',
|
||||
'ddo_restrict_to_group'=>'Restrict the userlist in the email dropdown box to the Administrator or members of a group',
|
||||
'ddo_Alternative_group'=>'Alternative group:'
|
||||
|
||||
|
||||
);
|
||||
|
||||
our %Lexicon = (
|
||||
%{ SrvMngr::I18N::Modules::General::en::Lexicon },
|
||||
%lexicon
|
||||
);
|
||||
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,43 @@
|
||||
% layout 'default', title => "Sme server 2 - Domain Pseudonyms", share_dir => './';
|
||||
|
||||
% content_for 'module' => begin
|
||||
<div id="module" class="module domains-panel">
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
</p>
|
||||
% }
|
||||
|
||||
<h1><%=$title%></h1>
|
||||
%= $modul
|
||||
|
||||
%if ($ddo_datas->{first}) {
|
||||
%=$c->render_to_string(inline =>$c->l($ddo_datas->{first}))
|
||||
|
||||
%} elsif ($ddo_datas->{success}) {
|
||||
<div class='sme-success'>
|
||||
<h2> Operation Status Report</h2>
|
||||
%= $c->l($ddo_datas->{success});
|
||||
</div>
|
||||
|
||||
%} elsif ($ddo_datas->{error}) {
|
||||
<div class='sme-error'>
|
||||
<h2> Operation Status Report - error</h2>
|
||||
%= $c->l($ddo_datas->{error});
|
||||
</div>
|
||||
%}
|
||||
|
||||
|
||||
% if ($ddo_datas->{trt} eq 'EMAIL') {
|
||||
%= include 'partials/_ddo_modify_email'
|
||||
%} elsif ($ddo_datas->{trt} eq 'OPTIONS') {
|
||||
%= include 'partials/_ddo_modify_options'
|
||||
%} elsif ($ddo_datas->{trt} eq 'ADD') {
|
||||
%= include 'partials/_ddo_add_pseudonym'
|
||||
%} else {
|
||||
%= include 'partials/_ddo_domain_list'
|
||||
%}
|
||||
|
||||
</div>
|
||||
%end
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
|
||||
|
||||
@@ -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>
|
||||
Reference in New Issue
Block a user