mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 10:25:42 -04:00
24 lines
529 B
Text
24 lines
529 B
Text
use strict;
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
my $plugin_name = $said->{recommended_args}->[0];
|
|
|
|
if( length $plugin_name ) {
|
|
my $plugin = $pm->get_plugin( $plugin_name );
|
|
|
|
if( $plugin ) {
|
|
print $plugin->{help_text};
|
|
}
|
|
else {
|
|
print "Sorry, no plugin named $plugin_name found.";
|
|
}
|
|
}
|
|
else {
|
|
print "Provides help text for a specific command. Try 'help echo'. See also the command 'plugins' to list all of the currently loaded plugins.";
|
|
}
|
|
}
|
|
|
|
__DATA__
|
|
Attempts to find the help for a plugin. Syntax help PLUGIN.
|