/usr/share/irssi/scripts/scripthelp.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | use Irssi;
use vars qw($VERSION %IRSSI %HELP);
$VERSION = "0.9";
%IRSSI = (
authors => "Maciek \'fahren\' Freudenheim",
contact => "fahren\@bochnia.pl",
name => "Scripts help",
description => "Provides access to script\'s help",
license => "GNU GPLv2 or later",
changed => "Sat Apr 13 02:23:37 CEST 2002"
);
$HELP{scripthelp} = "
Provides help for irssi's perl scripts.
All what you have to do is to add
\$HELP{commandname} = \"
your help goes here
\";
to your script.
";
sub cmd_help {
my ($args, $server, $win) = @_;
# from scriptinfo.pl
for (sort grep s/::$//, keys %Irssi::Script::) {
my $help = ${ "Irssi::Script::${_}::HELP" }{$args};
if ($help) {
Irssi::signal_stop();
Irssi::print("$help");
return;
}
}
}
Irssi::command_bind("help", "cmd_help");
|