NAME

Mojo::IRC::Server::Chinese - A Chinese IRC server base on Mojolicious

SYNOPSIS

use Mojo::IRC::Server::Chinese;
my $server = Mojo::IRC::Server::Chinese->new(
    host        =>  "0.0.0.0",
    port        =>  6667,
    log_level   =>  "debug",
);
$server->run();

#监听多个地址端口,使用listen参数
my $server = Mojo::IRC::Server::Chinese->new(
    log_level   =>  "debug",
    listen      => [
        {host=>"0.0.0.0",port=>6667},
        {host=>"0.0.0.0",port=>6668},
    ],
);
$server->run();

#TLS加密支持
my $server = Mojo::IRC::Server::Chinese->new(
    log_level   =>  "debug",
    listen      => [
        {host=>"0.0.0.0",port=>6667},
        {host=>"0.0.0.0",port=>6697,tls=>1},
    ],
);
$server->run();

#TLS更多详细参数使用说明参见 https://metacpan.org/pod/Mojo::IOLoop::Server#tls
tls                 #0|1 是否启用tls加密
tls_ca              #可选,本地ca证书路径 例如 /etc/tls/ca.crt
tls_cert            #可选,服务器证书路径,默认会生成一个测试证书
tls_ciphers         #可选,加密套件,例如 AES128-GCM-SHA256:RC4:HIGH:!MD5:!aNULL:!EDH
tls_key             #可选,服务器证书key文件路径
tls_verify          #可选,验证模式
tls_version         #可选,协议版本,例如 TLSv1_2

#登录验证支持
my $server = Mojo::IRC::Server::Chinese->new(
    log_level   =>  "debug",
    listen      => [
        {host=>"0.0.0.0",port=>6667},
        {host=>"0.0.0.0",port=>6668},
    ],
    auth        => sub{
        my($nick,$user,$pass) = @_; #传递给验证函数的三个参数依次是 irc客户端的NICK/USER/PASS
        if($nick eq '小灰'){#对于昵称"小灰"进行密码验证
            return 0 if not defined $pass; #没有设置密码,验证失败
            return 0 if $pass ne '123456'; #设置的密码不是 "123456" 验证失败
            return 1; #验证成功,允许正常登录
        }
        else{return 1;}#对其他登录昵称不进行验证,全部允许登录
    },
);
$server->run();

DESCRIPTION

Mojo::IRC::Server::Chinese是一个基于Mojolicious框架的IRC服务器,采用异步事件驱动,纯中文支持(请使用UTF8编码)

支持使用中文昵称、中文频道名称,不限制昵称长度,让该死的只能使用英文字符见鬼去吧,目前只实现了聊天相关的常用功能

SEE ALSO

https://github.com/sjdy521/Mojo-IRC-Server-Chinese

https://github.com/sjdy521/Mojo-Webqq

https://github.com/sjdy521/Mojo-Weixin

AUTHOR

sjdy521, <[email protected]>

COPYRIGHT AND LICENSE

Copyright (C) 2014 by sjdy521

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.