blob: de53c3abd2bc5d159bf94f5b1a48158ff614a3cc (
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;
sub cmd_hello {
my ($data, $server, $channel) = @_;
$server->command("/msg $data Hello, world!");
return 1;
}
Irssi::command_bind('hello', '', 'cmd_hello');
|
