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