apps/irssi/scripts/hello.pl

   1 # "Hello, world!" script :) /hello <nick> sends "Hello, world!" to <nick>
   2
   3 use Irssi;
   4 use strict;
   5
   6 sub cmd_hello {
   7         my ($data, $server, $channel) = @_;
   8
   9         $server->command("/msg $data Hello, world!");
  10 }
  11
  12 Irssi::command_bind('hello', 'cmd_hello');