#!/usr/bin/perl

BEGIN {
  push @INC,"/etc/openvpn/";
}


use LWP::Simple;
use Sys::Syslog qw(:DEFAULT setlogsock);

use Validate;

log_init;
my $ret = validate($ENV{"username"}, $ENV{"password"}, $ENV{"local_1"});
log_close;
exit(!$ret);

