aboutsummaryrefslogblamecommitdiff
path: root/sample-scripts/ucn.pl
blob: 6d708f82dac02ed2cefedc2c4952a5a1c678e697 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                                                                       
#!/usr/bin/perl -t

# OpenVPN --auth-user-pass-verify script.
# Only authenticate if username equals common_name.
# In OpenVPN config file:
#   auth-user-pass-verify ./ucn.pl via-env

$username = $ENV{'username'};
$common_name = $ENV{'common_name'};

exit !(length($username) > 0 && length($common_name) > 0 && $username eq $common_name);