Import scripts from scripts.irssi.org

1 files changed, 37 insertions, 0 deletions

diff --git a/scripts/scripthelp.pl b/scripts/scripthelp.pl
new file mode 100644
index 0000000..316aeb2
--- /dev/null
+++ b/scripts/scripthelp.pl
@@ -0,0 +1,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");