App-madeye

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "DateTime::Event::Cron" : "0",
            "Digest::SHA1" : "0",
            "Encode" : "0",
            "Furl" : "0",
            "Gearman::Client" : "0",
            "Gearman::Util" : "0",
            "Gearman::Worker" : "0",
            "Getopt::Long" : "0",
            "IO::Select" : "0",
            "IO::Socket::INET" : "0",
            "IO::Socket::SSL" : "0",
            "IPC::Open3" : "0",
            "Kwalify" : "0",
            "LWP::UserAgent" : "0",
            "List::Util" : "0",
            "Log::Dispatch" : "0",
            "MIME::Lite" : "0",
            "MogileFS::Admin" : "0",
            "Net::DNS" : "0",
            "Net::SMTP::TLS" : "0",
            "Net::SNMP" : "0",

META.yml  view on Meta::CPAN

  DateTime::Event::Cron: 0
  Digest::SHA1: 0
  Encode: 0
  Furl: 0
  Gearman::Client: 0
  Gearman::Util: 0
  Gearman::Worker: 0
  Getopt::Long: 0
  IO::Select: 0
  IO::Socket::INET: 0
  IO::Socket::SSL: 0
  IPC::Open3: 0
  Kwalify: 0
  LWP::UserAgent: 0
  List::Util: 0
  Log::Dispatch: 0
  MIME::Lite: 0
  MogileFS::Admin: 0
  Net::DNS: 0
  Net::SMTP::TLS: 0
  Net::SNMP: 0

cpanfile  view on Meta::CPAN

requires 'perl', '5.008_001';

requires 'Class::Component' => '0.17';
requires 'Furl';
requires 'Params::Validate' => 0.91;
requires 'YAML';
requires 'IO::Socket::INET';
requires 'Socket';
requires 'IO::Select';
requires 'IO::Socket::SSL';
requires 'Net::SSH';
requires 'IPC::Open3';
requires 'Kwalify';
requires 'Pod::POM';
requires 'List::Util';
requires 'Log::Dispatch';
requires 'Net::SNMP';

requires 'CPAN::Meta';
requires 'CPAN::Meta::Prereqs';

lib/App/MadEye/Plugin/Agent/POP3S.pm  view on Meta::CPAN

package App::MadEye::Plugin::Agent::POP3S;
use strict;
use warnings;
use App::MadEye::Plugin::Agent::Base;
use IO::Socket qw(SOCK_STREAM);
use IO::Socket::SSL;

sub is_dead {
    my ($self, $host) = @_;

    my $conf = $self->config->{config};
    my $port    = $conf->{port}    or die "missing port";
    my $timeout = $conf->{timeout} || 10;

    eval {
        my $sock = IO::Socket::SSL->new(
            PeerAddr  => $host,
            PeerPort  => $port,
            Proto     => 'tcp',
            Type      => SOCK_STREAM,
            Timeout   => $timeout,
        ) or die "can't connect pop3s $host:$port $!\n";
    };

    if ( $@ ) {
        return "pop3d is dead $@";

lib/App/MadEye/Plugin/Agent/POP3S.pm  view on Meta::CPAN

        timeout:
            required: no
            type: int

=head1 AUTHORS

Tokuhiro Matsuno

=head1 SEE ALSO

L<IO::Socket::SSL>, L<App::MadEye>