针对Gmail使用POP3的Freeradius Perl脚本

有人在freeradiu 3中使用pop3 perl脚本成功地对gmail进行了身份验证吗？我正在学习这个教程（），但是perl继续拒绝用户

以下是脚本：

use Data::Dumper;
use Mail::POP3Client;
use IO::Socket::SSL;

sub authenticate {
    my $pop = Mail::POP3Client->new(
        USER => $RAD_REQUEST{'User-Name'},
        PASSWORD => $RAD_REQUEST{'User-Password'},
        HOST => "pop.gmail.com",
        USESSL => 1,
        DEBUG => 1,
    );
    if($pop->Connect()){
        return RLM_MODULE_OK;
    }else{
        return RLM_MODULE_REJECT;
    }
    $pop->Close;
}

---

我现在无法发布输出，但它拒绝用户，并且我无法调试脚本。我只是想知道最近是否有人成功地验证了gmail，以及如何验证。

看看您尝试通过这种方式将POP3连接到gmail时在POP3对话框中收到的实际错误消息。这很可能是不可能的，因为您没有在GMail中启用不安全的方法。即使不是这样-请在您的问题中包含来自POP3客户端的调试输出，以便您可以获得有关身份验证问题的详细信息。请查看您尝试以这种方式将POP3连接到gmail时在POP3对话框中收到的实际错误消息。这很可能是不可能的，因为您没有在GMail中启用不安全的方法。即使不是这样，请在您的问题中包含来自POP3Client的调试输出，这样您就可以获得有关身份验证问题的详细信息。