Egg::View::Mail::Plugin::PortCheck - The operation of the mail server is checked before Mail Sending.
my $mail= $e->view('mail_label'); $mail->send( ........ ) || do { unless ($mail->scan->is_success) { .... The mail server is not operating. } };
It is MAIL plugin that checks the operation of the mail server before Mail Sending.
When 'PortCheck' is passed to 'setup_plugin' method, it is built in.
package MyApp::View::Mail::MyComp; ......... __PACKAGE__->setup_plugin(qw/ PortCheck /);
It is necessary to set up it and Egg::Plugin::Net::Scan.
package MyApp; use Egg qw/ Net::Scan /;
Host name to be checked.
Default is 'localhost'.
Port number to be checked.
Default is '25'.
Time to wait for answer from check object.
Default is '3'.
Mail is transmitted.
If the check object is not operating, 0 is returned and processing is interrupted.
Please adjust the built-in order when competing with other components for which 'send' method is used.
__PACKAGE__->setup_plugin(qw/ Lot PortCheck /);
The object returned from Egg::Plugin::Net::Scan is stored.
if (my $scan= $mail->scan) { $e->stash->{error_message}= $scan->is_error; }
Egg::Release, Egg::View::Mail, Egg::View::Mail::Base, Egg::Plugin::Net::Scan,
Masatoshi Mizuno <lushe@cpan.org>
Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.
To install Egg::Release::Mail, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Egg::Release::Mail
CPAN shell
perl -MCPAN -e shell install Egg::Release::Mail
For more information on module installation, please visit the detailed CPAN module installation guide.