Mail-Toaster
view release on metacpan or search on metacpan
5.37 - Apr 18, 2013
added bin/email_restore.pl (thx Alex R.)
pkgng support additions (Rob Lensen)
some support for running with qpsmtpd
5.35 - Oct 23, 2012
api change for get_dir_files, clean_tmp_dir, file_delete
moved subs from Toaster to Utility: audit, error, dump_audit, dump_errors, has_module, find_config, find_readable, get_std_args, parse_config & parse_line
replaced non-ASCII ⢠with *
added IO::Socket::SSL to bin/install_deps
check just the 'standard' places for httpd.conf instead of using `find $dir`
apache test failed if no httpd.conf found on test machines, this is quite likely. The lack of finding the file now skips the test.
more argument unpacking with get_std_args
toaster-watcher attempts to create missing service dirs
added 'quiet' to %std_args (was manually passing it around)
removed qmail_service_* settings
5.33 - Oct 13, 2012
updated path to maildir-deliverquota
updated path to freshclam.log
"CGI" : "1",
"DBI" : "1",
"Data::Dumper" : "0",
"Date::Parse" : "1",
"DateTime" : "0.5",
"Email::Valid" : "0",
"English" : "0",
"File::Basename" : "0",
"File::stat" : "0",
"Getopt::Long" : "0",
"IO::Socket::SSL" : "0",
"LWP" : "0",
"Mail::Send" : "0",
"Net::DNS" : "0.2",
"Params::Validate" : "0.7",
"Pod::Usage" : "0",
"Sys::Hostname" : "0",
"URI" : "0",
"perl" : "5.008001",
"version" : "0"
}
CGI: '1'
DBI: '1'
Data::Dumper: '0'
Date::Parse: '1'
DateTime: '0.5'
Email::Valid: '0'
English: '0'
File::Basename: '0'
File::stat: '0'
Getopt::Long: '0'
IO::Socket::SSL: '0'
LWP: '0'
Mail::Send: '0'
Net::DNS: '0.2'
Params::Validate: '0.7'
Pod::Usage: '0'
Sys::Hostname: '0'
URI: '0'
perl: '5.008001'
version: '0'
resources:
Makefile.PL view on Meta::CPAN
'Getopt::Long' => 0,
'Pod::Usage' => 0,
'Sys::Hostname' => 0,
# generally CPAN
'CGI' => 1,
'Date::Parse' => 1,
'DateTime' => 0.5,
'DBI' => 1,
'Email::Valid' => 0,
'IO::Socket::SSL' => 0,
'LWP' => 0,
'Net::DNS' => 0.20,
'Mail::Send' => 0,
'Params::Validate' => .7,
'URI' => 0,
'version' => 0,
# 'HTML::Template' => 1, # no longer
},
# 'ENABLES_ADDITIONAL_FEATURES' => {
doc/Changes.html view on Meta::CPAN
<pre><code> added bin/email_restore.pl (thx Alex R.)
pkgng support additions (Rob Lensen)
some support for running with qpsmtpd</code></pre>
<h2 id="Oct-23-2012">5.35 - Oct 23, 2012</h2>
<pre><code> api change for get_dir_files, clean_tmp_dir, file_delete
moved subs from Toaster to Utility: audit, error, dump_audit, dump_errors, has_module, find_config, find_readable, get_std_args, parse_config & parse_line
replaced non-ASCII • with *
added IO::Socket::SSL to bin/install_deps
check just the 'standard' places for httpd.conf instead of using `find $dir`
apache test failed if no httpd.conf found on test machines, this is quite likely. The lack of finding the file now skips the test.
more argument unpacking with get_std_args
toaster-watcher attempts to create missing service dirs
added 'quiet' to %std_args (was manually passing it around)
removed qmail_service_* settings</code></pre>
<h2 id="Oct-13-2012">5.33 - Oct 13, 2012</h2>
<pre><code> updated path to maildir-deliverquota
doc/Changes.pod view on Meta::CPAN
added bin/email_restore.pl (thx Alex R.)
pkgng support additions (Rob Lensen)
some support for running with qpsmtpd
=head2 5.35 - Oct 23, 2012
api change for get_dir_files, clean_tmp_dir, file_delete
moved subs from Toaster to Utility: audit, error, dump_audit, dump_errors, has_module, find_config, find_readable, get_std_args, parse_config & parse_line
replaced non-ASCII ⢠with *
added IO::Socket::SSL to bin/install_deps
check just the 'standard' places for httpd.conf instead of using `find $dir`
apache test failed if no httpd.conf found on test machines, this is quite likely. The lack of finding the file now skips the test.
more argument unpacking with get_std_args
toaster-watcher attempts to create missing service dirs
added 'quiet' to %std_args (was manually passing it around)
removed qmail_service_* settings
=head2 5.33 - Oct 13, 2012
updated path to maildir-deliverquota
doc/modules/Setup.html view on Meta::CPAN
<dt id="test">test</dt>
<dd>
<p>Run a variety of tests to verify that your Mail::Toaster installation is working correctly.</p>
</dd>
</dl>
<h1 id="DEPENDENCIES">DEPENDENCIES</h1>
<pre><code> IO::Socket::SSL</code></pre>
<h1 id="AUTHOR">AUTHOR</h1>
<p>Matt Simerson - matt@tnpi.net</p>
<h1 id="SEE-ALSO">SEE ALSO</h1>
<p>The following are all perldoc pages:</p>
<pre><code> Mail::Toaster
lib/Mail/Toaster/Setup.pm view on Meta::CPAN
=item test
Run a variety of tests to verify that your Mail::Toaster installation is working correctly.
=back
=head1 DEPENDENCIES
IO::Socket::SSL
=head1 AUTHOR
Matt Simerson - matt@tnpi.net
=head1 SEE ALSO
The following are all perldoc pages:
lib/Mail/Toaster/Setup/Test.pm view on Meta::CPAN
$imap->logout;
return;
};
sub imap_auth_ssl {
my $self = shift;
my $user = $self->conf->{'toaster_test_email'} || 'test2@example.com';
my $pass = $self->conf->{'toaster_test_email_pass'} || 'cHanGeMe';
my $r = $self->util->install_module( "IO::Socket::SSL", verbose => 0,);
$self->pretty( "checking IO::Socket::SSL ", $r);
if ( ! $r ) {
print "skipping IMAP SSL tests due to missing SSL support\n";
return;
};
require IO::Socket::SSL;
my $socket = IO::Socket::SSL->new(
PeerAddr => 'localhost',
PeerPort => 993,
Proto => 'tcp',
SSL_verify_mode => 'SSL_VERIFY_NONE',
);
$self->pretty( " imap SSL connection", $socket);
return if ! $socket;
print " connected with " . $socket->get_cipher . "\n";
print $socket ". login $user $pass\n";
lib/Mail/Toaster/Setup/Test.pm view on Meta::CPAN
my $host = $self->conf->{'pop3_ip_address_listen_on'} || 'localhost';
$host = "localhost" if ( $host =~ /system|qmail|all/i );
my $pop = Mail::POP3Client->new(
HOST => $host,
AUTH_MODE => $type,
$v->{ssl} ? ( USESSL => 1 ) : (),
);
if ( $v->{ssl} ) {
my $socket = IO::Socket::SSL->new( PeerAddr => $host,
PeerPort => 995,
SSL_verify_mode => 'SSL_VERIFY_NONE',
Proto => 'tcp',
)
or do { warn "No socket!"; return };
$pop->Socket($socket);
}
$pop->User($user);
lib/Mail/Toaster/Setup/Test.pm view on Meta::CPAN
# if ( my @features = $pop->Capa ) {
# print " POP3 server supports: " . join( ",", @features ) . "\n";
# }
$pop->Close;
}
sub smtp_auth {
my $self = shift;
my %p = validate( @_, { $self->get_std_opts } );
my @modules = ('IO::Socket::INET', 'IO::Socket::SSL', 'Net::SSLeay', 'Socket qw(:DEFAULT :crlf)','Net::SMTP_auth');
foreach ( @modules ) {
eval "use $_"; ## no critic ( ProhibitStringyEval )
die $@ if $@;
$self->pretty( "loading $_", 'ok' );
};
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
Net::SSLeay::randomize();
( run in 0.539 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )