针对Gmail使用POP3的Freeradius-Perl脚本

编程问答 2022-06-11

问题描述

有人在freeradiu 3中使用pop3 perl脚本成功通过gmail进行身份验证吗？我正在关注本教程（https://kerker.website/freeradiusgmail802-1x%e8%a8%ad%e5%ae%9apop3s/），但是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以及如何进行验证。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

freeradiusgmailgmailperl