1#!/usr/bin/perl -t 2 3# OpenVPN --auth-user-pass-verify script. 4# Only authenticate if username equals common_name. 5# In OpenVPN config file: 6# auth-user-pass-verify ./ucn.pl via-env 7 8$username = $ENV{'username'}; 9$common_name = $ENV{'common_name'}; 10 11exit !(length($username) > 0 && length($common_name) > 0 && $username eq $common_name); 12