App-MonM

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Module::Loaded" : "0.04",
            "Net::Ping" : "2.36",
            "Net::SMTP" : "2.31",
            "Net::Telnet" : "3.03",
            "Socket" : "0",
            "Sys::Hostname" : "0",
            "Term::ReadKey" : "2.33",
            "Text::ParseWords" : "0",
            "Text::Tabs" : "0",
            "Text::Wrap" : "0",
            "Try::Tiny" : "0",
            "URI" : "0",
            "perl" : "5.016001"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "homepage" : "https://app-monm.sourceforge.io",
      "license" : [
         "https://dev.perl.org/licenses"

META.yml  view on Meta::CPAN

  Module::Loaded: '0.04'
  Net::Ping: '2.36'
  Net::SMTP: '2.31'
  Net::Telnet: '3.03'
  Socket: '0'
  Sys::Hostname: '0'
  Term::ReadKey: '2.33'
  Text::ParseWords: '0'
  Text::Tabs: '0'
  Text::Wrap: '0'
  Try::Tiny: '0'
  URI: '0'
  perl: '5.016001'
resources:
  homepage: https://app-monm.sourceforge.io
  license: https://dev.perl.org/licenses
version: '1.09'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

        'Module::Loaded'        => 0.04,
        'Net::Ping'             => 2.36,
        'Net::SMTP'             => 2.31,
        'Net::Telnet'           => 3.03,
        'Socket'                => 0,
        'Sys::Hostname'         => 0,
        'Term::ReadKey'         => 2.33,
        'Text::Tabs'            => 0,
        'Text::Wrap'            => 0,
        'Text::ParseWords'      => 0,
        'Try::Tiny'             => 0,
        'URI'                   => 0,
    };

my $exefiles = [qw[
        bin/monm
        bin/monmd
        bin/monm_dbi
        bin/monm_snmp
        bin/monm_nginx
        bin/monm_ftp

bin/monm_icmp  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;

use Net::Ping;
use Try::Tiny;

use App::MonM::Const qw/
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    HOST        => "localhost",
    PROTO       => 'tcp',
    TIMEOUT     => 5,
    PROTOCOLS   => [qw/tcp udp icmp stream syn external/],

bin/monm_pop3  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;

use Mail::POP3Client;
use Try::Tiny;

use App::MonM::Const qw/
        IS_TTY SCREENWIDTH
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    HOST        => "localhost",
    PORT        => 110,
    TIMEOUT     => 60,

bin/monm_smtp  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;

use Net::SMTP;
use Try::Tiny;

use App::MonM::Const qw/
        IS_TTY SCREENWIDTH
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    HOST        => "localhost",
    PORT        => 25,
    TIMEOUT     => 60,

bin/monm_snmp  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;

use Module::Loaded;
use Try::Tiny;

use App::MonM::Util qw/explain/;
use App::MonM::Const qw/
        IS_TTY SCREENWIDTH
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    HOST        => 'localhost',
    PORT        => 161,

bin/monm_ssh  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;

use Net::Telnet;
use Try::Tiny;

use App::MonM::Const qw/
        IS_TTY SCREENWIDTH
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    HOST        => "localhost",
    PORT        => 22,
    TIMEOUT     => 60,

lib/App/MonM/Channel/Email.pm  view on Meta::CPAN

=cut

use vars qw/$VERSION/;
$VERSION = '1.00';

use CTK::ConfGenUtil;
use CTK::TFVals qw/ :ALL /;
use Email::Sender::Simple qw//;
use Email::Sender::Transport::SMTP;
use Try::Tiny;

use App::MonM::Util qw/ set2attr /;

sub sendmsg {
    my $self = shift;
    return $self->maybe::next::method() unless $self->type eq 'email';
    my $message = $self->message;

    #printf "Send message %s to %s (%s) via %s\n", $self->message->msgid, $self->message->to, $self->message->recipient,  $self->type;
    #print App::MonM::Util::explain($self->chconf);

lib/App/MonM/Const.pm  view on Meta::CPAN

modify it under the same terms as Perl itself.

See C<LICENSE> file and L<https://dev.perl.org/licenses/>

=cut

use vars qw/$VERSION @EXPORT @EXPORT_OK/;
$VERSION = '1.01';

use Sys::Hostname qw/hostname/;
use Try::Tiny;

use base qw/Exporter/;

use constant {
        PROJECTNAME         => "MonM",
        PROJECTNAMEL        => "monm",
        PREFIX              => "monm",
        DAEMONMAME          => 'monmd',
        USERNAME            => 'monmu',
        GROUPNAME           => 'monmu',