diff options
Diffstat (limited to 'scripts/examples/command.pl')
-rw-r--r-- | scripts/examples/command.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/scripts/examples/command.pl b/scripts/examples/command.pl new file mode 100644 index 00000000..77a9d7fb --- /dev/null +++ b/scripts/examples/command.pl @@ -0,0 +1,23 @@ +# 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'); |