OpenVpn Multi Factor Authentication Script

mfa-auth.pl

#!/usr/bin/perl
#OpenVpn Multi Factor Authentication Script
#Compares the password to "bar"
use POSIX;

# Get username/password from file

if ($ARG = shift @ARGV) {
    if (!open (UPFILE, "<$ARG")) {
	print "Could not open username/password file: $ARG\n";
	exit 1;
    }
} else {
    print "No username/password file specified on command line\n";
    exit 1;
}

$username = <UPFILE>;
$password = <UPFILE>;

$password_cmp = "bar";

if (!$username || !$password) {
    print "Username/password not found in file: $ARG\n";
    exit 1;
}

chomp $username;
chomp $password;

close (UPFILE);

exit !($password eq $password_cmp);