如何在 Perl 中使用 POE::Component::IRC::State 检查用户是否通过 NickServ 进行身份验证？

Question

我正在尝试测试用户是否在 FreeNode 上注册。 nick_info() 似乎没有返回有关此的信息，所以我想使用 $irc->yield(whois => $nick);然后获取 irc_whois 事件的回复。问题是我想等到这个事件被触发，所以我创建了一个全局变量 $whois_result 并编写了一个像这样的子：

sub whois {
    my $nick = $_[0];
    $whois_result = 0;
    $irc->yield(whois => $nick);
    while($whois_result == 0) { }
    return $whois_result;
}

irc_whois 处理程序看起来像：

sub on_whois {
    $whois_result = $_[ARG0];
    print "DEBUG: irc_whois fired.\n";
}

不幸的是，该事件在循环运行时无法触发，所以这挂起。我确信有更好的方法可以做到这一点，但我对这种编程还不够熟悉。任何帮助将不胜感激。

Answer 1

在 POE 中的状态的子目录上...您必须在另一个状态中屈服或调用它。

另外，当您从 IRC 命令获得数据时，请让步到另一个状态来处理它。

_开始
- 启动计时器等。
定时器
- 收益 on_whois

on_whois
- 跑谁是谁
- 设置数据
- 屈服于下一个计时器

_stop
- 杀死计时器
- 刷新数据

Answer 2

我在 Freenode 上运行了一个机器人，并通过向 Nickserv 询问命令解决了该问题：
ACC [nick] *

Nickserv 随后将回复以下格式的通知：
[昵称] -> [registerd nickservname] ACC [level]

其中级别 3 表示用户被识别为 nickserv。

Answer 3

以下内容至少适用于 FreeNode（或任何支持识别消息功能的服务器）。

如果您对来自用户的消息（irc_msg、irc_public 或 irc_ctcp_action）做出反应，您可以通过以下方式判断他是否已向 NickServ 识别：查看提供给事件处理程序的第三个参数 ($_[ARG3])。如果用户已识别，则为 true，否则为 false。