1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use strict; use warnings; use Irssi; our $help = "this is help for b"; Irssi::command_bind('help', sub { if ($_[0] eq 'test_b') { Irssi::print($help, MSGLEVEL_CLIENTCRAP); Irssi::signal_stop(); return; } } );