+++ /dev/null
-# Example how to create your own /commands:
-
-# /HELLO <nick> - sends a "Hello, world!" to given nick.
-
-use Irssi;
-use strict;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "1.00";
-%IRSSI = (
- authors => 'Timo Sirainen',
- name => 'command',
- description => 'Command example',
- license => 'Public Domain'
-);
-
-sub cmd_hello {
- my ($data, $server, $channel) = @_;
-
- $server->command("/msg $data Hello, world!");
-}
-
-Irssi::command_bind('hello', 'cmd_hello');