* Started adding in front-end support for managing email servers and alert recipients. Added the new 'Email' module to (later) habdle all email-related tasks.
* Fixed a bug in Accounts->read_cookies where, when a user's hash had expired, the logged error message didn't show the user's name. Signed-off-by: Digimer <digimer@alteeve.ca>main
Digimer
5 years ago
parent
2f81275551
commit
c3869a2ff6
17 changed files with 293 additions and 20 deletions
@ -0,0 +1,121 @@ |
|||||||
|
package Anvil::Tools::Email; |
||||||
|
# |
||||||
|
# This module contains methods used to manage the local postfix server and handle and dispatch email via |
||||||
|
# mailx. |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use Scalar::Util qw(weaken isweak); |
||||||
|
use Data::Dumper; |
||||||
|
|
||||||
|
our $VERSION = "3.0.0"; |
||||||
|
my $THIS_FILE = "Email.pm"; |
||||||
|
|
||||||
|
### Methods; |
||||||
|
|
||||||
|
=pod |
||||||
|
|
||||||
|
=encoding utf8 |
||||||
|
|
||||||
|
=head1 NAME |
||||||
|
|
||||||
|
Anvil::Tools::Email |
||||||
|
|
||||||
|
Provides all methods used to manage the local C<< postfix >> server and handle and dispatch email via C<< mailx >> |
||||||
|
|
||||||
|
=head1 SYNOPSIS |
||||||
|
|
||||||
|
use Anvil::Tools; |
||||||
|
|
||||||
|
# Get a common object handle on all Anvil::Tools modules. |
||||||
|
my $anvil = Anvil::Tools->new(); |
||||||
|
|
||||||
|
# Access to methods using '$anvil->Email->X'. |
||||||
|
# |
||||||
|
# |
||||||
|
|
||||||
|
=head1 METHODS |
||||||
|
|
||||||
|
Methods in this module; |
||||||
|
|
||||||
|
=cut |
||||||
|
sub new |
||||||
|
{ |
||||||
|
my $class = shift; |
||||||
|
my $self = { |
||||||
|
}; |
||||||
|
|
||||||
|
bless $self, $class; |
||||||
|
|
||||||
|
return ($self); |
||||||
|
} |
||||||
|
|
||||||
|
# Get a handle on the Anvil::Tools object. I know that technically that is a sibling module, but it makes more |
||||||
|
# sense in this case to think of it as a parent. |
||||||
|
sub parent |
||||||
|
{ |
||||||
|
my $self = shift; |
||||||
|
my $parent = shift; |
||||||
|
|
||||||
|
$self->{HANDLE}{TOOLS} = $parent if $parent; |
||||||
|
|
||||||
|
# Defend against memory leads. See Scalar::Util'. |
||||||
|
if (not isweak($self->{HANDLE}{TOOLS})) |
||||||
|
{ |
||||||
|
weaken($self->{HANDLE}{TOOLS}); |
||||||
|
} |
||||||
|
|
||||||
|
return ($self->{HANDLE}{TOOLS}); |
||||||
|
} |
||||||
|
|
||||||
|
############################################################################################################# |
||||||
|
# Public methods # |
||||||
|
############################################################################################################# |
||||||
|
|
||||||
|
=head2 check_postfix |
||||||
|
|
||||||
|
This method checks the current postfix server configuration to see if it needs to be updated, then checks to see if the local C<< postfix >> daemin is enabled and started. |
||||||
|
|
||||||
|
If any problem is encountered, C<< 1 >> is returned. Otherwise, if all is well, C<< 0 >> is returned. |
||||||
|
|
||||||
|
Parameters; |
||||||
|
|
||||||
|
=head3 config (optional, default '1') |
||||||
|
|
||||||
|
If set to C<< 0 >>, the configuration is not checked or updated. |
||||||
|
|
||||||
|
=head3 daemon (optional, default '1') |
||||||
|
|
||||||
|
If set to C<< 0 >>, the C<< postfix >> daemon is not checked or started. |
||||||
|
|
||||||
|
=cut |
||||||
|
sub check_postfix |
||||||
|
{ |
||||||
|
my $self = shift; |
||||||
|
my $parameter = shift; |
||||||
|
my $anvil = $self->parent; |
||||||
|
my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3; |
||||||
|
|
||||||
|
my $problem = 0; |
||||||
|
my $config = defined $parameter->{config} ? $parameter->{config} : 1; |
||||||
|
my $daemon = defined $parameter->{daemon} ? $parameter->{daemon} : 1; |
||||||
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { |
||||||
|
config => $config, |
||||||
|
daemon => $daemon, |
||||||
|
}}); |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
return($problem); |
||||||
|
} |
||||||
|
|
||||||
|
# =head3 |
||||||
|
# |
||||||
|
# Private Functions; |
||||||
|
# |
||||||
|
# =cut |
||||||
|
|
||||||
|
############################################################################################################# |
||||||
|
# Private functions # |
||||||
|
############################################################################################################# |
||||||
@ -0,0 +1,37 @@ |
|||||||
|
<!-- start main-menu --> |
||||||
|
<table align="center" class="anvil_main_menu"> |
||||||
|
<script type="text/javascript" src="/skins/alteeve/email.js"></script> |
||||||
|
<tr> |
||||||
|
<td colspan="2"> |
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td colspan="2" class="title"> |
||||||
|
#!string!striker_0165!# |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td colspan="2"> |
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td class="main_option_icon"> |
||||||
|
<a href="?email=true&task=email_server"><img src="#!data!skin::url!#/images/email_server.png" class="top_icon" ></a> |
||||||
|
</td> |
||||||
|
<td class="main_option"> |
||||||
|
<a href="?email=true&task=email_server">#!string!striker_0166!#</a> |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td class="main_option_icon"> |
||||||
|
<a href="?email=true&task=email_recipient"><img src="#!data!skin::url!#/images/email_recipient.png" class="top_icon" ></a> |
||||||
|
</td> |
||||||
|
<td class="main_option"> |
||||||
|
<a href="?email=true&task=email_recipient">#!string!striker_0167!#</a> |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
<!-- end main-menu --> |
||||||
|
|
||||||
@ -0,0 +1,6 @@ |
|||||||
|
$.ajaxSetup({ |
||||||
|
cache: false |
||||||
|
}); |
||||||
|
$(function() {
|
||||||
|
|
||||||
|
}); |
||||||
|
After Width: | Height: | Size: 17 KiB |
|
After Width: | Height: | Size: 19 KiB |
|
After Width: | Height: | Size: 12 KiB |
|
After Width: | Height: | Size: 13 KiB |
Loading…
Reference in new issue