AuthPlugin for OpenVPN use POP - OpenVPN

为了让OpenVPN更方便的和现有的邮件系统结合，屏蔽低层的用户信息，直接使用POP验证。

程序源代码：
popauth.pl

#!/usr/bin/perl
# Write by ELM
# wzk [A|T] wenzk [D|O|T] net
# http://www.wenzk.net
#
# POP3 Auth script for OpenVPN
# Usage:
# save this file to /etc/openvpn/ as popauth.pl
# run： chmod +x /etc/openvpn/popauth.pl
# add the next line to you OpenVPN config file
# auth-user-pass-verify /etc/openvpn/popauth.pl via-env
# restart your OpenVPN Server

use Net::POP3;

# POP Server Address
$POPHOST = "localhost";
$USERNAME = $ENV{username};
$PASSWORD = $ENV{password};

# Constructors
$pop = Net::POP3->new($POPHOST);
$pop = Net::POP3->new($POPHOST, Timeout => 60);

if ( defined  $pop->login($USERNAME, $PASSWORD) ) {
      $result = 0;
} else {
      $result = 1;
}

$pop->quit;

exit $result;