feature-tests/help_b.pl


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;
        }
  }
);