Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Plugin	-	drwxr-xr-x	2022-02-23 11:31:05	Del
Plugin.pm	2.86 KB	-rw-r--r--	2014-09-29 12:13:23	Edit Del
Editing: Plugin.pm (2.86 KB)

package Nagios::Plugin;

use strict;
use warnings;
use Nagios::Plugin::Functions qw(:codes %ERRORS %STATUS_TEXT @STATUS_CODES);
use base 'Monitoring::Plugin';

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = (@STATUS_CODES);
our @EXPORT_OK = qw(%ERRORS %STATUS_TEXT);

# CPAN stupidly won't index this module without a literal $VERSION here,
#   so we're forced to duplicate it explicitly
# Make sure you update $Nagios::Plugin::Functions::VERSION too
our $VERSION = "0.37";

BEGIN {
    our $deprecated_warned = 0;
    warnings::warnif("deprecated", "Nagios::Plugin is deprecated, use Monitoring::Plugin instead.")
        unless $Monitoring::Plugin::deprecated_warned;
    $deprecated_warned = 1;
};

# MP::Functions wrappers
sub nagios_exit {
    my $self = shift;
    return(Nagios::Plugin::Functions::nagios_exit(@_, { plugin => $self }));
}
sub nagios_die {
    my $self = shift;
    return(Nagios::Plugin::Functions::nagios_die(@_, { plugin => $self }));
}
sub die {
    my $self = shift;
    return(Nagios::Plugin::Functions::nagios_die(@_, { plugin => $self }));
}
sub max_state {
    return(Monitoring::Plugin::Functions::max_state(@_));
}
sub max_state_alt {
    return(Monitoring::Plugin::Functions::max_state_alt(@_));
}
sub new {
    return(Monitoring::Plugin::new(@_));
}
sub shortname {
    return(Monitoring::Plugin::shortname(@_));
}
sub check_messages {
    return(Monitoring::Plugin::check_messages(@_));
}
sub set_thresholds {
    return(Monitoring::Plugin::set_thresholds(@_));
}
sub opts {
    return(Monitoring::Plugin::opts(@_));
}
sub threshold {
    return(Monitoring::Plugin::threshold(@_));
}
sub perfdata {
    return(Monitoring::Plugin::perfdata(@_));
}
sub messages {
    return(Monitoring::Plugin::messages(@_));
}
sub add_message {
    return(Monitoring::Plugin::add_message(@_));
}
sub add_perfdata {
    return(Monitoring::Plugin::add_perfdata(@_));
}
sub all_perfoutput {
    return(Monitoring::Plugin::all_perfoutput(@_));
}
sub add_arg {
    return(Monitoring::Plugin::add_arg(@_));
}
sub _check_for_opts {
    return(Monitoring::Plugin::_check_for_opts(@_));
}
sub getopts {
    return(Monitoring::Plugin::getopts(@_));
}
sub check_threshold {
    return(Monitoring::Plugin::check_threshold(@_));
}

1;

__END__

=head1 NAME

Nagios::Plugin - A family of perl modules to streamline writing Nagios
plugins

=head1 DEPRECATED

This module is *deprecated* in favour of C<Monitoring::Plugin>.
Read more about why this project had to change its name:
https://www.monitoring-plugins.org/news/new-project-name.html

=head1 AUTHOR

Maintained by the Monitoring Plugin development team -
https://www.monitoring-plugins.org/

Originally by Ton Voon, E<lt>ton.voon@altinity.comE<gt>.

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2006-2014 by Monitoring Plugin Development Team

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut