File Coverage

blib/lib/App/Manoc.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package App::Manoc;
#ABSTRACT: Network monitoring application

use Moose;

our $VERSION = '2.99.2'; ##TRIAL VERSION

use namespace::autoclean;

require 5.10.1;
use version 0.77;    # even for Perl v.5.10.0

use Catalyst::Runtime 5.90;

use App::Manoc::DB;

# Set flags and add plugins for the application
#
#         -Debug: activates the debug mode for very useful log messages
#   ConfigLoader: will load the configuration from a Config::General file in the
#                 application's home directory
# Static::Simple: will serve static files from the application's root
#                 directory

use Catalyst qw/
    ConfigLoader

    Static::Simple

    Authentication

    Session
    Session::Store::DBI
    Session::State::Cookie

    +App::Manoc::CatalystRole::RequestToken
    +App::Manoc::CatalystRole::Permission

    StackTrace
    /;

extends 'Catalyst';

with 'App::Manoc::Logger::CatalystRole';

# Configure the application.
#
# Note that settings in manoc.conf (or other external
# configuration file that you set up manually) take precedence
# over this when using ConfigLoader. Thus configuration
# details given here can function as a default configuration,
# with an external configuration file acting as an override for
# local deployment.

__PACKAGE__->config(
    name => 'App::Manoc',

    # Views setup
    default_view => 'TT',

    use_request_uri_for_path => 1,

    'Model::ManocDB' => $App::Manoc::DB::DEFAULT_CONFIG,

    # Disable deprecated behavior needed by old applications
    disable_component_resolution_regex_fallback => 1,

    'Plugin::Authentication' => {
        default_realm => 'userdb',
        realms        => {
            userdb => {
                credential => {
                    class          => 'Password',
                    password_field => 'password',
                    password_type  => 'self_check',
                },
                store => {
                    class       => 'DBIx::Class',
                    user_model  => 'ManocDB::User',
                    role_column => 'roles',
                },
            },
            agent => {
                credential => {
                    class          => 'HTTP',
                    type           => 'basic',
                    password_field => 'password',
                    password_type  => 'self_check',
                },
                store => {
                    class       => 'DBIx::Class',
                    user_model  => 'ManocDB::User',
                    role_column => 'roles',
                }
            },
        },
    },

    #remove stale sessions from db
    'Plugin::Session' => {
        expires           => 28800,
        dbi_dbh           => 'ManocDB',
        dbi_table         => 'sessions',
        dbi_id_field      => 'id',
        dbi_data_field    => 'session_data',
        dbi_expires_field => 'expires',
    }
);

# Start the application
__PACKAGE__->setup();

no Moose;

__PACKAGE__->meta->make_immutable( replace_constructor => 1 );

1;

__END__

=pod

=head1 NAME

App::Manoc - Network monitoring application

=head1 VERSION

version 2.99.2

=head1 SYNOPSIS

    script/manoc_server.pl

=head1 DESCRIPTION

Manoc is a web-based network monitoring/reporting platform designed for moderate to large networks.

Manoc collects and displays:

=over 4

=item

Ports status and mac-address associations network devices via SNMP

=item

Ethernet/IP address pairings via a sniffer agenta

=item

DHCP leases/reservations using a lightweight agent for ISC DHCPD
based servers

=item

users and computer logon in a Windows AD environment, using an
agent for syslog-ng to trap snare generated syslog messages

=back

Data is stored using a SQL database like Postgres or MySQL using DBIx::Class .

=for markdown [![Build Status](https://travis-ci.org/ManocLabs/manoc.svg?branch=master)](https://travis-ci.org/ManocLabs/manoc)

=head1 SEE ALSO

L<Catalyst> L<SNMP::Info> L<Moose>

=head1 AUTHORS

=over 4

=item *

Gabriele Mambrini <[e-mail]>

=item *

Enrico Liguori

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Gabriele Mambrini.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut