FINAL suepr merge step : added all modules to this super repos
This commit is contained in:
339
sites/all/modules/contrib/mail/maillog/LICENSE.txt
Normal file
339
sites/all/modules/contrib/mail/maillog/LICENSE.txt
Normal file
@@ -0,0 +1,339 @@
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
Version 2, June 1991
|
||||
|
||||
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
License is intended to guarantee your freedom to share and change free
|
||||
software--to make sure the software is free for all its users. This
|
||||
General Public License applies to most of the Free Software
|
||||
Foundation's software and to any other program whose authors commit to
|
||||
using it. (Some other Free Software Foundation software is covered by
|
||||
the GNU Lesser General Public License instead.) You can apply it to
|
||||
your programs, too.
|
||||
|
||||
When we speak of free software, we are referring to freedom, not
|
||||
price. Our General Public Licenses are designed to make sure that you
|
||||
have the freedom to distribute copies of free software (and charge for
|
||||
this service if you wish), that you receive source code or can get it
|
||||
if you want it, that you can change the software or use pieces of it
|
||||
in new free programs; and that you know you can do these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
anyone to deny you these rights or to ask you to surrender the rights.
|
||||
These restrictions translate to certain responsibilities for you if you
|
||||
distribute copies of the software, or if you modify it.
|
||||
|
||||
For example, if you distribute copies of such a program, whether
|
||||
gratis or for a fee, you must give the recipients all the rights that
|
||||
you have. You must make sure that they, too, receive or can get the
|
||||
source code. And you must show them these terms so they know their
|
||||
rights.
|
||||
|
||||
We protect your rights with two steps: (1) copyright the software, and
|
||||
(2) offer you this license which gives you legal permission to copy,
|
||||
distribute and/or modify the software.
|
||||
|
||||
Also, for each author's protection and ours, we want to make certain
|
||||
that everyone understands that there is no warranty for this free
|
||||
software. If the software is modified by someone else and passed on, we
|
||||
want its recipients to know that what they have is not the original, so
|
||||
that any problems introduced by others will not reflect on the original
|
||||
authors' reputations.
|
||||
|
||||
Finally, any free program is threatened constantly by software
|
||||
patents. We wish to avoid the danger that redistributors of a free
|
||||
program will individually obtain patent licenses, in effect making the
|
||||
program proprietary. To prevent this, we have made it clear that any
|
||||
patent must be licensed for everyone's free use or not licensed at all.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow.
|
||||
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License applies to any program or other work which contains
|
||||
a notice placed by the copyright holder saying it may be distributed
|
||||
under the terms of this General Public License. The "Program", below,
|
||||
refers to any such program or work, and a "work based on the Program"
|
||||
means either the Program or any derivative work under copyright law:
|
||||
that is to say, a work containing the Program or a portion of it,
|
||||
either verbatim or with modifications and/or translated into another
|
||||
language. (Hereinafter, translation is included without limitation in
|
||||
the term "modification".) Each licensee is addressed as "you".
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running the Program is not restricted, and the output from the Program
|
||||
is covered only if its contents constitute a work based on the
|
||||
Program (independent of having been made by running the Program).
|
||||
Whether that is true depends on what the Program does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Program's
|
||||
source code as you receive it, in any medium, provided that you
|
||||
conspicuously and appropriately publish on each copy an appropriate
|
||||
copyright notice and disclaimer of warranty; keep intact all the
|
||||
notices that refer to this License and to the absence of any warranty;
|
||||
and give any other recipients of the Program a copy of this License
|
||||
along with the Program.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy, and
|
||||
you may at your option offer warranty protection in exchange for a fee.
|
||||
|
||||
2. You may modify your copy or copies of the Program or any portion
|
||||
of it, thus forming a work based on the Program, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) You must cause the modified files to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
b) You must cause any work that you distribute or publish, that in
|
||||
whole or in part contains or is derived from the Program or any
|
||||
part thereof, to be licensed as a whole at no charge to all third
|
||||
parties under the terms of this License.
|
||||
|
||||
c) If the modified program normally reads commands interactively
|
||||
when run, you must cause it, when started running for such
|
||||
interactive use in the most ordinary way, to print or display an
|
||||
announcement including an appropriate copyright notice and a
|
||||
notice that there is no warranty (or else, saying that you provide
|
||||
a warranty) and that users may redistribute the program under
|
||||
these conditions, and telling the user how to view a copy of this
|
||||
License. (Exception: if the Program itself is interactive but
|
||||
does not normally print such an announcement, your work based on
|
||||
the Program is not required to print an announcement.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Program,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Program, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Program.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Program
|
||||
with the Program (or with a work based on the Program) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may copy and distribute the Program (or a work based on it,
|
||||
under Section 2) in object code or executable form under the terms of
|
||||
Sections 1 and 2 above provided that you also do one of the following:
|
||||
|
||||
a) Accompany it with the complete corresponding machine-readable
|
||||
source code, which must be distributed under the terms of Sections
|
||||
1 and 2 above on a medium customarily used for software interchange; or,
|
||||
|
||||
b) Accompany it with a written offer, valid for at least three
|
||||
years, to give any third party, for a charge no more than your
|
||||
cost of physically performing source distribution, a complete
|
||||
machine-readable copy of the corresponding source code, to be
|
||||
distributed under the terms of Sections 1 and 2 above on a medium
|
||||
customarily used for software interchange; or,
|
||||
|
||||
c) Accompany it with the information you received as to the offer
|
||||
to distribute corresponding source code. (This alternative is
|
||||
allowed only for noncommercial distribution and only if you
|
||||
received the program in object code or executable form with such
|
||||
an offer, in accord with Subsection b above.)
|
||||
|
||||
The source code for a work means the preferred form of the work for
|
||||
making modifications to it. For an executable work, complete source
|
||||
code means all the source code for all modules it contains, plus any
|
||||
associated interface definition files, plus the scripts used to
|
||||
control compilation and installation of the executable. However, as a
|
||||
special exception, the source code distributed need not include
|
||||
anything that is normally distributed (in either source or binary
|
||||
form) with the major components (compiler, kernel, and so on) of the
|
||||
operating system on which the executable runs, unless that component
|
||||
itself accompanies the executable.
|
||||
|
||||
If distribution of executable or object code is made by offering
|
||||
access to copy from a designated place, then offering equivalent
|
||||
access to copy the source code from the same place counts as
|
||||
distribution of the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
4. You may not copy, modify, sublicense, or distribute the Program
|
||||
except as expressly provided under this License. Any attempt
|
||||
otherwise to copy, modify, sublicense or distribute the Program is
|
||||
void, and will automatically terminate your rights under this License.
|
||||
However, parties who have received copies, or rights, from you under
|
||||
this License will not have their licenses terminated so long as such
|
||||
parties remain in full compliance.
|
||||
|
||||
5. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Program or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Program (or any work based on the
|
||||
Program), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Program or works based on it.
|
||||
|
||||
6. Each time you redistribute the Program (or any work based on the
|
||||
Program), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute or modify the Program subject to
|
||||
these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties to
|
||||
this License.
|
||||
|
||||
7. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Program at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Program by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Program.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under
|
||||
any particular circumstance, the balance of the section is intended to
|
||||
apply and the section as a whole is intended to apply in other
|
||||
circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system, which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
8. If the distribution and/or use of the Program is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Program under this License
|
||||
may add an explicit geographical distribution limitation excluding
|
||||
those countries, so that distribution is permitted only in or among
|
||||
countries not thus excluded. In such case, this License incorporates
|
||||
the limitation as if written in the body of this License.
|
||||
|
||||
9. The Free Software Foundation may publish revised and/or new versions
|
||||
of the General Public License from time to time. Such new versions will
|
||||
be similar in spirit to the present version, but may differ in detail to
|
||||
address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the Program
|
||||
specifies a version number of this License which applies to it and "any
|
||||
later version", you have the option of following the terms and conditions
|
||||
either of that version or of any later version published by the Free
|
||||
Software Foundation. If the Program does not specify a version number of
|
||||
this License, you may choose any version ever published by the Free Software
|
||||
Foundation.
|
||||
|
||||
10. If you wish to incorporate parts of the Program into other free
|
||||
programs whose distribution conditions are different, write to the author
|
||||
to ask for permission. For software which is copyrighted by the Free
|
||||
Software Foundation, write to the Free Software Foundation; we sometimes
|
||||
make exceptions for this. Our decision will be guided by the two goals
|
||||
of preserving the free status of all derivatives of our free software and
|
||||
of promoting the sharing and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
|
||||
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
|
||||
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
|
||||
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
|
||||
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
|
||||
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
|
||||
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
|
||||
REPAIR OR CORRECTION.
|
||||
|
||||
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
|
||||
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
|
||||
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
|
||||
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
|
||||
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
|
||||
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
|
||||
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
|
||||
POSSIBILITY OF SUCH DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
How to Apply These Terms to Your New Programs
|
||||
|
||||
If you develop a new program, and you want it to be of the greatest
|
||||
possible use to the public, the best way to achieve this is to make it
|
||||
free software which everyone can redistribute and change under these terms.
|
||||
|
||||
To do so, attach the following notices to the program. It is safest
|
||||
to attach them to the start of each source file to most effectively
|
||||
convey the exclusion of warranty; and each file should have at least
|
||||
the "copyright" line and a pointer to where the full notice is found.
|
||||
|
||||
<one line to give the program's name and a brief idea of what it does.>
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License along
|
||||
with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
|
||||
Also add information on how to contact you by electronic and paper mail.
|
||||
|
||||
If the program is interactive, make it output a short notice like this
|
||||
when it starts in an interactive mode:
|
||||
|
||||
Gnomovision version 69, Copyright (C) year name of author
|
||||
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
|
||||
This is free software, and you are welcome to redistribute it
|
||||
under certain conditions; type `show c' for details.
|
||||
|
||||
The hypothetical commands `show w' and `show c' should show the appropriate
|
||||
parts of the General Public License. Of course, the commands you use may
|
||||
be called something other than `show w' and `show c'; they could even be
|
||||
mouse-clicks or menu items--whatever suits your program.
|
||||
|
||||
You should also get your employer (if you work as a programmer) or your
|
||||
school, if any, to sign a "copyright disclaimer" for the program, if
|
||||
necessary. Here is a sample; alter the names:
|
||||
|
||||
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
|
||||
`Gnomovision' (which makes passes at compilers) written by James Hacker.
|
||||
|
||||
<signature of Ty Coon>, 1 April 1989
|
||||
Ty Coon, President of Vice
|
||||
|
||||
This General Public License does not permit incorporating your program into
|
||||
proprietary programs. If your program is a subroutine library, you may
|
||||
consider it more useful to permit linking proprietary applications with the
|
||||
library. If this is what you want to do, use the GNU Lesser General
|
||||
Public License instead of this License.
|
4
sites/all/modules/contrib/mail/maillog/README.txt
Normal file
4
sites/all/modules/contrib/mail/maillog/README.txt
Normal file
@@ -0,0 +1,4 @@
|
||||
|
||||
This module defines drupal_mail_wrapper(), which takes over the handling of mail sending. This wrapper creates a node of type 'Logged Mail', a node type created by the module, sends the e-mail, and displays the e-mail and its details by using devel module API. All 3 tasks can be enabled/disabled from 'admin/settings/maillog'.
|
||||
|
||||
The invoking of the handler depends on a system variable 'smtp_library'. Unfortunately, some modules may change the value of this variable, rendering the module dysfunctional. Simply disabling and re-enabling the module should fix this problem. Check 'admin/reports/status' to see the status of the SMTP library.
|
107
sites/all/modules/contrib/mail/maillog/includes/maillog.mail.inc
Normal file
107
sites/all/modules/contrib/mail/maillog/includes/maillog.mail.inc
Normal file
@@ -0,0 +1,107 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* An interface for pluggable mail back-ends.
|
||||
*/
|
||||
class MaillogMailSystem implements MailSystemInterface {
|
||||
/**
|
||||
* Format a message composed by drupal_mail() prior sending.
|
||||
*
|
||||
* @param $message
|
||||
* A message array, as described in hook_mail_alter().
|
||||
*
|
||||
* @return
|
||||
* The formatted $message.
|
||||
*/
|
||||
public function format(array $message) {
|
||||
$default = new DefaultMailSystem();
|
||||
return $default->format($message);
|
||||
}
|
||||
|
||||
/**
|
||||
* Send a message composed by drupal_mail().
|
||||
*
|
||||
* @param $message
|
||||
* Message array with at least the following elements:
|
||||
* - id: A unique identifier of the e-mail type. Examples: 'contact_user_copy',
|
||||
* 'user_password_reset'.
|
||||
* - to: The mail address or addresses where the message will be sent to.
|
||||
* The formatting of this string must comply with RFC 2822. Some examples:
|
||||
* - user@example.com
|
||||
* - user@example.com, anotheruser@example.com
|
||||
* - User <user@example.com>
|
||||
* - User <user@example.com>, Another User <anotheruser@example.com>
|
||||
* - subject: Subject of the e-mail to be sent. This must not contain any
|
||||
* newline characters, or the mail may not be sent properly.
|
||||
* - body: Message to be sent. Accepts both CRLF and LF line-endings.
|
||||
* E-mail bodies must be wrapped. You can use drupal_wrap_mail() for
|
||||
* smart plain text wrapping.
|
||||
* - headers: Associative array containing all additional mail headers not
|
||||
* defined by one of the other parameters. PHP's mail() looks for Cc
|
||||
* and Bcc headers and sends the mail to addresses in these headers too.
|
||||
*
|
||||
* @return
|
||||
* TRUE if the mail was successfully accepted for delivery, otherwise FALSE.
|
||||
*/
|
||||
public function mail(array $message) {
|
||||
// Log the e-mail
|
||||
if (variable_get('maillog_log', TRUE)) {
|
||||
$record = new stdClass;
|
||||
|
||||
// In case the subject/from/to is already encoded, decode with mime_header_decode
|
||||
$record->header_message_id = isset($message['headers']['Message-ID']) ? $message['headers']['Message-ID'] : NULL;
|
||||
$record->subject = $message['subject'];
|
||||
$record->subject = mime_header_decode($record->subject);
|
||||
$record->body = $message['body'];
|
||||
$record->header_from = isset($message['from']) ? $message['from'] : NULL;
|
||||
$record->header_from = mime_header_decode($record->header_from);
|
||||
|
||||
$header_to = array();
|
||||
if (isset($message['to'])) {
|
||||
if (is_array($message['to'])) {
|
||||
foreach($message['to'] as $value) {
|
||||
$header_to[] = mime_header_decode($value);
|
||||
}
|
||||
}
|
||||
else {
|
||||
$header_to[] = mime_header_decode($message['to']);
|
||||
}
|
||||
}
|
||||
$record->header_to = implode(', ', $header_to);
|
||||
|
||||
$record->header_reply_to = isset($message['headers']['Reply-To']) ? $message['headers']['Reply-To'] : '';
|
||||
$record->header_all = serialize($message['headers']);
|
||||
$record->sent_date = REQUEST_TIME;
|
||||
|
||||
drupal_write_record('maillog', $record);
|
||||
}
|
||||
|
||||
// Display the e-mail using Devel module
|
||||
if (variable_get('maillog_devel', TRUE) && function_exists('dpm')) {
|
||||
$devel_msg = array();
|
||||
$devel_msg[t('Subject')] = $message['subject'];
|
||||
$devel_msg[t('From')] = $message['from'];
|
||||
$devel_msg[t('To')] = $message['to'];
|
||||
$devel_msg[t('Reply-To')] = isset($message['reply_to']) ? $message['reply_to'] : NULL;
|
||||
$devel_msg[t('Header')] = $message['headers'];
|
||||
$devel_msg[t('Body')] = $message['body'];
|
||||
|
||||
dpm($devel_msg, 'maillog');
|
||||
}
|
||||
|
||||
if (variable_get('maillog_send', TRUE)) {
|
||||
$default = new DefaultMailSystem();
|
||||
$result = $default->mail($message);
|
||||
}
|
||||
elseif (user_access('administer maillog')) {
|
||||
$message = t('Sending of e-mail messages is disabled by Maillog module. Go <a href="@href">here</a> to enable.', array('@href' => url('admin/reports/maillog')));
|
||||
|
||||
drupal_set_message($message, 'warning', TRUE);
|
||||
}
|
||||
else {
|
||||
global $user;
|
||||
watchdog('maillog', 'Attempted to send an email, but sending emails is disabled.');
|
||||
}
|
||||
return isset($result) ? $result : TRUE;
|
||||
}
|
||||
}
|
@@ -0,0 +1,210 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Make the fields from node type 'Logged Mail' available in views
|
||||
*/
|
||||
|
||||
/**
|
||||
* Implementation of hook_views_data().
|
||||
*/
|
||||
function maillog_views_data() {
|
||||
$data['maillog']['table']['group'] = t('Maillog');
|
||||
|
||||
$data['maillog']['table']['base'] = array(
|
||||
'field' => 'idmaillog',
|
||||
'title' => t('Maillog'),
|
||||
'help' => t("This table contains the logged e-mails."),
|
||||
'weight' => -10,
|
||||
);
|
||||
|
||||
$data['maillog']['idmaillog'] = array(
|
||||
'title' => t('Maillog_ID'),
|
||||
'help' => t('The primary key of the maillog table.'),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['header_message_id'] = array(
|
||||
'title' => t('Message_ID'),
|
||||
'help' => t("The 'Message_ID' e-mail address."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['header_from'] = array(
|
||||
'title' => t('From'),
|
||||
'help' => t("The 'From' field of the e-mail address."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['header_to'] = array(
|
||||
'title' => t('To'),
|
||||
'help' => t("The 'To' field of the e-mail address."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['header_reply_to'] = array(
|
||||
'title' => t('Reply To'),
|
||||
'help' => t("The 'Reply-To' field of the e-mail address."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['header_all'] = array(
|
||||
'title' => t('Header'),
|
||||
'help' => t("The 'Header' field of the e-mail."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['body'] = array(
|
||||
'title' => t('Body'),
|
||||
'help' => t("The 'Body' field of the e-mail."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['subject'] = array(
|
||||
'title' => t('Subject'),
|
||||
'help' => t("The 'Subject' field of the e-mail."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_string',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['sent_date'] = array(
|
||||
'title' => t('Date'),
|
||||
'help' => t("The 'Date' field of the e-mail."),
|
||||
'field' => array(
|
||||
'handler' => 'views_handler_field_date',
|
||||
'click sortable' => TRUE,
|
||||
),
|
||||
'sort' => array(
|
||||
'handler' => 'views_handler_sort_date',
|
||||
),
|
||||
'filter' => array(
|
||||
'handler' => 'views_handler_filter_date',
|
||||
),
|
||||
'argument' => array(
|
||||
'handler' => 'views_handler_argument_string',
|
||||
),
|
||||
);
|
||||
|
||||
$data['maillog']['delete_maillog'] = array(
|
||||
'field' => array(
|
||||
'title' => t('Delete link'),
|
||||
'help' => t('Provide a simple link to delete an eMail entry from the maillog table.'),
|
||||
'handler' => 'maillog_handler_field_maillog_link_delete',
|
||||
),
|
||||
);
|
||||
return $data;
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_views_handlers() to register all of the basic handlers
|
||||
* views uses.
|
||||
*/
|
||||
function maillog_views_handlers() {
|
||||
return array(
|
||||
'info' => array(
|
||||
'path' => drupal_get_path('module', 'maillog') . '/includes',
|
||||
),
|
||||
'handlers' => array(
|
||||
// field handlers
|
||||
'maillog_handler_field_maillog_link_delete' => array(
|
||||
'parent' => 'views_handler_field',
|
||||
),
|
||||
),
|
||||
);
|
||||
}
|
||||
|
@@ -0,0 +1,243 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Creates the default view for the 'Log Mail' module
|
||||
*/
|
||||
|
||||
/**
|
||||
* Implementation of hook_views_default_views().
|
||||
*/
|
||||
function maillog_views_default_views() {
|
||||
$view = new view;
|
||||
$view->name = 'Maillog';
|
||||
$view->description = 'Displays the list of e-mails logged by the \'Mail Log\' module.';
|
||||
$view->tag = '';
|
||||
$view->view_php = '';
|
||||
$view->base_table = 'maillog';
|
||||
$view->is_cacheable = FALSE;
|
||||
$view->api_version = 2;
|
||||
$view->disabled = FALSE; /* Edit this to true to make a default view disabled initially */
|
||||
$handler = $view->new_display('default', 'Defaults', 'default');
|
||||
$handler->override_option('fields', array(
|
||||
'idmaillog' => array(
|
||||
'label' => 'Maillog_ID',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 0,
|
||||
'path' => '',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 1,
|
||||
'id' => 'idmaillog',
|
||||
'table' => 'maillog',
|
||||
'field' => 'idmaillog',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
'sent_date' => array(
|
||||
'label' => 'Date',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 0,
|
||||
'path' => '',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 0,
|
||||
'id' => 'sent_date',
|
||||
'table' => 'maillog',
|
||||
'field' => 'sent_date',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
'header_message_id' => array(
|
||||
'id' => 'header_message_id',
|
||||
'table' => 'maillog',
|
||||
'field' => 'header_message_id',
|
||||
),
|
||||
'subject' => array(
|
||||
'label' => 'Subject',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 1,
|
||||
'path' => 'maillog/details/[idmaillog]',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 0,
|
||||
'id' => 'subject',
|
||||
'table' => 'maillog',
|
||||
'field' => 'subject',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
'header_from' => array(
|
||||
'label' => 'From',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 0,
|
||||
'path' => '',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 0,
|
||||
'id' => 'header_from',
|
||||
'table' => 'maillog',
|
||||
'field' => 'header_from',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
'header_to' => array(
|
||||
'label' => 'To',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 0,
|
||||
'path' => '',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 0,
|
||||
'id' => 'header_to',
|
||||
'table' => 'maillog',
|
||||
'field' => 'header_to',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
'delete_maillog' => array(
|
||||
'label' => 'Delete link',
|
||||
'alter' => array(
|
||||
'alter_text' => 0,
|
||||
'text' => '',
|
||||
'make_link' => 0,
|
||||
'path' => '',
|
||||
'link_class' => '',
|
||||
'alt' => '',
|
||||
'prefix' => '',
|
||||
'suffix' => '',
|
||||
'target' => '',
|
||||
'help' => '',
|
||||
'trim' => 0,
|
||||
'max_length' => '',
|
||||
'word_boundary' => 1,
|
||||
'ellipsis' => 1,
|
||||
'html' => 0,
|
||||
'strip_tags' => 0,
|
||||
),
|
||||
'empty' => '',
|
||||
'hide_empty' => 0,
|
||||
'empty_zero' => 0,
|
||||
'exclude' => 0,
|
||||
'id' => 'delete_maillog',
|
||||
'table' => 'maillog',
|
||||
'field' => 'delete_maillog',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
));
|
||||
$handler->override_option('sorts', array(
|
||||
'sent_date' => array(
|
||||
'order' => 'DESC',
|
||||
'id' => 'sent_date',
|
||||
'table' => 'maillog',
|
||||
'field' => 'sent_date',
|
||||
'relationship' => 'none',
|
||||
),
|
||||
));
|
||||
$handler->override_option('access', array(
|
||||
'type' => 'perm',
|
||||
'perm' => 'view maillog',
|
||||
));
|
||||
$handler->override_option('cache', array(
|
||||
'type' => 'none',
|
||||
));
|
||||
$handler->override_option('title', 'Maillog');
|
||||
$handler->override_option('empty', 'Maillog is currently empty. Send a mail!');
|
||||
$handler->override_option('empty_format', '1');
|
||||
$handler->override_option('use_pager', '1');
|
||||
$handler->override_option('style_plugin', 'table');
|
||||
$handler = $view->new_display('page', 'Page', 'page_1');
|
||||
$handler->override_option('path', 'admin/reports/maillog');
|
||||
$handler->override_option('menu', array(
|
||||
'type' => 'normal',
|
||||
'title' => 'Maillog',
|
||||
'description' => 'Show the logged mails',
|
||||
'weight' => '0',
|
||||
'name' => 'management',
|
||||
));
|
||||
$handler->override_option('tab_options', array(
|
||||
'type' => 'none',
|
||||
'title' => '',
|
||||
'description' => '',
|
||||
'weight' => 0,
|
||||
'name' => 'navigation',
|
||||
));
|
||||
|
||||
$views[$view->name] = $view;
|
||||
return $views;
|
||||
}
|
@@ -0,0 +1,31 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Handler for providing an 'Delete link' in views
|
||||
*/
|
||||
|
||||
class maillog_handler_field_maillog_entry_link_delete extends views_handler_field {
|
||||
function construct() {
|
||||
parent::construct();
|
||||
$this->additional_fields['maillog_id'] = 'maillog_id';
|
||||
}
|
||||
|
||||
/**
|
||||
* Called to add the field to a query.
|
||||
*/
|
||||
function query() {
|
||||
$this->ensure_my_table();
|
||||
$this->add_additional_fields();
|
||||
}
|
||||
|
||||
function render($values) {
|
||||
// ensure user has access to edit this node.
|
||||
if (!user_access('delete maillog')) {
|
||||
return;
|
||||
}
|
||||
$text = !empty($this->options['text']) ? $this->options['text'] : t('delete');
|
||||
return l($text, "maillog/delete/$values->maillog_id", array('query' => drupal_get_destination()));
|
||||
}
|
||||
}
|
||||
|
@@ -0,0 +1,31 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Handler for providing an 'Delete link' in views
|
||||
*/
|
||||
|
||||
class maillog_handler_field_maillog_link_delete extends views_handler_field {
|
||||
function construct() {
|
||||
parent::construct();
|
||||
$this->additional_fields['idmaillog'] = 'idmaillog';
|
||||
}
|
||||
|
||||
/**
|
||||
* Called to add the field to a query.
|
||||
*/
|
||||
function query() {
|
||||
$this->ensure_my_table();
|
||||
$this->add_additional_fields();
|
||||
}
|
||||
|
||||
function render($values) {
|
||||
// ensure user has access to edit this node.
|
||||
if (!user_access('delete maillog')) {
|
||||
return;
|
||||
}
|
||||
$text = !empty($this->options['text']) ? $this->options['text'] : t('delete');
|
||||
return l($text, "maillog/delete/$values->idmaillog", array('query' => drupal_get_destination()));
|
||||
}
|
||||
}
|
||||
|
19
sites/all/modules/contrib/mail/maillog/maillog.info
Normal file
19
sites/all/modules/contrib/mail/maillog/maillog.info
Normal file
@@ -0,0 +1,19 @@
|
||||
name = Maillog / Mail Developer
|
||||
description = Utility to log all Mails for debugging purposes. It's possible to suppress mail delivery for e.g. dev or staging systems.
|
||||
package = Mail
|
||||
core = 7.x
|
||||
|
||||
dependencies[] = views
|
||||
|
||||
configure = admin/config/development/maillog
|
||||
|
||||
files[] = includes/maillog.mail.inc
|
||||
files[] = includes/maillog_handler_field_maillog_entry_link_delete.inc
|
||||
files[] = includes/maillog_handler_field_maillog_link_delete.inc
|
||||
|
||||
; Information added by drupal.org packaging script on 2012-02-13
|
||||
version = "7.x-1.x-dev"
|
||||
core = "7.x"
|
||||
project = "maillog"
|
||||
datestamp = "1329135676"
|
||||
|
97
sites/all/modules/contrib/mail/maillog/maillog.install
Normal file
97
sites/all/modules/contrib/mail/maillog/maillog.install
Normal file
@@ -0,0 +1,97 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Provides the installation routines for the maillog module
|
||||
*/
|
||||
|
||||
/**
|
||||
* Implementation of hook_enable().
|
||||
*/
|
||||
function maillog_enable() {
|
||||
$mail_system = variable_get('mail_system', array('default-system' => 'DefaultMailSystem'));
|
||||
$mail_system['maillog'] = 'MaillogMailSystem';
|
||||
$mail_system['default-system'] = $mail_system['maillog'];
|
||||
variable_set('mail_system', $mail_system);
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_disable().
|
||||
*
|
||||
* Removing smtp_libraries settings.
|
||||
*
|
||||
* If the smptp_library variable refers to the maillog_smtp_library the variable will be resetted. It does not make sense to backup the smtp_library
|
||||
* when enabling the maillog module, because before restoring when the maillog module gets disabled another module could changed the smtp variable.
|
||||
*/
|
||||
function maillog_disable() {
|
||||
$mail_system = variable_get('mail_system', array('default-system' => 'DefaultMailSystem'));
|
||||
unset($mail_system['maillog']);
|
||||
$mail_system['default-system'] = 'DefaultMailSystem';
|
||||
variable_set('mail_system', $mail_system);
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_schema().
|
||||
*/
|
||||
function maillog_schema() {
|
||||
$schema['maillog'] = array(
|
||||
'description' => t("Stores outgoing e-mail details for nodes of type 'maillog'."),
|
||||
'fields' => array(
|
||||
'idmaillog' => array(
|
||||
'type' => 'serial',
|
||||
'unsigned' => TRUE,
|
||||
'not null' => TRUE,
|
||||
'description' => t("The mail_log {node}.nid"),
|
||||
),
|
||||
'header_message_id' => array(
|
||||
'type' => 'varchar',
|
||||
'length' => 255,
|
||||
'not null' => TRUE,
|
||||
'default' => '',
|
||||
'description' => t("The 'message-id' field of the e-mail."),
|
||||
),
|
||||
'header_from' => array(
|
||||
'type' => 'text',
|
||||
'not null' => TRUE,
|
||||
'description' => t("The 'From' field of the e-mail."),
|
||||
),
|
||||
'header_to' => array(
|
||||
'type' => 'text',
|
||||
'not null' => TRUE,
|
||||
'description' => t("The 'To' field of the e-mail."),
|
||||
),
|
||||
'header_reply_to' => array(
|
||||
'type' => 'text',
|
||||
'not null' => TRUE,
|
||||
'description' => t("The 'Reply-To' field of the e-mail."),
|
||||
),
|
||||
'header_all' => array(
|
||||
'type' => 'text',
|
||||
'not null' => TRUE,
|
||||
'description' => t("The 'Header' field of the e-mail."),
|
||||
),
|
||||
'subject' => array(
|
||||
'description' => t("The 'Subject' fieldof the e-mail."),
|
||||
'type' => 'varchar',
|
||||
'length' => 255,
|
||||
'not null' => TRUE,
|
||||
'default' => '',
|
||||
),
|
||||
'body' => array(
|
||||
'description' => 'The body of this version.',
|
||||
'type' => 'text',
|
||||
'not null' => TRUE,
|
||||
'size' => 'big'
|
||||
),
|
||||
'sent_date' => array(
|
||||
'description' => 'The Unix timestamp when the mail was sent.',
|
||||
'type' => 'int',
|
||||
'not null' => TRUE,
|
||||
'default' => 0,
|
||||
),
|
||||
),
|
||||
'primary key' => array('idmaillog'),
|
||||
);
|
||||
|
||||
return $schema;
|
||||
}
|
284
sites/all/modules/contrib/mail/maillog/maillog.module
Normal file
284
sites/all/modules/contrib/mail/maillog/maillog.module
Normal file
@@ -0,0 +1,284 @@
|
||||
<?php
|
||||
|
||||
/**
|
||||
* @file
|
||||
* Provides a 'maillog' node type
|
||||
*
|
||||
* @todo: better implementation of detail link
|
||||
*
|
||||
*
|
||||
* Extensibility of maillog engines is based on the mimemail engine hooks.
|
||||
* See mimemail_get_engines in mimemail.module with
|
||||
* Please install mimemail to make the outgoing engine pluggable.
|
||||
*
|
||||
* mail flow:
|
||||
* drupal_mail -> maillog:drupal_mail_wrapper -> maillog_mail_send
|
||||
* mimemail -> maillog_mailengine -> maillog_mail_send [-> ANY_engine]
|
||||
*/
|
||||
|
||||
/**
|
||||
* Implementation of hook_permision().
|
||||
*/
|
||||
function maillog_permission() {
|
||||
return array('view maillog' => array(
|
||||
'title' => t('View Maillog'),
|
||||
'description' => t('Allow users to view a list of recently logged mails.'),
|
||||
),
|
||||
'delete maillog' => array(
|
||||
'title' => t('Delete Entries from the log'),
|
||||
'description' => t('Allow users to delete logged mails.'),
|
||||
),
|
||||
'administer maillog' => array(
|
||||
'title' => t('Administer Maillog'),
|
||||
'description' => t('Allow users to change maillog seetings.'),
|
||||
)
|
||||
);
|
||||
}
|
||||
|
||||
function maillog_maillog_delete($maillog) {
|
||||
$idmaillog = $maillog['idmaillog'];
|
||||
$result = db_query("DELETE FROM {maillog} WHERE idmaillog = :id", array(':id' => $idmaillog));
|
||||
if ($result == FALSE) {
|
||||
drupal_set_message(t('A Problem occured when deleting Mail with idmaillog !idmaillog !', array('!idmaillog' => $idmaillog)));
|
||||
}
|
||||
else {
|
||||
drupal_set_message(t('Mail with idmaillog !idmaillog has been deleted!', array('!idmaillog' => $idmaillog)));
|
||||
}
|
||||
drupal_goto('admin/reports/maillog');
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_menu().
|
||||
*/
|
||||
function maillog_menu() {
|
||||
$items = array();
|
||||
|
||||
$items['admin/config/development/maillog'] = array(
|
||||
'title' => t('Maillog Settings'),
|
||||
'description' => t('Configure the settings of Maillog module.'),
|
||||
'page callback' => 'drupal_get_form',
|
||||
'page arguments' => array('maillog_admin_settings'),
|
||||
'access arguments' => array('administer maillog'),
|
||||
'type' => MENU_NORMAL_ITEM,
|
||||
);
|
||||
|
||||
$items['maillog/delete/%maillog_maillog'] = array(
|
||||
'title' => t("Delete Maillog from 'maillog' Table"),
|
||||
'description' => t("Delete the Maillog with the idmaillog given by the parameter from 'maillog' Table"),
|
||||
'page callback' => 'maillog_maillog_delete',
|
||||
'page arguments' => array(2),
|
||||
'access arguments' => array('delete maillog'),
|
||||
'type' => MENU_CALLBACK,
|
||||
);
|
||||
$items['maillog/details/%maillog_maillog'] = array(
|
||||
'title callback' => 'maillog_maillog_title',
|
||||
'title arguments' => array(2),
|
||||
'description' => t("Delete the Maillog with the idmaillog given by the parameter from 'maillog' Table"),
|
||||
'page callback' => 'maillog_maillog_page',
|
||||
'page arguments' => array(2),
|
||||
'access arguments' => array('view maillog'),
|
||||
'type' => MENU_CALLBACK,
|
||||
);
|
||||
|
||||
return $items;
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
function maillog_maillog_title($maillog) {
|
||||
return $maillog['subject'];
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
function maillog_maillog_load($idmaillog) {
|
||||
$result = db_query("SELECT idmaillog, header_from, header_to, header_reply_to, header_all, subject, body FROM {maillog} WHERE idmaillog=:id", array(
|
||||
':id' => $idmaillog,
|
||||
));
|
||||
if ($result == FALSE) {
|
||||
$maillog = NULL;
|
||||
}
|
||||
else {
|
||||
$maillog = $result->fetchAssoc();
|
||||
// unserialize values
|
||||
$maillog['header_all'] = unserialize($maillog['header_all']);
|
||||
}
|
||||
return $maillog;
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
function maillog_maillog_page($maillog) {
|
||||
return theme('maillog', array('maillog' => $maillog));
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of the module settings form.
|
||||
*/
|
||||
function maillog_admin_settings() {
|
||||
$form = array();
|
||||
|
||||
$form['maillog_send'] = array(
|
||||
'#type' => 'checkbox',
|
||||
'#title' => t("Allow the e-mails to be sent."),
|
||||
'#default_value' => variable_get('maillog_send', TRUE),
|
||||
);
|
||||
|
||||
$form['maillog_log'] = array(
|
||||
'#type' => 'checkbox',
|
||||
'#title' => t("Create table entries in maillog table for each e-mail."),
|
||||
'#default_value' => variable_get('maillog_log', TRUE),
|
||||
);
|
||||
|
||||
$form['maillog_devel'] = array(
|
||||
'#type' => 'checkbox',
|
||||
'#title' => t("Display the e-mails on page using devel module (if enabled)."),
|
||||
'#default_value' => variable_get('maillog_devel', TRUE),
|
||||
);
|
||||
if (module_exists('mimemail')) {
|
||||
$engines = mimemail_get_engines();
|
||||
// maillog will be unset, because ist would cause an recursion
|
||||
unset($engines['maillog']);
|
||||
$form['maillog_engine'] = array(
|
||||
'#type' => 'select',
|
||||
'#title' => t("Select the mailengine which should be used."),
|
||||
'#default_value' => variable_get('maillog_engine', 'mimemail'),
|
||||
'#options' => $engines,
|
||||
);
|
||||
}
|
||||
return system_settings_form($form);
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_views_api().
|
||||
*/
|
||||
function maillog_views_api() {
|
||||
return array(
|
||||
'api' => 3,
|
||||
'path' => drupal_get_path('module', 'maillog') . '/includes/',
|
||||
);
|
||||
}
|
||||
|
||||
/**
|
||||
* Implementation of hook_theme().
|
||||
*/
|
||||
function maillog_theme() {
|
||||
return array(
|
||||
'maillog_header_from' => array(
|
||||
'variables' => array('header_from' => NULL),
|
||||
),
|
||||
'maillog_header_to' => array(
|
||||
'variables' => array('header_to' => NULL),
|
||||
),
|
||||
'maillog_header_reply_to' => array(
|
||||
'variables' => array('header_reply_to' => NULL),
|
||||
),
|
||||
'maillog_header_all' => array(
|
||||
'variables' => array('header_all' => NULL),
|
||||
),
|
||||
'maillog_body' => array(
|
||||
'variables' => array('body' => NULL),
|
||||
),
|
||||
'maillog' => array(
|
||||
'variables' => array('maillog' => NULL),
|
||||
),
|
||||
);
|
||||
}
|
||||
|
||||
/**
|
||||
* Render the 'From' field in the node type 'Logged Mail'
|
||||
*/
|
||||
function theme_maillog_header_from($variables) {
|
||||
$output = '';
|
||||
|
||||
$output .= '<div class="field mail-log-header-from">';
|
||||
$output .= '<div class="field-label">' . t('From') . ':</div>';
|
||||
$output .= '<div class="field-item">' . check_plain($variables['header_from']) . '</div>';
|
||||
$output .= '</div>';
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
function theme_maillog($variables) {
|
||||
$output = theme( 'maillog_header_from', array('header_from' => $variables['maillog']['header_from']) );
|
||||
$output .= theme( 'maillog_header_to', array('header_to' => $variables['maillog']['header_to']) );
|
||||
$output .= theme( 'maillog_header_reply_to', array('header_reply_to' => $variables['maillog']['header_reply_to']) );
|
||||
$output .= theme( 'maillog_header_all', array('header_all' => $variables['maillog']['header_all']) );
|
||||
$output .= theme( 'maillog_body', array('body' => $variables['maillog']['body']) );
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Render the 'To' field in the node type 'Logged Mail'
|
||||
*/
|
||||
function theme_maillog_header_to($variables) {
|
||||
$output = '';
|
||||
|
||||
$output .= '<div class="field mail-log-header-to">';
|
||||
$output .= '<div class="field-label">' . t('To') . ':</div>';
|
||||
$output .= '<div class="field-item">' . check_plain($variables['header_to']) . '</div>';
|
||||
$output .= '</div>';
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
/**
|
||||
* Render the 'Reply-To' field in the node type 'Logged Mail'
|
||||
*/
|
||||
function theme_maillog_header_reply_to($variables) {
|
||||
$output = '';
|
||||
|
||||
$output .= '<div class="field mail-log-header-reply-to">';
|
||||
$output .= '<div class="field-label">' . t('Reply To') . ':</div>';
|
||||
$output .= '<div class="field-item">' . check_plain($variables['header_reply_to']) . '</div>';
|
||||
$output .= '</div>';
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
/**
|
||||
* Render the 'Header' field in the node type 'Logged Mail'
|
||||
*/
|
||||
function theme_maillog_header_all($variables) {
|
||||
$output = '';
|
||||
|
||||
$output .= '<div class="field mail-log-header-all">';
|
||||
$output .= '<div class="field-label">' . t('Header') . ':</div>';
|
||||
$output .= '<div class="field-item">';
|
||||
|
||||
foreach ($variables['header_all'] as $header_all_name => $header_all_value) {
|
||||
$output .= '<div class="mail-log-header-all-subitem">';
|
||||
$output .= check_plain($header_all_name) . ': ' . check_plain($header_all_value);
|
||||
$output .= '</div>';
|
||||
}
|
||||
|
||||
$output .= '</div>';
|
||||
$output .= '</div>';
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
/**
|
||||
* Render the 'Body' field in the node type 'Logged Mail'
|
||||
*/
|
||||
function theme_maillog_body($variables) {
|
||||
$output = '';
|
||||
|
||||
$output .= '<div class="field mail-log-body">';
|
||||
$output .= '<div class="field-label">' . t('Body') . ':</div>';
|
||||
$output .= '<div class="field-item">';
|
||||
$output .= '<pre>';
|
||||
$output .= check_plain($variables['body']);
|
||||
$output .= '</pre>';
|
||||
$output .= '</div>';
|
||||
$output .= '</div>';
|
||||
|
||||
return $output;
|
||||
}
|
24
sites/all/modules/contrib/mail/maillog/maillog_test.bsh
Normal file
24
sites/all/modules/contrib/mail/maillog/maillog_test.bsh
Normal file
@@ -0,0 +1,24 @@
|
||||
#!/bin/bash
|
||||
|
||||
drush --always-set vset devel_old_smtp_library "foo/bar";
|
||||
drush --always-set vset smtp_library "foo/bar";
|
||||
drush vget smtp_library
|
||||
echo -e "\n\t\tUninstall with variables set to 'foo/bar':\n"
|
||||
echo y | drush dis maillog
|
||||
echo y | drush pm-uninstall maillog
|
||||
echo -e "\n\t\t Show variables:\n"
|
||||
drush vget smtp_library
|
||||
echo y | drush en maillog
|
||||
echo -e "\n\t\t Show variables after installation:\n"
|
||||
drush vget smtp_library
|
||||
drush --always-set vset devel_old_smtp_library "sites/all/modules/maillog/includes/maillog.inc";
|
||||
drush vget smtp_library
|
||||
echo -e "\n\t\tUninstall with variables set to 'sites/all/modules/maillog/includes/maillog.inc:\n"
|
||||
echo y | drush dis maillog
|
||||
echo y | drush pm-uninstall maillog
|
||||
echo -e "\n\t\t Show variables:\n"
|
||||
drush vget smtp_library
|
||||
echo y | drush en maillog
|
||||
echo -e "\n\t\t Show variables after installation:\n"
|
||||
drush vget smtp_library
|
||||
|
Reference in New Issue
Block a user