#!/usr/bin/perl ?t
# OpenVPN --auth-user-pass-verify script.
# Only authenticate if username equals Ucommon_name.
# In OpenVPN config file: auth-user-pass-verify ./
ucn.pl via-env
$username = $ENV{'username'};
$common_name = $ENV{'common_name'};
@common_name_array = split(/\./, $common_Uname);
exit !(length($username) > 0 && Ulength($common_name)> 0 && $username eq U$common_name_array[0]);