tools: Added shadow_help.pl. This is a simple irssi script that adds a OHELP command.

OHELP calls HELP so there's no conflict with in-client help and you do not have
to call HELP with /quote help.

diff --git a/tools/README b/tools/README
index 9ea64db99017f9b5b6edb603aabc430c4a4d34a7..e8b6cd26a1ffdc590a052264064fd09aec9bb070 100644 (file)
--- a/tools/README
+++ b/tools/README
@@ -7,14 +7,16 @@ convertconf.c   - converts a Hybrid 5 or 6 conf file to the new
 convertilines.c - convert hybrid 5/6 I: to auth {};
 convertklines.c - convert Hybrid 5/6 and early 7beta kline.conf files
                   to the new spreadsheet like format.
-encspeed.c      - test the speed of various encryption algorithms used in
-                  cryptlinks
+genssl.sh              - a small tool for generating SSL certificates for your IRCd.
 mkkeypair       - a small program used for generating a public and private
                   key pair
 mkpasswd.c      - makes password for O lines
 rsa_respond/    - a tool to generate an RSA response to the challenge asked
                   by the server, and a tool to generate a keypair for the
                   C/R system
+shadow_help.pl  - an irssi script which adds a OHELP command so you do not
+                                 have to type /quote help everytime you want to view the
+                                 IRCd's helpfiles.
 untabify        - converts tab characters to a specific number of spaces
 viconf.c        - edit your conf file without having to chdir su etc. etc.
                   also locks the file if file locking is used.

diff --git a/tools/shadow_help.pl b/tools/shadow_help.pl
new file mode 100644 (file)
index 0000000..2334d7f
--- /dev/null
+++ b/tools/shadow_help.pl
@@ -0,0 +1,29 @@
+use strict;
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+
+%IRSSI = (
+    authors     => 'JD Horelick',
+    contact     => 'jdhore1@gmail.com',
+    name        => 'shadow_help.pl',
+    description => 'Adds a OHELP command so that you do not need to type /quote help',
+    license     => 'GNU General Public License',
+    url         => 'http://shadowircd.net/',
+);
+
+sub cmd_ohelp {
+       my ($data, $server) = @_;
+
+       if (!$server || !$server->{connected}) {
+      Irssi::print("Not connected to server");
+      return;
+    }
+
+       $server->send_raw("HELP $data");
+}
+
+Irssi::command_bind('ohelp', \&cmd_ohelp);
+# vim: ts=4