129 lines
3.3 KiB
Perl
129 lines
3.3 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
package JMX::Jmx4Perl::J4psh::Command::Global;
|
||
|
|
use strict;
|
||
|
|
use Term::ANSIColor qw(:constants);
|
||
|
|
use Term::Clui;
|
||
|
|
use base qw(JMX::Jmx4Perl::J4psh::Command);
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
JMX::Jmx4Perl::J4psh::Command::Global - Globally available commands
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
=head1 COMMANDS
|
||
|
|
|
||
|
|
=over
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
|
||
|
|
sub name { "global" }
|
||
|
|
|
||
|
|
sub global_commands {
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
return
|
||
|
|
{
|
||
|
|
"error" => {
|
||
|
|
desc => "Show last error (if any)",
|
||
|
|
proc => $self->cmd_last_error,
|
||
|
|
doc => <<EOT
|
||
|
|
Show the last error, if any occured. Including all
|
||
|
|
stacktraces returned by the server.
|
||
|
|
EOT
|
||
|
|
},
|
||
|
|
"help" => {
|
||
|
|
desc => "Print online help",
|
||
|
|
args => sub { shift->help_args(undef, @_); },
|
||
|
|
method => sub { shift->help_call(undef, @_); },
|
||
|
|
doc => <<EOT,
|
||
|
|
help [<command>]
|
||
|
|
h [<command>]
|
||
|
|
|
||
|
|
Print online help. Without option, show a summary. With
|
||
|
|
option, show specific help for command <command>.
|
||
|
|
EOT
|
||
|
|
},
|
||
|
|
"h" => { alias => "help", exclude_from_completion=>1},
|
||
|
|
"history" => {
|
||
|
|
desc => "Command History",
|
||
|
|
doc => <<EOT,
|
||
|
|
|
||
|
|
history [-c] [-d <num>]
|
||
|
|
|
||
|
|
Specify a number to list the last N lines of history
|
||
|
|
|
||
|
|
Options:
|
||
|
|
-c : Clear the command history
|
||
|
|
-d <num> : Delete a single item <num>
|
||
|
|
EOT
|
||
|
|
args => "[-c] [-d] [number]",
|
||
|
|
method => sub { shift->history_call(@_) },
|
||
|
|
},
|
||
|
|
"quit" => {
|
||
|
|
desc => "Quit",
|
||
|
|
maxargs => 0,
|
||
|
|
method => sub { shift->exit_requested(1); },
|
||
|
|
doc => <<EOT,
|
||
|
|
Quit shell.
|
||
|
|
EOT
|
||
|
|
},
|
||
|
|
"q" => { alias => 'quit', exclude_from_completion => 1 },
|
||
|
|
"exit" => { alias => 'quit', exclude_from_completion => 1 }
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
sub cmd_last_error {
|
||
|
|
my $self = shift;
|
||
|
|
return sub {
|
||
|
|
my $agent = $self->agent;
|
||
|
|
my $txt = $self->context->last_error;
|
||
|
|
if ($txt) {
|
||
|
|
chomp $txt;
|
||
|
|
print "$txt\n";
|
||
|
|
} else {
|
||
|
|
print "No errors\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
=back
|
||
|
|
|
||
|
|
=head1 LICENSE
|
||
|
|
|
||
|
|
This file is part of jmx4perl.
|
||
|
|
|
||
|
|
Jmx4perl is free software: you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation, either version 2 of the License, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
jmx4perl is distributed in the hope that it will be useful,
|
||
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with jmx4perl. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
A commercial license is available as well. Please contact roland@cpan.org for
|
||
|
|
further details.
|
||
|
|
|
||
|
|
=head1 PROFESSIONAL SERVICES
|
||
|
|
|
||
|
|
Just in case you need professional support for this module (or Nagios or JMX in
|
||
|
|
general), you might want to have a look at
|
||
|
|
http://www.consol.com/opensource/nagios/. Contact roland.huss@consol.de for
|
||
|
|
further information (or use the contact form at http://www.consol.com/contact/)
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
roland@cpan.org
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
1;
|
||
|
|
|