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&64;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.