diff options
author | Timo Sirainen <cras@irssi.org> | 2000-02-25 17:03:17 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-02-25 17:03:17 +0000 |
commit | f5fc6247811c782c5ae42d14a15b7d714f564958 (patch) | |
tree | ee629ade0e7485d003db0a4fab108bf5c72a0b6b /examples/hello.pl | |
parent | 3d513eebfad1c55c76da5b7a26c59d7b20eabd50 (diff) | |
download | irssi-f5fc6247811c782c5ae42d14a15b7d714f564958.zip |
Irssi 0.7.27 released.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@130 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'examples/hello.pl')
-rw-r--r-- | examples/hello.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/examples/hello.pl b/examples/hello.pl new file mode 100644 index 00000000..de53c3ab --- /dev/null +++ b/examples/hello.pl @@ -0,0 +1,12 @@ +# "Hello, world!" script :) /hello <nick> sends "Hello, world!" to <nick> + +use Irssi; + +sub cmd_hello { + my ($data, $server, $channel) = @_; + + $server->command("/msg $data Hello, world!"); + return 1; +} + +Irssi::command_bind('hello', '', 'cmd_hello'); |