File: ucn.pl

package info (click to toggle)
openvpn 2.1~rc11-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 4,556 kB
  • ctags: 5,488
  • sloc: ansic: 54,327; sh: 5,076; makefile: 294; perl: 234
file content (11 lines) | stat: -rwxr-xr-x 339 bytes parent folder | download | duplicates (15) 
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);