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