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